Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/381/507 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-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 (nr__) ! (10-12mW/m2) Corrected intensity
real*8 Lambda (nr__) ! (0.1nm) Laboratory wavelength
integer*4 Mult (nr__) ! Multiplet number
real*4 log_gf (nr__) ! Oscillator strength
real*4 log_Fl3_gf (nr__) ! Normalized flux defined by the SAC method
* (Friedjung & Muratorio, 1987A&A...188..100F)
real*4 log_gfl (nr__) ! Lower term oscillator strength
integer*4 FWHM (nr__) ! (km/s) Velocity FWHM
character*3 l (nr__) ! Lower term of the multiplet
character*4 u (nr__) ! Upper term of the multiplet
real*4 EPl (nr__) ! (eV) Excitation potential of the lower level
real*4 EPu (nr__) ! (eV) Excitation potential of the upper level
character*5 Ju (nr__) ! 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 (nr__1) ! (10-12mW/m2) Corrected intensity
real*8 Lambda_1 (nr__1) ! (0.1nm) Laboratory wavelength
integer*4 Mult_1 (nr__1) ! Multiplet number
real*4 log_gf_1 (nr__1) ! Oscillator strength
real*4 log_Fl3_gf_1(nr__1) ! Normalized flux defined by the SAC method
* (Friedjung & Muratorio, 1987A&A...188..100F)
real*4 log_gfl_1 (nr__1) ! Lower term oscillator strength
integer*4 FWHM_1 (nr__1) ! (km/s) Velocity FWHM
character*3 l_1 (nr__1) ! Lower term of the multiplet
character*4 u_1 (nr__1) ! Upper term of the multiplet
real*4 EPl_1 (nr__1) ! (eV) Excitation potential of the lower level
real*4 EPu_1 (nr__1) ! (eV) Excitation potential of the upper level
character*5 Ju_1 (nr__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(i__),Lambda(i__),Mult(i__),log_gf(i__),log_Fl3_gf(i__),
+ log_gfl(i__),FWHM(i__),l(i__),u(i__),EPl(i__),EPu(i__),Ju(i__)
c ..............Just test output...........
write(6,1)
+ Intc(i__),Lambda(i__),Mult(i__),log_gf(i__),log_Fl3_gf(i__),
+ log_gfl(i__),FWHM(i__),l(i__),u(i__),EPl(i__),EPu(i__),Ju(i__)
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(i__),Lambda_1(i__),Mult_1(i__),log_gf_1(i__),
+ log_Fl3_gf_1(i__),log_gfl_1(i__),FWHM_1(i__),l_1(i__),
+ u_1(i__),EPl_1(i__),EPu_1(i__),Ju_1(i__)
c ..............Just test output...........
write(6,2)
+ Intc_1(i__),Lambda_1(i__),Mult_1(i__),log_gf_1(i__),
+ log_Fl3_gf_1(i__),log_gfl_1(i__),FWHM_1(i__),l_1(i__),
+ u_1(i__),EPl_1(i__),EPu_1(i__),Ju_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end