FORTRAN Generation
(/./ftp/cats/J/A_A/395/823)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/395/823 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/A+A/395/823       CCD {Delta}a-photometry of 5 open clusters  (Paunzen+, 2002)
*================================================================================
*CCD photometric search for peculiar stars in open clusters.
*IV. Collinder 272, Pismis 20, Lynga 14, NGC 6396 and NGC 6611
*    Paunzen E., Maitzen H.M.
*   <Astron. Astrophys. 395, 823 (2002)>
*   =2002A&A...395..823P
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table4.dat'	! Observed program stars of Collinder 272

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

      integer*4     Seq         ! Number in Collinder 22, sorted after X and Y
*                                   Cl* Collinder 272 PPM NNN in Simbad
      integer*4     WEBDA       ! ? Notation according to WEBDA
*                                    (Cl* Collinder 272 VBF NNN in Simbad)
      real*4        Xpos        ! (pix) X-coordinate
      real*4        Ypos        ! (pix) Y-coordinate
      real*4        Vmag        ! (mag) Mean V value
      real*4        a           ! (mag) Mean a index (Maitzen)
      real*4        e_a         ! (mag) Sigma a
      real*4        g1_y        ! (mag) Mean (g1-y) index
      real*4        e_g1_y      ! (mag) Sigma (g1-y)
      real*4        da_g1_y     ! (mag) Deviation from cluster line (Delta a)
      real*4        B_V         ! (mag) ? (B-V) from the literature
      real*4        da_B_V      ! (mag) ? Deviation from cluster line (Delta a)
      integer*4     Obs         ! Number of observations

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

C  Declarations for 'table5.dat'	! Observed program stars of Pismis 20

      integer*4 nr__1
      parameter (nr__1=238)	! Number of records
      character*80 ar__1  	! Full-size record

      integer*4     Seq_1       ! Number in Pismis 20, sorted after X and Y
*                                   Cl* Pismis 20 PPM NNN in Simbad
      integer*4     WEBDA_1     ! ? Notation according to WEBDA
      real*4        Xpos_1      ! (pix) X-coordinate
      real*4        Ypos_1      ! (pix) Y-coordinate
      real*4        V0          ! (mag) Mean V0 value
      real*4        acorr       ! (mag) Mean a(corr) index (Maitzen)
      real*4        e_acorr     ! (mag) Sigma a(corr)
      real*4        v_g1_y_0    ! (mag) Mean (g1-y)0 index
      real*4        e__g1_y_0   ! (mag) Sigma (g1-y)0
      real*4        da_g1_y_0   ! (mag) Deviation from cluster line (Delta a)
      real*4        v_B_V_0     ! (mag) ? (B-V)0 from the literature
      real*4        da_B_V0     ! (mag) ? Deviation from cluster line (Delta a)
      real*4        E_B_V       ! (mag) Reddening
      integer*4     Obs_1       ! Number of observations

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

C  Declarations for 'table6.dat'	! Observed program stars of Lynga 14

      integer*4 nr__2
      parameter (nr__2=53)	! Number of records
      character*72 ar__2  	! Full-size record

      integer*4     Seq_2       ! Number in Lynga 14, sorted after X and Y
*                                   Cl* Lynga 14 PPM NNN in Simbad
      integer*4     WEBDA_2     ! ? Notation according to WEBDA
*                                     (Cl* Lynga 14 NNN in Simbad)
      real*4        Xpos_2      ! (pix) X-coordinate
      real*4        Ypos_2      ! (pix) Y-coordinate
      real*4        V0_1        ! (mag) Mean V0 value
      real*4        acorr_1     ! (mag) Mean a(corr) index
      real*4        e_acorr_1   ! (mag) Sigma a(corr)
      real*4        v_g1_y_0_1  ! (mag) Mean (g1-y)0 index
      real*4        e__g1_y_0_1 ! (mag) Sigma (g1-y)0
      real*4        da_g1_y_0_1 ! (mag) Deviation from cluster line (Delta a)
      real*4        v_B_V_0_1   ! (mag) ? (B-V)0 from the literature
      real*4        E_B_V_1     ! (mag) reddening
      integer*4     Obs_2       ! Number of observations

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

C  Declarations for 'table7.dat'	! Observed program stars of NGC 6396

      integer*4 nr__3
      parameter (nr__3=105)	! Number of records
      character*71 ar__3  	! Full-size record

      integer*4     Seq_3       ! Number in NGC 6369, sorted after X and Y
