Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/540/A133 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 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/A+A/540/A133 {eta} Car emission spectrum (1700-10400{AA}) (Zethson+, 2012) *================================================================================ *{eta} Carinae: linelist for the emission spectrum of the Weigelt blobs in the *1700 to 10400{AA} wavelength region. * Zethson T., Johansson S., Hartman H., Gull T.R. * <Astron. Astrophys. 540, A133 (2012)> * =2012A&A...540A.133Z C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablec1.dat' ! Identifications of 2500 emission lines in the wavelength region 1700-10400{AA} from the STIS spectra of the Weigelt blobs recorded in March 1998 and February 1999 integer*4 nr__ parameter (nr__=2537) ! Number of records character*103 ar__ ! Full-size record real*8 lambdaO (nr__) ! (0.1nm) ? Observed wavelength (given in vacuum) (1) integer*4 n_lambdaO (nr__) ! ? Last 2 digits (wihtout decimals) for * wavelength interval character*1 u_lambdaO (nr__) ! [?] real*8 Int (nr__) ! ? Intensity (in relative units) character*19 Line (nr__) ! Line identification character*32 Trans (nr__) ! Transition real*8 lambdaL (nr__) ! (0.1nm) ? Laboratory wavelength (given in vacuum) (1) character*20 Com (nr__) ! Comments (2) *Note (1): The identifications for the region 2424-2706{AA} are improved using * the line list by Nielsen et al. (2007, Cat. J/ApJS/168/289) based on high * resolution HST/STIS spectra. The identifications and laboratory wavelengths * are retrieved from the Kurucz database (Kurucz, 2001, * http://cfaku5.harvard.edu/atoms.html). The laboratory wavelengths for parity * forbidden lines are Ritz wavelengths derived from energy levels in the NIST * Atomic Spectra Database (2006). *Note (2): Comments used as follows: * Not in 98 = The feature is not present in the 1998 observation * Not in 99 = The feature is not present in the 1999 observation * Ly{alpha} = Primary H Ly{alpha} pumped fluorescence transition * Ly{alpha} sec. = Secondary H Ly{alpha} pumped fluorescence transition * 4p-4s = A 4p-4s transition, discussed in section 5.5 * Si III] = Fluorescence line pumped by Si III * (Hartman & Johansson, 2000A&A...359..627H) * He II = Fluorescence line pumped by He II * (Hartman & Johansson, 2000A&A...359..627H) * N IV] = Fluorescence line pumped by N IV] * (Hartman & Johansson, 2000A&A...359..627H) * rd_sh = red shoulder due to extended stellar wind is noticeable out * to +400km/s * bl_sh = blue shoulder due to extended stellar wind is noticeable * out to -400km/s * ? = the feature is weak and may not be a true emission line * ?id = The identification is regarded as uncertain * ?Eu = the upper level has an excitation energy >10eV, and the excitation * mechanism is questionable * ?wl = Plausible identification, but the radial velocity differs from * the mean, -45km/s, by >15km/s C============================================================================= C Loading file 'tablec1.dat' ! Identifications of 2500 emission lines in the * wavelength region 1700-10400{AA} from the STIS * spectra of the Weigelt blobs recorded in * March 1998 and February 1999 C Format for file interpretation 1 format(F8.2,1X,I2,A1,1X,F7.1,1X,A19,1X,A32,1X,F8.2,1X,A20) C Effective file loading open(unit=1,status='old',file= +'tablec1.dat') write(6,*) '....Loading file: tablec1.dat' do i__=1,2537 read(1,'(A103)')ar__ read(ar__,1) + lambdaO(i__),n_lambdaO(i__),u_lambdaO(i__),Int(i__),Line(i__), + Trans(i__),lambdaL(i__),Com(i__) if(ar__(1:8) .EQ. '') lambdaO(i__) = rNULL__ if(ar__(10:11) .EQ. '') n_lambdaO(i__) = iNULL__ if(ar__(14:20) .EQ. '') Int(i__) = rNULL__ if(ar__(75:82) .EQ. '') lambdaL(i__) = rNULL__ c ..............Just test output........... write(6,1) + lambdaO(i__),n_lambdaO(i__),u_lambdaO(i__),Int(i__),Line(i__), + Trans(i__),lambdaL(i__),Com(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end