Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/439/433 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-18 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/439/433 RIJ photometry of stars around PSR B1718-19 (Janssen+, 2005) *================================================================================ *Observations of the binary pulsar system PSR B1718-19. *The role of tidal circularization. * Janssen T., Van Kerkwijk M.H. * <Astron. Astrophys. 439, 433 (2005)> * =2005A&A...439..433J C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Positions and apparent magnitudes of the candidate companion of PSR B1718-19 and surrounding stars integer*4 nr__ parameter (nr__=2390) ! Number of records character*97 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq ! Star label real*8 RAdeg ! (deg) Right ascension (J2000) (1) real*8 DEdeg ! (deg) Declination (J2000) (1) real*8 Rmag ! (mag) ?=0.000 Apparent magnitude in R (657nm) (2) real*8 e_Rmag ! (mag) ?=0.000 Sigma of apparent magnitude in R (3) real*8 Imag ! (mag) ?=0.000 Apparent magnitude in I (768nm) (2) real*8 e_Imag ! (mag) ?=0.000 Sigma of apparent magnitude in I (3) real*8 Jmag ! (mag) ?=0.000 Apparent magnitude in J (1.25um) (2) real*8 e_Jmag ! (mag) ?=0.000 Sigma of apparent magnitude in J (3) *Note (1): The uncertainty in the zero-point of the astrometry is 0.06arcsec * (see Van Kerkwijk et al., 2000ApJ...529..428V). For this table only * the HST/F702W-astrometry has been corrected for field distortion, * using the standard correction of HSTPhot. * * For VLT/FORS-bands R & I the distortion is small (smaller than * ~0.15arcsec), as the astrometry and photometry is done on a subframe * measuring 400x400 pixels (out of a total of 2048x2048 pixels). * * For VLT/ISAAC-band J the distortion is larger (amounting up to * ~0.3arcsec at the edges of the subframe). Consequently, the * uncertainty in the astrometry is expected to be lowest in F702W, * intermediate in R & I, and highest in J. * * The astrometry listed in this table has therefore been done in one of * the filters F702W, I, R, or J (in that order) if a detection occurred * in that filter. *Note (2): Value 0.000 means no detection or cross-identification * occurred in that filter. *Note (3): The uncertainty in the photometric zero-point is 0.02 (J) * or smaller than 0.03 (R & I). These uncertainties have not been * added to the error-bars listed in this table. C============================================================================= C Loading file 'table2.dat' ! Positions and apparent magnitudes of the candidate * companion of PSR B1718-19 and surrounding stars C Format for file interpretation 1 format( + I4,2X,F14.10,2X,F14.10,2X,F9.3,1X,F9.3,1X,F9.3,1X,F9.3,1X, + F9.3,1X,F9.3) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,2390 read(1,'(A97)')ar__ read(ar__,1) + Seq,RAdeg,DEdeg,Rmag,e_Rmag,Imag,e_Imag,Jmag,e_Jmag c ..............Just test output........... write(6,1) + Seq,RAdeg,DEdeg,Rmag,e_Rmag,Imag,e_Imag,Jmag,e_Jmag c .......End.of.Just test output........... end do close(1) C============================================================================= stop end