Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/653/675 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/653/675 Spitzer 24{mu}m photometry of A dwarfs (Su+, 2006)
*================================================================================
*Debris disk evolution around A stars.
* Su K.Y.L., Rieke G.H., Stansberry J.A., Bryden G., Stapelfeldt K.R.,
* Trilling D.E., Muzerolle J., Beichman C.A., Moro-Martin A., Hines D.C.,
* Werner M.W.
* <Astrophys. J., 653, 675-689 (2006)>
* =2006ApJ...653..675S
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Sample of stars and MIPS measurements
integer*4 nr__
parameter (nr__=160) ! Number of records
character*158 ar__ ! Full-size record
character*8 Name ! Source name
character*1 n_Name ! [de] Note: d = Herbig Ae/Be star, x = Be star
character*33 AOR ! The Spitzer observation AOR key(s)
character*8 SpType ! MK spectral type
real*4 Dist ! (pc) Distance
character*11 Loc ! The Cluster/Moving Group source locate in
integer*4 Age ! (Myr) Source age (2)
character*1 n_Age ! [f] Young star (2)
character*8 r_Age ! Reference(s) on Age, in refs.dat file
real*8 F24 ! (mJy) ? Spitzer/MIPS 24 micron flux density
real*4 e_F24 ! (mJy) ? Uncertainty in F24um
real*4 S_N24 ! ? Signal-to-noise ratio of F24um
real*8 R24 ! ? The 24 micron Excess Ratio (4)
character*3 IRE24 ! Infrared excess at 24 microns? (5)
character*1 n_IRE24 ! [s] star disregarded having 24um excess due
* to low excess significance ({chi}_24_<3)
character*1 l_F70 ! The 3{sigma} limit flag on F70um
real*8 F70 ! (mJy) ? Spitzer/MIPS 70 micron flux density
real*8 e_F70 ! (mJy) ? Uncertainty in F70um
real*4 S_N70 ! ? Signal-to-noise ratio of F70um
real*8 R70 ! ? The 70 micron Excess Ratio (4)
character*3 IRE70 ! Infrared excess at 70 microns? (5)
*Note (2): Age is set to 0 for the young stars that are below the ZAMS
* on the Herzsprung-Russel diagram
*Note (4): Ratio of measured flux density to expected photospheric flux density.
*Note (5): IR excess is classified using the 3-{sigma} criteria excess
* higher than 1.06 at 24um and 1.55 at 70um:
* YES = having an infrared excess
* NO = being detected but with no excess above the 3{sigma} confidence level
* UPL = having only an upper limit.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Information on the additional IRAS stars
integer*4 nr__1
parameter (nr__1=19) ! Number of records
character*65 ar__1 ! Full-size record
character*8 Name_1 ! Name
real*4 Ksmag ! (mag) 2MASS Ks magnitude
integer*4 Age_1 ! (Myr) Age (1)
character*6 SpType_1 ! MK spectral type
real*4 F25 ! (Jy) Flux at 25um
real*4 R25 ! Ratio between measured flux and predicted flux
* based on Ks-[24]color at 25um
real*4 F60 ! (Jy) Flux at 60um
real*4 R60 ! Ratio between measured flux and predicted flux
* based on Ks-[24]color at 60um
real*4 e_R60 ! rms uncertainty on R60um
real*4 chi60 ! Significance of excess emission at 60um, i.e.
* (R60um-1)/e_R60um
real*4 U60 ! 2{sigma} upper limit on R60um, i.e.,
* R60+2e_R60um
*Note (1): Reference for age used can be found in Rieke et al.
* (2005, Cat. J/ApJ/620/1010).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References
integer*4 nr__2
parameter (nr__2=23) ! Number of records
character*42 ar__2 ! Full-size record
integer*4 Ref ! Reference number
character*19 BibCode ! BibCode
character*19 Aut ! Author's name
C=============================================================================
C Loading file 'table1.dat' ! Sample of stars and MIPS measurements
C Format for file interpretation
1 format(
+ A8,1X,A1,1X,A33,A8,1X,F5.1,1X,A11,1X,I3,1X,A1,1X,A8,1X,F7.2,
+ 1X,F6.2,1X,F6.2,1X,F7.3,1X,A3,1X,A1,1X,A1,F8.2,1X,F7.2,1X,
+ F6.2,1X,F7.3,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,160
read(1,'(A158)')ar__
read(ar__,1)
+ Name,n_Name,AOR,SpType,Dist,Loc,Age,n_Age,r_Age,F24,e_F24,
+ S_N24,R24,IRE24,n_IRE24,l_F70,F70,e_F70,S_N70,R70,IRE70
if(ar__(87:93) .EQ. '') F24 = rNULL__
if(ar__(95:100) .EQ. '') e_F24 = rNULL__
if(ar__(102:107) .EQ. '') S_N24 = rNULL__
if(ar__(109:115) .EQ. '') R24 = rNULL__
if(ar__(124:131) .EQ. '') F70 = rNULL__
if(ar__(133:139) .EQ. '') e_F70 = rNULL__
if(ar__(141:146) .EQ. '') S_N70 = rNULL__
if(ar__(148:154) .EQ. '') R70 = rNULL__
c ..............Just test output...........
write(6,1)
+ Name,n_Name,AOR,SpType,Dist,Loc,Age,n_Age,r_Age,F24,e_F24,
+ S_N24,R24,IRE24,n_IRE24,l_F70,F70,e_F70,S_N70,R70,IRE70
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Information on the additional IRAS stars
C Format for file interpretation
2 format(
+ A8,1X,F4.2,1X,I3,1X,A6,2X,F5.3,1X,F5.3,1X,F5.3,1X,F5.2,1X,
+ F4.2,1X,F4.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,19
read(1,'(A65)')ar__1
read(ar__1,2)
+ Name_1,Ksmag,Age_1,SpType_1,F25,R25,F60,R60,e_R60,chi60,U60
c ..............Just test output...........
write(6,2)
+ Name_1,Ksmag,Age_1,SpType_1,F25,R25,F60,R60,e_R60,chi60,U60
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References
C Format for file interpretation
3 format(I2,1X,A19,1X,A19)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,23
read(1,'(A42)')ar__2
read(ar__2,3)Ref,BibCode,Aut
c ..............Just test output...........
write(6,3)Ref,BibCode,Aut
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end