FORTRAN Generation
(/./ftp/cats/J/MNRAS/478/3138)

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