Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/108/561 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-Mar-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/108/561 P Cygni spectrum in 1985 (Markova, 1994) *================================================================================ *How did the spectrum of P Cygni look in 1985? Spectral atlas with complete line *identifications in the wavelength range from 3550 to 4800A * MARKOVA N. * <Astron. Astrophys. Suppl. Ser. 108, 561 (1994)> * =1994A&AS..108..561M (SIMBAD/NED Reference) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1' ! P Cygni spectrum - wavelengths and identifications integer*4 nr__ parameter (nr__=707) ! Number of records character*69 ar__ ! Full-size record real*8 LamObs ! (0.1nm) Observational wavelengths character*1 u_LamObs ! [? ] '?' indicates an uncertain feature character*1 a_e ! [ae ] Nature of the line: * a = absorption, e = emission character*1 n_LamObs ! [ )] When two or more spectral features are * believed to be formed by the same line or * lines, the different features are connected * by round brackets. real*4 LamLab ! (0.1nm) []? Laboratory wavelengths character*12 Ion ! Ion identification character*1 n_Ion ! [* ] '*' marks the most important contributor * to a blend character*3 Rem1 ! Remarks (1) character*2 Rem2 ! Additional remarks (2) character*2 Overlap ! "--" marks the area of overlapping of * forbidden and permitted line character*15 Forbidden ! Identification of forbidden lines *Note (1): new = newly identified line * 1 = line observed by de Groot (1969) * 2 = line observed by Stahl et al. (1993) *Note (2): IS = interstellar line * bl = blend * 1 = first absorption component * 2 = second absorption component C============================================================================= C Loading file 'table1' ! P Cygni spectrum - wavelengths and * identifications C Format for file interpretation 1 format( + 1X,F7.2,1X,A1,2X,A1,A1,2X,F5.2,3X,A12,A1,3X,A3,3X,A2,3X,A2,1X, + A15) C Effective file loading open(unit=1,status='old',file= +'table1') write(6,*) '....Loading file: table1' do i__=1,707 read(1,'(A69)')ar__ read(ar__,1) + LamObs,u_LamObs,a_e,n_LamObs,LamLab,Ion,n_Ion,Rem1,Rem2, + Overlap,Forbidden if(ar__(17:21) .EQ. '') LamLab = rNULL__ c ..............Just test output........... write(6,1) + LamObs,u_LamObs,a_e,n_LamObs,LamLab,Ion,n_Ion,Rem1,Rem2, + Overlap,Forbidden c .......End.of.Just test output........... end do close(1) C============================================================================= stop end