Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/680/495 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-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/680/495 Survey of Interstellar clouds in the Gould belt (Harvey+, 2008)
*================================================================================
*The Spitzer survey of interstellar clouds in the Gould belt.
*I. IC 5146 observed with IRAC and MIPS.
* Harvey P.M., Huard T.L., Jorgensen J.K., Gutermuth R.A., Mamajek E.E.,
* Bourke T.L., Merin B., Cieza L., Brooke T., Chapman N., Alcala J.M.,
* Allen L.E., Evans Ii N.J., Di Francesco J., Kirk J.M.
* <Astrophys. J., 680, 495-516 (2008)>
* =2008ApJ...680..495H
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! YSO candidates in IC 5146 based on IRAC and MIPS
integer*4 nr__
parameter (nr__=132) ! Number of records
character*123 ar__ ! Full-size record
integer*4 YSO ! Running source number
character*16 SSTgbs ! Source name (HHMMSSss+DDMMSSs) (1)
character*15 Name ! Simbad name
real*8 F3_6 ! (mJy) ? IRAC 3.6um band flux density
real*4 e_F3_6 ! (mJy) ? Uncertainty in F3.6
real*8 F4_5 ! (mJy) ? IRAC 4.5um band flux density
real*4 e_F4_5 ! (mJy) ? Uncertainty in F4.5
real*8 F5_8 ! (mJy) ? IRAC 5.8um band flux density
real*4 e_F5_8 ! (mJy) ? Uncertainty in F5.8
real*8 F8_0 ! (mJy) ? IRAC 8.0um band flux density
real*4 e_F8_0 ! (mJy) ? Uncertainty in F8.0
character*1 l_F24 ! Limit flag on F24 (for table 7 only)
real*8 F24 ! (mJy) ? MIPS 24um band flux density (IRAC in table 5)
real*4 e_F24 ! (mJy) ? Uncertainty in F24 (not for table 7)
integer*4 F70 ! (mJy) ? MIPS 70um band flux density (not for table 7)
integer*4 e_F70 ! (mJy) ? Uncertainty in F70 (not for table 7)
character*1 f_F70 ! [a] a = Flux derived by crude deconvolution
* (for table 5 only)
*Note (1): SSTgbs JHHMMSSss+DDMMSSs in Simbad.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! YSO candidates in IC 5146 based on MIPS/2MASS
integer*4 nr__1
parameter (nr__1=43) ! Number of records
character*123 ar__1 ! Full-size record
integer*4 YSO_1 ! Running source number
character*16 SSTgbs_1 ! Source name (HHMMSSss+DDMMSSs) (1)
character*15 Name_1 ! Simbad name
real*8 F3_6_1 ! (mJy) ? IRAC 3.6um band flux density
real*4 e_F3_6_1 ! (mJy) ? Uncertainty in F3.6
real*8 F4_5_1 ! (mJy) ? IRAC 4.5um band flux density
real*4 e_F4_5_1 ! (mJy) ? Uncertainty in F4.5
real*8 F5_8_1 ! (mJy) ? IRAC 5.8um band flux density
real*4 e_F5_8_1 ! (mJy) ? Uncertainty in F5.8
real*8 F8_0_1 ! (mJy) ? IRAC 8.0um band flux density
real*4 e_F8_0_1 ! (mJy) ? Uncertainty in F8.0
character*1 l_F24_1 ! Limit flag on F24 (for table 7 only)
real*8 F24_1 ! (mJy) ? MIPS 24um band flux density (IRAC in table 5)
real*4 e_F24_1 ! (mJy) ? Uncertainty in F24 (not for table 7)
integer*4 F70_1 ! (mJy) ? MIPS 70um band flux density (not for table 7)
integer*4 e_F70_1 ! (mJy) ? Uncertainty in F70 (not for table 7)
character*1 f_F70_1 ! [a] a = Flux derived by crude deconvolution
* (for table 5 only)
*Note (1): SSTgbs JHHMMSSss+DDMMSSs in Simbad.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! YSO candidates in IC 5146 based on IRAC Only
integer*4 nr__2
parameter (nr__2=27) ! Number of records
character*123 ar__2 ! Full-size record
integer*4 YSO_2 ! Running source number
character*16 SSTgbs_2 ! Source name (HHMMSSss+DDMMSSs) (1)
character*15 Name_2 ! Simbad name
real*8 F3_6_2 ! (mJy) ? IRAC 3.6um band flux density
real*4 e_F3_6_2 ! (mJy) ? Uncertainty in F3.6
real*8 F4_5_2 ! (mJy) ? IRAC 4.5um band flux density
real*4 e_F4_5_2 ! (mJy) ? Uncertainty in F4.5
real*8 F5_8_2 ! (mJy) ? IRAC 5.8um band flux density
real*4 e_F5_8_2 ! (mJy) ? Uncertainty in F5.8
real*8 F8_0_2 ! (mJy) ? IRAC 8.0um band flux density
real*4 e_F8_0_2 ! (mJy) ? Uncertainty in F8.0
character*1 l_F24_2 ! Limit flag on F24 (for table 7 only)
real*8 F24_2 ! (mJy) ? MIPS 24um band flux density (IRAC in table 5)
real*4 e_F24_2 ! (mJy) ? Uncertainty in F24 (not for table 7)
integer*4 F70_2 ! (mJy) ? MIPS 70um band flux density (not for table 7)
integer*4 e_F70_2 ! (mJy) ? Uncertainty in F70 (not for table 7)
character*1 f_F70_2 ! [a] a = Flux derived by crude deconvolution
* (for table 5 only)
*Note (1): SSTgbs JHHMMSSss+DDMMSSs in Simbad.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table9.dat' ! Spitzer matches to Herbig & Dahm (2002,
Cat. J/AJ/123/304) optical sources
integer*4 nr__3
parameter (nr__3=678) ! Number of records
character*112 ar__3 ! Full-size record
integer*4 Seq ! [1/710] Running optical identification
* number (1)
real*4 Off ! (arcsec) ? Optical/IR positional offset
character*16 SSTgbs_3 ! Spitzer source match (HHMMSSss+DDMMSSs) (2)
integer*4 YSO_3 ! ? YSO number given in Tables 5-7
character*1 l_F3_6 ! Limit flag on F3.6
real*8 F3_6_3 ! (mJy) ? IRAC 3.6um band flux density
real*4 e_F3_6_3 ! (mJy) ? Uncertainty in F3.6
character*1 l_F4_5 ! Limit flag on F4.5
real*8 F4_5_3 ! (mJy) ? IRAC 4.5um band flux density
real*4 e_F4_5_3 ! (mJy) ? Uncertainty in F4.5
character*1 l_F5_8 ! Limit flag on F5.8
real*8 F5_8_3 ! (mJy) ? IRAC 5.8um band flux density
real*4 e_F5_8_3 ! (mJy) ? Uncertainty in 5.8Flux
character*1 l_F8_0 ! Limit flag on F8.0
real*8 F8_0_3 ! (mJy) ? IRAC 8.0um band flux density
real*4 e_F8_0_3 ! (mJy) ? Uncertainty in F8.0
character*1 l_F24_3 ! Limit flag on F24
real*8 F24_3 ! (mJy) ? MIPS 24um band flux density
real*4 e_F24_3 ! (mJy) ? Uncertainty in F24
*Note (1): In original table, Objects No. 10, 31, 50, 52, 65, 78, 138, 163,
* 263, 351, 375 and 636 were present, with no data. These have been
* taken off of the table.
*Note (2): SSTgbs JHHMMSSss+DDMMSSs in Simbad.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! Disk modeling results in Class II sources
integer*4 nr__4
parameter (nr__4=86) ! Number of records
character*31 ar__4 ! Full-size record
integer*4 YSO_4 ! Running star identification number
real*4 AV ! (mag) The V band extinction
real*4 logL ! ([solLum]) Log of the luminosity
real*4 disk__ ! The disk to star luminosity ratio
real*4 lam_IR ! (um) Wavelength at which the IR excess begins
real*4 IRexc ! Slope of the IR excess
character*2 SpT ! Spectral type
C=============================================================================
C Loading file 'table5.dat' ! YSO candidates in IC 5146 based on IRAC and MIPS
C Format for file interpretation
1 format(
+ I3,1X,A16,1X,A15,1X,F7.2,1X,F6.2,1X,F7.2,1X,F6.2,1X,F7.2,1X,
+ F5.2,1X,F7.2,1X,F5.2,1X,A1,F7.2,1X,F6.2,1X,I5,1X,I4,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,132
read(1,'(A123)')ar__
read(ar__,1)
+ YSO,SSTgbs,Name,F3_6,e_F3_6,F4_5,e_F4_5,F5_8,e_F5_8,F8_0,
+ e_F8_0,l_F24,F24,e_F24,F70,e_F70,f_F70
if(ar__(38:44) .EQ. '') F3_6 = rNULL__
if(ar__(46:51) .EQ. '') e_F3_6 = rNULL__
if(ar__(53:59) .EQ. '') F4_5 = rNULL__
if(ar__(61:66) .EQ. '') e_F4_5 = rNULL__
if(ar__(68:74) .EQ. '') F5_8 = rNULL__
if(ar__(76:80) .EQ. '') e_F5_8 = rNULL__
if(ar__(82:88) .EQ. '') F8_0 = rNULL__
if(ar__(90:94) .EQ. '') e_F8_0 = rNULL__
if(ar__(97:103) .EQ. '') F24 = rNULL__
if(ar__(105:110) .EQ. '') e_F24 = rNULL__
if(ar__(112:116) .EQ. '') F70 = iNULL__
if(ar__(118:121) .EQ. '') e_F70 = iNULL__
c ..............Just test output...........
write(6,1)
+ YSO,SSTgbs,Name,F3_6,e_F3_6,F4_5,e_F4_5,F5_8,e_F5_8,F8_0,
+ e_F8_0,l_F24,F24,e_F24,F70,e_F70,f_F70
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! YSO candidates in IC 5146 based on MIPS/2MASS
C Format for file interpretation
2 format(
+ I3,1X,A16,1X,A15,1X,F7.2,1X,F6.2,1X,F7.2,1X,F6.2,1X,F7.2,1X,
+ F5.2,1X,F7.2,1X,F5.2,1X,A1,F7.2,1X,F6.2,1X,I5,1X,I4,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,43
read(1,'(A123)')ar__1
read(ar__1,2)
+ YSO_1,SSTgbs_1,Name_1,F3_6_1,e_F3_6_1,F4_5_1,e_F4_5_1,F5_8_1,
+ e_F5_8_1,F8_0_1,e_F8_0_1,l_F24_1,F24_1,e_F24_1,F70_1,e_F70_1,
+ f_F70_1
if(ar__1(38:44) .EQ. '') F3_6_1 = rNULL__
if(ar__1(46:51) .EQ. '') e_F3_6_1 = rNULL__
if(ar__1(53:59) .EQ. '') F4_5_1 = rNULL__
if(ar__1(61:66) .EQ. '') e_F4_5_1 = rNULL__
if(ar__1(68:74) .EQ. '') F5_8_1 = rNULL__
if(ar__1(76:80) .EQ. '') e_F5_8_1 = rNULL__
if(ar__1(82:88) .EQ. '') F8_0_1 = rNULL__
if(ar__1(90:94) .EQ. '') e_F8_0_1 = rNULL__
if(ar__1(97:103) .EQ. '') F24_1 = rNULL__
if(ar__1(105:110) .EQ. '') e_F24_1 = rNULL__
if(ar__1(112:116) .EQ. '') F70_1 = iNULL__
if(ar__1(118:121) .EQ. '') e_F70_1 = iNULL__
c ..............Just test output...........
write(6,2)
+ YSO_1,SSTgbs_1,Name_1,F3_6_1,e_F3_6_1,F4_5_1,e_F4_5_1,F5_8_1,
+ e_F5_8_1,F8_0_1,e_F8_0_1,l_F24_1,F24_1,e_F24_1,F70_1,e_F70_1,
+ f_F70_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! YSO candidates in IC 5146 based on IRAC Only
C Format for file interpretation
3 format(
+ I3,1X,A16,1X,A15,1X,F7.2,1X,F6.2,1X,F7.2,1X,F6.2,1X,F7.2,1X,
+ F5.2,1X,F7.2,1X,F5.2,1X,A1,F7.2,1X,F6.2,1X,I5,1X,I4,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,27
read(1,'(A123)')ar__2
read(ar__2,3)
+ YSO_2,SSTgbs_2,Name_2,F3_6_2,e_F3_6_2,F4_5_2,e_F4_5_2,F5_8_2,
+ e_F5_8_2,F8_0_2,e_F8_0_2,l_F24_2,F24_2,e_F24_2,F70_2,e_F70_2,
+ f_F70_2
if(ar__2(38:44) .EQ. '') F3_6_2 = rNULL__
if(ar__2(46:51) .EQ. '') e_F3_6_2 = rNULL__
if(ar__2(53:59) .EQ. '') F4_5_2 = rNULL__
if(ar__2(61:66) .EQ. '') e_F4_5_2 = rNULL__
if(ar__2(68:74) .EQ. '') F5_8_2 = rNULL__
if(ar__2(76:80) .EQ. '') e_F5_8_2 = rNULL__
if(ar__2(82:88) .EQ. '') F8_0_2 = rNULL__
if(ar__2(90:94) .EQ. '') e_F8_0_2 = rNULL__
if(ar__2(97:103) .EQ. '') F24_2 = rNULL__
if(ar__2(105:110) .EQ. '') e_F24_2 = rNULL__
if(ar__2(112:116) .EQ. '') F70_2 = iNULL__
if(ar__2(118:121) .EQ. '') e_F70_2 = iNULL__
c ..............Just test output...........
write(6,3)
+ YSO_2,SSTgbs_2,Name_2,F3_6_2,e_F3_6_2,F4_5_2,e_F4_5_2,F5_8_2,
+ e_F5_8_2,F8_0_2,e_F8_0_2,l_F24_2,F24_2,e_F24_2,F70_2,e_F70_2,
+ f_F70_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table9.dat' ! Spitzer matches to Herbig & Dahm (2002,
* Cat. J/AJ/123/304) optical sources
C Format for file interpretation
4 format(
+ I3,1X,F3.1,1X,A16,1X,I3,1X,A1,F8.3,1X,F5.3,1X,A1,F8.3,1X,F5.3,
+ 1X,A1,F9.3,1X,F5.3,1X,A1,F9.3,1X,F5.3,1X,A1,F10.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table9.dat')
write(6,*) '....Loading file: table9.dat'
do i__=1,678
read(1,'(A112)')ar__3
read(ar__3,4)
+ Seq,Off,SSTgbs_3,YSO_3,l_F3_6,F3_6_3,e_F3_6_3,l_F4_5,F4_5_3,
+ e_F4_5_3,l_F5_8,F5_8_3,e_F5_8_3,l_F8_0,F8_0_3,e_F8_0_3,
+ l_F24_3,F24_3,e_F24_3
if(ar__3(5:7) .EQ. '') Off = rNULL__
if(ar__3(26:28) .EQ. '') YSO_3 = iNULL__
if(ar__3(31:38) .EQ. '') F3_6_3 = rNULL__
if(ar__3(40:44) .EQ. '') e_F3_6_3 = rNULL__
if(ar__3(47:54) .EQ. '') F4_5_3 = rNULL__
if(ar__3(56:60) .EQ. '') e_F4_5_3 = rNULL__
if(ar__3(63:71) .EQ. '') F5_8_3 = rNULL__
if(ar__3(73:77) .EQ. '') e_F5_8_3 = rNULL__
if(ar__3(80:88) .EQ. '') F8_0_3 = rNULL__
if(ar__3(90:94) .EQ. '') e_F8_0_3 = rNULL__
if(ar__3(97:106) .EQ. '') F24_3 = rNULL__
if(ar__3(108:112) .EQ. '') e_F24_3 = rNULL__
c ..............Just test output...........
write(6,4)
+ Seq,Off,SSTgbs_3,YSO_3,l_F3_6,F3_6_3,e_F3_6_3,l_F4_5,F4_5_3,
+ e_F4_5_3,l_F5_8,F5_8_3,e_F5_8_3,l_F8_0,F8_0_3,e_F8_0_3,
+ l_F24_3,F24_3,e_F24_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! Disk modeling results in Class II sources
C Format for file interpretation
5 format(I3,1X,F4.1,1X,F5.2,1X,F4.2,1X,F3.1,1X,F4.1,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'table10.dat')
write(6,*) '....Loading file: table10.dat'
do i__=1,86
read(1,'(A31)')ar__4
read(ar__4,5)YSO_4,AV,logL,disk__,lam_IR,IRexc,SpT
c ..............Just test output...........
write(6,5)YSO_4,AV,logL,disk__,lam_IR,IRexc,SpT
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end