Conversion of standardized ReadMe file for
file /./ftp/cats/III/211 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-20
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. III/211 Keck/HIRES Sky Line Atlas (Osterbrock+ 1997)
*================================================================================
*Night-sky high-resolution spectral atlas of OH and O2 emission lines for
*echelle spectrograph wavelength calibration.
* Osterbrock D.E., Fulbright J.P., Martel A.R., Keane M.J.,
* Trager S.C., Basri G.
* <Publ. Astron. Soc. Pacific 108, 277 (1996)>
* =1996PASP..108..277O
*Night-sky high-resolution spectral atlas of OH emission lines for
*echelle spectrograph wavelength calibration. II.
* Osterbrock D.E., Fulbright J.P., Bida T.A.
* <Publ. Astron. Soc. Pacific 109, 614 (1997)>
* =1997PASP..109..614O
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'oh.dat' ! Observed OH lines (from papers 1 and 2)
integer*4 nr__
parameter (nr__=969) ! Number of records
character*23 ar__ ! Full-size record
real*8 lambda (nr__) ! (0.1nm) Wavelength of observed OH line
integer*4 nu_ (nr__) ! Lower transition number
integer*4 nu__1 (nr__) ! Upper transition number
character*9 Trans (nr__) ! OH line Transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'o2.dat' ! Computed O2 lines (table 3 of Paper 1)
integer*4 nr__1
parameter (nr__1=45) ! Number of records
character*15 ar__1 ! Full-size record
real*8 lambda_1 (nr__1) ! (0.1nm) ? Computed wavelength of O2 line
character*6 Trans_1 (nr__1) ! O2 line Transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'figs.dat' ! List of figures (spectra)
integer*4 nr__2
parameter (nr__2=36) ! Number of records
character*24 ar__2 ! Full-size record
character*12 PSfile (nr__2) ! Name of spectrum file in subdirectory figs
integer*4 lambda1 (nr__2) ! (0.1nm) Lower wavelength representation
integer*4 lambda2 (nr__2) ! (0.1nm) Upper wavelength representation
C=============================================================================
C Loading file 'oh.dat' ! Observed OH lines (from papers 1 and 2)
C Format for file interpretation
1 format(F9.3,1X,I1,1X,I1,1X,A9)
C Effective file loading
open(unit=1,status='old',file=
+'oh.dat')
write(6,*) '....Loading file: oh.dat'
do i__=1,969
read(1,'(A23)')ar__
read(ar__,1)lambda(i__),nu_(i__),nu__1(i__),Trans(i__)
c ..............Just test output...........
write(6,1)lambda(i__),nu_(i__),nu__1(i__),Trans(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'o2.dat' ! Computed O2 lines (table 3 of Paper 1)
C Format for file interpretation
2 format(F8.2,1X,A6)
C Effective file loading
open(unit=1,status='old',file=
+'o2.dat')
write(6,*) '....Loading file: o2.dat'
do i__=1,45
read(1,'(A15)')ar__1
read(ar__1,2)lambda_1(i__),Trans_1(i__)
if(ar__1(1:8) .EQ. '') lambda_1(i__) = rNULL__
c ..............Just test output...........
write(6,2)lambda_1(i__),Trans_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'figs.dat' ! List of figures (spectra)
C Format for file interpretation
3 format(A12,1X,I5,1X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'figs.dat')
write(6,*) '....Loading file: figs.dat'
do i__=1,36
read(1,'(A24)')ar__2
read(ar__2,3)PSfile(i__),lambda1(i__),lambda2(i__)
c ..............Just test output...........
write(6,3)PSfile(i__),lambda1(i__),lambda2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end