Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/532/A54 into FORTRAN code for reading data files line by line.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Apr-20
C=============================================================================
* This code was generated from the ReadMe file documenting a catalogue
* according to the "Standard for Documentation of Astronomical Catalogues"
* currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
* (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
* Please report problems or questions to
C=============================================================================
implicit none
* Unspecified or NULL values, generally corresponding to blank columns,
* are assigned one of the following special values:
* rNULL__ for unknown or NULL floating-point values
* iNULL__ for unknown or NULL integer values
real*4 rNULL__
integer*4 iNULL__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. J/A+A/532/A54 GRAMS carbon-star model grid (Srinivasan+, 2011)
*================================================================================
*The mass-loss return from evolved stars to the Large Magellanic Cloud.
*V. The GRAMS carbon-star model grid.
* Srinivasan S., Sargent B. A., Meixner M.
* <Astron. Astrophys. 532, A54 (2011)>
* =2011A&A...532A..54S
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'grid.dat' ! *GRAMS carbon-star grid
integer*4 nr__
parameter (nr__=12243) ! Number of records
character*3408 ar__ ! Full-size record
integer*4 Teff ! (K) [2600/4000] Effective temperature of model
* photosphere
real*4 logg ! ([cm/s2]) [-1/0] Surface gravity
real*4 Mass ! (Msun) [1/5] Stellar mass (1, 2, 3 or 5)
real*4 C_O ! [1.4/5] Photospheric C/O ratio (1.4, 2 or 5)
real*4 Rin ! [1.5/12] Dust shell inner radius in stellar
* radii (values 1.5, 3, 4.5, 7, 12)
real*4 tau1 ! Optical depth at 1um
real*4 tau11_3 ! Optical depth at 11.3um
integer*4 Lum ! (Lsun) Luminosity
real*4 MLR ! (Msun/yr) Dust mass-loss rate
real*4 F_U ! (Jy) Broadband flux in U
real*4 F_B ! (Jy) Broadband flux in B
real*4 F_V ! (Jy) Broadband flux in V
real*4 F_I ! (Jy) Broadband flux in I
real*4 F_J ! (Jy) Broadband flux in J
real*4 F_H ! (Jy) Broadband flux in H
real*4 F_Ks ! (Jy) Broadband flux in Ks
real*4 F_3_6 ! (Jy) Broadband flux in Spitzer/IRAC 3.6um
real*4 F_4_5 ! (Jy) Broadband flux in Spitzer/IRAC 4.5um
real*4 F_5_8 ! (Jy) Broadband flux in Spitzer/IRAC 5.8um
real*4 F_8_0 ! (Jy) Broadband flux in Spitzer/IRAC 8.0um
real*4 F_24 ! (Jy) Broadband flux in Spitzer/MIPS 24um
real*4 F_70 ! (Jy) Broadband flux in Spitzer/MIPS 70um
real*4 F_160 ! (Jy) Broadband flux in Spitzer/MIPS 160um
real*4 F_N2 ! (Jy) Broadband flux in AKARI N2 (2.34um)
real*4 F_N3 ! (Jy) Broadband flux in AKARI N3 (3.19um)
real*4 F_N4 ! (Jy) Broadband flux in AKARI N4 (4.33um)
real*4 F_S7 ! (Jy) Broadband flux in AKARI S7 (7um)
real*4 F_S9W ! (Jy) Broadband flux in AKARI S9W (9um)
real*4 F_S11 ! (Jy) Broadband flux in AKARI S11 (11um)
real*4 F_L15 ! (Jy) Broadband flux in AKARI L15 (15um)
real*4 F_L18W ! (Jy) Broadband flux in AKARI L18W (18um)
real*4 F_L24 ! (Jy) Broadband flux in AKARI L24 (24um)
real*4 F_W1 ! (Jy) Broadband flux in WISE W1 (3.3um)
real*4 F_W2 ! (Jy) Broadband flux in WISE W2 (4.6um)
real*4 F_W3 ! (Jy) Broadband flux in WISE W3 (11.6um)
real*4 F_W4 ! (Jy) Broadband flux in WISE W4 (22um)
real*4 m_U ! (mag) Broadband magnitude in U
real*4 m_B ! (mag) Broadband magnitude in B
real*4 m_V ! (mag) Broadband magnitude in V
real*4 m_I ! (mag) Broadband magnitude in I
real*4 m_J ! (mag) Broadband magnitude in J
real*4 m_H ! (mag) Broadband magnitude in H
real*4 m_Ks ! (mag) Broadband magnitude in Ks
real*4 m_3_6 ! (mag) Broadband magnitude in Spitzer/IRAC 3.6um
real*4 m_4_5 ! (mag) Broadband magnitude in Spitzer/IRAC 4.5um
real*4 m_5_8 ! (mag) Broadband magnitude in Spitzer/IRAC 5.8um
real*4 m_8_0 ! (mag) Broadband magnitude in Spitzer/IRAC 8.0um
real*4 m_24 ! (mag) Broadband magnitude in Spitzer/MIPS 24um
real*4 m_70 ! (mag) Broadband magnitude in Spitzer/MIPS 70um
real*4 m_160 ! (mag) Broadband magnitude in Spitzer/MIPS 160um
real*4 m_N2 ! (mag) Broadband magnitude in AKARI N2 (2.34um)
real*4 m_N3 ! (mag) Broadband magnitude in AKARI N3 (3.19um)
real*4 m_N4 ! (mag) Broadband magnitude in AKARI N4 (4.33um)
real*4 m_S7 ! (mag) Broadband magnitude in AKARI S7 (7um)
real*4 m_S9W ! (mag) Broadband magnitude in AKARI S9W (9um)
real*4 m_S11 ! (mag) Broadband magnitude in AKARI S11 (11um)
real*4 m_L15 ! (mag) Broadband magnitude in AKARI L15 (15um)
real*4 m_L18W ! (mag) Broadband magnitude in AKARI L18W (18um)
real*4 m_L24 ! (mag) Broadband magnitude in AKARI L24 (24um)
real*4 m_W1 ! (mag) Broadband magnitude in WISE W1 (3.3um)
real*4 m_W2 ! (mag) Broadband magnitude in WISE W2 (4.6um)
real*4 m_W3 ! (mag) Broadband magnitude in WISE W3 (11.6um)
real*4 m_W4 ! (mag) Broadband magnitude in WISE W4 (22um)
integer*4 Tin ! (K) Temperature at inner shell radius
real*4 Fspec1 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 0.2339um wavelength
real*4 Fspec2 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 0.2711um wavelength
real*4 Fspec3 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 0.317um wavelength
real*4 Fspec4 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 0.3707um wavelength
real*4 Fspec5 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 0.4297um wavelength
real*4 Fspec6 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 0.502352um wavelength
real*4 Fspec7 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 0.5856737um wavelength
real*4 Fspec8 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 0.6828153um wavelength
real*4 Fspec9 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 0.7960691um wavelength
real*4 Fspec10 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 0.9281076um wavelength
real*4 Fspec11 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 1.082587um wavelength
real*4 Fspec12 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 1.262149um wavelength
real*4 Fspec13 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 1.471493um wavelength
real*4 Fspec14 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 1.715559um wavelength
real*4 Fspec15 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 2.000107um wavelength
real*4 Fspec16 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 2.1917um wavelength
real*4 Fspec17 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 2.402848um wavelength
real*4 Fspec18 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 2.633021um wavelength
real*4 Fspec19 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 2.885242um wavelength
real*4 Fspec20 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 3.161625um wavelength
real*4 Fspec21 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 3.466214um wavelength
real*4 Fspec22 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 3.79825um wavelength
real*4 Fspec23 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 4.16209um wavelength
real*4 Fspec24 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 4.563064um wavelength
real*4 Fspec25 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 5.000167um wavelength
real*4 Fspec26 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 5.251213um wavelength
real*4 Fspec27 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 5.501097um wavelength
real*4 Fspec28 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 5.75136um wavelength
real*4 Fspec29 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 6.000998um wavelength
real*4 Fspec30 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 6.248964um wavelength
real*4 Fspec31 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 6.500674um wavelength
real*4 Fspec32 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 6.749014um wavelength
real*4 Fspec33 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 6.99984um wavelength
real*4 Fspec34 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 7.249109um wavelength
real*4 Fspec35 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 7.499753um wavelength
real*4 Fspec36 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 7.75131um wavelength
real*4 Fspec37 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 7.999299um wavelength
real*4 Fspec38 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 8.251097um wavelength
real*4 Fspec39 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 8.498068um wavelength
real*4 Fspec40 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 8.748057um wavelength
real*4 Fspec41 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 9.000899um wavelength
real*4 Fspec42 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 9.251795um wavelength
real*4 Fspec43 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 9.500182um wavelength
real*4 Fspec44 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 9.750362um wavelength
real*4 Fspec45 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 10.00213um wavelength
real*4 Fspec46 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 10.25015um wavelength
real*4 Fspec47 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 10.49906um wavelength
real*4 Fspec48 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 10.74865um wavelength
real*4 Fspec49 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 10.99867um wavelength
real*4 Fspec50 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 11.24888um wavelength
real*4 Fspec51 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 11.49904um wavelength
real*4 Fspec52 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 11.74888um wavelength
real*4 Fspec53 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 11.99815um wavelength
real*4 Fspec54 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 12.25271um wavelength
real*4 Fspec55 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 12.50017um wavelength
real*4 Fspec56 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 12.65104um wavelength
real*4 Fspec57 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 12.79733um wavelength
real*4 Fspec58 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 12.95178um wavelength
real*4 Fspec59 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 13.10155um wavelength
real*4 Fspec60 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 13.25305um wavelength
real*4 Fspec61 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 13.39960um wavelength
real*4 Fspec62 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 13.54777um wavelength
real*4 Fspec63 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 13.69758um wavelength
real*4 Fspec64 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 13.84905um wavelength
real*4 Fspec65 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 14.00219um wavelength
real*4 Fspec66 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 14.50082um wavelength
real*4 Fspec67 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 15.00220um wavelength
real*4 Fspec68 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 15.49765um wavelength
real*4 Fspec69 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 16.00147um wavelength
real*4 Fspec70 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 16.49691um wavelength
real*4 Fspec71 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 16.99919um wavelength
real*4 Fspec72 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 17.49925um wavelength
real*4 Fspec73 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 17.99603um wavelength
real*4 Fspec74 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 18.49766um wavelength
real*4 Fspec75 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 19.00378um wavelength
real*4 Fspec76 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 19.50423um wavelength
real*4 Fspec77 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 19.99785um wavelength
real*4 Fspec78 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 20.50397um wavelength
real*4 Fspec79 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 21.0019um wavelength
real*4 Fspec80 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 21.50116um wavelength
real*4 Fspec81 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 22.00129um wavelength
real*4 Fspec82 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 22.5018um wavelength
real*4 Fspec83 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 23.0022um wavelength
real*4 Fspec84 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 23.50198um wavelength
real*4 Fspec85 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 24.00061um wavelength
real*4 Fspec86 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 24.49758um wavelength
real*4 Fspec87 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 24.97985um wavelength
real*4 Fspec88 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 25.52um wavelength
real*4 Fspec89 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 25.97um wavelength
real*4 Fspec90 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 26.42um wavelength
real*4 Fspec91 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 26.89um wavelength
real*4 Fspec92 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 27.6um wavelength
real*4 Fspec93 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 28.08um wavelength
real*4 Fspec94 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 28.57um wavelength
real*4 Fspec95 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 29.08um wavelength
real*4 Fspec96 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 29.59um wavelength
real*4 Fspec97 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 30.1um wavelength
real*4 Fspec98 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 30.37um wavelength
real*4 Fspec99 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 30.9um wavelength
real*4 Fspec100 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 31.44um wavelength
real*4 Fspec101 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 31.99um wavelength
real*4 Fspec102 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 32.55um wavelength
real*4 Fspec103 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 33.12um wavelength
real*4 Fspec104 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 33.41um wavelength
real*4 Fspec105 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 34um wavelength
real*4 Fspec106 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 34.6um wavelength
real*4 Fspec107 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 34.9um wavelength
real*4 Fspec108 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 35.51um wavelength
real*4 Fspec109 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 36.13um wavelength
real*4 Fspec110 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 36.45um wavelength
real*4 Fspec111 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 37.078um wavelength
real*4 Fspec112 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 37.41um wavelength
real*4 Fspec113 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 38.06um wavelength
real*4 Fspec114 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 38.4um wavelength
real*4 Fspec115 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 39.07um wavelength
real*4 Fspec116 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 39.41um wavelength
real*4 Fspec117 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 40.1um wavelength
real*4 Fspec118 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 51.59um wavelength
real*4 Fspec119 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 63.01um wavelength
real*4 Fspec120 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 74.32um wavelength
real*4 Fspec121 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 85.41um wavelength
real*4 Fspec122 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 97.3um wavelength
real*4 Fspec123 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 108.9um wavelength
real*4 Fspec124 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 119.9um wavelength
real*4 Fspec125 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 131.9um wavelength
real*4 Fspec126 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 142.6um wavelength
real*4 Fspec127 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 154.2um wavelength
real*4 Fspec128 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 165.3um wavelength
real*4 Fspec129 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 177.2um wavelength
real*4 Fspec130 ! (Jy) Dust output star+dust spectrum at LMC
* distance for 188.3um wavelength
real*4 Fstar1 ! (Jy) Bare photosphere spectrum at LMC
* distance for 0.2339um wavelength
real*4 Fstar2 ! (Jy) Bare photosphere spectrum at LMC
* distance for 0.2711um wavelength
real*4 Fstar3 ! (Jy) Bare photosphere spectrum at LMC
* distance for 0.317um wavelength
real*4 Fstar4 ! (Jy) Bare photosphere spectrum at LMC
* distance for 0.3707um wavelength
real*4 Fstar5 ! (Jy) Bare photosphere spectrum at LMC
* distance for 0.4297um wavelength
real*4 Fstar6 ! (Jy) Bare photosphere spectrum at LMC
* distance for 0.502352um wavelength
real*4 Fstar7 ! (Jy) Bare photosphere spectrum at LMC
* distance for 0.5856737um wavelength
real*4 Fstar8 ! (Jy) Bare photosphere spectrum at LMC
* distance for 0.6828153um wavelength
real*4 Fstar9 ! (Jy) Bare photosphere spectrum at LMC
* distance for 0.7960691um wavelength
real*4 Fstar10 ! (Jy) Bare photosphere spectrum at LMC
* distance for 0.9281076um wavelength
real*4 Fstar11 ! (Jy) Bare photosphere spectrum at LMC
* distance for 1.082587um wavelength
real*4 Fstar12 ! (Jy) Bare photosphere spectrum at LMC
* distance for 1.262149um wavelength
real*4 Fstar13 ! (Jy) Bare photosphere spectrum at LMC
* distance for 1.471493um wavelength
real*4 Fstar14 ! (Jy) Bare photosphere spectrum at LMC
* distance for 1.715559um wavelength
real*4 Fstar15 ! (Jy) Bare photosphere spectrum at LMC
* distance for 2.000107um wavelength
real*4 Fstar16 ! (Jy) Bare photosphere spectrum at LMC
* distance for 2.1917um wavelength
real*4 Fstar17 ! (Jy) Bare photosphere spectrum at LMC
* distance for 2.402848um wavelength
real*4 Fstar18 ! (Jy) Bare photosphere spectrum at LMC
* distance for 2.633021um wavelength
real*4 Fstar19 ! (Jy) Bare photosphere spectrum at LMC
* distance for 2.885242um wavelength
real*4 Fstar20 ! (Jy) Bare photosphere spectrum at LMC
* distance for 3.161625um wavelength
real*4 Fstar21 ! (Jy) Bare photosphere spectrum at LMC
* distance for 3.466214um wavelength
real*4 Fstar22 ! (Jy) Bare photosphere spectrum at LMC
* distance for 3.79825um wavelength
real*4 Fstar23 ! (Jy) Bare photosphere spectrum at LMC
* distance for 4.16209um wavelength
real*4 Fstar24 ! (Jy) Bare photosphere spectrum at LMC
* distance for 4.563064um wavelength
real*4 Fstar25 ! (Jy) Bare photosphere spectrum at LMC
* distance for 5.000167um wavelength
real*4 Fstar26 ! (Jy) Bare photosphere spectrum at LMC
* distance for 5.251213um wavelength
real*4 Fstar27 ! (Jy) Bare photosphere spectrum at LMC
* distance for 5.501097um wavelength
real*4 Fstar28 ! (Jy) Bare photosphere spectrum at LMC
* distance for 5.75136um wavelength
real*4 Fstar29 ! (Jy) Bare photosphere spectrum at LMC
* distance for 6.000998um wavelength
real*4 Fstar30 ! (Jy) Bare photosphere spectrum at LMC
* distance for 6.248964um wavelength
real*4 Fstar31 ! (Jy) Bare photosphere spectrum at LMC
* distance for 6.500674um wavelength
real*4 Fstar32 ! (Jy) Bare photosphere spectrum at LMC
* distance for 6.749014um wavelength
real*4 Fstar33 ! (Jy) Bare photosphere spectrum at LMC
* distance for 6.99984um wavelength
real*4 Fstar34 ! (Jy) Bare photosphere spectrum at LMC
* distance for 7.249109um wavelength
real*4 Fstar35 ! (Jy) Bare photosphere spectrum at LMC
* distance for 7.499753um wavelength
real*4 Fstar36 ! (Jy) Bare photosphere spectrum at LMC
* distance for 7.75131um wavelength
real*4 Fstar37 ! (Jy) Bare photosphere spectrum at LMC
* distance for 7.999299um wavelength
real*4 Fstar38 ! (Jy) Bare photosphere spectrum at LMC
* distance for 8.251097um wavelength
real*4 Fstar39 ! (Jy) Bare photosphere spectrum at LMC
* distance for 8.498068um wavelength
real*4 Fstar40 ! (Jy) Bare photosphere spectrum at LMC
* distance for 8.748057um wavelength
real*4 Fstar41 ! (Jy) Bare photosphere spectrum at LMC
* distance for 9.000899um wavelength
real*4 Fstar42 ! (Jy) Bare photosphere spectrum at LMC
* distance for 9.251795um wavelength
real*4 Fstar43 ! (Jy) Bare photosphere spectrum at LMC
* distance for 9.500182um wavelength
real*4 Fstar44 ! (Jy) Bare photosphere spectrum at LMC
* distance for 9.750362um wavelength
real*4 Fstar45 ! (Jy) Bare photosphere spectrum at LMC
* distance for 10.00213um wavelength
real*4 Fstar46 ! (Jy) Bare photosphere spectrum at LMC
* distance for 10.25015um wavelength
real*4 Fstar47 ! (Jy) Bare photosphere spectrum at LMC
* distance for 10.49906um wavelength
real*4 Fstar48 ! (Jy) Bare photosphere spectrum at LMC
* distance for 10.74865um wavelength
real*4 Fstar49 ! (Jy) Bare photosphere spectrum at LMC
* distance for 10.99867um wavelength
real*4 Fstar50 ! (Jy) Bare photosphere spectrum at LMC
* distance for 11.24888um wavelength
real*4 Fstar51 ! (Jy) Bare photosphere spectrum at LMC
* distance for 11.49904um wavelength
real*4 Fstar52 ! (Jy) Bare photosphere spectrum at LMC
* distance for 11.74888um wavelength
real*4 Fstar53 ! (Jy) Bare photosphere spectrum at LMC
* distance for 11.99815um wavelength
real*4 Fstar54 ! (Jy) Bare photosphere spectrum at LMC
* distance for 12.25271um wavelength
real*4 Fstar55 ! (Jy) Bare photosphere spectrum at LMC
* distance for 12.50017um wavelength
real*4 Fstar56 ! (Jy) Bare photosphere spectrum at LMC
* distance for 12.65104um wavelength
real*4 Fstar57 ! (Jy) Bare photosphere spectrum at LMC
* distance for 12.79733um wavelength
real*4 Fstar58 ! (Jy) Bare photosphere spectrum at LMC
* distance for 12.95178um wavelength
real*4 Fstar59 ! (Jy) Bare photosphere spectrum at LMC
* distance for 13.10155um wavelength
real*4 Fstar60 ! (Jy) Bare photosphere spectrum at LMC
* distance for 13.25305um wavelength
real*4 Fstar61 ! (Jy) Bare photosphere spectrum at LMC
* distance for 13.39960um wavelength
real*4 Fstar62 ! (Jy) Bare photosphere spectrum at LMC
* distance for 13.54777um wavelength
real*4 Fstar63 ! (Jy) Bare photosphere spectrum at LMC
* distance for 13.69758um wavelength
real*4 Fstar64 ! (Jy) Bare photosphere spectrum at LMC
* distance for 13.84905um wavelength
real*4 Fstar65 ! (Jy) Bare photosphere spectrum at LMC
* distance for 14.00219um wavelength
real*4 Fstar66 ! (Jy) Bare photosphere spectrum at LMC
* distance for 14.50082um wavelength
real*4 Fstar67 ! (Jy) Bare photosphere spectrum at LMC
* distance for 15.00220um wavelength
real*4 Fstar68 ! (Jy) Bare photosphere spectrum at LMC
* distance for 15.49765um wavelength
real*4 Fstar69 ! (Jy) Bare photosphere spectrum at LMC
* distance for 16.00147um wavelength
real*4 Fstar70 ! (Jy) Bare photosphere spectrum at LMC
* distance for 16.49691um wavelength
real*4 Fstar71 ! (Jy) Bare photosphere spectrum at LMC
* distance for 16.99919um wavelength
real*4 Fstar72 ! (Jy) Bare photosphere spectrum at LMC
* distance for 17.49925um wavelength
real*4 Fstar73 ! (Jy) Bare photosphere spectrum at LMC
* distance for 17.99603um wavelength
real*4 Fstar74 ! (Jy) Bare photosphere spectrum at LMC
* distance for 18.49766um wavelength
real*4 Fstar75 ! (Jy) Bare photosphere spectrum at LMC
* distance for 19.00378um wavelength
real*4 Fstar76 ! (Jy) Bare photosphere spectrum at LMC
* distance for 19.50423um wavelength
real*4 Fstar77 ! (Jy) Bare photosphere spectrum at LMC
* distance for 19.99785um wavelength
real*4 Fstar78 ! (Jy) Bare photosphere spectrum at LMC
* distance for 20.50397um wavelength
real*4 Fstar79 ! (Jy) Bare photosphere spectrum at LMC
* distance for 21.0019um wavelength
real*4 Fstar80 ! (Jy) Bare photosphere spectrum at LMC
* distance for 21.50116um wavelength
real*4 Fstar81 ! (Jy) Bare photosphere spectrum at LMC
* distance for 22.00129um wavelength
real*4 Fstar82 ! (Jy) Bare photosphere spectrum at LMC
* distance for 22.5018um wavelength
real*4 Fstar83 ! (Jy) Bare photosphere spectrum at LMC
* distance for 23.0022um wavelength
real*4 Fstar84 ! (Jy) Bare photosphere spectrum at LMC
* distance for 23.50198um wavelength
real*4 Fstar85 ! (Jy) Bare photosphere spectrum at LMC
* distance for 24.00061um wavelength
real*4 Fstar86 ! (Jy) Bare photosphere spectrum at LMC
* distance for 24.49758um wavelength
real*4 Fstar87 ! (Jy) Bare photosphere spectrum at LMC
* distance for 24.97985um wavelength
real*4 Fstar88 ! (Jy) Bare photosphere spectrum at LMC
* distance for 25.52um wavelength
real*4 Fstar89 ! (Jy) Bare photosphere spectrum at LMC
* distance for 25.97um wavelength
real*4 Fstar90 ! (Jy) Bare photosphere spectrum at LMC
* distance for 26.42um wavelength
real*4 Fstar91 ! (Jy) Bare photosphere spectrum at LMC
* distance for 26.89um wavelength
real*4 Fstar92 ! (Jy) Bare photosphere spectrum at LMC
* distance for 27.6um wavelength
real*4 Fstar93 ! (Jy) Bare photosphere spectrum at LMC
* distance for 28.08um wavelength
real*4 Fstar94 ! (Jy) Bare photosphere spectrum at LMC
* distance for 28.57um wavelength
real*4 Fstar95 ! (Jy) Bare photosphere spectrum at LMC
* distance for 29.08um wavelength
real*4 Fstar96 ! (Jy) Bare photosphere spectrum at LMC
* distance for 29.59um wavelength
real*4 Fstar97 ! (Jy) Bare photosphere spectrum at LMC
* distance for 30.1um wavelength
real*4 Fstar98 ! (Jy) Bare photosphere spectrum at LMC
* distance for 30.37um wavelength
real*4 Fstar99 ! (Jy) Bare photosphere spectrum at LMC
* distance for 30.9um wavelength
real*4 Fstar100 ! (Jy) Bare photosphere spectrum at LMC
* distance for 31.44um wavelength
real*4 Fstar101 ! (Jy) Bare photosphere spectrum at LMC
* distance for 31.99um wavelength
real*4 Fstar102 ! (Jy) Bare photosphere spectrum at LMC
* distance for 32.55um wavelength
real*4 Fstar103 ! (Jy) Bare photosphere spectrum at LMC
* distance for 33.12um wavelength
real*4 Fstar104 ! (Jy) Bare photosphere spectrum at LMC
* distance for 33.41um wavelength
real*4 Fstar105 ! (Jy) Bare photosphere spectrum at LMC
* distance for 34um wavelength
real*4 Fstar106 ! (Jy) Bare photosphere spectrum at LMC
* distance for 34.6um wavelength
real*4 Fstar107 ! (Jy) Bare photosphere spectrum at LMC
* distance for 34.9um wavelength
real*4 Fstar108 ! (Jy) Bare photosphere spectrum at LMC
* distance for 35.51um wavelength
real*4 Fstar109 ! (Jy) Bare photosphere spectrum at LMC
* distance for 36.13um wavelength
real*4 Fstar110 ! (Jy) Bare photosphere spectrum at LMC
* distance for 36.45um wavelength
real*4 Fstar111 ! (Jy) Bare photosphere spectrum at LMC
* distance for 37.078um wavelength
real*4 Fstar112 ! (Jy) Bare photosphere spectrum at LMC
* distance for 37.41um wavelength
real*4 Fstar113 ! (Jy) Bare photosphere spectrum at LMC
* distance for 38.06um wavelength
real*4 Fstar114 ! (Jy) Bare photosphere spectrum at LMC
* distance for 38.4um wavelength
real*4 Fstar115 ! (Jy) Bare photosphere spectrum at LMC
* distance for 39.07um wavelength
real*4 Fstar116 ! (Jy) Bare photosphere spectrum at LMC
* distance for 39.41um wavelength
real*4 Fstar117 ! (Jy) Bare photosphere spectrum at LMC
* distance for 40.1um wavelength
real*4 Fstar118 ! (Jy) Bare photosphere spectrum at LMC
* distance for 51.59um wavelength
real*4 Fstar119 ! (Jy) Bare photosphere spectrum at LMC
* distance for 63.01um wavelength
real*4 Fstar120 ! (Jy) Bare photosphere spectrum at LMC
* distance for 74.32um wavelength
real*4 Fstar121 ! (Jy) Bare photosphere spectrum at LMC
* distance for 85.41um wavelength
real*4 Fstar122 ! (Jy) Bare photosphere spectrum at LMC
* distance for 97.3um wavelength
real*4 Fstar123 ! (Jy) Bare photosphere spectrum at LMC
* distance for 108.9um wavelength
real*4 Fstar124 ! (Jy) Bare photosphere spectrum at LMC
* distance for 119.9um wavelength
real*4 Fstar125 ! (Jy) Bare photosphere spectrum at LMC
* distance for 131.9um wavelength
real*4 Fstar126 ! (Jy) Bare photosphere spectrum at LMC
* distance for 142.6um wavelength
real*4 Fstar127 ! (Jy) Bare photosphere spectrum at LMC
* distance for 154.2um wavelength
real*4 Fstar128 ! (Jy) Bare photosphere spectrum at LMC
* distance for 165.3um wavelength
real*4 Fstar129 ! (Jy) Bare photosphere spectrum at LMC
* distance for 177.2um wavelength
real*4 Fstar130 ! (Jy) Bare photosphere spectrum at LMC
* distance for 188.3um wavelength
C=============================================================================
C Loading file 'grid.dat' ! *GRAMS carbon-star grid
C Format for file interpretation
1 format(
+ 1X,I4,1X,F4.1,1X,F4.1,1X,F4.1,1X,F4.1,1X,F6.3,1X,F6.3,1X,I6,
+ 1X,E9.3,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,I5,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4)
C Effective file loading
open(unit=1,status='old',file=
+'grid.dat')
write(6,*) '....Loading file: grid.dat'
do i__=1,12243
read(1,'(A3408)')ar__
read(ar__,1)
+ Teff,logg,Mass,C_O,Rin,tau1,tau11_3,Lum,MLR,F_U,F_B,F_V,F_I,
+ F_J,F_H,F_Ks,F_3_6,F_4_5,F_5_8,F_8_0,F_24,F_70,F_160,F_N2,
+ F_N3,F_N4,F_S7,F_S9W,F_S11,F_L15,F_L18W,F_L24,F_W1,F_W2,F_W3,
+ F_W4,m_U,m_B,m_V,m_I,m_J,m_H,m_Ks,m_3_6,m_4_5,m_5_8,m_8_0,
+ m_24,m_70,m_160,m_N2,m_N3,m_N4,m_S7,m_S9W,m_S11,m_L15,m_L18W,
+ m_L24,m_W1,m_W2,m_W3,m_W4,Tin,Fspec1,Fspec2,Fspec3,Fspec4,
+ Fspec5,Fspec6,Fspec7,Fspec8,Fspec9,Fspec10,Fspec11,Fspec12,
+ Fspec13,Fspec14,Fspec15,Fspec16,Fspec17,Fspec18,Fspec19,
+ Fspec20,Fspec21,Fspec22,Fspec23,Fspec24,Fspec25,Fspec26,
+ Fspec27,Fspec28,Fspec29,Fspec30,Fspec31,Fspec32,Fspec33,
+ Fspec34,Fspec35,Fspec36,Fspec37,Fspec38,Fspec39,Fspec40,
+ Fspec41,Fspec42,Fspec43,Fspec44,Fspec45,Fspec46,Fspec47,
+ Fspec48,Fspec49,Fspec50,Fspec51,Fspec52,Fspec53,Fspec54,
+ Fspec55,Fspec56,Fspec57,Fspec58,Fspec59,Fspec60,Fspec61,
+ Fspec62,Fspec63,Fspec64,Fspec65,Fspec66,Fspec67,Fspec68,
+ Fspec69,Fspec70,Fspec71,Fspec72,Fspec73,Fspec74,Fspec75,
+ Fspec76,Fspec77,Fspec78,Fspec79,Fspec80,Fspec81,Fspec82,
+ Fspec83,Fspec84,Fspec85,Fspec86,Fspec87,Fspec88,Fspec89,
+ Fspec90,Fspec91,Fspec92,Fspec93,Fspec94,Fspec95,Fspec96,
+ Fspec97,Fspec98,Fspec99,Fspec100,Fspec101,Fspec102,Fspec103,
+ Fspec104,Fspec105,Fspec106,Fspec107,Fspec108,Fspec109,
+ Fspec110,Fspec111,Fspec112,Fspec113,Fspec114,Fspec115,
+ Fspec116,Fspec117,Fspec118,Fspec119,Fspec120,Fspec121,
+ Fspec122,Fspec123,Fspec124,Fspec125,Fspec126,Fspec127,
+ Fspec128,Fspec129,Fspec130,Fstar1,Fstar2,Fstar3,Fstar4,Fstar5,
+ Fstar6,Fstar7,Fstar8,Fstar9,Fstar10,Fstar11,Fstar12,Fstar13,
+ Fstar14,Fstar15,Fstar16,Fstar17,Fstar18,Fstar19,Fstar20,
+ Fstar21,Fstar22,Fstar23,Fstar24,Fstar25,Fstar26,Fstar27,
+ Fstar28,Fstar29,Fstar30,Fstar31,Fstar32,Fstar33,Fstar34,
+ Fstar35,Fstar36,Fstar37,Fstar38,Fstar39,Fstar40,Fstar41,
+ Fstar42,Fstar43,Fstar44,Fstar45,Fstar46,Fstar47,Fstar48,
+ Fstar49,Fstar50,Fstar51,Fstar52,Fstar53,Fstar54,Fstar55,
+ Fstar56,Fstar57,Fstar58,Fstar59,Fstar60,Fstar61,Fstar62,
+ Fstar63,Fstar64,Fstar65,Fstar66,Fstar67,Fstar68,Fstar69,
+ Fstar70,Fstar71,Fstar72,Fstar73,Fstar74,Fstar75,Fstar76,
+ Fstar77,Fstar78,Fstar79,Fstar80,Fstar81,Fstar82,Fstar83,
+ Fstar84,Fstar85,Fstar86,Fstar87,Fstar88,Fstar89,Fstar90,
+ Fstar91,Fstar92,Fstar93,Fstar94,Fstar95,Fstar96,Fstar97,
+ Fstar98,Fstar99,Fstar100,Fstar101,Fstar102,Fstar103,Fstar104,
+ Fstar105,Fstar106,Fstar107,Fstar108,Fstar109,Fstar110,
+ Fstar111,Fstar112,Fstar113,Fstar114,Fstar115,Fstar116,
+ Fstar117,Fstar118,Fstar119,Fstar120,Fstar121,Fstar122,
+ Fstar123,Fstar124,Fstar125,Fstar126,Fstar127,Fstar128,
+ Fstar129,Fstar130
c ..............Just test output...........
write(6,1)
+ Teff,logg,Mass,C_O,Rin,tau1,tau11_3,Lum,MLR,F_U,F_B,F_V,F_I,
+ F_J,F_H,F_Ks,F_3_6,F_4_5,F_5_8,F_8_0,F_24,F_70,F_160,F_N2,
+ F_N3,F_N4,F_S7,F_S9W,F_S11,F_L15,F_L18W,F_L24,F_W1,F_W2,F_W3,
+ F_W4,m_U,m_B,m_V,m_I,m_J,m_H,m_Ks,m_3_6,m_4_5,m_5_8,m_8_0,
+ m_24,m_70,m_160,m_N2,m_N3,m_N4,m_S7,m_S9W,m_S11,m_L15,m_L18W,
+ m_L24,m_W1,m_W2,m_W3,m_W4,Tin,Fspec1,Fspec2,Fspec3,Fspec4,
+ Fspec5,Fspec6,Fspec7,Fspec8,Fspec9,Fspec10,Fspec11,Fspec12,
+ Fspec13,Fspec14,Fspec15,Fspec16,Fspec17,Fspec18,Fspec19,
+ Fspec20,Fspec21,Fspec22,Fspec23,Fspec24,Fspec25,Fspec26,
+ Fspec27,Fspec28,Fspec29,Fspec30,Fspec31,Fspec32,Fspec33,
+ Fspec34,Fspec35,Fspec36,Fspec37,Fspec38,Fspec39,Fspec40,
+ Fspec41,Fspec42,Fspec43,Fspec44,Fspec45,Fspec46,Fspec47,
+ Fspec48,Fspec49,Fspec50,Fspec51,Fspec52,Fspec53,Fspec54,
+ Fspec55,Fspec56,Fspec57,Fspec58,Fspec59,Fspec60,Fspec61,
+ Fspec62,Fspec63,Fspec64,Fspec65,Fspec66,Fspec67,Fspec68,
+ Fspec69,Fspec70,Fspec71,Fspec72,Fspec73,Fspec74,Fspec75,
+ Fspec76,Fspec77,Fspec78,Fspec79,Fspec80,Fspec81,Fspec82,
+ Fspec83,Fspec84,Fspec85,Fspec86,Fspec87,Fspec88,Fspec89,
+ Fspec90,Fspec91,Fspec92,Fspec93,Fspec94,Fspec95,Fspec96,
+ Fspec97,Fspec98,Fspec99,Fspec100,Fspec101,Fspec102,Fspec103,
+ Fspec104,Fspec105,Fspec106,Fspec107,Fspec108,Fspec109,
+ Fspec110,Fspec111,Fspec112,Fspec113,Fspec114,Fspec115,
+ Fspec116,Fspec117,Fspec118,Fspec119,Fspec120,Fspec121,
+ Fspec122,Fspec123,Fspec124,Fspec125,Fspec126,Fspec127,
+ Fspec128,Fspec129,Fspec130,Fstar1,Fstar2,Fstar3,Fstar4,Fstar5,
+ Fstar6,Fstar7,Fstar8,Fstar9,Fstar10,Fstar11,Fstar12,Fstar13,
+ Fstar14,Fstar15,Fstar16,Fstar17,Fstar18,Fstar19,Fstar20,
+ Fstar21,Fstar22,Fstar23,Fstar24,Fstar25,Fstar26,Fstar27,
+ Fstar28,Fstar29,Fstar30,Fstar31,Fstar32,Fstar33,Fstar34,
+ Fstar35,Fstar36,Fstar37,Fstar38,Fstar39,Fstar40,Fstar41,
+ Fstar42,Fstar43,Fstar44,Fstar45,Fstar46,Fstar47,Fstar48,
+ Fstar49,Fstar50,Fstar51,Fstar52,Fstar53,Fstar54,Fstar55,
+ Fstar56,Fstar57,Fstar58,Fstar59,Fstar60,Fstar61,Fstar62,
+ Fstar63,Fstar64,Fstar65,Fstar66,Fstar67,Fstar68,Fstar69,
+ Fstar70,Fstar71,Fstar72,Fstar73,Fstar74,Fstar75,Fstar76,
+ Fstar77,Fstar78,Fstar79,Fstar80,Fstar81,Fstar82,Fstar83,
+ Fstar84,Fstar85,Fstar86,Fstar87,Fstar88,Fstar89,Fstar90,
+ Fstar91,Fstar92,Fstar93,Fstar94,Fstar95,Fstar96,Fstar97,
+ Fstar98,Fstar99,Fstar100,Fstar101,Fstar102,Fstar103,Fstar104,
+ Fstar105,Fstar106,Fstar107,Fstar108,Fstar109,Fstar110,
+ Fstar111,Fstar112,Fstar113,Fstar114,Fstar115,Fstar116,
+ Fstar117,Fstar118,Fstar119,Fstar120,Fstar121,Fstar122,
+ Fstar123,Fstar124,Fstar125,Fstar126,Fstar127,Fstar128,
+ Fstar129,Fstar130
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end