Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/328/235 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-Apr-17 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/328/235 AN Lyn light maxima (Rodriguez+ 1997) *================================================================================ *Multiperiodicity in the atypical Delta Sct star AN Lyn * Rodriguez E., Gonzalez-Bedolla S.F., Rolland A., Costa V., * Lopez-Gonzalez M.J., Lopez de Coca P. * <Astron. Astrophys. 328, 235 (1997)> * =1997A&A...328..235R (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5' ! Times of light maxima of the Delta Scuti star AN Lyn integer*4 nr__ parameter (nr__=78) ! Number of records character*32 ar__ ! Full-size record integer*4 No ! Number of the light maximum real*8 HJD ! (d) Heliocentric Julian Day of each light maximum integer*4 Cycle ! Corresponding cycle number real*8 O_C ! Residual O-C integer*4 Ref ! Reference (1) *Note (1): 1: Yamasaki et al., 1981PASP...93...77Y * 2: Pensado, 1983 Bol. Astron. Obs. Madrid, Vol 11, No.2, 3 * 3: Yamasaki et al., 1983PASP...95..447Y * 4: Agerer et al., 1983IBVS.2370....1A * 5: Costa et al., 1984A&AS...57..233C * 6: Rodriguez et al., 1997A&A...324..959R * 7: present work C============================================================================= C Loading file 'table5' ! Times of light maxima of the Delta Scuti star AN Lyn C Format for file interpretation 1 format(I2,1X,F12.4,1X,I6,1X,F7.4,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table5') write(6,*) '....Loading file: table5' do i__=1,78 read(1,'(A32)')ar__ read(ar__,1)No,HJD,Cycle,O_C,Ref c ..............Just test output........... write(6,1)No,HJD,Cycle,O_C,Ref c .......End.of.Just test output........... end do close(1) C============================================================================= stop end