FORTRAN Generation
(/./ftp/cats/J/A_A/369/57)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/369/57 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/369/57  Monitoring Mkn 279 in BVRI and H{beta} fluxes (Santos-Lleo+, 2001)
*================================================================================
*Monitoring of the optical and 2.5-11.7 micrometer spectrum and mid-IR imaging
*of the Seyfert 1 galaxy Mkn 279 with ISO.
*    Santos-Lleo M., Clavel J., Schulz B., Altieri B., Barr P., Alloin D.
*    Berlind P., Bertram R., Crenshaw D, Edelson R.A., Giveon U., Horne K.,
*    Huchra J.P., Kaspi S., Kriss G.A., Krolik J.H., Malkan M.A., Malkov Yu.F.,
*    Netzer H., O'Brien P.T., Peterson B.M., Pogge R.W., Pronik V.I., Qian B.-C.,
*    Reichert G.A., Rodriguez-Pascual P.M., Sergeev S.G., Tao J., Tokarz S.,
*    Wagner R.M., Wamsteker W., Wilkes B.J.
*   <Astron. Astrophys. 369, 57 (2001)>
*   =2001A&A...369...57S
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table4.dat'	! Optical Photometry from Wise Observatory

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

      character*10  Date        ! ("YYYY/MM/DD") UT Date
      real*8        HJD         ! (d) Heliocentric Julian Date
      real*4        Bmag        ! (mag) B magnitude (1)
      real*4        e_Bmag      ! (mag) rms uncertainty on Bmag
      real*4        Vmag        ! (mag) ? V magnitude (1)
      real*4        e_Vmag      ! (mag) ? rms uncertainty on Vmag
      real*4        Rmag        ! (mag) R magnitude (1)
      real*4        e_Rmag      ! (mag) rms uncertainty on Rmag
      real*4        Imag        ! (mag) ? I magnitude (1)
      real*4        e_Imag      ! (mag) ? rms uncertainty on Imag
*Note (1): Instrumental magnitudes, not scaled to any standard system

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

C  Declarations for 'table5.dat'	! Optical Continuum and H{beta} fluxes

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

      real*8        HJD_1       ! (d) Heliocentric Julian Date
      real*4        F5100A      ! (10-17W/m2/nm) Optical continuum (at 5100{AA}) (1)
      real*4        e_F5100A    ! (10-17W/m2/nm) rms uncertainty on F5100A
      real*4        FHb         ! (10-16W/m2) H{beta} flux (1)
      real*4        e_FHb       ! (10-16W/m2) rms uncertainty on Hb
*Note (1): F5100A is expressed in 10^-15^ergs/s/cm^2^/{AA}
*          FHb is expressed in 10^-13^ergs/s/cm^2^

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

C  Loading file 'table4.dat'	! Optical Photometry from Wise Observatory

C  Format for file interpretation

    1 format(
     +  A10,1X,F9.1,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,
     +  1X,F6.3,1X,F5.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,17
        read(1,'(A72)')ar__
        read(ar__,1)
     +  Date,HJD,Bmag,e_Bmag,Vmag,e_Vmag,Rmag,e_Rmag,Imag,e_Imag
        if(ar__(35:40) .EQ. '') Vmag = rNULL__
        if(ar__(42:46) .EQ. '') e_Vmag = rNULL__
        if(ar__(61:66) .EQ. '') Imag = rNULL__
        if(ar__(68:72) .EQ. '') e_Imag = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  Date,HJD,Bmag,e_Bmag,Vmag,e_Vmag,Rmag,e_Rmag,Imag,e_Imag
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table5.dat'	! Optical Continuum and H{beta} fluxes

C  Format for file interpretation

    2 format(F9.1,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5.dat')
      write(6,*) '....Loading file: table5.dat'
      do i__=1,121
        read(1,'(A29)')ar__1
        read(ar__1,2)HJD_1,F5100A,e_F5100A,FHb,e_FHb
c    ..............Just test output...........
        write(6,2)HJD_1,F5100A,e_F5100A,FHb,e_FHb
c    .......End.of.Just test output...........
      end do
      close(1)

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