Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/154/57 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-28 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/154/57 New SDSS and Washington photometry in Segue 3 (Hughes+, 2017) *================================================================================ *A multiwavelength study of the Segue 3 cluster. * Hughes J., Lacy B., Sakari C., Wallerstein G., Davis C.E., Schiefelbein S., * Corrin O., Joudi H., Le D., Haynes R.M. * <Astron. J., 154, 57-57 (2017)> * =2017AJ....154...57H (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Frames used integer*4 nr__ parameter (nr__=102) ! Number of records character*34 ar__ ! Full-size record character*10 Date ! ("Y:M:D") Date of the observation character*6 Imager ! Imager used in observation (ARCTIC or * SPICam) (1) character*1 Filter ! Filter used in observation (C, R, u, g, r, * or i) (2) integer*4 Texp ! (s) [30/1800] Exposure time real*4 Airmass ! [1/2.37] Effective airmass real*4 FWHM ! (arcsec) [0.5/1.7] Image Full-Width at Half-Maximum *Note (1): The instrument identifiers are defined as follows: * ARCTIC = Astrophysical Research Consortium Telescope Imaging Camera * (ARCTIC) at Apache Point Observatory (APO); * SPICam = Seaver Prototype Imaging camera (SPIcam) at APO. *Note (2): We observed Seg 3 in the Washington filters C and T_1_ and SDSS ugri * filters (R is converted to Washington T_1_). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Cross-identification of objects in the Segue 3 field integer*4 nr__1 parameter (nr__1=218) ! Number of records character*83 ar__1 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Object ! [2/304] Internal identifier (ID) character*19 SDSS ! SDSS DR13 identifier character*1 f_SDSS ! Photometric quality grade on SDSS (A, B, C, D, * F, or G) (1) real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg ! (deg) Declination in decimal degrees (J2000) real*8 Xpix ! (pix) [17.9/898.9] X pixel coordinate (X_C_) (2) real*8 Ypix ! (pix) [6/732.78] Y pixel coordinate (Y_C_) (2) real*4 HRV ! (km/s) [-353.7/28.8]? Radial velocity from * (Fadely+, 2011, J/AJ/142/88) (V_r_) real*4 Imag ! (mag) [14.27/23.45]? Apparent I band magnitude * (I_O13_) (3) real*4 Vmag ! (mag) [15.19/24.23]? Apparent V band magnitude * (V_O13_) (3) *Note (1): SDSS DR13 photometric quality grade are defined as follows: * A = Warning flag; * B = Warning flag; * C = Warning flag; * D = Untrustworthy; * F = Untrustworthy; * G = Galaxy. *Note (2): From Figures 3(b) and 9. *Note (3): From Ortolani, Bica & Barbuy 2013, J/MNRAS/433/1966 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Segue 3: sources with detections in all filters integer*4 nr__2 parameter (nr__2=218) ! Number of records character*92 ar__2 ! Full-size record integer*4 Object_1 ! [2/304] Internal identifier (ID) real*4 T1mag ! (mag) [14/23.79] Apparent T_1_ band magnitude (4) real*4 e_T1mag ! (mag) [0.004/0.1] The 1{sigma} uncertainty in T1mag real*4 Cmag ! (mag) [15.15/26.2] Apparent C band magnitude (4) real*4 e_Cmag ! (mag) [0.007/0.54] The 1{sigma} uncertainty in Cmag real*4 umag ! (mag) [16.55/25.75] Apparent u band magnitude (4) real*4 e_umag ! (mag) [0.009/0.59] The 1{sigma} uncertainty in umag real*4 gmag ! (mag) [14.61/25.54] Apparent g band magnitude (4) real*4 e_gmag ! (mag) [0.004/0.38] The 1{sigma} uncertainty in gmag real*4 rmag ! (mag) [13.92/24.3] Apparent r band magnitude (4) real*4 e_rmag ! (mag) [0.01/0.2] The 1{sigma} uncertainty in rmag real*4 imag_1 ! (mag) [13.86/35.77] Apparent i band magnitude (4) real*4 e_imag ! (mag) [0.017/0.27] The 1{sigma} uncertainty in imag real*4 zmag ! (mag) [14/23.1]? Apparent SDSS DR13 catalog z band * magnitude real*4 e_zmag ! (mag) [0.01/0.95]? The 1{sigma} uncertainty in zmag *Note (4): We used the Apache Point Observatory (APO) new Astrophysical Research * Consortium Telescope Imaging Camera (ARCTIC) and the camera it replaced, * Seaver Prototype Imaging camera (SPIcam) for our observations with the 3.5m * telescope. We observed Seg 3 in the The Washington filters (Canterna * 1976AJ.....81..228C) C and T_1_ and SDSS ugri filters. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Input for Hertzsprung-Russell (H-R) diagrams for the photometric sample above the Main-Sequence TurnOff (MSTO) integer*4 nr__3 parameter (nr__3=14) ! Number of records character*65 ar__3 ! Full-size record integer*4 Object_2 ! [6/273] Internal identifier (ID) character*1 f_Object ! [a] Flag on Object (1) real*4 logA ! [5.1/9.5] Log of age log(Age) character*1 f_logA ! [b] Flag on logA (1) real*4 Z ! [0.004/0.005] Metallicity real*4 logT ! ([K]) [3.68/4.1] Log of effective temperature * (logT_eff_) real*4 logL ! ([Sun]) [0.86/2.28] Log of luminosity (logL/L_{Sun}_) real*4 logg ! [2.35/4.31] Log of surface gravity real*4 Mass ! ([Sun]) [1.32/2.63] Mass (M/M_{Sun}_) character*19 Com ! Comments *Note (1): Flag defined as follows: * a = Identified by V_r_ in Fadely et al. 2011 (Cat. J/AJ/142/88); * b = Young age estimate. Blue straggler (BS) or evolved BS? C============================================================================= C Loading file 'table1.dat' ! Frames used C Format for file interpretation 1 format(A10,1X,A6,1X,A1,1X,I4,1X,F5.3,1X,F3.1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,102 read(1,'(A34)')ar__ read(ar__,1)Date,Imager,Filter,Texp,Airmass,FWHM c ..............Just test output........... write(6,1)Date,Imager,Filter,Texp,Airmass,FWHM c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Cross-identification of objects in the Segue 3 field C Format for file interpretation 2 format( + I3,1X,A19,1X,A1,1X,F10.6,1X,F9.6,1X,F7.3,1X,F7.3,1X,F6.1,1X, + F6.3,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,218 read(1,'(A83)')ar__1 read(ar__1,2) + Object,SDSS,f_SDSS,RAdeg,DEdeg,Xpix,Ypix,HRV,Imag,Vmag if(ar__1(64:69) .EQ. '') HRV = rNULL__ if(ar__1(71:76) .EQ. '') Imag = rNULL__ if(ar__1(78:83) .EQ. '') Vmag = rNULL__ c ..............Just test output........... write(6,2) + Object,SDSS,f_SDSS,RAdeg,DEdeg,Xpix,Ypix,HRV,Imag,Vmag c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Segue 3: sources with detections in all filters C Format for file interpretation 3 format( + I3,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,F5.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,218 read(1,'(A92)')ar__2 read(ar__2,3) + Object_1,T1mag,e_T1mag,Cmag,e_Cmag,umag,e_umag,gmag,e_gmag, + rmag,e_rmag,imag_1,e_imag,zmag,e_zmag if(ar__2(83:87) .EQ. '') zmag = rNULL__ if(ar__2(89:92) .EQ. '') e_zmag = rNULL__ c ..............Just test output........... write(6,3) + Object_1,T1mag,e_T1mag,Cmag,e_Cmag,umag,e_umag,gmag,e_gmag, + rmag,e_rmag,imag_1,e_imag,zmag,e_zmag c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Input for Hertzsprung-Russell (H-R) diagrams for the * photometric sample above the Main-Sequence TurnOff * (MSTO) C Format for file interpretation 4 format( + I3,1X,A1,1X,F4.2,1X,A1,1X,F6.4,1X,F6.4,1X,F5.3,1X,F5.3,1X, + F6.4,1X,A19) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,14 read(1,'(A65)')ar__3 read(ar__3,4) + Object_2,f_Object,logA,f_logA,Z,logT,logL,logg,Mass,Com c ..............Just test output........... write(6,4) + Object_2,f_Object,logA,f_logA,Z,logT,logL,logg,Mass,Com c .......End.of.Just test output........... end do close(1) C============================================================================= stop end