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