FORTRAN Generation
(/./ftp/cats/J/ApJ/842/42)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/842/42 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-Mar-28
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/ApJ/842/42    Improved reddenings for 59 Galactic Cepheids    (Madore+, 2017)
*================================================================================
*A method for improving Galactic Cepheid reddenings and distances.
*    Madore B.F., Freedman W.L., Moak S.
*   <Astrophys. J., 842, 42 (2017)>
*   =2017ApJ...842...42M
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table1.dat'	! Properties of 59 Galactic Cepheids

      integer*4 nr__
      parameter (nr__=59)	! Number of records
      character*149 ar__   	! Full-size record

      character*9   Name        ! Galactic Cepheid name
      real*8        log_P__F07  ! ([d]) [0.5/1.7] log Period (1)
      real*4        E_B_V__F07  ! (mag) [0.01/1] E(B-V) reddening (1)
      real*4        DM_o_F07    ! (mag) [6.9/13.4] Adopted distance modulus
      real*4        plx_F07     ! (mas) [0.2/4.2] Adopted parallax (1)
      real*4        e_plx_F07   ! (mas) [0.01/0.3] Uncertainty in plx-F07 (1)
      real*4        BMag_F07    ! (mag) [-5/-1.8] B band absolute magnitude (1)
      real*4        VMag_F07    ! (mag) [-6/-2.4] V band absolute magnitude (1)
      real*4        RMag_F07    ! (mag) [-6.6/-2.8] R band absolute magnitude (1)
      real*4        IMag_F07    ! (mag) [-7/-3.1] I band absolute magnitude (1)
      real*4        JMag_F07    ! (mag) [-7.6/-3.6] J band absolute magnitude (1)
      real*4        HMag_F07    ! (mag) [-8/-3.9] H band absolute magnitude (1)
      real*4        KMag_F07    ! (mag) [-8/-4] K band absolute magnitude (1)
      real*4        E_B_V       ! (mag) [0.04/1.1] E(B-V) reddening, this work
      real*4        DM_o        ! (mag) [6.6/13.4] Adopted distance modulus, this work
      real*4        plx         ! (mas) [0.2/4.8] Adopted parallax, this work
      real*4        e_plx       ! (mas) [0.01/8] Uncertainty in parallax, this work
      real*4        BMag        ! (mag) [-5/-1.6] B band absolute magnitude,
*                                   updated in this work
      real*4        VMag        ! (mag) [-6/-2.3] V band absolute magnitude,
*                                   updated in this work
      real*4        RMag        ! (mag) [-6.4/-2.7] R band absolute magnitude,
*                                   updated in this work
      real*4        IMag        ! (mag) [-6.7/-3.1] I band absolute magnitude,
*                                   updated in this work
      real*4        JMag        ! (mag) [-7.3/-3.7] J band absolute magnitude,
*                                   updated in this work
      real*4        HMag        ! (mag) [-7.7/-3.9] H band absolute magnitude,
*                                   updated in this work
      real*4        KMag        ! (mag) [-7.8/-4.1] K band absolute magnitude,
*                                   updated in this work
*Note (1): From Fouque+ 2007, J/A+A/476/73

C=============================================================================

C  Loading file 'table1.dat'	! Properties of 59 Galactic Cepheids

C  Format for file interpretation

    1 format(
     +  A9,1X,F8.6,1X,F5.3,1X,F6.3,1X,F4.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,
     +  F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.3,1X,F6.3,1X,F5.3,
     +  1X,F4.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
     +  F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,59
        read(1,'(A149)')ar__
        read(ar__,1)
     +  Name,log_P__F07,E_B_V__F07,DM_o_F07,plx_F07,e_plx_F07,
     +  BMag_F07,VMag_F07,RMag_F07,IMag_F07,JMag_F07,HMag_F07,
     +  KMag_F07,E_B_V,DM_o,plx,e_plx,BMag,VMag,RMag,IMag,JMag,HMag,
     +  KMag
c    ..............Just test output...........
        write(6,1)
     +  Name,log_P__F07,E_B_V__F07,DM_o_F07,plx_F07,e_plx_F07,
     +  BMag_F07,VMag_F07,RMag_F07,IMag_F07,JMag_F07,HMag_F07,
     +  KMag_F07,E_B_V,DM_o,plx,e_plx,BMag,VMag,RMag,IMag,JMag,HMag,
     +  KMag
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end