*                                   Cl* NGC 6369 PPM NNN in Simbad
      integer*4     MV          ! ? Notation according to Moffat & Vogt
*                                     (1975A&AS...20..155M, NGC 6396 NN)
      real*4        Xpos_3      ! (pix) X-coordinate
      real*4        Ypos_3      ! (pix) Y-coordinate
      real*4        V0_2        ! (mag) Mean V0 value
      real*4        acorr_2     ! (mag) Mean a(corr) index (Maitzen)
      real*4        e_acorr_2   ! (mag) Sigma a(corr)
      real*4        v_g1_y_0_2  ! (mag) Mean (g1-y)0 index
      real*4        e__g1_y_0_2 ! (mag) Sigma (g1-y)0
      real*4        da_g1_y_0_2 ! (mag) Deviation from cluster line (Delta a)
      real*4        v_B_V_0_2   ! (mag) ? (B-V)0 from the literature
      real*4        E_B_V_1     ! (mag) reddening
      integer*4     Obs_3       ! Number of observations

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

C  Declarations for 'table8.dat'	! Observed program stars of NGC 6611

      integer*4 nr__4
      parameter (nr__4=79)	! Number of records
      character*85 ar__4  	! Full-size record

      integer*4     Seq_4       ! Number in NGC 6611, sorted after X and Y
*                                   Cl* NGC 6611 PPM NNN in Simbad
      integer*4     BKP         ! ? Notation according to Belikov et al. (1999,
*                                  Cat. <J/A+AS/134/525>, Cl* NGC 6611 BKP NNNNN)
      integer*4     No3         ! ? Notation according to WEBDA
*                                    (NGC 6611 NNN in Simbad)
      real*4        Xpos_4      ! (pix) X-coordinate
      real*4        Ypos_4      ! (pix) Y-coordinate
      real*4        V0_3        ! (mag) Mean V0 value
      real*4        acorr_3     ! (mag) Mean a(corr) index (Maitzen)
      real*4        e_acorr_3   ! (mag) Sigma a(corr)
      real*4        v_g1_y_0_3  ! (mag) Mean (g1-y)0 index
      real*4        e__g1_y_0_3 ! (mag) Sigma (g1-y)0
      real*4        da_g1_y_0_3 ! (mag) Deviation from cluster line (Delta a)
      real*4        v_B_V_0_3   ! (mag) ? (B-V)0 from the literature
      real*4        da_B_V_0    ! (mag) ? Deviation from cluster line (Delta a)
      real*4        E_B_V_1     ! (mag) reddening
      integer*4     Obs_4       ! Number of observations

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

C  Loading file 'table4.dat'	! Observed program stars of Collinder 272

