Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/497/330 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/497/330 Candidate main-sequence stars (Mannings+, 1998)
*================================================================================
*Candidate main-sequence stars with debris disks:
*a new sample of Vega-like sources.
* Mannings V., Barlow M.J.
* <Astrophys. J. 497, 330 (1998)>
* =1998ApJ...497..330M (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Newly identified candidate main-sequence
stars with debris disks
integer*4 nr__
parameter (nr__=73) ! Number of records
character*122 ar__ ! Full-size record
integer*4 Number ! Object number
character*3 n_Number ! [abcdefghij ] Note on Number (1)
integer*4 HD ! HD (Cat. <III/135>) number
integer*4 SAO ! ? SAO (Cat. <I/131>) number
integer*4 HR ! ? HR (Cat. <V/50>) number
character*9 Name ! Object name
character*13 SpType ! Spectral type
integer*4 Fqual ! Quality flag of the IRAS bands
real*4 F12um ! (Jy) FSC (Cat. <II/156>) flux density at 12{mu}m
real*4 e_F12um ! (Jy) rms uncertainty on F12um
real*4 F25um ! (Jy) FSC (Cat. <II/156>) flux density at 25{mu}mm
real*4 e_F25um ! (Jy) rms uncertainty on F25um
real*4 F60um ! (Jy) FSC (Cat. <II/156>) flux density at 60{mu}mm
real*4 e_F60um ! (Jy) rms uncertainty on F60um
real*4 F100um ! (Jy) FSC (Cat. <II/156>) flux density at 100{mu}mm
real*4 e_F100um ! (Jy) rms uncertainty on F100um
real*8 D_12_25__dobs ! Discrepancy for 12{mu}m/25{mu}m ratio (2)
real*8 D_25_60__dobs ! Discrepancy for 25{mu}m/60{mu}m ratio (2)
*Note (1): a: Flagged by SIMBAD as a double or multiple star
* b: Flagged by SIMBAD as a variable star
* c: Has a K4 companion star (Corbally, 1984ApJS...55..657C)
* e: Member of stellar cluster
* f: {lambda} Boo star (e.g., King, 1994MNRAS.269..209K)
* g: Classed as Herbig Ae star by Finkenzeller & Mundt
* (1984A&AS...55..109F)
* h: Located in R CrA star-forming region
* i: Member of Sco-Cen OB association (e.g., de Geus, de Zeeuw, &
* Lub, 1989A&A...216...44D)
* j: Not identified in previous surveys of the IRAS database
*Note (2): Measure of the significance of the discrepancies between the observed
* flux density ratios and the expected photospheric values, as defined
* in eqs. (5) and (6).
* A null entry signifies inadequate data quality
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Michigan Spectral Catalogue Vega-like stars identified
with in our search and in previous studies
integer*4 nr__1
parameter (nr__1=35) ! Number of records
character*122 ar__1 ! Full-size record
integer*4 Number_1 ! Object number
character*3 n_Number_1 ! [abcdefghij ] Note on Number (1)
integer*4 HD_1 ! HD (Cat. <III/135>) number
integer*4 SAO_1 ! ? SAO (Cat. <I/131>) number
integer*4 HR_1 ! ? HR (Cat. <V/50>) number
character*9 Name_1 ! Object name
character*13 SpType_1 ! Spectral type
integer*4 Fqual_1 ! Quality flag of the IRAS bands
real*4 F12um_1 ! (Jy) FSC (Cat. <II/156>) flux density at 12{mu}m
real*4 e_F12um_1 ! (Jy) rms uncertainty on F12um
real*4 F25um_1 ! (Jy) FSC (Cat. <II/156>) flux density at 25{mu}mm
real*4 e_F25um_1 ! (Jy) rms uncertainty on F25um
real*4 F60um_1 ! (Jy) FSC (Cat. <II/156>) flux density at 60{mu}mm
real*4 e_F60um_1 ! (Jy) rms uncertainty on F60um
real*4 F100um_1 ! (Jy) FSC (Cat. <II/156>) flux density at 100{mu}mm
real*4 e_F100um_1 ! (Jy) rms uncertainty on F100um
real*8 D_12_25__dobs_1 ! Discrepancy for 12{mu}m/25{mu}m ratio (2)
real*8 D_25_60__dobs_1 ! Discrepancy for 25{mu}m/60{mu}m ratio (2)
*Note (1): a: Flagged by SIMBAD as a double or multiple star
* b: Flagged by SIMBAD as a variable star
* c: Has a K4 companion star (Corbally, 1984ApJS...55..657C)
* e: Member of stellar cluster
* f: {lambda} Boo star (e.g., King, 1994MNRAS.269..209K)
* g: Classed as Herbig Ae star by Finkenzeller & Mundt
* (1984A&AS...55..109F)
* h: Located in R CrA star-forming region
* i: Member of Sco-Cen OB association (e.g., de Geus, de Zeeuw, &
* Lub, 1989A&A...216...44D)
* j: Not identified in previous surveys of the IRAS database
*Note (2): Measure of the significance of the discrepancies between the observed
* flux density ratios and the expected photospheric values, as defined
* in eqs. (5) and (6).
* A null entry signifies inadequate data quality
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Vega-like candidates with uncertain
luminosity classification
integer*4 nr__2
parameter (nr__2=12) ! Number of records
character*122 ar__2 ! Full-size record
integer*4 Number_2 ! Object number
character*3 n_Number_2 ! [abcdefghij ] Note on Number (1)
integer*4 HD_2 ! HD (Cat. <III/135>) number
integer*4 SAO_2 ! ? SAO (Cat. <I/131>) number
integer*4 HR_2 ! ? HR (Cat. <V/50>) number
character*9 Name_2 ! Object name
character*13 SpType_2 ! Spectral type
integer*4 Fqual_2 ! Quality flag of the IRAS bands
real*4 F12um_2 ! (Jy) FSC (Cat. <II/156>) flux density at 12{mu}m
real*4 e_F12um_2 ! (Jy) rms uncertainty on F12um
real*4 F25um_2 ! (Jy) FSC (Cat. <II/156>) flux density at 25{mu}mm
real*4 e_F25um_2 ! (Jy) rms uncertainty on F25um
real*4 F60um_2 ! (Jy) FSC (Cat. <II/156>) flux density at 60{mu}mm
real*4 e_F60um_2 ! (Jy) rms uncertainty on F60um
real*4 F100um_2 ! (Jy) FSC (Cat. <II/156>) flux density at 100{mu}mm
real*4 e_F100um_2 ! (Jy) rms uncertainty on F100um
real*8 D_12_25__dobs_2 ! Discrepancy for 12{mu}m/25{mu}m ratio (2)
real*8 D_25_60__dobs_2 ! Discrepancy for 25{mu}m/60{mu}m ratio (2)
*Note (1): a: Flagged by SIMBAD as a double or multiple star
* b: Flagged by SIMBAD as a variable star
* c: Has a K4 companion star (Corbally, 1984ApJS...55..657C)
* e: Member of stellar cluster
* f: {lambda} Boo star (e.g., King, 1994MNRAS.269..209K)
* g: Classed as Herbig Ae star by Finkenzeller & Mundt
* (1984A&AS...55..109F)
* h: Located in R CrA star-forming region
* i: Member of Sco-Cen OB association (e.g., de Geus, de Zeeuw, &
* Lub, 1989A&A...216...44D)
* j: Not identified in previous surveys of the IRAS database
*Note (2): Measure of the significance of the discrepancies between the observed
* flux density ratios and the expected photospheric values, as defined
* in eqs. (5) and (6).
* A null entry signifies inadequate data quality
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Classical Be stars extracted during our search
for Vega-like sources
integer*4 nr__3
parameter (nr__3=21) ! Number of records
character*122 ar__3 ! Full-size record
integer*4 Number_3 ! Object number
character*3 n_Number_3 ! [abcdefghij ] Note on Number (1)
integer*4 HD_3 ! HD (Cat. <III/135>) number
integer*4 SAO_3 ! ? SAO (Cat. <I/131>) number
integer*4 HR_3 ! ? HR (Cat. <V/50>) number
character*9 Name_3 ! Object name
character*13 SpType_3 ! Spectral type
integer*4 Fqual_3 ! Quality flag of the IRAS bands
real*4 F12um_3 ! (Jy) FSC (Cat. <II/156>) flux density at 12{mu}m
real*4 e_F12um_3 ! (Jy) rms uncertainty on F12um
real*4 F25um_3 ! (Jy) FSC (Cat. <II/156>) flux density at 25{mu}mm
real*4 e_F25um_3 ! (Jy) rms uncertainty on F25um
real*4 F60um_3 ! (Jy) FSC (Cat. <II/156>) flux density at 60{mu}mm
real*4 e_F60um_3 ! (Jy) rms uncertainty on F60um
real*4 F100um_3 ! (Jy) FSC (Cat. <II/156>) flux density at 100{mu}mm
real*4 e_F100um_3 ! (Jy) rms uncertainty on F100um
real*8 D_12_25__dobs_3 ! Discrepancy for 12{mu}m/25{mu}m ratio (2)
real*8 D_25_60__dobs_3 ! Discrepancy for 25{mu}m/60{mu}m ratio (2)
*Note (1): a: Flagged by SIMBAD as a double or multiple star
* b: Flagged by SIMBAD as a variable star
* c: Has a K4 companion star (Corbally, 1984ApJS...55..657C)
* e: Member of stellar cluster
* f: {lambda} Boo star (e.g., King, 1994MNRAS.269..209K)
* g: Classed as Herbig Ae star by Finkenzeller & Mundt
* (1984A&AS...55..109F)
* h: Located in R CrA star-forming region
* i: Member of Sco-Cen OB association (e.g., de Geus, de Zeeuw, &
* Lub, 1989A&A...216...44D)
* j: Not identified in previous surveys of the IRAS database
*Note (2): Measure of the significance of the discrepancies between the observed
* flux density ratios and the expected photospheric values, as defined
* in eqs. (5) and (6).
* A null entry signifies inadequate data quality
C=============================================================================
C Loading file 'table2.dat' ! Newly identified candidate main-sequence
* stars with debris disks
C Format for file interpretation
1 format(
+ I2,A3,1X,I6,1X,I6,1X,I4,1X,A9,1X,A13,1X,I4,1X,F6.3,1X,F5.3,1X,
+ F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F7.2,1X,F7.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,73
read(1,'(A122)')ar__
read(ar__,1)
+ Number,n_Number,HD,SAO,HR,Name,SpType,Fqual,F12um,e_F12um,
+ F25um,e_F25um,F60um,e_F60um,F100um,e_F100um,D_12_25__dobs,
+ D_25_60__dobs
if(ar__(14:19) .EQ. '') SAO = iNULL__
if(ar__(21:24) .EQ. '') HR = iNULL__
c ..............Just test output...........
write(6,1)
+ Number,n_Number,HD,SAO,HR,Name,SpType,Fqual,F12um,e_F12um,
+ F25um,e_F25um,F60um,e_F60um,F100um,e_F100um,D_12_25__dobs,
+ D_25_60__dobs
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Michigan Spectral Catalogue Vega-like stars identified
* with in our search and in previous studies
C Format for file interpretation
2 format(
+ I2,A3,1X,I6,1X,I6,1X,I4,1X,A9,1X,A13,1X,I4,1X,F6.3,1X,F5.3,1X,
+ F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F7.2,1X,F7.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,35
read(1,'(A122)')ar__1
read(ar__1,2)
+ Number_1,n_Number_1,HD_1,SAO_1,HR_1,Name_1,SpType_1,Fqual_1,
+ F12um_1,e_F12um_1,F25um_1,e_F25um_1,F60um_1,e_F60um_1,
+ F100um_1,e_F100um_1,D_12_25__dobs_1,D_25_60__dobs_1
if(ar__1(14:19) .EQ. '') SAO_1 = iNULL__
if(ar__1(21:24) .EQ. '') HR_1 = iNULL__
c ..............Just test output...........
write(6,2)
+ Number_1,n_Number_1,HD_1,SAO_1,HR_1,Name_1,SpType_1,Fqual_1,
+ F12um_1,e_F12um_1,F25um_1,e_F25um_1,F60um_1,e_F60um_1,
+ F100um_1,e_F100um_1,D_12_25__dobs_1,D_25_60__dobs_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Vega-like candidates with uncertain
* luminosity classification
C Format for file interpretation
3 format(
+ I2,A3,1X,I6,1X,I6,1X,I4,1X,A9,1X,A13,1X,I4,1X,F6.3,1X,F5.3,1X,
+ F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F7.2,1X,F7.2)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,12
read(1,'(A122)')ar__2
read(ar__2,3)
+ Number_2,n_Number_2,HD_2,SAO_2,HR_2,Name_2,SpType_2,Fqual_2,
+ F12um_2,e_F12um_2,F25um_2,e_F25um_2,F60um_2,e_F60um_2,
+ F100um_2,e_F100um_2,D_12_25__dobs_2,D_25_60__dobs_2
if(ar__2(14:19) .EQ. '') SAO_2 = iNULL__
if(ar__2(21:24) .EQ. '') HR_2 = iNULL__
c ..............Just test output...........
write(6,3)
+ Number_2,n_Number_2,HD_2,SAO_2,HR_2,Name_2,SpType_2,Fqual_2,
+ F12um_2,e_F12um_2,F25um_2,e_F25um_2,F60um_2,e_F60um_2,
+ F100um_2,e_F100um_2,D_12_25__dobs_2,D_25_60__dobs_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Classical Be stars extracted during our search
* for Vega-like sources
C Format for file interpretation
4 format(
+ I2,A3,1X,I6,1X,I6,1X,I4,1X,A9,1X,A13,1X,I4,1X,F6.3,1X,F5.3,1X,
+ F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F6.3,1X,F7.2,1X,F7.2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,21
read(1,'(A122)')ar__3
read(ar__3,4)
+ Number_3,n_Number_3,HD_3,SAO_3,HR_3,Name_3,SpType_3,Fqual_3,
+ F12um_3,e_F12um_3,F25um_3,e_F25um_3,F60um_3,e_F60um_3,
+ F100um_3,e_F100um_3,D_12_25__dobs_3,D_25_60__dobs_3
if(ar__3(14:19) .EQ. '') SAO_3 = iNULL__
if(ar__3(21:24) .EQ. '') HR_3 = iNULL__
c ..............Just test output...........
write(6,4)
+ Number_3,n_Number_3,HD_3,SAO_3,HR_3,Name_3,SpType_3,Fqual_3,
+ F12um_3,e_F12um_3,F25um_3,e_F25um_3,F60um_3,e_F60um_3,
+ F100um_3,e_F100um_3,D_12_25__dobs_3,D_25_60__dobs_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end