Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/478/3138 into FORTRAN code for loading all data files into arrays.
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-Mar-29 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/MNRAS/478/3138 Luminous cool supergiants in Magellanic Clouds (Davies+, 2018) *================================================================================ *The luminosities of cool supergiants in the Magellanic Clouds. * Davies B., Crowther P.A., Beasor E.R. * <Mon. Not. R. Astron. Soc. 478, 3138 (2018)> * =2018MNRAS.478.3138D (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'lmc.dat' ! Properties of LMC cool supergiants integer*4 nr__ parameter (nr__=297) ! Number of records character*323 ar__ ! Full-size record C J2000.0 position composed of: RAdeg DEdeg character*23 SIMBAD (nr__) ! SIMBAD designation, when the table was build character*10 Massey (nr__) ! Massey (2002ApJS..141...81M) catalogue number, * LMC NNNNNN or SMC NNNNNN character*6 GF (nr__) ! Gonzalez-Fernandez (2015, Cat. J/A+A/578/A3) * catalogue number, LMCNNN or SMCNNN real*8 RAdeg (nr__) ! (deg) Right ascension (J2000.0) real*8 DEdeg (nr__) ! (deg) Declination (J2000.0) character*15 SpType (nr__) ! Literature MK spectral type real*4 logL (nr__) ! (Lsun) Luminosity real*4 e_logL (nr__) ! (Lsun) Uncertainty in logL real*4 AV (nr__) ! (mag) Visual extinction AV real*4 e_AV (nr__) ! (mag) Uncertainty in visual extinction AV real*4 Umag (nr__) ! (mag) ? U band magnitude real*4 e_Umag (nr__) ! (mag) ? Uncertainty in U band magnitude real*4 Bmag (nr__) ! (mag) ? B band magnitude real*4 e_Bmag (nr__) ! (mag) ? Uncertainty in B band magnitude real*4 Vmag (nr__) ! (mag) ? V band magnitude real*4 e_Vmag (nr__) ! (mag) ? Uncertainty in V band magnitude real*4 Imag (nr__) ! (mag) ? I band magnitude real*4 e_Imag (nr__) ! (mag) ? Uncertainty in I band magnitude real*4 Jmag (nr__) ! (mag) J band magnitude real*4 e_Jmag (nr__) ! (mag) Uncertainty in J band magnitude real*4 Hmag (nr__) ! (mag) ? H band magnitude real*4 e_Hmag (nr__) ! (mag) ? Uncertainty in H band magnitude real*4 Kmag (nr__) ! (mag) K band magnitude real*4 e_Kmag (nr__) ! (mag) Uncertainty in K band magnitude real*4 I1mag (nr__) ! (mag) ? Spitzer IRAC I1 band magnitude real*4 e_I1mag (nr__) ! (mag) ? Uncertainty in IRAC I1 band magnitude real*4 I2mag (nr__) ! (mag) ? Spitzer IRAC I2 band magnitude real*4 e_I2mag (nr__) ! (mag) ? Uncertainty in IRAC I2 band magnitude real*4 I3mag (nr__) ! (mag) ? Spitzer IRAC I3 band magnitude real*4 e_I3mag (nr__) ! (mag) ? Uncertainty in IRAC I3 band magnitude real*4 I4mag (nr__) ! (mag) ? Spitzer IRAC I4 band magnitude real*4 e_I4mag (nr__) ! (mag) ? Uncertainty in IRAC I4 magnitude real*4 W1mag (nr__) ! (mag) ? WISE W1 band magnitude real*4 e_W1mag (nr__) ! (mag) ? Uncertainty in WISE W1 magnitude real*4 W2mag (nr__) ! (mag) ? WISE W2 band magnitude real*4 e_W2mag (nr__) ! (mag) ? Uncertainty in WISE W2 magnitude real*4 W3mag (nr__) ! (mag) ? WISE W3 band magnitude real*4 e_W3mag (nr__) ! (mag) ? Uncertainty in WISE W3 magnitude real*4 W4mag (nr__) ! (mag) ? WISE W4 band magnitude real*4 e_W4mag (nr__) ! (mag) ? Uncertainty in WISE W4 magnitude real*4 M2mag (nr__) ! (mag) ? Spitzer MIPS M2 band magnitude real*4 e_M2mag (nr__) ! (mag) ? Uncertainty in MIPS M2 band magnitude c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'smc.dat' ! Properties of SMC cool supergiants integer*4 nr__1 parameter (nr__1=245) ! Number of records character*323 ar__1 ! Full-size record C J2000.0 position composed of: RAdeg DEdeg character*23 SIMBAD_1 (nr__1) ! SIMBAD designation, when the table was build character*10 Massey_1 (nr__1) ! Massey (2002ApJS..141...81M) catalogue number, * LMC NNNNNN or SMC NNNNNN character*6 GF_1 (nr__1) ! Gonzalez-Fernandez (2015, Cat. J/A+A/578/A3) * catalogue number, LMCNNN or SMCNNN real*8 RAdeg_1 (nr__1) ! (deg) Right ascension (J2000.0) real*8 DEdeg_1 (nr__1) ! (deg) Declination (J2000.0) character*15 SpType_1 (nr__1) ! Literature MK spectral type real*4 logL_1 (nr__1) ! (Lsun) Luminosity real*4 e_logL_1 (nr__1) ! (Lsun) Uncertainty in logL real*4 AV_1 (nr__1) ! (mag) Visual extinction AV real*4 e_AV_1 (nr__1) ! (mag) Uncertainty in visual extinction AV real*4 Umag_1 (nr__1) ! (mag) ? U band magnitude real*4 e_Umag_1 (nr__1) ! (mag) ? Uncertainty in U band magnitude real*4 Bmag_1 (nr__1) ! (mag) ? B band magnitude real*4 e_Bmag_1 (nr__1) ! (mag) ? Uncertainty in B band magnitude real*4 Vmag_1 (nr__1) ! (mag) ? V band magnitude real*4 e_Vmag_1 (nr__1) ! (mag) ? Uncertainty in V band magnitude real*4 Imag_1 (nr__1) ! (mag) ? I band magnitude real*4 e_Imag_1 (nr__1) ! (mag) ? Uncertainty in I band magnitude real*4 Jmag_1 (nr__1) ! (mag) J band magnitude real*4 e_Jmag_1 (nr__1) ! (mag) Uncertainty in J band magnitude real*4 Hmag_1 (nr__1) ! (mag) ? H band magnitude real*4 e_Hmag_1 (nr__1) ! (mag) ? Uncertainty in H band magnitude real*4 Kmag_1 (nr__1) ! (mag) K band magnitude real*4 e_Kmag_1 (nr__1) ! (mag) Uncertainty in K band magnitude real*4 I1mag_1 (nr__1) ! (mag) ? Spitzer IRAC I1 band magnitude real*4 e_I1mag_1 (nr__1) ! (mag) ? Uncertainty in IRAC I1 band magnitude real*4 I2mag_1 (nr__1) ! (mag) ? Spitzer IRAC I2 band magnitude real*4 e_I2mag_1 (nr__1) ! (mag) ? Uncertainty in IRAC I2 band magnitude real*4 I3mag_1 (nr__1) ! (mag) ? Spitzer IRAC I3 band magnitude real*4 e_I3mag_1 (nr__1) ! (mag) ? Uncertainty in IRAC I3 band magnitude real*4 I4mag_1 (nr__1) ! (mag) ? Spitzer IRAC I4 band magnitude real*4 e_I4mag_1 (nr__1) ! (mag) ? Uncertainty in IRAC I4 magnitude real*4 W1mag_1 (nr__1) ! (mag) ? WISE W1 band magnitude real*4 e_W1mag_1 (nr__1) ! (mag) ? Uncertainty in WISE W1 magnitude real*4 W2mag_1 (nr__1) ! (mag) ? WISE W2 band magnitude real*4 e_W2mag_1 (nr__1) ! (mag) ? Uncertainty in WISE W2 magnitude real*4 W3mag_1 (nr__1) ! (mag) ? WISE W3 band magnitude real*4 e_W3mag_1 (nr__1) ! (mag) ? Uncertainty in WISE W3 magnitude real*4 W4mag_1 (nr__1) ! (mag) ? WISE W4 band magnitude real*4 e_W4mag_1 (nr__1) ! (mag) ? Uncertainty in WISE W4 magnitude real*4 M2mag_1 (nr__1) ! (mag) ? Spitzer MIPS M2 band magnitude real*4 e_M2mag_1 (nr__1) ! (mag) ? Uncertainty in MIPS M2 band magnitude C============================================================================= C Loading file 'lmc.dat' ! Properties of LMC cool supergiants C Format for file interpretation 1 format( + A23,A10,1X,A6,1X,F10.6,1X,F10.6,1X,A15,1X,F4.2,1X,F4.2,1X, + F5.2,1X,F4.2,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,F6.3,1X, + F6.3,1X,F6.3,1X,F6.3,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'lmc.dat') write(6,*) '....Loading file: lmc.dat' do i__=1,297 read(1,'(A323)')ar__ read(ar__,1) + SIMBAD(i__),Massey(i__),GF(i__),RAdeg(i__),DEdeg(i__), + SpType(i__),logL(i__),e_logL(i__),AV(i__),e_AV(i__),Umag(i__), + e_Umag(i__),Bmag(i__),e_Bmag(i__),Vmag(i__),e_Vmag(i__), + Imag(i__),e_Imag(i__),Jmag(i__),e_Jmag(i__),Hmag(i__), + e_Hmag(i__),Kmag(i__),e_Kmag(i__),I1mag(i__),e_I1mag(i__), + I2mag(i__),e_I2mag(i__),I3mag(i__),e_I3mag(i__),I4mag(i__), + e_I4mag(i__),W1mag(i__),e_W1mag(i__),W2mag(i__),e_W2mag(i__), + W3mag(i__),e_W3mag(i__),W4mag(i__),e_W4mag(i__),M2mag(i__), + e_M2mag(i__) if(ar__(101:106) .EQ. '') Umag(i__) = rNULL__ if(ar__(108:113) .EQ. '') e_Umag(i__) = rNULL__ if(ar__(115:120) .EQ. '') Bmag(i__) = rNULL__ if(ar__(122:127) .EQ. '') e_Bmag(i__) = rNULL__ if(ar__(129:134) .EQ. '') Vmag(i__) = rNULL__ if(ar__(136:141) .EQ. '') e_Vmag(i__) = rNULL__ if(ar__(143:148) .EQ. '') Imag(i__) = rNULL__ if(ar__(150:155) .EQ. '') e_Imag(i__) = rNULL__ if(ar__(171:176) .EQ. '') Hmag(i__) = rNULL__ if(ar__(178:183) .EQ. '') e_Hmag(i__) = rNULL__ if(ar__(199:204) .EQ. '') I1mag(i__) = rNULL__ if(ar__(206:211) .EQ. '') e_I1mag(i__) = rNULL__ if(ar__(213:218) .EQ. '') I2mag(i__) = rNULL__ if(ar__(220:225) .EQ. '') e_I2mag(i__) = rNULL__ if(ar__(227:232) .EQ. '') I3mag(i__) = rNULL__ if(ar__(234:239) .EQ. '') e_I3mag(i__) = rNULL__ if(ar__(241:246) .EQ. '') I4mag(i__) = rNULL__ if(ar__(248:253) .EQ. '') e_I4mag(i__) = rNULL__ if(ar__(255:260) .EQ. '') W1mag(i__) = rNULL__ if(ar__(262:267) .EQ. '') e_W1mag(i__) = rNULL__ if(ar__(269:274) .EQ. '') W2mag(i__) = rNULL__ if(ar__(276:281) .EQ. '') e_W2mag(i__) = rNULL__ if(ar__(283:288) .EQ. '') W3mag(i__) = rNULL__ if(ar__(290:295) .EQ. '') e_W3mag(i__) = rNULL__ if(ar__(297:302) .EQ. '') W4mag(i__) = rNULL__ if(ar__(304:309) .EQ. '') e_W4mag(i__) = rNULL__ if(ar__(311:316) .EQ. '') M2mag(i__) = rNULL__ if(ar__(318:323) .EQ. '') e_M2mag(i__) = rNULL__ c ..............Just test output........... write(6,1) + SIMBAD(i__),Massey(i__),GF(i__),RAdeg(i__),DEdeg(i__), + SpType(i__),logL(i__),e_logL(i__),AV(i__),e_AV(i__),Umag(i__), + e_Umag(i__),Bmag(i__),e_Bmag(i__),Vmag(i__),e_Vmag(i__), + Imag(i__),e_Imag(i__),Jmag(i__),e_Jmag(i__),Hmag(i__), + e_Hmag(i__),Kmag(i__),e_Kmag(i__),I1mag(i__),e_I1mag(i__), + I2mag(i__),e_I2mag(i__),I3mag(i__),e_I3mag(i__),I4mag(i__), + e_I4mag(i__),W1mag(i__),e_W1mag(i__),W2mag(i__),e_W2mag(i__), + W3mag(i__),e_W3mag(i__),W4mag(i__),e_W4mag(i__),M2mag(i__), + e_M2mag(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'smc.dat' ! Properties of SMC cool supergiants C Format for file interpretation 2 format( + A23,A10,1X,A6,1X,F10.6,1X,F10.6,1X,A15,1X,F4.2,1X,F4.2,1X, + F5.2,1X,F4.2,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,F6.3,1X, + F6.3,1X,F6.3,1X,F6.3,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'smc.dat') write(6,*) '....Loading file: smc.dat' do i__=1,245 read(1,'(A323)')ar__1 read(ar__1,2) + SIMBAD_1(i__),Massey_1(i__),GF_1(i__),RAdeg_1(i__), + DEdeg_1(i__),SpType_1(i__),logL_1(i__),e_logL_1(i__), + AV_1(i__),e_AV_1(i__),Umag_1(i__),e_Umag_1(i__),Bmag_1(i__), + e_Bmag_1(i__),Vmag_1(i__),e_Vmag_1(i__),Imag_1(i__), + e_Imag_1(i__),Jmag_1(i__),e_Jmag_1(i__),Hmag_1(i__), + e_Hmag_1(i__),Kmag_1(i__),e_Kmag_1(i__),I1mag_1(i__), + e_I1mag_1(i__),I2mag_1(i__),e_I2mag_1(i__),I3mag_1(i__), + e_I3mag_1(i__),I4mag_1(i__),e_I4mag_1(i__),W1mag_1(i__), + e_W1mag_1(i__),W2mag_1(i__),e_W2mag_1(i__),W3mag_1(i__), + e_W3mag_1(i__),W4mag_1(i__),e_W4mag_1(i__),M2mag_1(i__), + e_M2mag_1(i__) if(ar__1(101:106) .EQ. '') Umag_1(i__) = rNULL__ if(ar__1(108:113) .EQ. '') e_Umag_1(i__) = rNULL__ if(ar__1(115:120) .EQ. '') Bmag_1(i__) = rNULL__ if(ar__1(122:127) .EQ. '') e_Bmag_1(i__) = rNULL__ if(ar__1(129:134) .EQ. '') Vmag_1(i__) = rNULL__ if(ar__1(136:141) .EQ. '') e_Vmag_1(i__) = rNULL__ if(ar__1(143:148) .EQ. '') Imag_1(i__) = rNULL__ if(ar__1(150:155) .EQ. '') e_Imag_1(i__) = rNULL__ if(ar__1(171:176) .EQ. '') Hmag_1(i__) = rNULL__ if(ar__1(178:183) .EQ. '') e_Hmag_1(i__) = rNULL__ if(ar__1(199:204) .EQ. '') I1mag_1(i__) = rNULL__ if(ar__1(206:211) .EQ. '') e_I1mag_1(i__) = rNULL__ if(ar__1(213:218) .EQ. '') I2mag_1(i__) = rNULL__ if(ar__1(220:225) .EQ. '') e_I2mag_1(i__) = rNULL__ if(ar__1(227:232) .EQ. '') I3mag_1(i__) = rNULL__ if(ar__1(234:239) .EQ. '') e_I3mag_1(i__) = rNULL__ if(ar__1(241:246) .EQ. '') I4mag_1(i__) = rNULL__ if(ar__1(248:253) .EQ. '') e_I4mag_1(i__) = rNULL__ if(ar__1(255:260) .EQ. '') W1mag_1(i__) = rNULL__ if(ar__1(262:267) .EQ. '') e_W1mag_1(i__) = rNULL__ if(ar__1(269:274) .EQ. '') W2mag_1(i__) = rNULL__ if(ar__1(276:281) .EQ. '') e_W2mag_1(i__) = rNULL__ if(ar__1(283:288) .EQ. '') W3mag_1(i__) = rNULL__ if(ar__1(290:295) .EQ. '') e_W3mag_1(i__) = rNULL__ if(ar__1(297:302) .EQ. '') W4mag_1(i__) = rNULL__ if(ar__1(304:309) .EQ. '') e_W4mag_1(i__) = rNULL__ if(ar__1(311:316) .EQ. '') M2mag_1(i__) = rNULL__ if(ar__1(318:323) .EQ. '') e_M2mag_1(i__) = rNULL__ c ..............Just test output........... write(6,2) + SIMBAD_1(i__),Massey_1(i__),GF_1(i__),RAdeg_1(i__), + DEdeg_1(i__),SpType_1(i__),logL_1(i__),e_logL_1(i__), + AV_1(i__),e_AV_1(i__),Umag_1(i__),e_Umag_1(i__),Bmag_1(i__), + e_Bmag_1(i__),Vmag_1(i__),e_Vmag_1(i__),Imag_1(i__), + e_Imag_1(i__),Jmag_1(i__),e_Jmag_1(i__),Hmag_1(i__), + e_Hmag_1(i__),Kmag_1(i__),e_Kmag_1(i__),I1mag_1(i__), + e_I1mag_1(i__),I2mag_1(i__),e_I2mag_1(i__),I3mag_1(i__), + e_I3mag_1(i__),I4mag_1(i__),e_I4mag_1(i__),W1mag_1(i__), + e_W1mag_1(i__),W2mag_1(i__),e_W2mag_1(i__),W3mag_1(i__), + e_W3mag_1(i__),W4mag_1(i__),e_W4mag_1(i__),M2mag_1(i__), + e_M2mag_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end