Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/662/1067 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-19 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/ApJ/662/1067 Spitzer observations of sigma Orionis (Hernandez+, 2007) *================================================================================ *A Spitzer Space Telescope study of disks in the young {sigma} Orionis cluster. * Hernandez J., Hartmann L., Megeath T., Gutermuth R., Muzerolle J., * Calvet N., Vivas A.K., Briceno C., Allen L., Stauffer J., Young E., * Fazio G. * <Astrophys. J., 662, 1067-1081 (2007)> * =2007ApJ...662.1067H C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Members of the {sigma} Orionis Cluster integer*4 nr__ parameter (nr__=336) ! Number of records character*117 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 v_HHM2007_ (nr__) ! Identification number real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000) real*4 v3_6mag (nr__) ! (mag) Spitzer/IRAC 3.6 micron band magnitude real*4 e_3_6mag (nr__) ! (mag) Uncertainty in 3.6mag real*4 v4_5mag (nr__) ! (mag) Spitzer/IRAC 4.5 micron band magnitude real*4 e_4_5mag (nr__) ! (mag) Uncertainty in 4.5mag real*4 v5_8mag (nr__) ! (mag) Spitzer/IRAC 5.8 micron band magnitude real*4 e_5_8mag (nr__) ! (mag) Uncertainty in 5.8mag real*4 v8_0mag (nr__) ! (mag) Spitzer/IRAC 8.0 micron band magnitude real*4 e_8_0mag (nr__) ! (mag) Uncertainty in 8.0mag real*4 v24mag (nr__) ! (mag) ? Spitzer/MIPS 24.0 micron band magnitude real*4 e_24mag (nr__) ! (mag) ? Uncertainty in 24.0mag real*4 Vmag (nr__) ! (mag) ? The V band magnitude (only for table1) real*4 e_Vmag (nr__) ! (mag) ? Uncertainty in Vmag (only for table1) character*1 r_Vmag (nr__) ! Reference (only for table1) (1) integer*4 V (nr__) ! [0/1]? 1=variable, 0=non-variable (table1 only) integer*4 X (nr__) ! [0/1]? 1=X-ray emission (able1 only) character*6 Disk (nr__) ! Disk classification (4) integer*4 f_Disk (nr__) ! [1/6]? Discrepancy in disk classification (5) character*13 Refs (nr__) ! Known member reference(s) (only for table1) (1) *Note (1): References as follows: * q = CIDA survey * 1 = Barrado y Navascues et al. (2003A&A...404..171B) * 2 = Bejar et al. (1999ApJ...521..671B) * 3 = Bejar et al. (2001ApJ...556..830B) * 4 = Bejar et al. (2004, Cat. J/AN/325/705) * 5 = Burningham et al. (2005, Cat. J/MNRAS/356/1583) * 6 = Kenyon et al. (2005, Cat. J/MNRAS/356/89) * 7 = Kharchenko et al. (2004, Cat. J/AN/325/740) * 8 = Oliveira et al. (2006MNRAS.369..272O) * 9 = Sherry et al. (2004, Cat. J/AJ/128/2316) * 10 = Scholz & Eisloffel (2004, Cat. J/A+A/419/249) * 11 = Zapatero Osorio et al. (2002A&A...384..937Z) * 12 = Jeffries et al. (2006MNRAS.371L...6J) *Note (4): Disk class as follows: * III = diskless * II = thick disk * I = class I candidate * EV = evolved disk * TD = transition disk candidate * DD = Debris disk candidate *Note (5): Flag on Disk as follows: * 1 = Classified as III in Sect. 4.2 (systems have essentially no * inner disk emission, with {alpha}<-2.56) * 2 = Classified as EV in Sect. 4.2 (evolved disks, -2.56<~{alpha}<-1.8) * 3 = Classified as II in Sect. 4.2 (systems with {alpha}<0) * 4 = Classified as I in Sect. 4.2 (systems with {alpha}>0) * 5 = Possible giant in the J-H versus H-K color-color diagram. * 6 = Radial velocity consistent for stars in the older * population (Jeffries et al., 2006MNRAS.371L...6J) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Uncertain members of the {sigma} Orionis Cluster integer*4 nr__1 parameter (nr__1=133) ! Number of records character*117 ar__1 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 v_HHM2007__1(nr__1) ! Identification number real*8 RAdeg_1 (nr__1) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_1 (nr__1) ! (deg) Declination in decimal degrees (J2000) real*4 v3_6mag_1 (nr__1) ! (mag) Spitzer/IRAC 3.6 micron band magnitude real*4 e_3_6mag_1 (nr__1) ! (mag) Uncertainty in 3.6mag real*4 v4_5mag_1 (nr__1) ! (mag) Spitzer/IRAC 4.5 micron band magnitude real*4 e_4_5mag_1 (nr__1) ! (mag) Uncertainty in 4.5mag real*4 v5_8mag_1 (nr__1) ! (mag) Spitzer/IRAC 5.8 micron band magnitude real*4 e_5_8mag_1 (nr__1) ! (mag) Uncertainty in 5.8mag real*4 v8_0mag_1 (nr__1) ! (mag) Spitzer/IRAC 8.0 micron band magnitude real*4 e_8_0mag_1 (nr__1) ! (mag) Uncertainty in 8.0mag real*4 v24mag_1 (nr__1) ! (mag) ? Spitzer/MIPS 24.0 micron band magnitude real*4 e_24mag_1 (nr__1) ! (mag) ? Uncertainty in 24.0mag real*4 Vmag_1 (nr__1) ! (mag) ? The V band magnitude (only for table1) real*4 e_Vmag_1 (nr__1) ! (mag) ? Uncertainty in Vmag (only for table1) character*1 r_Vmag_1 (nr__1) ! Reference (only for table1) (1) integer*4 V_1 (nr__1) ! [0/1]? 1=variable, 0=non-variable (table1 only) integer*4 X_1 (nr__1) ! [0/1]? 1=X-ray emission (able1 only) character*6 Disk_1 (nr__1) ! Disk classification (4) integer*4 f_Disk_1 (nr__1) ! [1/6]? Discrepancy in disk classification (5) character*13 Refs_1 (nr__1) ! Known member reference(s) (only for table1) (1) *Note (1): References as follows: * q = CIDA survey * 1 = Barrado y Navascues et al. (2003A&A...404..171B) * 2 = Bejar et al. (1999ApJ...521..671B) * 3 = Bejar et al. (2001ApJ...556..830B) * 4 = Bejar et al. (2004, Cat. J/AN/325/705) * 5 = Burningham et al. (2005, Cat. J/MNRAS/356/1583) * 6 = Kenyon et al. (2005, Cat. J/MNRAS/356/89) * 7 = Kharchenko et al. (2004, Cat. J/AN/325/740) * 8 = Oliveira et al. (2006MNRAS.369..272O) * 9 = Sherry et al. (2004, Cat. J/AJ/128/2316) * 10 = Scholz & Eisloffel (2004, Cat. J/A+A/419/249) * 11 = Zapatero Osorio et al. (2002A&A...384..937Z) * 12 = Jeffries et al. (2006MNRAS.371L...6J) *Note (4): Disk class as follows: * III = diskless * II = thick disk * I = class I candidate * EV = evolved disk * TD = transition disk candidate * DD = Debris disk candidate *Note (5): Flag on Disk as follows: * 1 = Classified as III in Sect. 4.2 (systems have essentially no * inner disk emission, with {alpha}<-2.56) * 2 = Classified as EV in Sect. 4.2 (evolved disks, -2.56<~{alpha}<-1.8) * 3 = Classified as II in Sect. 4.2 (systems with {alpha}<0) * 4 = Classified as I in Sect. 4.2 (systems with {alpha}>0) * 5 = Possible giant in the J-H versus H-K color-color diagram. * 6 = Radial velocity consistent for stars in the older * population (Jeffries et al., 2006MNRAS.371L...6J) C============================================================================= C Loading file 'table1.dat' ! Members of the {sigma} Orionis Cluster C Format for file interpretation 1 format( + I4,1X,F8.5,1X,F8.5,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X, + F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,A1,1X, + I1,1X,I1,1X,A6,1X,I1,1X,A13) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,336 read(1,'(A117)')ar__ read(ar__,1) + v_HHM2007_(i__),RAdeg(i__),DEdeg(i__),v3_6mag(i__), + e_3_6mag(i__),v4_5mag(i__),e_4_5mag(i__),v5_8mag(i__), + e_5_8mag(i__),v8_0mag(i__),e_8_0mag(i__),v24mag(i__), + e_24mag(i__),Vmag(i__),e_Vmag(i__),r_Vmag(i__),V(i__),X(i__), + Disk(i__),f_Disk(i__),Refs(i__) if(ar__(68:72) .EQ. '') v24mag(i__) = rNULL__ if(ar__(74:77) .EQ. '') e_24mag(i__) = rNULL__ if(ar__(79:83) .EQ. '') Vmag(i__) = rNULL__ if(ar__(85:88) .EQ. '') e_Vmag(i__) = rNULL__ if(ar__(92:92) .EQ. '') V(i__) = iNULL__ if(ar__(94:94) .EQ. '') X(i__) = iNULL__ if(ar__(103:103) .EQ. '') f_Disk(i__) = iNULL__ c ..............Just test output........... write(6,1) + v_HHM2007_(i__),RAdeg(i__),DEdeg(i__),v3_6mag(i__), + e_3_6mag(i__),v4_5mag(i__),e_4_5mag(i__),v5_8mag(i__), + e_5_8mag(i__),v8_0mag(i__),e_8_0mag(i__),v24mag(i__), + e_24mag(i__),Vmag(i__),e_Vmag(i__),r_Vmag(i__),V(i__),X(i__), + Disk(i__),f_Disk(i__),Refs(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Uncertain members of the {sigma} Orionis Cluster C Format for file interpretation 2 format( + I4,1X,F8.5,1X,F8.5,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X, + F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,A1,1X, + I1,1X,I1,1X,A6,1X,I1,1X,A13) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,133 read(1,'(A117)')ar__1 read(ar__1,2) + v_HHM2007__1(i__),RAdeg_1(i__),DEdeg_1(i__),v3_6mag_1(i__), + e_3_6mag_1(i__),v4_5mag_1(i__),e_4_5mag_1(i__),v5_8mag_1(i__), + e_5_8mag_1(i__),v8_0mag_1(i__),e_8_0mag_1(i__),v24mag_1(i__), + e_24mag_1(i__),Vmag_1(i__),e_Vmag_1(i__),r_Vmag_1(i__), + V_1(i__),X_1(i__),Disk_1(i__),f_Disk_1(i__),Refs_1(i__) if(ar__1(68:72) .EQ. '') v24mag_1(i__) = rNULL__ if(ar__1(74:77) .EQ. '') e_24mag_1(i__) = rNULL__ if(ar__1(79:83) .EQ. '') Vmag_1(i__) = rNULL__ if(ar__1(85:88) .EQ. '') e_Vmag_1(i__) = rNULL__ if(ar__1(92:92) .EQ. '') V_1(i__) = iNULL__ if(ar__1(94:94) .EQ. '') X_1(i__) = iNULL__ if(ar__1(103:103) .EQ. '') f_Disk_1(i__) = iNULL__ c ..............Just test output........... write(6,2) + v_HHM2007__1(i__),RAdeg_1(i__),DEdeg_1(i__),v3_6mag_1(i__), + e_3_6mag_1(i__),v4_5mag_1(i__),e_4_5mag_1(i__),v5_8mag_1(i__), + e_5_8mag_1(i__),v8_0mag_1(i__),e_8_0mag_1(i__),v24mag_1(i__), + e_24mag_1(i__),Vmag_1(i__),e_Vmag_1(i__),r_Vmag_1(i__), + V_1(i__),X_1(i__),Disk_1(i__),f_Disk_1(i__),Refs_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end