Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/136/2259 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-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/AJ/136/2259 HST photometry of stars in NGC 2419 (Sandquist+, 2008) *================================================================================ *Evolved stars in the core of the massive globular cluster NGC 2419. * Sandquist E.L., Hess J.M. * <Astron. J., 136, 2259-2285 (2008)> * =2008AJ....136.2259S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Evolved stars in NGC 2419 integer*4 nr__ parameter (nr__=2046) ! Number of records character*186 ar__ ! Full-size record character*6 Name (nr__) ! Object identification (1) real*8 oRA (nr__) ! (arcsec) Offset in Right Ascension (2) real*8 oDE (nr__) ! (arcsec) Offset in Declination (2) real*4 F300W (nr__) ! (mag) ?=0 HST/WFPC2 F300W band magnitude (3) real*4 e_F300W (nr__) ! (mag) ?=0 Photometric error in F300W (3) real*4 F555W (nr__) ! (mag) ?=0 HST/WFPC2 F555W band magnitude (3) real*4 e_F555W (nr__) ! (mag) ?=0 Photometric error in F555W (3) real*4 F814W (nr__) ! (mag) ?=0 HST/WFPC2 F814W band magnitude (3) real*4 e_F814W (nr__) ! (mag) ?=0 Photometric error in F814W (3) real*4 F250W (nr__) ! (mag) ?=0 HST/HRC F250W band magnitude (3) real*4 e_F250W (nr__) ! (mag) ?=0 Photometric error in F250W (3) real*4 F336W (nr__) ! (mag) ?=0 HST/WFPC2 F336W band magnitude (3) real*4 e_F336W (nr__) ! (mag) ?=0 Photometric error in F336W (3) real*4 F380W (nr__) ! (mag) ?=0 HST/WFPC2 F380W band magnitude (3) real*4 e_F380W (nr__) ! (mag) ?=0 Photometric error in F380W (3) real*4 F435W (nr__) ! (mag) ?=0 HST/ACS F435W band magnitude (3) real*4 e_F435W (nr__) ! (mag) ?=0 Photometric error in F435W (3) real*4 F439W (nr__) ! (mag) ?=0 HST/WFPC2 F439W band magnitude (3) real*4 e_F439W (nr__) ! (mag) ?=0 Photometric error in F439W (3) real*4 F450W (nr__) ! (mag) ?=0 HST/WFPC2 F450W band magnitude (3) real*4 e_F450W (nr__) ! (mag) ?=0 Photometric error in F450W (3) real*4 F675W (nr__) ! (mag) ?=0 HST/WFPC2 F675W band magnitude (3) real*4 e_F675W (nr__) ! (mag) ?=0 Photometric error in F675W (3) character*31 Note (nr__) ! Additional information (4) *Note (1): The table only includes stars from the union of the ACS WFC and * WFPC2 fields for proposals 7628 and 7630. * Sources identified as <Cl* NGC 2419 Name> in Simbad, with: * PA N = Post-AGB (N=1-7) * SH N = Supra-HB (N=1-7) * AM NN = AGB manque (N=1-20) * V N = RR Lyrae variable (N=3-68) from Pinto & Rosino, * 1977A&AS...28..427P, <Cl* NGC 2419 B VNN> in Simbad * A NNN = AGB (N=1-107) * H NNN = HB (N=1-927) * R NNN = RGB (N=1-936) *Note (2): An RA-DEC offset coordinate system was set up using the WFPC2 * datasets. Positions are given relative to the cluster center given * by Harris (1996, Cat. VII/195), 07:38:08.5+38:52:55 (J2000). *Note (3): A value of 0.00 indicate missing data. *Note (4): BSS means blue straggler star C============================================================================= C Loading file 'table3.dat' ! Evolved stars in NGC 2419 C Format for file interpretation 1 format( + A6,1X,F8.3,1X,F8.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X, + F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3, + 1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,A31) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,2046 read(1,'(A186)')ar__ read(ar__,1) + Name(i__),oRA(i__),oDE(i__),F300W(i__),e_F300W(i__), + F555W(i__),e_F555W(i__),F814W(i__),e_F814W(i__),F250W(i__), + e_F250W(i__),F336W(i__),e_F336W(i__),F380W(i__),e_F380W(i__), + F435W(i__),e_F435W(i__),F439W(i__),e_F439W(i__),F450W(i__), + e_F450W(i__),F675W(i__),e_F675W(i__),Note(i__) c ..............Just test output........... write(6,1) + Name(i__),oRA(i__),oDE(i__),F300W(i__),e_F300W(i__), + F555W(i__),e_F555W(i__),F814W(i__),e_F814W(i__),F250W(i__), + e_F250W(i__),F336W(i__),e_F336W(i__),F380W(i__),e_F380W(i__), + F435W(i__),e_F435W(i__),F439W(i__),e_F439W(i__),F450W(i__), + e_F450W(i__),F675W(i__),e_F675W(i__),Note(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end