Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/107/1745 into FORTRAN code for loading all data files into arrays.
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/AJ/107/1745 HST UVI photometry of M15. II. (Yanny+, 1994) *================================================================================ *Globular cluster photometry with the Hubble Space Telescope. II. *U, V, and I measurements of M15 * Yanny B., Guhathakurta P., Bahcall J.N., Schneider D.P. * <Astron. J. 107, 1745 (1994)> * =1994AJ....107.1745Y C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Stellar photometry and astrometry for M15 (V < 18.1) integer*4 nr__ parameter (nr__=1186) ! Number of records character*37 ar__ ! Full-size record integer*4 ID (nr__) ! Identification number (YGBS number) real*4 oRA (nr__) ! (arcsec) Right ascension offset from AC 211=ID 653 (1) real*4 oDE (nr__) ! (arcsec) Declination offset from AC 211=ID 653 (1) real*4 Vmag (nr__) ! (mag) Visual magnitude (filter F555W) real*4 V_I (nr__) ! (mag) V-I color (F785LP - F555W) real*4 U_V (nr__) ! (mag) ? U-V color (F336W - F555W) character*1 n_U_V (nr__) ! [ab] Note for U-V (2) *Note (1): Coordinates are arcsec offsets relative to AC 211 = ID 653. * ID 653 is at 21:29:58.26+12:10:02.90 *Note (2): a - the star is located outside the area covered by the U image. * b - the star is not detected in U, though the area was covered. C============================================================================= C Loading file 'table3.dat' ! Stellar photometry and astrometry for M15 * (V < 18.1) C Format for file interpretation 1 format(I4,1X,F6.2,1X,F6.2,1X,F5.2,1X,F5.2,1X,F5.2,A1) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,1186 read(1,'(A37)')ar__ read(ar__,1) + ID(i__),oRA(i__),oDE(i__),Vmag(i__),V_I(i__),U_V(i__), + n_U_V(i__) if(ar__(32:36) .EQ. '') U_V(i__) = rNULL__ c ..............Just test output........... write(6,1) + ID(i__),oRA(i__),oDE(i__),Vmag(i__),V_I(i__),U_V(i__), + n_U_V(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end