C  Format for file interpretation

    1 format(
     +  I3,1X,I3,1X,F5.1,1X,F5.1,1X,F6.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,
     +  F5.3,1X,E9.3,F4.2,1X,F6.3,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,111
        read(1,'(A75)')ar__
        read(ar__,1)
     +  Seq,WEBDA,Xpos,Ypos,Vmag,a,e_a,g1_y,e_g1_y,da_g1_y,B_V,da_B_V,
     +  Obs
        if(ar__(5:7) .EQ. '') WEBDA = iNULL__
        if(ar__(62:65) .EQ. '') B_V = rNULL__
        if(ar__(67:72) .EQ. '') da_B_V = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  Seq,WEBDA,Xpos,Ypos,Vmag,a,e_a,g1_y,e_g1_y,da_g1_y,B_V,da_B_V,
     +  Obs
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table5.dat'	! Observed program stars of Pismis 20

C  Format for file interpretation

    2 format(
     +  I3,1X,I4,1X,F5.1,1X,F5.1,1X,F6.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,
     +  F5.3,1X,F6.3,1X,F5.2,1X,F6.3,1X,F4.2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5.dat')
      write(6,*) '....Loading file: table5.dat'
      do i__=1,238
        read(1,'(A80)')ar__1
        read(ar__1,2)
     +  Seq_1,WEBDA_1,Xpos_1,Ypos_1,V0,acorr,e_acorr,v_g1_y_0,
     +  e__g1_y_0,da_g1_y_0,v_B_V_0,da_B_V0,E_B_V,Obs_1
        if(ar__1(5:8) .EQ. '') WEBDA_1 = iNULL__
        if(ar__1(61:65) .EQ. '') v_B_V_0 = rNULL__
        if(ar__1(67:72) .EQ. '') da_B_V0 = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  Seq_1,WEBDA_1,Xpos_1,Ypos_1,V0,acorr,e_acorr,v_g1_y_0,
     +  e__g1_y_0,da_g1_y_0,v_B_V_0,da_B_V0,E_B_V,Obs_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table6.dat'	! Observed program stars of Lynga 14

C  Format for file interpretation

    3 format(
     +  I3,1X,I4,1X,F5.1,1X,F5.1,1X,F6.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,
     +  F5.3,1X,F6.3,1X,F4.2,1X,F4.2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table6.dat')
      write(6,*) '....Loading file: table6.dat'
      do i__=1,53
        read(1,'(A72)')ar__2
        read(ar__2,3)
     +  Seq_2,WEBDA_2,Xpos_2,Ypos_2,V0_1,acorr_1,e_acorr_1,v_g1_y_0_1,
     +  e__g1_y_0_1,da_g1_y_0_1,v_B_V_0_1,E_B_V_1,Obs_2
        if(ar__2(5:8) .EQ. '') WEBDA_2 = iNULL__
        if(ar__2(61:64) .EQ. '') v_B_V_0_1 = rNULL__
c    ..............Just test output...........
        write(6,3)
     +  Seq_2,WEBDA_2,Xpos_2,Ypos_2,V0_1,acorr_1,e_acorr_1,v_g1_y_0_1,
     +  e__g1_y_0_1,da_g1_y_0_1,v_B_V_0_1,E_B_V_1,Obs_2
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table7.dat'	! Observed program stars of NGC 6396

C  Format for file interpretation

    4 format(
     +  I3,1X,I2,1X,F5.1,1X,F5.1,1X,F6.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,
     +  F5.3,1X,F6.3,1X,F5.2,1X,F4.2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table7.dat')
      write(6,*) '....Loading file: table7.dat'
      do i__=1,105
        read(1,'(A71)')ar__3
        read(ar__3,4)
     +  Seq_3,MV,Xpos_3,Ypos_3,V0_2,acorr_2,e_acorr_2,v_g1_y_0_2,
     +  e__g1_y_0_2,da_g1_y_0_2,v_B_V_0_2,E_B_V_1,Obs_3
        if(ar__3(5:6) .EQ. '') MV = iNULL__
        if(ar__3(59:63) .EQ. '') v_B_V_0_2 = rNULL__
c    ..............Just test output...........
        write(6,4)
     +  Seq_3,MV,Xpos_3,Ypos_3,V0_2,acorr_2,e_acorr_2,v_g1_y_0_2,
     +  e__g1_y_0_2,da_g1_y_0_2,v_B_V_0_2,E_B_V_1,Obs_3
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table8.dat'	! Observed program stars of NGC 6611

C  Format for file interpretation

    5 format(
     +  I2,1X,I5,1X,I3,1X,F5.1,1X,F5.1,1X,F6.3,1X,F5.3,1X,F5.3,1X,
     +  F6.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F4.2,1X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table8.dat')
      write(6,*) '....Loading file: table8.dat'
      do i__=1,79
        read(1,'(A85)')ar__4
        read(ar__4,5)
     +  Seq_4,BKP,No3,Xpos_4,Ypos_4,V0_3,acorr_3,e_acorr_3,v_g1_y_0_3,
     +  e__g1_y_0_3,da_g1_y_0_3,v_B_V_0_3,da_B_V_0,E_B_V_1,Obs_4
        if(ar__4(4:8) .EQ. '') BKP = iNULL__
        if(ar__4(10:12) .EQ. '') No3 = iNULL__
        if(ar__4(65:70) .EQ. '') v_B_V_0_3 = rNULL__
        if(ar__4(72:77) .EQ. '') da_B_V_0 = rNULL__
c    ..............Just test output...........
        write(6,5)
     +  Seq_4,BKP,No3,Xpos_4,Ypos_4,V0_3,acorr_3,e_acorr_3,v_g1_y_0_3,
     +  e__g1_y_0_3,da_g1_y_0_3,v_B_V_0_3,da_B_V_0,E_B_V_1,Obs_4
c    .......End.of.Just test output...........
      end do
      close(1)

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