Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/112/601 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/AJ/112/601 UV photometry in M79 (Hill+ 1996) *================================================================================ *UIT: New ultraviolet stellar photometry and surface brightness *profiles of the globular cluster M 79 (NGC 1904) * Hill R.S., Cheng K.-P., Smith E.P., Hintzen P.M.N., Bohlin R.C., * OConnell R.W., Roberts M.S., Smith A.M., Stecher T.P. * <Astron. J. 112, 601 (1996)> * =1996AJ....112..601H C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! UV stellar photometry of M79 integer*4 nr__ parameter (nr__=136) ! Number of records character*82 ar__ ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg ! (deg) Right Ascension J2000 real*8 DEdeg ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) integer*4 Star ! Ordinal number of UIT-detected star in M79 character*1 Note ! *[g] Table note mark integer*4 RAh ! (h) Right ascension (J2000) integer*4 RAm ! (min) Right ascension (J2000) real*4 RAs ! (s) Right ascension (J2000) character*1 DE_ ! Declination sign integer*4 DEd ! (deg) Declination (J2000) integer*4 DEm ! (arcmin) Declination (J2000) real*4 DEs ! (arcsec) Declination (J2000) real*4 m152 ! (mag) *UIT magnitude in the 152nm (B1) band real*4 C152_249 ! (mag) UIT color index 152nm (B1) - 249nm (A1) real*4 e_m152 ! (mag) Formal error in UIT 152nm (B1) magnitude real*4 e_m249 ! (mag) Formal error in UIT 249nm (A1) magnitude real*4 R ! (arcsec) Distance of UIT source from cluster center character*4 Qnote ! *Note on quality of observation integer*4 IDF92 ! *? Star number from Ferraro et al., 1992 real*4 B_VF92 ! (mag) ? B-V color index from Ferraro et al., 1992 real*4 VmagF92 ! (mag) ? V magnitude from Ferraro et al., 1992 *Note on Note: * Table note mark "g": Star 94=UIT-1 and star 76 = UIT-2 as * discussed in Paper I (Hill, R. S. et al. 1992ApJ...395L..17H). * Stars 26, 67, 100, 109, and 127 are in the area observed by F92 * but have no F92-HB match with B-V<0.4. Stars 111, 120, and 122 * are ambiguously matched by two or more F92 (1992MNRAS.256..391F) HB stars. *Note on m152: * UIT magnitude in the 152nm (B1) band. Magnitudes are defined as * -2.5*log(flux)-21.1, where log is base 10, and flux is f sub * lambda in units of ergs/cm2/s/A. *Note on Qnote: * Note on quality of observation. * *: UIT source is within 5 pixels (5.7arcsec) of more than one HB star of F92; * if an F92 number is given, it is judged the most likely candidate according * to color index and distance from the UIT source position. * C: Obvious crowding in one or both UIT bands, as determined by inspection; * stars without this note may still be affected by crowding if r<~40arcsec. * Lowercase f or n: An aperture magnitude is substituted for a PSF magnitude * with error greater than 0.2mag, for image FUV0141 or NUV0124, respectively. * Entries 134-136 have aperture photometry only. *Note on IDF92: * The complete reference F92 is the following: Ferraro, F. R., Clementini, * G., Fusi Pecci, F., Sortino, R., and Buonanno, R., (1992MNRAS.256..391F) C============================================================================= C Loading file 'table3.dat' ! UV stellar photometry of M79 C Format for file interpretation 1 format( + I3,1X,A1,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,2X,F5.2, + 1X,F5.2,1X,F5.3,1X,F5.3,1X,F5.1,1X,A4,1X,I4,1X,F5.2,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,136 read(1,'(A82)')ar__ read(ar__,1) + Star,Note,RAh,RAm,RAs,DE_,DEd,DEm,DEs,m152,C152_249,e_m152, + e_m249,R,Qnote,IDF92,B_VF92,VmagF92 if(ar__(67:70) .EQ. '') IDF92 = iNULL__ if(ar__(72:76) .EQ. '') B_VF92 = rNULL__ if(ar__(78:82) .EQ. '') VmagF92 = rNULL__ RAdeg = rNULL__ DEdeg = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh .GT. -180) RAdeg=RAh*15. if(RAm .GT. -180) RAdeg=RAdeg+RAm/4. if(RAs .GT. -180) RAdeg=RAdeg+RAs/240. if(DEd .GE. 0) DEdeg=DEd if(DEm .GE. 0) DEdeg=DEdeg+DEm/60. if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600. if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg c ..............Just test output........... write(6,1) + Star,Note,RAh,RAm,RAs,DE_,DEd,DEm,DEs,m152,C152_249,e_m152, + e_m249,R,Qnote,IDF92,B_VF92,VmagF92 write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= stop end