Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/120/99 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-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+AS/120/99 Spectroscopy of MWC 645 (Jaschek+, 1996)
*================================================================================
*B[e] stars. III. MWC 645
* Jaschek M., Andrillat Y., Jaschek C.
* <Astron. Astrophys. Suppl. Ser. 120, 99 (1996)>
* =1996A&AS..120...99J (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2' ! Line identifications in the spectrum of MWC 645
integer*4 nr__
parameter (nr__=368) ! Number of records
character*82 ar__ ! Full-size record
integer*4 Mat ! Material year
real*8 Lambda ! (0.1nm) Laboratory wavelength
character*1 n_Lambda ! [&] & when coupled with the following Lambda
character*1 Spect ! Spectrum identification (see table1)
real*4 EW ! (0.1nm) ? Equivalent width of the line, for Spect (1)
character*4 n_EW ! Note on EW (2)
character*55 Ident ! Line identification of the order element
* ionization stage and multiplet number (3)
*Note (1): A blank indicates that the line is present but has not been measured
* A blank followed by a dash indicates the absence of the line
* on this particular plate
*Note (2): +p : refers to the preceding line
* +f : refers to the following line
* - : indicates the absence of the line on this particular plate
* : : indicates a uncertain value
*Note (3): J stands for Johansson (1978PhS....18..217J)
* * : Jaschek M. and Jaschek C. (1962PASP...74..151J)
*--------------------------------------------------------------------------------
*
*Table 1. Observational data
* ------------------------------
* Date Wavelength Code
* ------------------------------
* 22-06-95 3741-4195 i
* 22-06-95 4138-4592 j
* 25-10-91 4286-4725 a
* 25-07-93 4554-5006 b
* 25-10-91 4697-5137 c
* 20-06-95 6332-6780 d
* 18-06-94 7008-7450 e
* 18-08-91 7590-8014 f
* 23-07-93 7983-8420 g
* 17-08-91 8370-8790 h
* --------------------------------
C=============================================================================
C Loading file 'table2' ! Line identifications in the spectrum of MWC 645
C Format for file interpretation
1 format(I4,1X,F7.2,A1,1X,A1,1X,F6.2,A4,1X,A55)
C Effective file loading
open(unit=1,status='old',file=
+'table2')
write(6,*) '....Loading file: table2'
do i__=1,368
read(1,'(A82)')ar__
read(ar__,1)Mat,Lambda,n_Lambda,Spect,EW,n_EW,Ident
if(ar__(17:22) .EQ. '') EW = rNULL__
c ..............Just test output...........
write(6,1)Mat,Lambda,n_Lambda,Spect,EW,n_EW,Ident
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end