Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/122/2569 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-20 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/122/2569 VI photometry of NGC 288, 362 and 1851 (Bellazzini+, 2001) *================================================================================ *Age as the second parameter in NGC 288/NGC 362? *I. Turnoff ages: a purely differential comparison. * Bellazzini M., Pecci F.F., Ferraro F.R., Galleti S., Catelan M., * Landsman W.B. * <Astron. J. 122, 2569 (2001)> * =2001AJ....122.2569B C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Photometry of NGC 288 integer*4 nr__ parameter (nr__=10990) ! Number of records character*65 ar__ ! Full-size record integer*4 BPF (nr__) ! Object identification (1) real*4 Vmag (nr__) ! (mag) The V band magnitude real*4 e_Vmag (nr__) ! (mag) Error in Vmag real*4 Imag (nr__) ! (mag) The I band magnitude real*4 e_Imag (nr__) ! (mag) Error in Imag real*8 Xpix (nr__) ! (pix) The X pixel position (2) real*8 Ypix (nr__) ! (pix) The Y pixel position (2) character*8 Name (nr__) ! Other object identification (3) *Note (1): In Simbad, the designations are: * Cl* NGC 288 BPF NNNNN in table1.dat * Cl* NGC 1851 BPF NNNN in table2.dat * Cl* NGC 362 BPF NNNN in table3.dat *Note (2): 1 pix = 0.26" *Note (3): Other object identification: * V# = Cl* NGC AAAA SAW VNN in Simbad e.g. * Cl* NGC 288 Saw VN, RR Lyrae variables found by Kaluzny * (1996A&AS..120...83K) in table1.dat, * Cl* NGC 1851 SAW VNN, RR Lyrae variables in common with Walker * (1998AJ....116..220W) in table2.dat * Cl* NGC 362 SAW VNNN, RR Lyrae variables identified in the * Sawyer-Hogg (1973, updated by C. Clement, 1997, Cat. <V/97>), * in table3.dat * Guo 4110 = A non member star identified in the proper motions database * by Guo (1995, Ph.D. thesis, Yale Univ.); * EHB1 = The extreme HB star identified by Bellazzini & Messineo (1999, * in The Chemical Evolution of the Milky Way: Stars versus * Clusters, ed. F. Matteucci & F. Giovannelli (Dordrecht: * Kluwer), 213). * UIT-# = UV sources identified by the UIT satellite (see Cat. <VI/104>) * PNM = probable non member (only for stars near the HB) according to * Tucholke (1992, Cat. <J/A+AS/93/311>). * MJ #### = Cl* NGC 362 MJ NNNNN, BHB star that is a confirmed member of the * cluster according to Moehler et al. (2000A&A...361..937M). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Photometry of NGC 1851 integer*4 nr__1 parameter (nr__1=9118) ! Number of records character*65 ar__1 ! Full-size record integer*4 BPF_1 (nr__1) ! Object identification (1) real*4 Vmag_1 (nr__1) ! (mag) The V band magnitude real*4 e_Vmag_1 (nr__1) ! (mag) Error in Vmag real*4 Imag_1 (nr__1) ! (mag) The I band magnitude real*4 e_Imag_1 (nr__1) ! (mag) Error in Imag real*8 Xpix_1 (nr__1) ! (pix) The X pixel position (2) real*8 Ypix_1 (nr__1) ! (pix) The Y pixel position (2) character*8 Name_1 (nr__1) ! Other object identification (3) *Note (1): In Simbad, the designations are: * Cl* NGC 288 BPF NNNNN in table1.dat * Cl* NGC 1851 BPF NNNN in table2.dat * Cl* NGC 362 BPF NNNN in table3.dat *Note (2): 1 pix = 0.26" *Note (3): Other object identification: * V# = Cl* NGC AAAA SAW VNN in Simbad e.g. * Cl* NGC 288 Saw VN, RR Lyrae variables found by Kaluzny * (1996A&AS..120...83K) in table1.dat, * Cl* NGC 1851 SAW VNN, RR Lyrae variables in common with Walker * (1998AJ....116..220W) in table2.dat * Cl* NGC 362 SAW VNNN, RR Lyrae variables identified in the * Sawyer-Hogg (1973, updated by C. Clement, 1997, Cat. <V/97>), * in table3.dat * Guo 4110 = A non member star identified in the proper motions database * by Guo (1995, Ph.D. thesis, Yale Univ.); * EHB1 = The extreme HB star identified by Bellazzini & Messineo (1999, * in The Chemical Evolution of the Milky Way: Stars versus * Clusters, ed. F. Matteucci & F. Giovannelli (Dordrecht: * Kluwer), 213). * UIT-# = UV sources identified by the UIT satellite (see Cat. <VI/104>) * PNM = probable non member (only for stars near the HB) according to * Tucholke (1992, Cat. <J/A+AS/93/311>). * MJ #### = Cl* NGC 362 MJ NNNNN, BHB star that is a confirmed member of the * cluster according to Moehler et al. (2000A&A...361..937M). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Photometry of NGC 362 integer*4 nr__2 parameter (nr__2=7492) ! Number of records character*65 ar__2 ! Full-size record integer*4 BPF_2 (nr__2) ! Object identification (1) real*4 Vmag_2 (nr__2) ! (mag) The V band magnitude real*4 e_Vmag_2 (nr__2) ! (mag) Error in Vmag real*4 Imag_2 (nr__2) ! (mag) The I band magnitude real*4 e_Imag_2 (nr__2) ! (mag) Error in Imag real*8 Xpix_2 (nr__2) ! (pix) The X pixel position (2) real*8 Ypix_2 (nr__2) ! (pix) The Y pixel position (2) character*8 Name_2 (nr__2) ! Other object identification (3) *Note (1): In Simbad, the designations are: * Cl* NGC 288 BPF NNNNN in table1.dat * Cl* NGC 1851 BPF NNNN in table2.dat * Cl* NGC 362 BPF NNNN in table3.dat *Note (2): 1 pix = 0.26" *Note (3): Other object identification: * V# = Cl* NGC AAAA SAW VNN in Simbad e.g. * Cl* NGC 288 Saw VN, RR Lyrae variables found by Kaluzny * (1996A&AS..120...83K) in table1.dat, * Cl* NGC 1851 SAW VNN, RR Lyrae variables in common with Walker * (1998AJ....116..220W) in table2.dat * Cl* NGC 362 SAW VNNN, RR Lyrae variables identified in the * Sawyer-Hogg (1973, updated by C. Clement, 1997, Cat. <V/97>), * in table3.dat * Guo 4110 = A non member star identified in the proper motions database * by Guo (1995, Ph.D. thesis, Yale Univ.); * EHB1 = The extreme HB star identified by Bellazzini & Messineo (1999, * in The Chemical Evolution of the Milky Way: Stars versus * Clusters, ed. F. Matteucci & F. Giovannelli (Dordrecht: * Kluwer), 213). * UIT-# = UV sources identified by the UIT satellite (see Cat. <VI/104>) * PNM = probable non member (only for stars near the HB) according to * Tucholke (1992, Cat. <J/A+AS/93/311>). * MJ #### = Cl* NGC 362 MJ NNNNN, BHB star that is a confirmed member of the * cluster according to Moehler et al. (2000A&A...361..937M). C============================================================================= C Loading file 'table1.dat' ! Photometry of NGC 288 C Format for file interpretation 1 format(I5,2X,F6.3,2X,F5.3,2X,F6.3,2X,F5.3,3X,F7.2,2X,F8.2,2X,A8) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,10990 read(1,'(A65)')ar__ read(ar__,1) + BPF(i__),Vmag(i__),e_Vmag(i__),Imag(i__),e_Imag(i__), + Xpix(i__),Ypix(i__),Name(i__) c ..............Just test output........... write(6,1) + BPF(i__),Vmag(i__),e_Vmag(i__),Imag(i__),e_Imag(i__), + Xpix(i__),Ypix(i__),Name(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Photometry of NGC 1851 C Format for file interpretation 2 format(I5,2X,F6.3,2X,F5.3,2X,F6.3,2X,F5.3,3X,F7.2,2X,F8.2,2X,A8) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,9118 read(1,'(A65)')ar__1 read(ar__1,2) + BPF_1(i__),Vmag_1(i__),e_Vmag_1(i__),Imag_1(i__), + e_Imag_1(i__),Xpix_1(i__),Ypix_1(i__),Name_1(i__) c ..............Just test output........... write(6,2) + BPF_1(i__),Vmag_1(i__),e_Vmag_1(i__),Imag_1(i__), + e_Imag_1(i__),Xpix_1(i__),Ypix_1(i__),Name_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Photometry of NGC 362 C Format for file interpretation 3 format(I5,2X,F6.3,2X,F5.3,2X,F6.3,2X,F5.3,3X,F7.2,2X,F8.2,2X,A8) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,7492 read(1,'(A65)')ar__2 read(ar__2,3) + BPF_2(i__),Vmag_2(i__),e_Vmag_2(i__),Imag_2(i__), + e_Imag_2(i__),Xpix_2(i__),Ypix_2(i__),Name_2(i__) c ..............Just test output........... write(6,3) + BPF_2(i__),Vmag_2(i__),e_Vmag_2(i__),Imag_2(i__), + e_Imag_2(i__),Xpix_2(i__),Ypix_2(i__),Name_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end