Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/478/270 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/478/270 ExoMol line lists. Spectra of SH and NS (Yurchenko+, 2018)
*================================================================================
*ExoMol molecular line lists. XXV: Spectra of SH and NS.
* Yurchenko S.N., Bond W., Gorman M.N., Lodi L., McKemmish L.K., Nunn W.,
* Shah R., Tennyson J.
* <Mon. Not. R. Astron. Soc. 478, 270 (2018)>
* =2018MNRAS.478..270Y (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 't_14n32s.dat' ! Transition file for NS: 14N-32S isotopologue
integer*4 nr__
parameter (nr__=2755796) ! Number of records
character*56 ar__ ! Full-size record
integer*8 N0 ! Upper state ID
integer*8 N1 ! Lower state ID
real*4 A ! (s-1) Einstein A-coefficient of the transition
real*8 nu ! (cm-1) Transition wavenumber
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 't_14n33s.dat' ! Transition file for NS: 14N-33S isotopologue
integer*4 nr__1
parameter (nr__1=2795487) ! Number of records
character*56 ar__1 ! Full-size record
integer*8 N0_1 ! Upper state ID
integer*8 N1_1 ! Lower state ID
real*4 A_1 ! (s-1) Einstein A-coefficient of the transition
real*8 nu_1 ! (cm-1) Transition wavenumber
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 't_14n34s.dat' ! Transition file for NS: 14N-34S isotopologue
integer*4 nr__2
parameter (nr__2=2831482) ! Number of records
character*56 ar__2 ! Full-size record
integer*8 N0_2 ! Upper state ID
integer*8 N1_2 ! Lower state ID
real*4 A_2 ! (s-1) Einstein A-coefficient of the transition
real*8 nu_2 ! (cm-1) Transition wavenumber
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 't_14n36s.dat' ! Transition file for NS: 14N-36S isotopologue
integer*4 nr__3
parameter (nr__3=2901113) ! Number of records
character*56 ar__3 ! Full-size record
integer*8 N0_3 ! Upper state ID
integer*8 N1_3 ! Lower state ID
real*4 A_3 ! (s-1) Einstein A-coefficient of the transition
real*8 nu_3 ! (cm-1) Transition wavenumber
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 't_15n32s.dat' ! Transition file for NS: 15N-32S isotopologue
integer*4 nr__4
parameter (nr__4=2957016) ! Number of records
character*56 ar__4 ! Full-size record
integer*8 N0_4 ! Upper state ID
integer*8 N1_4 ! Lower state ID
real*4 A_4 ! (s-1) Einstein A-coefficient of the transition
real*8 nu_4 ! (cm-1) Transition wavenumber
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 't_32s2h.dat' ! Transition file for SH: 32S-D isotopologue
integer*4 nr__5
parameter (nr__5=221409) ! Number of records
character*56 ar__5 ! Full-size record
integer*8 N0_5 ! Upper state ID
integer*8 N1_5 ! Lower state ID
real*4 A_5 ! (s-1) Einstein A-coefficient of the transition
real*8 nu_5 ! (cm-1) Transition wavenumber
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 't_33s1h.dat' ! Transition file for SH: 33S-H isotopologue
integer*4 nr__6
parameter (nr__6=81423) ! Number of records
character*56 ar__6 ! Full-size record
integer*8 N0_6 ! Upper state ID
integer*8 N1_6 ! Lower state ID
real*4 A_6 ! (s-1) Einstein A-coefficient of the transition
real*8 nu_6 ! (cm-1) Transition wavenumber
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 't_34s1h.dat' ! Transition file for SH: 34S-H isotopologue
integer*4 nr__7
parameter (nr__7=81393) ! Number of records
character*56 ar__7 ! Full-size record
integer*8 N0_7 ! Upper state ID
integer*8 N1_7 ! Lower state ID
real*4 A_7 ! (s-1) Einstein A-coefficient of the transition
real*8 nu_7 ! (cm-1) Transition wavenumber
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 't_36s1h.dat' ! Transition file for SH: 36S-H isotopologue
integer*4 nr__8
parameter (nr__8=81813) ! Number of records
character*56 ar__8 ! Full-size record
integer*8 N0_8 ! Upper state ID
integer*8 N1_8 ! Lower state ID
real*4 A_8 ! (s-1) Einstein A-coefficient of the transition
real*8 nu_8 ! (cm-1) Transition wavenumber
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 's_14n32s.dat' ! States file for NS: 14N-32S isotopologue
integer*4 nr__9
parameter (nr__9=31502) ! Number of records
character*101 ar__9 ! Full-size record
integer*8 N ! State ID, non-negative integer index
real*8 E ! (cm-1) State energy term value in cm-1
integer*4 g ! Total state degeneracy
real*8 J ! J-quantum number J is the total angular
* momentum excluding nuclear spin
real*4 tau ! (s) ? Life time
character*1 n_tau ! [i] i for infinity
real*8 Landeg ! Lande g-factor
character*1 par ! [+/-] Total parity
character*1 e_f ! e/f-rotationless-parity parity
character*8 State ! The label of the electronic state
integer*4 v ! Vibrational quantum number
integer*4 Lambda ! Projection of the electronic angular momentum
real*4 Sigma ! Projection of the electronic spin
real*4 Omega ! projection of the total angular momentum
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 's_14n33s.dat' ! States file for NS: 14N-33S isotopologue
integer*4 nr__10
parameter (nr__10=31802) ! Number of records
character*101 ar__10 ! Full-size record
integer*8 N_1 ! State ID, non-negative integer index
real*8 E_1 ! (cm-1) State energy term value in cm-1
integer*4 g_1 ! Total state degeneracy
real*8 J_1 ! J-quantum number J is the total angular
* momentum excluding nuclear spin
real*4 tau_1 ! (s) ? Life time
character*1 n_tau_1 ! [i] i for infinity
real*8 Landeg_1 ! Lande g-factor
character*1 par_1 ! [+/-] Total parity
character*1 e_f_1 ! e/f-rotationless-parity parity
character*8 State_1 ! The label of the electronic state
integer*4 v_1 ! Vibrational quantum number
integer*4 Lambda_1 ! Projection of the electronic angular momentum
real*4 Sigma_1 ! Projection of the electronic spin
real*4 Omega_1 ! projection of the total angular momentum
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 's_14n34s.dat' ! States file for NS: 14N-34S isotopologue
integer*4 nr__11
parameter (nr__11=32089) ! Number of records
character*101 ar__11 ! Full-size record
integer*8 N_2 ! State ID, non-negative integer index
real*8 E_2 ! (cm-1) State energy term value in cm-1
integer*4 g_2 ! Total state degeneracy
real*8 J_2 ! J-quantum number J is the total angular
* momentum excluding nuclear spin
real*4 tau_2 ! (s) ? Life time
character*1 n_tau_2 ! [i] i for infinity
real*8 Landeg_2 ! Lande g-factor
character*1 par_2 ! [+/-] Total parity
character*1 e_f_2 ! e/f-rotationless-parity parity
character*8 State_2 ! The label of the electronic state
integer*4 v_2 ! Vibrational quantum number
integer*4 Lambda_2 ! Projection of the electronic angular momentum
real*4 Sigma_2 ! Projection of the electronic spin
real*4 Omega_2 ! projection of the total angular momentum
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 's_14n36s.dat' ! States file for NS: 14N-36S isotopologue
integer*4 nr__12
parameter (nr__12=32620) ! Number of records
character*101 ar__12 ! Full-size record
integer*8 N_3 ! State ID, non-negative integer index
real*8 E_3 ! (cm-1) State energy term value in cm-1
integer*4 g_3 ! Total state degeneracy
real*8 J_3 ! J-quantum number J is the total angular
* momentum excluding nuclear spin
real*4 tau_3 ! (s) ? Life time
character*1 n_tau_3 ! [i] i for infinity
real*8 Landeg_3 ! Lande g-factor
character*1 par_3 ! [+/-] Total parity
character*1 e_f_3 ! e/f-rotationless-parity parity
character*8 State_3 ! The label of the electronic state
integer*4 v_3 ! Vibrational quantum number
integer*4 Lambda_3 ! Projection of the electronic angular momentum
real*4 Sigma_3 ! Projection of the electronic spin
real*4 Omega_3 ! projection of the total angular momentum
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 's_15n32s.dat' ! States file for NS: 15N-32S isotopologue
integer*4 nr__13
parameter (nr__13=33051) ! Number of records
character*101 ar__13 ! Full-size record
integer*8 N_4 ! State ID, non-negative integer index
real*8 E_4 ! (cm-1) State energy term value in cm-1
integer*4 g_4 ! Total state degeneracy
real*8 J_4 ! J-quantum number J is the total angular
* momentum excluding nuclear spin
real*4 tau_4 ! (s) ? Life time
character*1 n_tau_4 ! [i] i for infinity
real*8 Landeg_4 ! Lande g-factor
character*1 par_4 ! [+/-] Total parity
character*1 e_f_4 ! e/f-rotationless-parity parity
character*8 State_4 ! The label of the electronic state
integer*4 v_4 ! Vibrational quantum number
integer*4 Lambda_4 ! Projection of the electronic angular momentum
real*4 Sigma_4 ! Projection of the electronic spin
real*4 Omega_4 ! projection of the total angular momentum
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 's_32s2h.dat' ! States file for SH: 32S-D isotopologue
integer*4 nr__14
parameter (nr__14=4532) ! Number of records
character*101 ar__14 ! Full-size record
integer*8 N_5 ! State ID, non-negative integer index
real*8 E_5 ! (cm-1) State energy term value in cm-1
integer*4 g_5 ! Total state degeneracy
real*8 J_5 ! J-quantum number J is the total angular
* momentum excluding nuclear spin
real*4 tau_5 ! (s) ? Life time
character*1 n_tau_5 ! [i] i for infinity
real*8 Landeg_5 ! Lande g-factor
character*1 par_5 ! [+/-] Total parity
character*1 e_f_5 ! e/f-rotationless-parity parity
character*8 State_5 ! The label of the electronic state
integer*4 v_5 ! Vibrational quantum number
integer*4 Lambda_5 ! Projection of the electronic angular momentum
real*4 Sigma_5 ! Projection of the electronic spin
real*4 Omega_5 ! projection of the total angular momentum
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 's_33s1h.dat' ! States file for SH: 33S-H isotopologue
integer*4 nr__15
parameter (nr__15=2326) ! Number of records
character*101 ar__15 ! Full-size record
integer*8 N_6 ! State ID, non-negative integer index
real*8 E_6 ! (cm-1) State energy term value in cm-1
integer*4 g_6 ! Total state degeneracy
real*8 J_6 ! J-quantum number J is the total angular
* momentum excluding nuclear spin
real*4 tau_6 ! (s) ? Life time
character*1 n_tau_6 ! [i] i for infinity
real*8 Landeg_6 ! Lande g-factor
character*1 par_6 ! [+/-] Total parity
character*1 e_f_6 ! e/f-rotationless-parity parity
character*8 State_6 ! The label of the electronic state
integer*4 v_6 ! Vibrational quantum number
integer*4 Lambda_6 ! Projection of the electronic angular momentum
real*4 Sigma_6 ! Projection of the electronic spin
real*4 Omega_6 ! projection of the total angular momentum
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 's_34s1h.dat' ! States file for SH: 34S-H isotopologue
integer*4 nr__16
parameter (nr__16=2328) ! Number of records
character*101 ar__16 ! Full-size record
integer*8 N_7 ! State ID, non-negative integer index
real*8 E_7 ! (cm-1) State energy term value in cm-1
integer*4 g_7 ! Total state degeneracy
real*8 J_7 ! J-quantum number J is the total angular
* momentum excluding nuclear spin
real*4 tau_7 ! (s) ? Life time
character*1 n_tau_7 ! [i] i for infinity
real*8 Landeg_7 ! Lande g-factor
character*1 par_7 ! [+/-] Total parity
character*1 e_f_7 ! e/f-rotationless-parity parity
character*8 State_7 ! The label of the electronic state
integer*4 v_7 ! Vibrational quantum number
integer*4 Lambda_7 ! Projection of the electronic angular momentum
real*4 Sigma_7 ! Projection of the electronic spin
real*4 Omega_7 ! projection of the total angular momentum
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 's_36s1h.dat' ! States file for SH: 36S-H isotopologue
integer*4 nr__17
parameter (nr__17=2334) ! Number of records
character*101 ar__17 ! Full-size record
integer*8 N_8 ! State ID, non-negative integer index
real*8 E_8 ! (cm-1) State energy term value in cm-1
integer*4 g_8 ! Total state degeneracy
real*8 J_8 ! J-quantum number J is the total angular
* momentum excluding nuclear spin
real*4 tau_8 ! (s) ? Life time
character*1 n_tau_8 ! [i] i for infinity
real*8 Landeg_8 ! Lande g-factor
character*1 par_8 ! [+/-] Total parity
character*1 e_f_8 ! e/f-rotationless-parity parity
character*8 State_8 ! The label of the electronic state
integer*4 v_8 ! Vibrational quantum number
integer*4 Lambda_8 ! Projection of the electronic angular momentum
real*4 Sigma_8 ! Projection of the electronic spin
real*4 Omega_8 ! projection of the total angular momentum
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'p_14n32s.dat' ! Partition function for NS: 14N-32S isotopologue
integer*4 nr__18
parameter (nr__18=5000) ! Number of records
character*25 ar__18 ! Full-size record
real*8 T ! (K) Temperature in Kelvin
real*8 Q ! Partition function
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'p_14n33s.dat' ! Partition function for NS: 14N-33S isotopologue
integer*4 nr__19
parameter (nr__19=5000) ! Number of records
character*25 ar__19 ! Full-size record
real*8 T_1 ! (K) Temperature in Kelvin
real*8 Q_1 ! Partition function
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'p_14n34s.dat' ! Partition function for NS: 14N-34S isotopologue
integer*4 nr__20
parameter (nr__20=5000) ! Number of records
character*25 ar__20 ! Full-size record
real*8 T_2 ! (K) Temperature in Kelvin
real*8 Q_2 ! Partition function
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'p_14n36s.dat' ! Partition function for NS: 14N-36S isotopologue
integer*4 nr__21
parameter (nr__21=5000) ! Number of records
character*25 ar__21 ! Full-size record
real*8 T_3 ! (K) Temperature in Kelvin
real*8 Q_3 ! Partition function
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'p_15n32s.dat' ! Partition function for NS: 15N-32S isotopologue
integer*4 nr__22
parameter (nr__22=5000) ! Number of records
character*25 ar__22 ! Full-size record
real*8 T_4 ! (K) Temperature in Kelvin
real*8 Q_4 ! Partition function
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'p_32s2h.dat' ! Partition function for SH: 32S-D isotopologue
integer*4 nr__23
parameter (nr__23=5000) ! Number of records
character*25 ar__23 ! Full-size record
real*8 T_5 ! (K) Temperature in Kelvin
real*8 Q_5 ! Partition function
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'p_33s1h.dat' ! Partition function for SH: 33S-H isotopologue
integer*4 nr__24
parameter (nr__24=5000) ! Number of records
character*25 ar__24 ! Full-size record
real*8 T_6 ! (K) Temperature in Kelvin
real*8 Q_6 ! Partition function
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'p_34s1h.dat' ! Partition function for SH: 34S-H isotopologue
integer*4 nr__25
parameter (nr__25=5000) ! Number of records
character*25 ar__25 ! Full-size record
real*8 T_7 ! (K) Temperature in Kelvin
real*8 Q_7 ! Partition function
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'p_36s1h.dat' ! Partition function for SH: 36S-H isotopologue
integer*4 nr__26
parameter (nr__26=5000) ! Number of records
character*25 ar__26 ! Full-size record
real*8 T_8 ! (K) Temperature in Kelvin
real*8 Q_8 ! Partition function
C=============================================================================
C Loading file 't_14n32s.dat' ! Transition file for NS: 14N-32S isotopologue
C Format for file interpretation
1 format(I12,I12,2X,E10.4,1X,F19.6)
C Effective file loading
open(unit=1,status='old',file=
+'t_14n32s.dat')
write(6,*) '....Loading file: t_14n32s.dat'
do i__=1,2755796
read(1,'(A56)')ar__
read(ar__,1)N0,N1,A,nu
c ..............Just test output...........
write(6,1)N0,N1,A,nu
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 't_14n33s.dat' ! Transition file for NS: 14N-33S isotopologue
C Format for file interpretation
2 format(I12,I12,2X,E10.4,1X,F19.6)
C Effective file loading
open(unit=1,status='old',file=
+'t_14n33s.dat')
write(6,*) '....Loading file: t_14n33s.dat'
do i__=1,2795487
read(1,'(A56)')ar__1
read(ar__1,2)N0_1,N1_1,A_1,nu_1
c ..............Just test output...........
write(6,2)N0_1,N1_1,A_1,nu_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 't_14n34s.dat' ! Transition file for NS: 14N-34S isotopologue
C Format for file interpretation
3 format(I12,I12,2X,E10.4,1X,F19.6)
C Effective file loading
open(unit=1,status='old',file=
+'t_14n34s.dat')
write(6,*) '....Loading file: t_14n34s.dat'
do i__=1,2831482
read(1,'(A56)')ar__2
read(ar__2,3)N0_2,N1_2,A_2,nu_2
c ..............Just test output...........
write(6,3)N0_2,N1_2,A_2,nu_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 't_14n36s.dat' ! Transition file for NS: 14N-36S isotopologue
C Format for file interpretation
4 format(I12,I12,2X,E10.4,1X,F19.6)
C Effective file loading
open(unit=1,status='old',file=
+'t_14n36s.dat')
write(6,*) '....Loading file: t_14n36s.dat'
do i__=1,2901113
read(1,'(A56)')ar__3
read(ar__3,4)N0_3,N1_3,A_3,nu_3
c ..............Just test output...........
write(6,4)N0_3,N1_3,A_3,nu_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 't_15n32s.dat' ! Transition file for NS: 15N-32S isotopologue
C Format for file interpretation
5 format(I12,I12,2X,E10.4,1X,F19.6)
C Effective file loading
open(unit=1,status='old',file=
+'t_15n32s.dat')
write(6,*) '....Loading file: t_15n32s.dat'
do i__=1,2957016
read(1,'(A56)')ar__4
read(ar__4,5)N0_4,N1_4,A_4,nu_4
c ..............Just test output...........
write(6,5)N0_4,N1_4,A_4,nu_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 't_32s2h.dat' ! Transition file for SH: 32S-D isotopologue
C Format for file interpretation
6 format(I12,I12,2X,E10.4,1X,F19.6)
C Effective file loading
open(unit=1,status='old',file=
+'t_32s2h.dat')
write(6,*) '....Loading file: t_32s2h.dat'
do i__=1,221409
read(1,'(A56)')ar__5
read(ar__5,6)N0_5,N1_5,A_5,nu_5
c ..............Just test output...........
write(6,6)N0_5,N1_5,A_5,nu_5
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 't_33s1h.dat' ! Transition file for SH: 33S-H isotopologue
C Format for file interpretation
7 format(I12,I12,2X,E10.4,1X,F19.6)
C Effective file loading
open(unit=1,status='old',file=
+'t_33s1h.dat')
write(6,*) '....Loading file: t_33s1h.dat'
do i__=1,81423
read(1,'(A56)')ar__6
read(ar__6,7)N0_6,N1_6,A_6,nu_6
c ..............Just test output...........
write(6,7)N0_6,N1_6,A_6,nu_6
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 't_34s1h.dat' ! Transition file for SH: 34S-H isotopologue
C Format for file interpretation
8 format(I12,I12,2X,E10.4,1X,F19.6)
C Effective file loading
open(unit=1,status='old',file=
+'t_34s1h.dat')
write(6,*) '....Loading file: t_34s1h.dat'
do i__=1,81393
read(1,'(A56)')ar__7
read(ar__7,8)N0_7,N1_7,A_7,nu_7
c ..............Just test output...........
write(6,8)N0_7,N1_7,A_7,nu_7
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 't_36s1h.dat' ! Transition file for SH: 36S-H isotopologue
C Format for file interpretation
9 format(I12,I12,2X,E10.4,1X,F19.6)
C Effective file loading
open(unit=1,status='old',file=
+'t_36s1h.dat')
write(6,*) '....Loading file: t_36s1h.dat'
do i__=1,81813
read(1,'(A56)')ar__8
read(ar__8,9)N0_8,N1_8,A_8,nu_8
c ..............Just test output...........
write(6,9)N0_8,N1_8,A_8,nu_8
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 's_14n32s.dat' ! States file for NS: 14N-32S isotopologue
C Format for file interpretation
10 format(
+ I12,1X,F12.6,1X,I6,1X,F7.1,3X,E10.4,A1,F9.6,1X,A1,1X,A1,1X,A8,
+ 3X,I3,1X,I2,3X,F5.1,3X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'s_14n32s.dat')
write(6,*) '....Loading file: s_14n32s.dat'
do i__=1,31502
read(1,'(A101)')ar__9
read(ar__9,10)
+ N,E,g,J,tau,n_tau,Landeg,par,e_f,State,v,Lambda,Sigma,Omega
if(ar__9(44:53) .EQ. '') tau = rNULL__
c ..............Just test output...........
write(6,10)
+ N,E,g,J,tau,n_tau,Landeg,par,e_f,State,v,Lambda,Sigma,Omega
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 's_14n33s.dat' ! States file for NS: 14N-33S isotopologue
C Format for file interpretation
11 format(
+ I12,1X,F12.6,1X,I6,1X,F7.1,3X,E10.4,A1,F9.6,1X,A1,1X,A1,1X,A8,
+ 3X,I3,1X,I2,3X,F5.1,3X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'s_14n33s.dat')
write(6,*) '....Loading file: s_14n33s.dat'
do i__=1,31802
read(1,'(A101)')ar__10
read(ar__10,11)
+ N_1,E_1,g_1,J_1,tau_1,n_tau_1,Landeg_1,par_1,e_f_1,State_1,
+ v_1,Lambda_1,Sigma_1,Omega_1
if(ar__10(44:53) .EQ. '') tau_1 = rNULL__
c ..............Just test output...........
write(6,11)
+ N_1,E_1,g_1,J_1,tau_1,n_tau_1,Landeg_1,par_1,e_f_1,State_1,
+ v_1,Lambda_1,Sigma_1,Omega_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 's_14n34s.dat' ! States file for NS: 14N-34S isotopologue
C Format for file interpretation
12 format(
+ I12,1X,F12.6,1X,I6,1X,F7.1,3X,E10.4,A1,F9.6,1X,A1,1X,A1,1X,A8,
+ 3X,I3,1X,I2,3X,F5.1,3X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'s_14n34s.dat')
write(6,*) '....Loading file: s_14n34s.dat'
do i__=1,32089
read(1,'(A101)')ar__11
read(ar__11,12)
+ N_2,E_2,g_2,J_2,tau_2,n_tau_2,Landeg_2,par_2,e_f_2,State_2,
+ v_2,Lambda_2,Sigma_2,Omega_2
if(ar__11(44:53) .EQ. '') tau_2 = rNULL__
c ..............Just test output...........
write(6,12)
+ N_2,E_2,g_2,J_2,tau_2,n_tau_2,Landeg_2,par_2,e_f_2,State_2,
+ v_2,Lambda_2,Sigma_2,Omega_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 's_14n36s.dat' ! States file for NS: 14N-36S isotopologue
C Format for file interpretation
13 format(
+ I12,1X,F12.6,1X,I6,1X,F7.1,3X,E10.4,A1,F9.6,1X,A1,1X,A1,1X,A8,
+ 3X,I3,1X,I2,3X,F5.1,3X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'s_14n36s.dat')
write(6,*) '....Loading file: s_14n36s.dat'
do i__=1,32620
read(1,'(A101)')ar__12
read(ar__12,13)
+ N_3,E_3,g_3,J_3,tau_3,n_tau_3,Landeg_3,par_3,e_f_3,State_3,
+ v_3,Lambda_3,Sigma_3,Omega_3
if(ar__12(44:53) .EQ. '') tau_3 = rNULL__
c ..............Just test output...........
write(6,13)
+ N_3,E_3,g_3,J_3,tau_3,n_tau_3,Landeg_3,par_3,e_f_3,State_3,
+ v_3,Lambda_3,Sigma_3,Omega_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 's_15n32s.dat' ! States file for NS: 15N-32S isotopologue
C Format for file interpretation
14 format(
+ I12,1X,F12.6,1X,I6,1X,F7.1,3X,E10.4,A1,F9.6,1X,A1,1X,A1,1X,A8,
+ 3X,I3,1X,I2,3X,F5.1,3X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'s_15n32s.dat')
write(6,*) '....Loading file: s_15n32s.dat'
do i__=1,33051
read(1,'(A101)')ar__13
read(ar__13,14)
+ N_4,E_4,g_4,J_4,tau_4,n_tau_4,Landeg_4,par_4,e_f_4,State_4,
+ v_4,Lambda_4,Sigma_4,Omega_4
if(ar__13(44:53) .EQ. '') tau_4 = rNULL__
c ..............Just test output...........
write(6,14)
+ N_4,E_4,g_4,J_4,tau_4,n_tau_4,Landeg_4,par_4,e_f_4,State_4,
+ v_4,Lambda_4,Sigma_4,Omega_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 's_32s2h.dat' ! States file for SH: 32S-D isotopologue
C Format for file interpretation
15 format(
+ I12,1X,F12.6,1X,I6,1X,F7.1,3X,E10.4,A1,F9.6,1X,A1,1X,A1,1X,A8,
+ 3X,I3,1X,I2,3X,F5.1,3X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'s_32s2h.dat')
write(6,*) '....Loading file: s_32s2h.dat'
do i__=1,4532
read(1,'(A101)')ar__14
read(ar__14,15)
+ N_5,E_5,g_5,J_5,tau_5,n_tau_5,Landeg_5,par_5,e_f_5,State_5,
+ v_5,Lambda_5,Sigma_5,Omega_5
if(ar__14(44:53) .EQ. '') tau_5 = rNULL__
c ..............Just test output...........
write(6,15)
+ N_5,E_5,g_5,J_5,tau_5,n_tau_5,Landeg_5,par_5,e_f_5,State_5,
+ v_5,Lambda_5,Sigma_5,Omega_5
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 's_33s1h.dat' ! States file for SH: 33S-H isotopologue
C Format for file interpretation
16 format(
+ I12,1X,F12.6,1X,I6,1X,F7.1,3X,E10.4,A1,F9.6,1X,A1,1X,A1,1X,A8,
+ 3X,I3,1X,I2,3X,F5.1,3X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'s_33s1h.dat')
write(6,*) '....Loading file: s_33s1h.dat'
do i__=1,2326
read(1,'(A101)')ar__15
read(ar__15,16)
+ N_6,E_6,g_6,J_6,tau_6,n_tau_6,Landeg_6,par_6,e_f_6,State_6,
+ v_6,Lambda_6,Sigma_6,Omega_6
if(ar__15(44:53) .EQ. '') tau_6 = rNULL__
c ..............Just test output...........
write(6,16)
+ N_6,E_6,g_6,J_6,tau_6,n_tau_6,Landeg_6,par_6,e_f_6,State_6,
+ v_6,Lambda_6,Sigma_6,Omega_6
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 's_34s1h.dat' ! States file for SH: 34S-H isotopologue
C Format for file interpretation
17 format(
+ I12,1X,F12.6,1X,I6,1X,F7.1,3X,E10.4,A1,F9.6,1X,A1,1X,A1,1X,A8,
+ 3X,I3,1X,I2,3X,F5.1,3X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'s_34s1h.dat')
write(6,*) '....Loading file: s_34s1h.dat'
do i__=1,2328
read(1,'(A101)')ar__16
read(ar__16,17)
+ N_7,E_7,g_7,J_7,tau_7,n_tau_7,Landeg_7,par_7,e_f_7,State_7,
+ v_7,Lambda_7,Sigma_7,Omega_7
if(ar__16(44:53) .EQ. '') tau_7 = rNULL__
c ..............Just test output...........
write(6,17)
+ N_7,E_7,g_7,J_7,tau_7,n_tau_7,Landeg_7,par_7,e_f_7,State_7,
+ v_7,Lambda_7,Sigma_7,Omega_7
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 's_36s1h.dat' ! States file for SH: 36S-H isotopologue
C Format for file interpretation
18 format(
+ I12,1X,F12.6,1X,I6,1X,F7.1,3X,E10.4,A1,F9.6,1X,A1,1X,A1,1X,A8,
+ 3X,I3,1X,I2,3X,F5.1,3X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'s_36s1h.dat')
write(6,*) '....Loading file: s_36s1h.dat'
do i__=1,2334
read(1,'(A101)')ar__17
read(ar__17,18)
+ N_8,E_8,g_8,J_8,tau_8,n_tau_8,Landeg_8,par_8,e_f_8,State_8,
+ v_8,Lambda_8,Sigma_8,Omega_8
if(ar__17(44:53) .EQ. '') tau_8 = rNULL__
c ..............Just test output...........
write(6,18)
+ N_8,E_8,g_8,J_8,tau_8,n_tau_8,Landeg_8,par_8,e_f_8,State_8,
+ v_8,Lambda_8,Sigma_8,Omega_8
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'p_14n32s.dat' ! Partition function for NS: 14N-32S isotopologue
C Format for file interpretation
19 format(F9.1,1X,F15.4)
C Effective file loading
open(unit=1,status='old',file=
+'p_14n32s.dat')
write(6,*) '....Loading file: p_14n32s.dat'
do i__=1,5000
read(1,'(A25)')ar__18
read(ar__18,19)T,Q
c ..............Just test output...........
write(6,19)T,Q
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'p_14n33s.dat' ! Partition function for NS: 14N-33S isotopologue
C Format for file interpretation
20 format(F9.1,1X,F15.4)
C Effective file loading
open(unit=1,status='old',file=
+'p_14n33s.dat')
write(6,*) '....Loading file: p_14n33s.dat'
do i__=1,5000
read(1,'(A25)')ar__19
read(ar__19,20)T_1,Q_1
c ..............Just test output...........
write(6,20)T_1,Q_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'p_14n34s.dat' ! Partition function for NS: 14N-34S isotopologue
C Format for file interpretation
21 format(F9.1,1X,F15.4)
C Effective file loading
open(unit=1,status='old',file=
+'p_14n34s.dat')
write(6,*) '....Loading file: p_14n34s.dat'
do i__=1,5000
read(1,'(A25)')ar__20
read(ar__20,21)T_2,Q_2
c ..............Just test output...........
write(6,21)T_2,Q_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'p_14n36s.dat' ! Partition function for NS: 14N-36S isotopologue
C Format for file interpretation
22 format(F9.1,1X,F15.4)
C Effective file loading
open(unit=1,status='old',file=
+'p_14n36s.dat')
write(6,*) '....Loading file: p_14n36s.dat'
do i__=1,5000
read(1,'(A25)')ar__21
read(ar__21,22)T_3,Q_3
c ..............Just test output...........
write(6,22)T_3,Q_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'p_15n32s.dat' ! Partition function for NS: 15N-32S isotopologue
C Format for file interpretation
23 format(F9.1,1X,F15.4)
C Effective file loading
open(unit=1,status='old',file=
+'p_15n32s.dat')
write(6,*) '....Loading file: p_15n32s.dat'
do i__=1,5000
read(1,'(A25)')ar__22
read(ar__22,23)T_4,Q_4
c ..............Just test output...........
write(6,23)T_4,Q_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'p_32s2h.dat' ! Partition function for SH: 32S-D isotopologue
C Format for file interpretation
24 format(F9.1,1X,F15.4)
C Effective file loading
open(unit=1,status='old',file=
+'p_32s2h.dat')
write(6,*) '....Loading file: p_32s2h.dat'
do i__=1,5000
read(1,'(A25)')ar__23
read(ar__23,24)T_5,Q_5
c ..............Just test output...........
write(6,24)T_5,Q_5
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'p_33s1h.dat' ! Partition function for SH: 33S-H isotopologue
C Format for file interpretation
25 format(F9.1,1X,F15.4)
C Effective file loading
open(unit=1,status='old',file=
+'p_33s1h.dat')
write(6,*) '....Loading file: p_33s1h.dat'
do i__=1,5000
read(1,'(A25)')ar__24
read(ar__24,25)T_6,Q_6
c ..............Just test output...........
write(6,25)T_6,Q_6
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'p_34s1h.dat' ! Partition function for SH: 34S-H isotopologue
C Format for file interpretation
26 format(F9.1,1X,F15.4)
C Effective file loading
open(unit=1,status='old',file=
+'p_34s1h.dat')
write(6,*) '....Loading file: p_34s1h.dat'
do i__=1,5000
read(1,'(A25)')ar__25
read(ar__25,26)T_7,Q_7
c ..............Just test output...........
write(6,26)T_7,Q_7
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'p_36s1h.dat' ! Partition function for SH: 36S-H isotopologue
C Format for file interpretation
27 format(F9.1,1X,F15.4)
C Effective file loading
open(unit=1,status='old',file=
+'p_36s1h.dat')
write(6,*) '....Loading file: p_36s1h.dat'
do i__=1,5000
read(1,'(A25)')ar__26
read(ar__26,27)T_8,Q_8
c ..............Just test output...........
write(6,27)T_8,Q_8
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end