Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/357/471 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-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. J/MNRAS/357/471 Calculated spectra for HeH^+^ (Engel+, 2005)
*================================================================================
*Calculated spectra for HeH^+^ and its effect on the opacity of
*cool metal-poor stars.
* Engel E.A., Doss N., Harris G.J., Tennyson J.
* <Mon. Not. R. Astron. Soc., 357, 471-477 (2005)>
* =2005MNRAS.357..471E
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for '3hed.dat' ! Line list of ^3^HeD^+^ (Iso = 23)
integer*4 nr__
parameter (nr__=2694) ! Number of records
character*80 ar__ ! Full-size record
real*8 Lambda ! (nm) Wavelength of the transition
real*8 A ! (s-1) Einstein A coefficient of the transition
real*4 J_ ! Rotational quantum number of the upper state
real*8 E_ ! (cm-1) Energy of the upper state
real*4 J__1 ! Rotational quantum number of the lower state
real*8 E__1 ! (cm-1) Energy of the lower state
integer*4 El ! [102] Element numbers of the atoms of the
* molecule in the ascending order
integer*4 V_ ! Vibrational quantum number of the upper state
integer*4 V__1 ! Vibrational quantum number of the lower state
integer*4 Iso ! Numbers of masses of the atoms of the molecule
* in the ascending order (23, 13, 24 or 14)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for '3heh.dat' ! Line list of ^3^HeH^+^ (Iso = 13)
integer*4 nr__1
parameter (nr__1=1315) ! Number of records
character*80 ar__1 ! Full-size record
real*8 Lambda_1 ! (nm) Wavelength of the transition
real*8 A_1 ! (s-1) Einstein A coefficient of the transition
real*4 J__2 ! Rotational quantum number of the upper state
real*8 E__2 ! (cm-1) Energy of the upper state
real*4 J__3 ! Rotational quantum number of the lower state
real*8 E__3 ! (cm-1) Energy of the lower state
integer*4 El_1 ! [102] Element numbers of the atoms of the
* molecule in the ascending order
integer*4 V__2 ! Vibrational quantum number of the upper state
integer*4 V__3 ! Vibrational quantum number of the lower state
integer*4 Iso_1 ! Numbers of masses of the atoms of the molecule
* in the ascending order (23, 13, 24 or 14)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for '4hed.dat' ! Line list of ^4^HeD^+^ (Iso = 24)
integer*4 nr__2
parameter (nr__2=3133) ! Number of records
character*80 ar__2 ! Full-size record
real*8 Lambda_2 ! (nm) Wavelength of the transition
real*8 A_2 ! (s-1) Einstein A coefficient of the transition
real*4 J__4 ! Rotational quantum number of the upper state
real*8 E__4 ! (cm-1) Energy of the upper state
real*4 J__5 ! Rotational quantum number of the lower state
real*8 E__5 ! (cm-1) Energy of the lower state
integer*4 El_2 ! [102] Element numbers of the atoms of the
* molecule in the ascending order
integer*4 V__4 ! Vibrational quantum number of the upper state
integer*4 V__5 ! Vibrational quantum number of the lower state
integer*4 Iso_2 ! Numbers of masses of the atoms of the molecule
* in the ascending order (23, 13, 24 or 14)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for '4heh.dat' ! Line list of ^4^HeH^+^ (Iso = 14)
integer*4 nr__3
parameter (nr__3=1431) ! Number of records
character*80 ar__3 ! Full-size record
real*8 Lambda_3 ! (nm) Wavelength of the transition
real*8 A_3 ! (s-1) Einstein A coefficient of the transition
real*4 J__6 ! Rotational quantum number of the upper state
real*8 E__6 ! (cm-1) Energy of the upper state
real*4 J__7 ! Rotational quantum number of the lower state
real*8 E__7 ! (cm-1) Energy of the lower state
integer*4 El_3 ! [102] Element numbers of the atoms of the
* molecule in the ascending order
integer*4 V__6 ! Vibrational quantum number of the upper state
integer*4 V__7 ! Vibrational quantum number of the lower state
integer*4 Iso_3 ! Numbers of masses of the atoms of the molecule
* in the ascending order (23, 13, 24 or 14)
C=============================================================================
C Loading file '3hed.dat' ! Line list of ^3^HeD^+^ (Iso = 23)
C Format for file interpretation
1 format(
+ F13.4,2X,D12.6,1X,F4.1,1X,F9.3,1X,F4.1,2X,F9.3,1X,I3,1X,I2,6X,
+ I2,5X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'3hed.dat')
write(6,*) '....Loading file: 3hed.dat'
do i__=1,2694
read(1,'(A80)')ar__
read(ar__,1)Lambda,A,J_,E_,J__1,E__1,El,V_,V__1,Iso
c ..............Just test output...........
write(6,1)Lambda,A,J_,E_,J__1,E__1,El,V_,V__1,Iso
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file '3heh.dat' ! Line list of ^3^HeH^+^ (Iso = 13)
C Format for file interpretation
2 format(
+ F13.4,2X,D12.6,1X,F4.1,1X,F9.3,1X,F4.1,2X,F9.3,1X,I3,1X,I2,6X,
+ I2,5X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'3heh.dat')
write(6,*) '....Loading file: 3heh.dat'
do i__=1,1315
read(1,'(A80)')ar__1
read(ar__1,2)
+ Lambda_1,A_1,J__2,E__2,J__3,E__3,El_1,V__2,V__3,Iso_1
c ..............Just test output...........
write(6,2)
+ Lambda_1,A_1,J__2,E__2,J__3,E__3,El_1,V__2,V__3,Iso_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file '4hed.dat' ! Line list of ^4^HeD^+^ (Iso = 24)
C Format for file interpretation
3 format(
+ F13.4,2X,D12.6,1X,F4.1,1X,F9.3,1X,F4.1,2X,F9.3,1X,I3,1X,I2,6X,
+ I2,5X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'4hed.dat')
write(6,*) '....Loading file: 4hed.dat'
do i__=1,3133
read(1,'(A80)')ar__2
read(ar__2,3)
+ Lambda_2,A_2,J__4,E__4,J__5,E__5,El_2,V__4,V__5,Iso_2
c ..............Just test output...........
write(6,3)
+ Lambda_2,A_2,J__4,E__4,J__5,E__5,El_2,V__4,V__5,Iso_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file '4heh.dat' ! Line list of ^4^HeH^+^ (Iso = 14)
C Format for file interpretation
4 format(
+ F13.4,2X,D12.6,1X,F4.1,1X,F9.3,1X,F4.1,2X,F9.3,1X,I3,1X,I2,6X,
+ I2,5X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'4heh.dat')
write(6,*) '....Loading file: 4heh.dat'
do i__=1,1431
read(1,'(A80)')ar__3
read(ar__3,4)
+ Lambda_3,A_3,J__6,E__6,J__7,E__7,El_3,V__6,V__7,Iso_3
c ..............Just test output...........
write(6,4)
+ Lambda_3,A_3,J__6,E__6,J__7,E__7,El_3,V__6,V__7,Iso_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end