Conversion of standardized ReadMe file for
file /./ftp/cats/J/PAZh/43/407 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-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/PAZh/43/407 S5 0716+714 polarization & brightness 1991-2004 (Doroshenko+ 2017) *================================================================================ *Polarization and brightness of the blazar S5 0716+714 in 1991-2004. * Doroshenko V.T., Kiselev N.N. * <Pis'ma Astron. Zh. 43, 407 (2017)> * =2017AstL...43..365D * =2017PAZh...43..407D (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! UBVRI photometry with AZT11 integer*4 nr__ parameter (nr__=105) ! Number of records character*87 ar__ ! Full-size record character*10 Date ! ("date") Observation date real*8 HJD ! (d) Jeliocentric Julian date (HJD-2400000) real*4 Umag ! (mag) ? U magnitude real*4 e_Umag ! (mag) ? rms uncertainty on Umag real*4 Bmag ! (mag) B magnitude real*4 e_Bmag ! (mag) rms uncertainty on Bmag real*4 Vmag ! (mag) V magnitude real*4 e_Vmag ! (mag) rms uncertainty on Vmag real*4 Rmag ! (mag) ? R magnitude real*4 e_Rmag ! (mag) ? rms uncertainty on Rmag real*4 Imag ! (mag) ? I magnitude real*4 e_Imag ! (mag) ? rms uncertainty on Imag c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! UBV photometry with the 60-cm telescope integer*4 nr__1 parameter (nr__1=150) ! Number of records character*87 ar__1 ! Full-size record character*10 Date_1 ! ("date") Observation date real*8 HJD_1 ! (d) Jeliocentric Julian date (HJD-2400000) real*4 Umag_1 ! (mag) ? U magnitude real*4 e_Umag_1 ! (mag) ? rms uncertainty on Umag real*4 Bmag_1 ! (mag) B magnitude real*4 e_Bmag_1 ! (mag) rms uncertainty on Bmag real*4 Vmag_1 ! (mag) V magnitude real*4 e_Vmag_1 ! (mag) rms uncertainty on Vmag real*4 Rmag_1 ! (mag) ? R magnitude real*4 e_Rmag_1 ! (mag) ? rms uncertainty on Rmag real*4 Imag_1 ! (mag) ? I magnitude real*4 e_Imag_1 ! (mag) ? rms uncertainty on Imag c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Polarization parameters for S5 0716+714 in the R band integer*4 nr__2 parameter (nr__2=105) ! Number of records character*89 ar__2 ! Full-size record character*10 Date_2 ! ("date") Observation date real*8 HJD_2 ! (d) Heliocentric Julian date (HJD-2400000) real*8 q ! (%) Stokes q parameter (q=Pcos(2PA)) real*4 e_q ! (%) rms uncertainty on q real*8 u ! (%) Stokes u parameter (u=Psin(2PA)) real*4 e_u ! (%) rms uncertainty on u real*4 P ! (%) Polarisation degree real*4 e_P ! (%) rms uncertainty on P real*4 PA ! (deg) Polarisation angle real*4 e_PA ! (deg) rms uncertainty on PA real*4 Rcmag ! (mag) Cousins R magnitude real*4 e_Rcmag ! (mag) rms uncertainty on Rcmag C============================================================================= C Loading file 'table1.dat' ! UBVRI photometry with AZT11 C Format for file interpretation 1 format( + A10,1X,F11.5,1X,F6.3,1X,F5.3,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= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,105 read(1,'(A87)')ar__ read(ar__,1) + Date,HJD,Umag,e_Umag,Bmag,e_Bmag,Vmag,e_Vmag,Rmag,e_Rmag,Imag, + e_Imag if(ar__(24:29) .EQ. '') Umag = rNULL__ if(ar__(31:35) .EQ. '') e_Umag = rNULL__ if(ar__(63:68) .EQ. '') Rmag = rNULL__ if(ar__(70:74) .EQ. '') e_Rmag = rNULL__ if(ar__(76:81) .EQ. '') Imag = rNULL__ if(ar__(83:87) .EQ. '') e_Imag = rNULL__ c ..............Just test output........... write(6,1) + Date,HJD,Umag,e_Umag,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 'table2.dat' ! UBV photometry with the 60-cm telescope C Format for file interpretation 2 format( + A10,1X,F11.5,1X,F6.3,1X,F5.3,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= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,150 read(1,'(A87)')ar__1 read(ar__1,2) + Date_1,HJD_1,Umag_1,e_Umag_1,Bmag_1,e_Bmag_1,Vmag_1,e_Vmag_1, + Rmag_1,e_Rmag_1,Imag_1,e_Imag_1 if(ar__1(24:29) .EQ. '') Umag_1 = rNULL__ if(ar__1(31:35) .EQ. '') e_Umag_1 = rNULL__ if(ar__1(63:68) .EQ. '') Rmag_1 = rNULL__ if(ar__1(70:74) .EQ. '') e_Rmag_1 = rNULL__ if(ar__1(76:81) .EQ. '') Imag_1 = rNULL__ if(ar__1(83:87) .EQ. '') e_Imag_1 = rNULL__ c ..............Just test output........... write(6,2) + Date_1,HJD_1,Umag_1,e_Umag_1,Bmag_1,e_Bmag_1,Vmag_1,e_Vmag_1, + Rmag_1,e_Rmag_1,Imag_1,e_Imag_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Polarization parameters for S5 0716+714 * in the R band C Format for file interpretation 3 format( + A10,1X,F11.5,1X,F7.3,1X,F5.3,1X,F7.3,1X,F5.3,1X,F6.3,1X,F5.3, + 1X,F6.2,1X,F5.2,1X,F6.3,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,105 read(1,'(A89)')ar__2 read(ar__2,3) + Date_2,HJD_2,q,e_q,u,e_u,P,e_P,PA,e_PA,Rcmag,e_Rcmag c ..............Just test output........... write(6,3) + Date_2,HJD_2,q,e_q,u,e_u,P,e_P,PA,e_PA,Rcmag,e_Rcmag c .......End.of.Just test output........... end do close(1) C============================================================================= stop end