Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/491/93 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-19 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/ApJ/491/93 JHK photometry of 9 gamma-ray burst fields (Larson+ 1997) *================================================================================ *Extragalactic content of gamma-ray burst localizations * Larson S.B., McLean I.S. * <Astrophys. J. 491, 93 (1997)> * =1997ApJ...491...93L C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'grbcat.dat' ! Catalogue of sources in 9 {gamma}-ray burst fields integer*4 nr__ parameter (nr__=1892) ! Number of records character*72 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 GRB ! GRB field (name of the GRB) integer*4 No ! Object number in GRB field integer*4 Xpos ! (pix) X coordinate integer*4 Ypos ! (pix) Y coordinate real*8 RAdeg ! (deg) Right ascension (J2000) (1) real*8 DEdeg ! (deg) Declination (J2000) (1) real*4 Jmag ! (mag) ? J (1.25 micron) magnitude of the object (2) real*4 e_Jmag ! (mag) ? 1-sigma error in the J magnitude (3) real*4 Hmag ! (mag) ? H (1.65 micron) magnitude of the object (2) real*4 e_Hmag ! (mag) ? 1-sigma error in Hmag real*4 K_mag ! (mag) Either the K' (2.11 micron) or Ks (2.16 micron) * magnitude of the object (2) (4) real*4 e_K_mag ! (mag) ? 1-sigma error in K' or Ks character*1 S_G ! [SG] Identifies whether the object has been * classified as a star (S) or a galaxy (G) *Note (1): The right ascension and declination (J2000) of the object using * the pixel coordinates and a minimal astrometry model. These * coordinates should be accurate to better than 1 arcsec. *Note (2): Empty magnitude cells mean that no photometric information * is available. Magnitudes equal to 0 mean that the object is saturated. *Note (3): 1 sigma error, derived by adding the zeropoint and statistical * errors in quadrature. *Note (4): Fields GRB 910219, 920325, 920711, 920720, and 920723 are K' * magnitudes. The others are Ks magnitudes C============================================================================= C Loading file 'grbcat.dat' ! Catalogue of sources in 9 {gamma}-ray burst fields C Format for file interpretation 1 format( + I6,1X,I3,1X,I4,1X,I3,1X,F8.4,1X,F8.4,1X,F5.2,1X,F4.2,1X,F5.2, + 1X,F4.2,1X,F5.2,1X,F4.2,1X,A1) C Effective file loading open(unit=1,status='old',file= +'grbcat.dat') write(6,*) '....Loading file: grbcat.dat' do i__=1,1892 read(1,'(A72)')ar__ read(ar__,1) + GRB,No,Xpos,Ypos,RAdeg,DEdeg,Jmag,e_Jmag,Hmag,e_Hmag,K_mag, + e_K_mag,S_G if(ar__(39:43) .EQ. '') Jmag = rNULL__ if(ar__(45:48) .EQ. '') e_Jmag = rNULL__ if(ar__(50:54) .EQ. '') Hmag = rNULL__ if(ar__(56:59) .EQ. '') e_Hmag = rNULL__ if(ar__(67:70) .EQ. '') e_K_mag = rNULL__ c ..............Just test output........... write(6,1) + GRB,No,Xpos,Ypos,RAdeg,DEdeg,Jmag,e_Jmag,Hmag,e_Hmag,K_mag, + e_K_mag,S_G c .......End.of.Just test output........... end do close(1) C============================================================================= stop end