Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/662/1067 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-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/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_ ! Identification number
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000)
real*4 v3_6mag ! (mag) Spitzer/IRAC 3.6 micron band magnitude
real*4 e_3_6mag ! (mag) Uncertainty in 3.6mag
real*4 v4_5mag ! (mag) Spitzer/IRAC 4.5 micron band magnitude
real*4 e_4_5mag ! (mag) Uncertainty in 4.5mag
real*4 v5_8mag ! (mag) Spitzer/IRAC 5.8 micron band magnitude
real*4 e_5_8mag ! (mag) Uncertainty in 5.8mag
real*4 v8_0mag ! (mag) Spitzer/IRAC 8.0 micron band magnitude
real*4 e_8_0mag ! (mag) Uncertainty in 8.0mag
real*4 v24mag ! (mag) ? Spitzer/MIPS 24.0 micron band magnitude
real*4 e_24mag ! (mag) ? Uncertainty in 24.0mag
real*4 Vmag ! (mag) ? The V band magnitude (only for table1)
real*4 e_Vmag ! (mag) ? Uncertainty in Vmag (only for table1)
character*1 r_Vmag ! Reference (only for table1) (1)
integer*4 V ! [0/1]? 1=variable, 0=non-variable (table1 only)
integer*4 X ! [0/1]? 1=X-ray emission (able1 only)
character*6 Disk ! Disk classification (4)
integer*4 f_Disk ! [1/6]? Discrepancy in disk classification (5)
character*13 Refs ! 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 ! Identification number
real*8 RAdeg_1 ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg_1 ! (deg) Declination in decimal degrees (J2000)
real*4 v3_6mag_1 ! (mag) Spitzer/IRAC 3.6 micron band magnitude
real*4 e_3_6mag_1 ! (mag) Uncertainty in 3.6mag
real*4 v4_5mag_1 ! (mag) Spitzer/IRAC 4.5 micron band magnitude
real*4 e_4_5mag_1 ! (mag) Uncertainty in 4.5mag
real*4 v5_8mag_1 ! (mag) Spitzer/IRAC 5.8 micron band magnitude
real*4 e_5_8mag_1 ! (mag) Uncertainty in 5.8mag
real*4 v8_0mag_1 ! (mag) Spitzer/IRAC 8.0 micron band magnitude
real*4 e_8_0mag_1 ! (mag) Uncertainty in 8.0mag
real*4 v24mag_1 ! (mag) ? Spitzer/MIPS 24.0 micron band magnitude
real*4 e_24mag_1 ! (mag) ? Uncertainty in 24.0mag
real*4 Vmag_1 ! (mag) ? The V band magnitude (only for table1)
real*4 e_Vmag_1 ! (mag) ? Uncertainty in Vmag (only for table1)
character*1 r_Vmag_1 ! Reference (only for table1) (1)
integer*4 V_1 ! [0/1]? 1=variable, 0=non-variable (table1 only)
integer*4 X_1 ! [0/1]? 1=X-ray emission (able1 only)
character*6 Disk_1 ! Disk classification (4)
integer*4 f_Disk_1 ! [1/6]? Discrepancy in disk classification (5)
character*13 Refs_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_,RAdeg,DEdeg,v3_6mag,e_3_6mag,v4_5mag,e_4_5mag,
+ v5_8mag,e_5_8mag,v8_0mag,e_8_0mag,v24mag,e_24mag,Vmag,e_Vmag,
+ r_Vmag,V,X,Disk,f_Disk,Refs
if(ar__(68:72) .EQ. '') v24mag = rNULL__
if(ar__(74:77) .EQ. '') e_24mag = rNULL__
if(ar__(79:83) .EQ. '') Vmag = rNULL__
if(ar__(85:88) .EQ. '') e_Vmag = rNULL__
if(ar__(92:92) .EQ. '') V = iNULL__
if(ar__(94:94) .EQ. '') X = iNULL__
if(ar__(103:103) .EQ. '') f_Disk = iNULL__
c ..............Just test output...........
write(6,1)
+ v_HHM2007_,RAdeg,DEdeg,v3_6mag,e_3_6mag,v4_5mag,e_4_5mag,
+ v5_8mag,e_5_8mag,v8_0mag,e_8_0mag,v24mag,e_24mag,Vmag,e_Vmag,
+ r_Vmag,V,X,Disk,f_Disk,Refs
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,RAdeg_1,DEdeg_1,v3_6mag_1,e_3_6mag_1,v4_5mag_1,
+ e_4_5mag_1,v5_8mag_1,e_5_8mag_1,v8_0mag_1,e_8_0mag_1,v24mag_1,
+ e_24mag_1,Vmag_1,e_Vmag_1,r_Vmag_1,V_1,X_1,Disk_1,f_Disk_1,
+ Refs_1
if(ar__1(68:72) .EQ. '') v24mag_1 = rNULL__
if(ar__1(74:77) .EQ. '') e_24mag_1 = rNULL__
if(ar__1(79:83) .EQ. '') Vmag_1 = rNULL__
if(ar__1(85:88) .EQ. '') e_Vmag_1 = rNULL__
if(ar__1(92:92) .EQ. '') V_1 = iNULL__
if(ar__1(94:94) .EQ. '') X_1 = iNULL__
if(ar__1(103:103) .EQ. '') f_Disk_1 = iNULL__
c ..............Just test output...........
write(6,2)
+ v_HHM2007__1,RAdeg_1,DEdeg_1,v3_6mag_1,e_3_6mag_1,v4_5mag_1,
+ e_4_5mag_1,v5_8mag_1,e_5_8mag_1,v8_0mag_1,e_8_0mag_1,v24mag_1,
+ e_24mag_1,Vmag_1,e_Vmag_1,r_Vmag_1,V_1,X_1,Disk_1,f_Disk_1,
+ Refs_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end