Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/381/507 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 2026-Jun-08
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+A/381/507 Fe II emission lines of RR Tel (Kotnik-Karuza+, 2002)
*================================================================================
*The region of Fe II emission line formation of the symbiotic nova RR Tel.
* Kotnik-Karuza D., Friedjung M., Selvelli P.L.
* <Astron. Astrophys. 381, 507 (2002)>
* =2002A&A...381..507K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! *Accepted permitted Fe II lines from the
identification list of Crawford (Crawford et al.,
1999, Cat. <J/A+AS/139/135>) which have been
analysed in this work by the SAC method
integer*4 nr__
parameter (nr__=82) ! Number of records
character*89 ar__ ! Full-size record
real*4 Intc ! (10-12mW/m2) Corrected intensity
real*8 Lambda ! (0.1nm) Laboratory wavelength
integer*4 Mult ! Multiplet number
real*4 log_gf ! Oscillator strength
real*4 log_Fl3_gf ! Normalized flux defined by the SAC method
* (Friedjung & Muratorio, 1987A&A...188..100F)
real*4 log_gfl ! Lower term oscillator strength
integer*4 FWHM ! (km/s) Velocity FWHM
character*3 l ! Lower term of the multiplet
character*4 u ! Upper term of the multiplet
real*4 EPl ! (eV) Excitation potential of the lower level
real*4 EPu ! (eV) Excitation potential of the upper level
character*5 Ju ! J number of the upper level
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! *Accepted forbidden Fe II lines from the
identification list of Crawford (Crawford et al.,
1999, Cat. <J/A+AS/139/135>) which have been
analysed in this work by the SAC method
integer*4 nr__1
parameter (nr__1=49) ! Number of records
character*97 ar__1 ! Full-size record
real*4 Intc_1 ! (10-12mW/m2) Corrected intensity
real*8 Lambda_1 ! (0.1nm) Laboratory wavelength
integer*4 Mult_1 ! Multiplet number
real*4 log_gf_1 ! Oscillator strength
real*4 log_Fl3_gf_1 ! Normalized flux defined by the SAC method
* (Friedjung & Muratorio, 1987A&A...188..100F)
real*4 log_gfl_1 ! Lower term oscillator strength
integer*4 FWHM_1 ! (km/s) Velocity FWHM
character*3 l_1 ! Lower term of the multiplet
character*4 u_1 ! Upper term of the multiplet
real*4 EPl_1 ! (eV) Excitation potential of the lower level
real*4 EPu_1 ! (eV) Excitation potential of the upper level
character*5 Ju_1 ! J number of the upper level
C=============================================================================
C Loading file 'table1.dat' ! *Accepted permitted Fe II lines from the
* identification list of Crawford (Crawford et al.,
* 1999, Cat. <J/A+AS/139/135>) which have been
* analysed in this work by the SAC method
C Format for file interpretation
1 format(
+ F5.3,1X,F7.2,1X,I2,1X,F6.3,1X,F5.2,1X,F5.2,1X,I2,1X,A3,1X,A4,
+ 1X,F4.2,1X,F4.2,1X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,82
read(1,'(A89)')ar__
read(ar__,1)
+ Intc,Lambda,Mult,log_gf,log_Fl3_gf,log_gfl,FWHM,l,u,EPl,EPu,Ju
c ..............Just test output...........
write(6,1)
+ Intc,Lambda,Mult,log_gf,log_Fl3_gf,log_gfl,FWHM,l,u,EPl,EPu,Ju
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! *Accepted forbidden Fe II lines from the
* identification list of Crawford (Crawford et al.,
* 1999, Cat. <J/A+AS/139/135>) which have been
* analysed in this work by the SAC method
C Format for file interpretation
2 format(
+ F5.3,1X,F7.2,1X,I2,1X,F6.3,1X,F5.2,1X,F5.2,1X,I2,1X,A3,1X,A4,
+ 1X,F4.2,1X,F4.2,1X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,49
read(1,'(A97)')ar__1
read(ar__1,2)
+ Intc_1,Lambda_1,Mult_1,log_gf_1,log_Fl3_gf_1,log_gfl_1,FWHM_1,
+ l_1,u_1,EPl_1,EPu_1,Ju_1
c ..............Just test output...........
write(6,2)
+ Intc_1,Lambda_1,Mult_1,log_gf_1,log_Fl3_gf_1,log_gfl_1,FWHM_1,
+ l_1,u_1,EPl_1,EPu_1,Ju_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end