Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/139/135 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 2026-May-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/A+AS/139/135 The Optical Spectrum of RR Tel (Crawford+ 1999)
*================================================================================
*Line identifications and intensities for the optical spectrum of
*RR Telescopii between 3180 and 9455 {AA}
* Crawford F.L., McKenna F.C., Keenan F.P., Aller L.H., Feibelman W.A.,
* Ryan S.G.
* <Astron. Astrophys. Suppl. Ser. 139, 135 (1999)>
* =1999A&AS..139..135C
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Line list for RR Telescopii, with absolute flux
calibrated intensities shown, for the
wavelength range 3490 - 5530{AA}
integer*4 nr__
parameter (nr__=643) ! Number of records
character*50 ar__ ! Full-size record
real*8 LambdaMea (nr__) ! (0.1nm) Measured wavelength
integer*4 DeltaV (nr__) ! (km/s) Velocity FWHM
character*1 n_DeltaV (nr__) ! [h] Note on DeltaV (2)
real*4 Int (nr__) ! (10-12mW/m2) Measured intensity
real*4 Intc (nr__) ! (10-12mW/m2) Corrected intensity (1)
character*1 n_Intc (nr__) ! [efgkl] Note on Intc (2)
character*8 Line (nr__) ! Identity of line
character*1 n_Line (nr__) ! [j] Note on line (3)
real*8 LambdaLab (nr__) ! (0.1nm) Laboratory wavelength
character*1 n_LambdaLab(nr__) ! [bcgi] Note on labLam (2)
integer*4 Mult (nr__) ! ? Multiplet number
character*1 F (nr__) ! [F] F: forbidden line
*Note (1): Measured intensities corrected for interstellar extinction using
* E(B-V) = 0.08 (Jordan, Murset & Werner 1994A&A...283..475J)
*Note (2): a: Measured intensities corrected for interstellar extinction using
* E(B-V)=0.08.
* b: Observed in the spectrum of a gaseous nebula (see McKenna et al.,
* 1997ApJS..109..225M).
* c: Observed in the spectrum of eta Car (see McKenna et al.,
* 1997ApJS..109..225M).
* d: In the case where more than one identification is listed for a
* given line, the first is taken to be the primary contributor to
* the blend.
* e: The estimated error in the line intensity is between 15 and 40%.
* k: The estimated error in the line intensity is between 20 and 40%.
* f: The estimated error in the line intensity is greater than 40%.
* g: It is possible that there may be some OVI at 3811.36 and
* 3834.24{AA}, but with the current data this is not definite.
* l: This HeII line is blended and so could not be used for calibration
* using line intensity ratios.
* h: There are several lines very close together here which could not be
* individually resolved, and so they are given as one line.
* i: These very wide features appear to be the Raman-scattered OVI lines
* at 6825 and 7082 {AA}, as shown by Espey et al.
* (1995ApJ...454L..61).
*Note (3): j: The intrinsically stronger [NeV] line at 3426 is not detected, as
* it falls in a region between echelle orders.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Line list for RR Telescopii, in the wavelength
range 3183 - 3488{AA} and 5550 - 9456{AA}, with
intensities flux calibrated using the HeII
recombination line ratios of Hummer and Storey
(1987MNRAS.224..801H) and Storey and Hummer
(1995MNRAS.272...41S)
integer*4 nr__1
parameter (nr__1=235) ! Number of records
character*50 ar__1 ! Full-size record
real*8 LambdaMea_1(nr__1) ! (0.1nm) Measured wavelength
integer*4 DeltaV_1 (nr__1) ! (km/s) Velocity FWHM
character*1 n_DeltaV_1 (nr__1) ! [h] Note on DeltaV (2)
real*4 Int_1 (nr__1) ! (10-12mW/m2) Measured intensity
real*4 Intc_1 (nr__1) ! (10-12mW/m2) Corrected intensity (1)
character*1 n_Intc_1 (nr__1) ! [efgkl] Note on Intc (2)
character*8 Line_1 (nr__1) ! Identity of line
character*1 n_Line_1 (nr__1) ! [j] Note on line (3)
real*8 LambdaLab_1(nr__1) ! (0.1nm) Laboratory wavelength
character*1 n_LambdaLab_1(nr__1) ! [bcgi] Note on labLam (2)
integer*4 Mult_1 (nr__1) ! ? Multiplet number
character*1 F_1 (nr__1) ! [F] F: forbidden line
*Note (1): Measured intensities corrected for interstellar extinction using
* E(B-V) = 0.08 (Jordan, Murset & Werner 1994A&A...283..475J)
*Note (2): a: Measured intensities corrected for interstellar extinction using
* E(B-V)=0.08.
* b: Observed in the spectrum of a gaseous nebula (see McKenna et al.,
* 1997ApJS..109..225M).
* c: Observed in the spectrum of eta Car (see McKenna et al.,
* 1997ApJS..109..225M).
* d: In the case where more than one identification is listed for a
* given line, the first is taken to be the primary contributor to
* the blend.
* e: The estimated error in the line intensity is between 15 and 40%.
* k: The estimated error in the line intensity is between 20 and 40%.
* f: The estimated error in the line intensity is greater than 40%.
* g: It is possible that there may be some OVI at 3811.36 and
* 3834.24{AA}, but with the current data this is not definite.
* l: This HeII line is blended and so could not be used for calibration
* using line intensity ratios.
* h: There are several lines very close together here which could not be
* individually resolved, and so they are given as one line.
* i: These very wide features appear to be the Raman-scattered OVI lines
* at 6825 and 7082 {AA}, as shown by Espey et al.
* (1995ApJ...454L..61).
*Note (3): j: The intrinsically stronger [NeV] line at 3426 is not detected, as
* it falls in a region between echelle orders.
C=============================================================================
C Loading file 'table2.dat' ! Line list for RR Telescopii, with absolute flux
* calibrated intensities shown, for the
* wavelength range 3490 - 5530{AA}
C Format for file interpretation
1 format(
+ F7.2,1X,I3,A1,1X,F6.3,1X,F6.3,A1,1X,A8,A1,F7.2,A1,1X,I3,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,643
read(1,'(A50)')ar__
read(ar__,1)
+ LambdaMea(i__),DeltaV(i__),n_DeltaV(i__),Int(i__),Intc(i__),
+ n_Intc(i__),Line(i__),n_Line(i__),LambdaLab(i__),
+ n_LambdaLab(i__),Mult(i__),F(i__)
if(ar__(47:49) .EQ. '') Mult(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ LambdaMea(i__),DeltaV(i__),n_DeltaV(i__),Int(i__),Intc(i__),
+ n_Intc(i__),Line(i__),n_Line(i__),LambdaLab(i__),
+ n_LambdaLab(i__),Mult(i__),F(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Line list for RR Telescopii, in the wavelength
* range 3183 - 3488{AA} and 5550 - 9456{AA}, with
* intensities flux calibrated using the HeII
* recombination line ratios of Hummer and Storey
* (1987MNRAS.224..801H) and Storey and Hummer
* (1995MNRAS.272...41S)
C Format for file interpretation
2 format(
+ F7.2,1X,I3,A1,1X,F6.3,1X,F6.3,A1,1X,A8,A1,F7.2,A1,1X,I3,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,235
read(1,'(A50)')ar__1
read(ar__1,2)
+ LambdaMea_1(i__),DeltaV_1(i__),n_DeltaV_1(i__),Int_1(i__),
+ Intc_1(i__),n_Intc_1(i__),Line_1(i__),n_Line_1(i__),
+ LambdaLab_1(i__),n_LambdaLab_1(i__),Mult_1(i__),F_1(i__)
if(ar__1(47:49) .EQ. '') Mult_1(i__) = iNULL__
c ..............Just test output...........
write(6,2)
+ LambdaMea_1(i__),DeltaV_1(i__),n_DeltaV_1(i__),Int_1(i__),
+ Intc_1(i__),n_Intc_1(i__),Line_1(i__),n_Line_1(i__),
+ LambdaLab_1(i__),n_LambdaLab_1(i__),Mult_1(i__),F_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end