Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/132/195 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+AS/132/195 Astrolabe observations of the Sun in 1995-1997 (Noel 1998) *================================================================================ *Observations of the Sun with the astrolabe of Santiago: 1995-1997 * Noel F. * <Astron. Astrophys. Suppl. Ser. 132, 195 (1998)> * =1998A&AS..132..195N (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Sun observations at 30{deg} zenith distance integer*4 nr__ parameter (nr__=354) ! Number of records character*79 ar__ ! Full-size record character*8 Date ! ("DD/MM/YY") Observation date real*8 MJD ! (d) Modified Julian day real*4 Zeu ! (arcsec) ?=99.99 Zenith distance residual east upper border real*4 Zel ! (arcsec) ?=99.99 Zenith distance residual east lower border real*4 Zwl ! (arcsec) ?=99.99 Zenith distance residual west lower border real*4 Zwu ! (arcsec) ?=99.99 Zenith distance residual west upper border real*4 dRA ! (s) ?=99.999 Right ascension (observed-ephemeris) real*4 e_dRA ! (s) ?=9.999 rms uncertainty on dAlpha real*4 Y ! (arcsec) ?=99.99 Zenith distance (Observed-Adopted) + * Declination(O-C) cos S. real*4 dDSun ! (arcsec) ?=99.99 Sun semi-diameter (O-C) real*4 e_dDSun ! (arcsec) ?=9.99 Sigma of dDSun and Y real*4 DSun ! (arcsec) ?=0.00 Observed Sun semi-diameter reduced to AU. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Sun observations at 60{deg} zenith distance integer*4 nr__1 parameter (nr__1=659) ! Number of records character*79 ar__1 ! Full-size record character*8 Date_1 ! ("DD/MM/YY") Observation date real*8 MJD_1 ! (d) Modified Julian day real*4 Zeu_1 ! (arcsec) ?=99.99 Zenith distance residual east upper border real*4 Zel_1 ! (arcsec) ?=99.99 Zenith distance residual east lower border real*4 Zwl_1 ! (arcsec) ?=99.99 Zenith distance residual west lower border real*4 Zwu_1 ! (arcsec) ?=99.99 Zenith distance residual west upper border real*4 dRA_1 ! (s) ?=99.999 Right ascension (observed-ephemeris) real*4 e_dRA_1 ! (s) ?=9.999 rms uncertainty on dAlpha real*4 Y_1 ! (arcsec) ?=99.99 Zenith distance (Observed-Adopted) + * Declination(O-C) cos S. real*4 dDSun_1 ! (arcsec) ?=99.99 Sun semi-diameter (O-C) real*4 e_dDSun_1 ! (arcsec) ?=9.99 Sigma of dDSun and Y real*4 DSun_1 ! (arcsec) ?=0.00 Observed Sun semi-diameter reduced to AU. C============================================================================= C Loading file 'table2.dat' ! Sun observations at 30{deg} zenith distance C Format for file interpretation 1 format( + A8,1X,F9.3,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F6.3,1X,F5.3,1X, + F5.2,1X,F5.2,1X,F4.2,1X,F6.2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,354 read(1,'(A79)')ar__ read(ar__,1) + Date,MJD,Zeu,Zel,Zwl,Zwu,dRA,e_dRA,Y,dDSun,e_dDSun,DSun c ..............Just test output........... write(6,1) + Date,MJD,Zeu,Zel,Zwl,Zwu,dRA,e_dRA,Y,dDSun,e_dDSun,DSun c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Sun observations at 60{deg} zenith distance C Format for file interpretation 2 format( + A8,1X,F9.3,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F6.3,1X,F5.3,1X, + F5.2,1X,F5.2,1X,F4.2,1X,F6.2) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,659 read(1,'(A79)')ar__1 read(ar__1,2) + Date_1,MJD_1,Zeu_1,Zel_1,Zwl_1,Zwu_1,dRA_1,e_dRA_1,Y_1, + dDSun_1,e_dDSun_1,DSun_1 c ..............Just test output........... write(6,2) + Date_1,MJD_1,Zeu_1,Zel_1,Zwl_1,Zwu_1,dRA_1,e_dRA_1,Y_1, + dDSun_1,e_dDSun_1,DSun_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end