Conversion of standardized ReadMe file for
file /./ftp/cats/VI/133 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 2026-Oct-07
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. VI/133 A variationally computed hot NH3 line list - BYTe (Yurchenko+, 2011)
*===============================================================================
*A variationally computed line list for hot NH3
* Yurchenko S.N., Barber R.J., Tennyson J.
* <Mon. Not. R. Astron. Soc. XXX, XXXX (2011)>
* =2011MNRAS.413.1828Y
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'nh3_0-41.dat' ! labelled rovibrational states
integer*4 nr__
parameter (nr__=4167360) ! Number of records
character*126 ar__ ! Full-size record
integer*4 Seq (nr__) ! [1/4167360]+ Reference number (row number)
integer*4 J (nr__) ! [0/41] Total angular momentum quantum number
integer*4 G (nr__) ! [1/6] Total symmetry in D3h(M) {Gamma}
integer*4 N_Block (nr__) ! [1/104283] Reference number in the block
real*8 E (nr__) ! (cm-1) Energy of the level
integer*4 n1 (nr__) ! [0/7] Symmetric stretch quantum number
* (normal mode)
integer*4 n2 (nr__) ! [0/14] Symmetric bend quantum number (normal mode)
integer*4 n3 (nr__) ! [0/7] Asymmetric stretch quantum number
* (normal mode)
integer*4 n4 (nr__) ! [0/14] Asymmetric bend quantum number
* (normal mode)
integer*4 l3 (nr__) ! [-6/7] Additional normal mode vibrational quantum
* number.
integer*4 l4 (nr__) ! [-12/13] Additional normal mode vibrational
* quantum number.
integer*4 Pi (nr__) ! [0/1] Inversional parity {tau}(inv)
integer*4 K (nr__) ! [0/41] Projection of J on axis of molecular
* symmetry
integer*4 Pr (nr__) ! [0/1] Rotational parity {tau}(rot)
integer*4 v1 (nr__) ! [0/6] Local mode vibrational quantum number
integer*4 v2 (nr__) ! [0/6] Local mode vibrational quantum number
integer*4 v3 (nr__) ! [0/7] Local mode vibrational quantum number
integer*4 v4 (nr__) ! [0] Local mode vibrational quantum number
integer*4 v5 (nr__) ! [0/14] Local mode vibrational quantum number
integer*4 v6 (nr__) ! [0/28] Local mode vibrational quantum number
integer*4 Gv (nr__) ! [1/6] D3h(M) vibrational symmetry {Gamma}(v)
* (local mode)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-00000.dat' ! frequency-ordered transitions, 00000-00100cm^-1^
integer*4 nr__1
parameter (nr__1=982907) ! Number of records
character*38 ar__1 ! Full-size record
integer*4 Lev1 (nr__1) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2 (nr__1) ! [1/4167360] Reference level in Energy Level File
real*4 A (nr__1) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-00100.dat' ! frequency-ordered transitions, 00100-00200cm^-1^
integer*4 nr__2
parameter (nr__2=1037545) ! Number of records
character*38 ar__2 ! Full-size record
integer*4 Lev1_1 (nr__2) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_1 (nr__2) ! [1/4167360] Reference level in Energy Level File
real*4 A_1 (nr__2) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-00200.dat' ! frequency-ordered transitions, 00200-00300cm^-1^
integer*4 nr__3
parameter (nr__3=1062896) ! Number of records
character*38 ar__3 ! Full-size record
integer*4 Lev1_2 (nr__3) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_2 (nr__3) ! [1/4167360] Reference level in Energy Level File
real*4 A_2 (nr__3) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-00300.dat' ! frequency-ordered transitions, 00300-00400cm^-1^
integer*4 nr__4
parameter (nr__4=1082795) ! Number of records
character*38 ar__4 ! Full-size record
integer*4 Lev1_3 (nr__4) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_3 (nr__4) ! [1/4167360] Reference level in Energy Level File
real*4 A_3 (nr__4) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-00400.dat' ! frequency-ordered transitions, 00400-00500cm^-1^
integer*4 nr__5
parameter (nr__5=1113869) ! Number of records
character*38 ar__5 ! Full-size record
integer*4 Lev1_4 (nr__5) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_4 (nr__5) ! [1/4167360] Reference level in Energy Level File
real*4 A_4 (nr__5) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-00500.dat' ! frequency-ordered transitions, 00500-00600cm^-1^
integer*4 nr__6
parameter (nr__6=1178862) ! Number of records
character*38 ar__6 ! Full-size record
integer*4 Lev1_5 (nr__6) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_5 (nr__6) ! [1/4167360] Reference level in Energy Level File
real*4 A_5 (nr__6) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-00600.dat' ! frequency-ordered transitions, 00600-00700cm^-1^
integer*4 nr__7
parameter (nr__7=1259075) ! Number of records
character*38 ar__7 ! Full-size record
integer*4 Lev1_6 (nr__7) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_6 (nr__7) ! [1/4167360] Reference level in Energy Level File
real*4 A_6 (nr__7) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-00700.dat' ! frequency-ordered transitions, 00700-00800cm^-1^
integer*4 nr__8
parameter (nr__8=1330374) ! Number of records
character*38 ar__8 ! Full-size record
integer*4 Lev1_7 (nr__8) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_7 (nr__8) ! [1/4167360] Reference level in Energy Level File
real*4 A_7 (nr__8) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-00800.dat' ! frequency-ordered transitions, 00800-00900cm^-1^
integer*4 nr__9
parameter (nr__9=1392503) ! Number of records
character*38 ar__9 ! Full-size record
integer*4 Lev1_8 (nr__9) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_8 (nr__9) ! [1/4167360] Reference level in Energy Level File
real*4 A_8 (nr__9) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-00900.dat' ! frequency-ordered transitions, 00900-01000cm^-1^
integer*4 nr__10
parameter (nr__10=1448135) ! Number of records
character*38 ar__10 ! Full-size record
integer*4 Lev1_9 (nr__10) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_9 (nr__10) ! [1/4167360] Reference level in Energy Level File
real*4 A_9 (nr__10) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-01000.dat' ! frequency-ordered transitions, 01000-01100cm^-1^
integer*4 nr__11
parameter (nr__11=1473957) ! Number of records
character*38 ar__11 ! Full-size record
integer*4 Lev1_10 (nr__11) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_10 (nr__11) ! [1/4167360] Reference level in Energy Level File
real*4 A_10 (nr__11) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-01100.dat' ! frequency-ordered transitions, 01100-01200cm^-1^
integer*4 nr__12
parameter (nr__12=1525679) ! Number of records
character*38 ar__12 ! Full-size record
integer*4 Lev1_11 (nr__12) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_11 (nr__12) ! [1/4167360] Reference level in Energy Level File
real*4 A_11 (nr__12) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-01200.dat' ! frequency-ordered transitions, 01200-01300cm^-1^
integer*4 nr__13
parameter (nr__13=1609146) ! Number of records
character*38 ar__13 ! Full-size record
integer*4 Lev1_12 (nr__13) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_12 (nr__13) ! [1/4167360] Reference level in Energy Level File
real*4 A_12 (nr__13) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-01300.dat' ! frequency-ordered transitions, 01300-01400cm^-1^
integer*4 nr__14
parameter (nr__14=1721833) ! Number of records
character*38 ar__14 ! Full-size record
integer*4 Lev1_13 (nr__14) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_13 (nr__14) ! [1/4167360] Reference level in Energy Level File
real*4 A_13 (nr__14) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-01400.dat' ! frequency-ordered transitions, 01400-01500cm^-1^
integer*4 nr__15
parameter (nr__15=1844544) ! Number of records
character*38 ar__15 ! Full-size record
integer*4 Lev1_14 (nr__15) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_14 (nr__15) ! [1/4167360] Reference level in Energy Level File
real*4 A_14 (nr__15) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-01500.dat' ! frequency-ordered transitions, 01500-01600cm^-1^
integer*4 nr__16
parameter (nr__16=1967673) ! Number of records
character*38 ar__16 ! Full-size record
integer*4 Lev1_15 (nr__16) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_15 (nr__16) ! [1/4167360] Reference level in Energy Level File
real*4 A_15 (nr__16) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-01600.dat' ! frequency-ordered transitions, 01600-01700cm^-1^
integer*4 nr__17
parameter (nr__17=2058265) ! Number of records
character*38 ar__17 ! Full-size record
integer*4 Lev1_16 (nr__17) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_16 (nr__17) ! [1/4167360] Reference level in Energy Level File
real*4 A_16 (nr__17) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-01700.dat' ! frequency-ordered transitions, 01700-01800cm^-1^
integer*4 nr__18
parameter (nr__18=2102558) ! Number of records
character*38 ar__18 ! Full-size record
integer*4 Lev1_17 (nr__18) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_17 (nr__18) ! [1/4167360] Reference level in Energy Level File
real*4 A_17 (nr__18) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-01800.dat' ! frequency-ordered transitions, 01800-01900cm^-1^
integer*4 nr__19
parameter (nr__19=2129362) ! Number of records
character*38 ar__19 ! Full-size record
integer*4 Lev1_18 (nr__19) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_18 (nr__19) ! [1/4167360] Reference level in Energy Level File
real*4 A_18 (nr__19) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-01900.dat' ! frequency-ordered transitions, 01900-02000cm^-1^
integer*4 nr__20
parameter (nr__20=2144368) ! Number of records
character*38 ar__20 ! Full-size record
integer*4 Lev1_19 (nr__20) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_19 (nr__20) ! [1/4167360] Reference level in Energy Level File
real*4 A_19 (nr__20) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-02000.dat' ! frequency-ordered transitions, 02000-02100cm^-1^
integer*4 nr__21
parameter (nr__21=2186309) ! Number of records
character*38 ar__21 ! Full-size record
integer*4 Lev1_20 (nr__21) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_20 (nr__21) ! [1/4167360] Reference level in Energy Level File
real*4 A_20 (nr__21) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-02100.dat' ! frequency-ordered transitions, 02100-02200cm^-1^
integer*4 nr__22
parameter (nr__22=2271167) ! Number of records
character*38 ar__22 ! Full-size record
integer*4 Lev1_21 (nr__22) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_21 (nr__22) ! [1/4167360] Reference level in Energy Level File
real*4 A_21 (nr__22) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-02200.dat' ! frequency-ordered transitions, 02200-02300cm^-1^
integer*4 nr__23
parameter (nr__23=2373033) ! Number of records
character*38 ar__23 ! Full-size record
integer*4 Lev1_22 (nr__23) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_22 (nr__23) ! [1/4167360] Reference level in Energy Level File
real*4 A_22 (nr__23) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-02300.dat' ! frequency-ordered transitions, 02300-02400cm^-1^
integer*4 nr__24
parameter (nr__24=2501654) ! Number of records
character*38 ar__24 ! Full-size record
integer*4 Lev1_23 (nr__24) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_23 (nr__24) ! [1/4167360] Reference level in Energy Level File
real*4 A_23 (nr__24) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-02400.dat' ! frequency-ordered transitions, 02400-02500cm^-1^
integer*4 nr__25
parameter (nr__25=2622434) ! Number of records
character*38 ar__25 ! Full-size record
integer*4 Lev1_24 (nr__25) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_24 (nr__25) ! [1/4167360] Reference level in Energy Level File
real*4 A_24 (nr__25) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-02500.dat' ! frequency-ordered transitions, 02500-02600cm^-1^
integer*4 nr__26
parameter (nr__26=2723233) ! Number of records
character*38 ar__26 ! Full-size record
integer*4 Lev1_25 (nr__26) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_25 (nr__26) ! [1/4167360] Reference level in Energy Level File
real*4 A_25 (nr__26) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-02600.dat' ! frequency-ordered transitions, 02600-02700cm^-1^
integer*4 nr__27
parameter (nr__27=2802387) ! Number of records
character*38 ar__27 ! Full-size record
integer*4 Lev1_26 (nr__27) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_26 (nr__27) ! [1/4167360] Reference level in Energy Level File
real*4 A_26 (nr__27) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-02700.dat' ! frequency-ordered transitions, 02700-02800cm^-1^
integer*4 nr__28
parameter (nr__28=2898849) ! Number of records
character*38 ar__28 ! Full-size record
integer*4 Lev1_27 (nr__28) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_27 (nr__28) ! [1/4167360] Reference level in Energy Level File
real*4 A_27 (nr__28) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-02800.dat' ! frequency-ordered transitions, 02800-02900cm^-1^
integer*4 nr__29
parameter (nr__29=3023510) ! Number of records
character*38 ar__29 ! Full-size record
integer*4 Lev1_28 (nr__29) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_28 (nr__29) ! [1/4167360] Reference level in Energy Level File
real*4 A_28 (nr__29) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-02900.dat' ! frequency-ordered transitions, 02900-03000cm^-1^
integer*4 nr__30
parameter (nr__30=3195291) ! Number of records
character*38 ar__30 ! Full-size record
integer*4 Lev1_29 (nr__30) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_29 (nr__30) ! [1/4167360] Reference level in Energy Level File
real*4 A_29 (nr__30) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-03000.dat' ! frequency-ordered transitions, 03000-03100cm^-1^
integer*4 nr__31
parameter (nr__31=3405551) ! Number of records
character*38 ar__31 ! Full-size record
integer*4 Lev1_30 (nr__31) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_30 (nr__31) ! [1/4167360] Reference level in Energy Level File
real*4 A_30 (nr__31) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-03100.dat' ! frequency-ordered transitions, 03100-03200cm^-1^
integer*4 nr__32
parameter (nr__32=3617557) ! Number of records
character*38 ar__32 ! Full-size record
integer*4 Lev1_31 (nr__32) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_31 (nr__32) ! [1/4167360] Reference level in Energy Level File
real*4 A_31 (nr__32) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-03200.dat' ! frequency-ordered transitions, 03200-03300cm^-1^
integer*4 nr__33
parameter (nr__33=3785845) ! Number of records
character*38 ar__33 ! Full-size record
integer*4 Lev1_32 (nr__33) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_32 (nr__33) ! [1/4167360] Reference level in Energy Level File
real*4 A_32 (nr__33) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-03300.dat' ! frequency-ordered transitions, 03300-03400cm^-1^
integer*4 nr__34
parameter (nr__34=3913479) ! Number of records
character*38 ar__34 ! Full-size record
integer*4 Lev1_33 (nr__34) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_33 (nr__34) ! [1/4167360] Reference level in Energy Level File
real*4 A_33 (nr__34) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-03400.dat' ! frequency-ordered transitions, 03400-03500cm^-1^
integer*4 nr__35
parameter (nr__35=3991611) ! Number of records
character*38 ar__35 ! Full-size record
integer*4 Lev1_34 (nr__35) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_34 (nr__35) ! [1/4167360] Reference level in Energy Level File
real*4 A_34 (nr__35) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-03500.dat' ! frequency-ordered transitions, 03500-03600cm^-1^
integer*4 nr__36
parameter (nr__36=4039425) ! Number of records
character*38 ar__36 ! Full-size record
integer*4 Lev1_35 (nr__36) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_35 (nr__36) ! [1/4167360] Reference level in Energy Level File
real*4 A_35 (nr__36) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-03600.dat' ! frequency-ordered transitions, 03600-03700cm^-1^
integer*4 nr__37
parameter (nr__37=4118227) ! Number of records
character*38 ar__37 ! Full-size record
integer*4 Lev1_36 (nr__37) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_36 (nr__37) ! [1/4167360] Reference level in Energy Level File
real*4 A_36 (nr__37) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-03700.dat' ! frequency-ordered transitions, 03700-03800cm^-1^
integer*4 nr__38
parameter (nr__38=4238610) ! Number of records
character*38 ar__38 ! Full-size record
integer*4 Lev1_37 (nr__38) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_37 (nr__38) ! [1/4167360] Reference level in Energy Level File
real*4 A_37 (nr__38) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-03800.dat' ! frequency-ordered transitions, 03800-03900cm^-1^
integer*4 nr__39
parameter (nr__39=4397129) ! Number of records
character*38 ar__39 ! Full-size record
integer*4 Lev1_38 (nr__39) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_38 (nr__39) ! [1/4167360] Reference level in Energy Level File
real*4 A_38 (nr__39) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-03900.dat' ! frequency-ordered transitions, 03900-04000cm^-1^
integer*4 nr__40
parameter (nr__40=4594598) ! Number of records
character*38 ar__40 ! Full-size record
integer*4 Lev1_39 (nr__40) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_39 (nr__40) ! [1/4167360] Reference level in Energy Level File
real*4 A_39 (nr__40) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-04000.dat' ! frequency-ordered transitions, 04000-04100cm^-1^
integer*4 nr__41
parameter (nr__41=4801158) ! Number of records
character*38 ar__41 ! Full-size record
integer*4 Lev1_40 (nr__41) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_40 (nr__41) ! [1/4167360] Reference level in Energy Level File
real*4 A_40 (nr__41) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-04100.dat' ! frequency-ordered transitions, 04100-04200cm^-1^
integer*4 nr__42
parameter (nr__42=4972457) ! Number of records
character*38 ar__42 ! Full-size record
integer*4 Lev1_41 (nr__42) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_41 (nr__42) ! [1/4167360] Reference level in Energy Level File
real*4 A_41 (nr__42) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-04200.dat' ! frequency-ordered transitions, 04200-04300cm^-1^
integer*4 nr__43
parameter (nr__43=5120515) ! Number of records
character*38 ar__43 ! Full-size record
integer*4 Lev1_42 (nr__43) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_42 (nr__43) ! [1/4167360] Reference level in Energy Level File
real*4 A_42 (nr__43) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-04300.dat' ! frequency-ordered transitions, 04300-04400cm^-1^
integer*4 nr__44
parameter (nr__44=5289932) ! Number of records
character*38 ar__44 ! Full-size record
integer*4 Lev1_43 (nr__44) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_43 (nr__44) ! [1/4167360] Reference level in Energy Level File
real*4 A_43 (nr__44) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-04400.dat' ! frequency-ordered transitions, 04400-04500cm^-1^
integer*4 nr__45
parameter (nr__45=5467013) ! Number of records
character*38 ar__45 ! Full-size record
integer*4 Lev1_44 (nr__45) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_44 (nr__45) ! [1/4167360] Reference level in Energy Level File
real*4 A_44 (nr__45) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-04500.dat' ! frequency-ordered transitions, 04500-04600cm^-1^
integer*4 nr__46
parameter (nr__46=5693057) ! Number of records
character*38 ar__46 ! Full-size record
integer*4 Lev1_45 (nr__46) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_45 (nr__46) ! [1/4167360] Reference level in Energy Level File
real*4 A_45 (nr__46) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-04600.dat' ! frequency-ordered transitions, 04600-04700cm^-1^
integer*4 nr__47
parameter (nr__47=5974425) ! Number of records
character*38 ar__47 ! Full-size record
integer*4 Lev1_46 (nr__47) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_46 (nr__47) ! [1/4167360] Reference level in Energy Level File
real*4 A_46 (nr__47) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-04700.dat' ! frequency-ordered transitions, 04700-04800cm^-1^
integer*4 nr__48
parameter (nr__48=6256099) ! Number of records
character*38 ar__48 ! Full-size record
integer*4 Lev1_47 (nr__48) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_47 (nr__48) ! [1/4167360] Reference level in Energy Level File
real*4 A_47 (nr__48) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-04800.dat' ! frequency-ordered transitions, 04800-04900cm^-1^
integer*4 nr__49
parameter (nr__49=6503065) ! Number of records
character*38 ar__49 ! Full-size record
integer*4 Lev1_48 (nr__49) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_48 (nr__49) ! [1/4167360] Reference level in Energy Level File
real*4 A_48 (nr__49) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-04900.dat' ! frequency-ordered transitions, 04900-05000cm^-1^
integer*4 nr__50
parameter (nr__50=6706294) ! Number of records
character*38 ar__50 ! Full-size record
integer*4 Lev1_49 (nr__50) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_49 (nr__50) ! [1/4167360] Reference level in Energy Level File
real*4 A_49 (nr__50) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-05000.dat' ! frequency-ordered transitions, 05000-05100cm^-1^
integer*4 nr__51
parameter (nr__51=6860855) ! Number of records
character*38 ar__51 ! Full-size record
integer*4 Lev1_50 (nr__51) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_50 (nr__51) ! [1/4167360] Reference level in Energy Level File
real*4 A_50 (nr__51) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-05100.dat' ! frequency-ordered transitions, 05100-05200cm^-1^
integer*4 nr__52
parameter (nr__52=6960417) ! Number of records
character*38 ar__52 ! Full-size record
integer*4 Lev1_51 (nr__52) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_51 (nr__52) ! [1/4167360] Reference level in Energy Level File
real*4 A_51 (nr__52) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-05200.dat' ! frequency-ordered transitions, 05200-05300cm^-1^
integer*4 nr__53
parameter (nr__53=7079819) ! Number of records
character*38 ar__53 ! Full-size record
integer*4 Lev1_52 (nr__53) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_52 (nr__53) ! [1/4167360] Reference level in Energy Level File
real*4 A_52 (nr__53) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-05300.dat' ! frequency-ordered transitions, 05300-05400cm^-1^
integer*4 nr__54
parameter (nr__54=7234325) ! Number of records
character*38 ar__54 ! Full-size record
integer*4 Lev1_53 (nr__54) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_53 (nr__54) ! [1/4167360] Reference level in Energy Level File
real*4 A_53 (nr__54) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-05400.dat' ! frequency-ordered transitions, 05400-05500cm^-1^
integer*4 nr__55
parameter (nr__55=7442462) ! Number of records
character*38 ar__55 ! Full-size record
integer*4 Lev1_54 (nr__55) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_54 (nr__55) ! [1/4167360] Reference level in Energy Level File
real*4 A_54 (nr__55) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-05500.dat' ! frequency-ordered transitions, 05500-05600cm^-1^
integer*4 nr__56
parameter (nr__56=7711422) ! Number of records
character*38 ar__56 ! Full-size record
integer*4 Lev1_55 (nr__56) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_55 (nr__56) ! [1/4167360] Reference level in Energy Level File
real*4 A_55 (nr__56) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-05600.dat' ! frequency-ordered transitions, 05600-05700cm^-1^
integer*4 nr__57
parameter (nr__57=8010525) ! Number of records
character*38 ar__57 ! Full-size record
integer*4 Lev1_56 (nr__57) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_56 (nr__57) ! [1/4167360] Reference level in Energy Level File
real*4 A_56 (nr__57) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-05700.dat' ! frequency-ordered transitions, 05700-05800cm^-1^
integer*4 nr__58
parameter (nr__58=8276442) ! Number of records
character*38 ar__58 ! Full-size record
integer*4 Lev1_57 (nr__58) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_57 (nr__58) ! [1/4167360] Reference level in Energy Level File
real*4 A_57 (nr__58) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-05800.dat' ! frequency-ordered transitions, 05800-05900cm^-1^
integer*4 nr__59
parameter (nr__59=8531943) ! Number of records
character*38 ar__59 ! Full-size record
integer*4 Lev1_58 (nr__59) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_58 (nr__59) ! [1/4167360] Reference level in Energy Level File
real*4 A_58 (nr__59) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-05900.dat' ! frequency-ordered transitions, 05900-06000cm^-1^
integer*4 nr__60
parameter (nr__60=8789752) ! Number of records
character*38 ar__60 ! Full-size record
integer*4 Lev1_59 (nr__60) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_59 (nr__60) ! [1/4167360] Reference level in Energy Level File
real*4 A_59 (nr__60) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-06000.dat' ! frequency-ordered transitions, 06000-06100cm^-1^
integer*4 nr__61
parameter (nr__61=9055326) ! Number of records
character*38 ar__61 ! Full-size record
integer*4 Lev1_60 (nr__61) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_60 (nr__61) ! [1/4167360] Reference level in Energy Level File
real*4 A_60 (nr__61) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-06100.dat' ! frequency-ordered transitions, 06100-06200cm^-1^
integer*4 nr__62
parameter (nr__62=9368728) ! Number of records
character*38 ar__62 ! Full-size record
integer*4 Lev1_61 (nr__62) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_61 (nr__62) ! [1/4167360] Reference level in Energy Level File
real*4 A_61 (nr__62) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-06200.dat' ! frequency-ordered transitions, 06200-06300cm^-1^
integer*4 nr__63
parameter (nr__63=9745838) ! Number of records
character*38 ar__63 ! Full-size record
integer*4 Lev1_62 (nr__63) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_62 (nr__63) ! [1/4167360] Reference level in Energy Level File
real*4 A_62 (nr__63) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-06300.dat' ! frequency-ordered transitions, 06300-06400cm^-1^
integer*4 nr__64
parameter (nr__64=10130895) ! Number of records
character*38 ar__64 ! Full-size record
integer*4 Lev1_63 (nr__64) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_63 (nr__64) ! [1/4167360] Reference level in Energy Level File
real*4 A_63 (nr__64) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-06400.dat' ! frequency-ordered transitions, 06400-06500cm^-1^
integer*4 nr__65
parameter (nr__65=10481180) ! Number of records
character*38 ar__65 ! Full-size record
integer*4 Lev1_64 (nr__65) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_64 (nr__65) ! [1/4167360] Reference level in Energy Level File
real*4 A_64 (nr__65) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-06500.dat' ! frequency-ordered transitions, 06500-06600cm^-1^
integer*4 nr__66
parameter (nr__66=10780525) ! Number of records
character*38 ar__66 ! Full-size record
integer*4 Lev1_65 (nr__66) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_65 (nr__66) ! [1/4167360] Reference level in Energy Level File
real*4 A_65 (nr__66) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-06600.dat' ! frequency-ordered transitions, 06600-06700cm^-1^
integer*4 nr__67
parameter (nr__67=11006291) ! Number of records
character*38 ar__67 ! Full-size record
integer*4 Lev1_66 (nr__67) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_66 (nr__67) ! [1/4167360] Reference level in Energy Level File
real*4 A_66 (nr__67) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-06700.dat' ! frequency-ordered transitions, 06700-06800cm^-1^
integer*4 nr__68
parameter (nr__68=11163868) ! Number of records
character*38 ar__68 ! Full-size record
integer*4 Lev1_67 (nr__68) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_67 (nr__68) ! [1/4167360] Reference level in Energy Level File
real*4 A_67 (nr__68) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-06800.dat' ! frequency-ordered transitions, 06800-06900cm^-1^
integer*4 nr__69
parameter (nr__69=11333508) ! Number of records
character*38 ar__69 ! Full-size record
integer*4 Lev1_68 (nr__69) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_68 (nr__69) ! [1/4167360] Reference level in Energy Level File
real*4 A_68 (nr__69) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-06900.dat' ! frequency-ordered transitions, 06900-07000cm^-1^
integer*4 nr__70
parameter (nr__70=11540059) ! Number of records
character*38 ar__70 ! Full-size record
integer*4 Lev1_69 (nr__70) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_69 (nr__70) ! [1/4167360] Reference level in Energy Level File
real*4 A_69 (nr__70) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-07000.dat' ! frequency-ordered transitions, 07000-07100cm^-1^
integer*4 nr__71
parameter (nr__71=11809529) ! Number of records
character*38 ar__71 ! Full-size record
integer*4 Lev1_70 (nr__71) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_70 (nr__71) ! [1/4167360] Reference level in Energy Level File
real*4 A_70 (nr__71) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-07100.dat' ! frequency-ordered transitions, 07100-07200cm^-1^
integer*4 nr__72
parameter (nr__72=12166183) ! Number of records
character*38 ar__72 ! Full-size record
integer*4 Lev1_71 (nr__72) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_71 (nr__72) ! [1/4167360] Reference level in Energy Level File
real*4 A_71 (nr__72) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-07200.dat' ! frequency-ordered transitions, 07200-07300cm^-1^
integer*4 nr__73
parameter (nr__73=12557951) ! Number of records
character*38 ar__73 ! Full-size record
integer*4 Lev1_72 (nr__73) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_72 (nr__73) ! [1/4167360] Reference level in Energy Level File
real*4 A_72 (nr__73) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-07300.dat' ! frequency-ordered transitions, 07300-07400cm^-1^
integer*4 nr__74
parameter (nr__74=12937073) ! Number of records
character*38 ar__74 ! Full-size record
integer*4 Lev1_73 (nr__74) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_73 (nr__74) ! [1/4167360] Reference level in Energy Level File
real*4 A_73 (nr__74) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-07400.dat' ! frequency-ordered transitions, 07400-07500cm^-1^
integer*4 nr__75
parameter (nr__75=13293545) ! Number of records
character*38 ar__75 ! Full-size record
integer*4 Lev1_74 (nr__75) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_74 (nr__75) ! [1/4167360] Reference level in Energy Level File
real*4 A_74 (nr__75) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-07500.dat' ! frequency-ordered transitions, 07500-07600cm^-1^
integer*4 nr__76
parameter (nr__76=13639572) ! Number of records
character*38 ar__76 ! Full-size record
integer*4 Lev1_75 (nr__76) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_75 (nr__76) ! [1/4167360] Reference level in Energy Level File
real*4 A_75 (nr__76) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-07600.dat' ! frequency-ordered transitions, 07600-07700cm^-1^
integer*4 nr__77
parameter (nr__77=13986280) ! Number of records
character*38 ar__77 ! Full-size record
integer*4 Lev1_76 (nr__77) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_76 (nr__77) ! [1/4167360] Reference level in Energy Level File
real*4 A_76 (nr__77) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-07700.dat' ! frequency-ordered transitions, 07700-07800cm^-1^
integer*4 nr__78
parameter (nr__78=14379711) ! Number of records
character*38 ar__78 ! Full-size record
integer*4 Lev1_77 (nr__78) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_77 (nr__78) ! [1/4167360] Reference level in Energy Level File
real*4 A_77 (nr__78) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-07800.dat' ! frequency-ordered transitions, 07800-07900cm^-1^
integer*4 nr__79
parameter (nr__79=14829655) ! Number of records
character*38 ar__79 ! Full-size record
integer*4 Lev1_78 (nr__79) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_78 (nr__79) ! [1/4167360] Reference level in Energy Level File
real*4 A_78 (nr__79) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-07900.dat' ! frequency-ordered transitions, 07900-08000cm^-1^
integer*4 nr__80
parameter (nr__80=15288793) ! Number of records
character*38 ar__80 ! Full-size record
integer*4 Lev1_79 (nr__80) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_79 (nr__80) ! [1/4167360] Reference level in Energy Level File
real*4 A_79 (nr__80) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-08000.dat' ! frequency-ordered transitions, 08000-08100cm^-1^
integer*4 nr__81
parameter (nr__81=15725255) ! Number of records
character*38 ar__81 ! Full-size record
integer*4 Lev1_80 (nr__81) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_80 (nr__81) ! [1/4167360] Reference level in Energy Level File
real*4 A_80 (nr__81) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-08100.dat' ! frequency-ordered transitions, 08100-08200cm^-1^
integer*4 nr__82
parameter (nr__82=16113244) ! Number of records
character*38 ar__82 ! Full-size record
integer*4 Lev1_81 (nr__82) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_81 (nr__82) ! [1/4167360] Reference level in Energy Level File
real*4 A_81 (nr__82) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-08200.dat' ! frequency-ordered transitions, 08200-08300cm^-1^
integer*4 nr__83
parameter (nr__83=16426095) ! Number of records
character*38 ar__83 ! Full-size record
integer*4 Lev1_82 (nr__83) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_82 (nr__83) ! [1/4167360] Reference level in Energy Level File
real*4 A_82 (nr__83) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-08300.dat' ! frequency-ordered transitions, 08300-08400cm^-1^
integer*4 nr__84
parameter (nr__84=16667848) ! Number of records
character*38 ar__84 ! Full-size record
integer*4 Lev1_83 (nr__84) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_83 (nr__84) ! [1/4167360] Reference level in Energy Level File
real*4 A_83 (nr__84) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-08400.dat' ! frequency-ordered transitions, 08400-08500cm^-1^
integer*4 nr__85
parameter (nr__85=16904219) ! Number of records
character*38 ar__85 ! Full-size record
integer*4 Lev1_84 (nr__85) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_84 (nr__85) ! [1/4167360] Reference level in Energy Level File
real*4 A_84 (nr__85) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-08500.dat' ! frequency-ordered transitions, 08500-08600cm^-1^
integer*4 nr__86
parameter (nr__86=17157959) ! Number of records
character*38 ar__86 ! Full-size record
integer*4 Lev1_85 (nr__86) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_85 (nr__86) ! [1/4167360] Reference level in Energy Level File
real*4 A_85 (nr__86) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-08600.dat' ! frequency-ordered transitions, 08600-08700cm^-1^
integer*4 nr__87
parameter (nr__87=17476169) ! Number of records
character*38 ar__87 ! Full-size record
integer*4 Lev1_86 (nr__87) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_86 (nr__87) ! [1/4167360] Reference level in Energy Level File
real*4 A_86 (nr__87) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-08700.dat' ! frequency-ordered transitions, 08700-08800cm^-1^
integer*4 nr__88
parameter (nr__88=17898755) ! Number of records
character*38 ar__88 ! Full-size record
integer*4 Lev1_87 (nr__88) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_87 (nr__88) ! [1/4167360] Reference level in Energy Level File
real*4 A_87 (nr__88) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-08800.dat' ! frequency-ordered transitions, 08800-08900cm^-1^
integer*4 nr__89
parameter (nr__89=18383515) ! Number of records
character*38 ar__89 ! Full-size record
integer*4 Lev1_88 (nr__89) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_88 (nr__89) ! [1/4167360] Reference level in Energy Level File
real*4 A_88 (nr__89) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-08900.dat' ! frequency-ordered transitions, 08900-09000cm^-1^
integer*4 nr__90
parameter (nr__90=18882490) ! Number of records
character*38 ar__90 ! Full-size record
integer*4 Lev1_89 (nr__90) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_89 (nr__90) ! [1/4167360] Reference level in Energy Level File
real*4 A_89 (nr__90) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-09000.dat' ! frequency-ordered transitions, 09000-09100cm^-1^
integer*4 nr__91
parameter (nr__91=19373298) ! Number of records
character*38 ar__91 ! Full-size record
integer*4 Lev1_90 (nr__91) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_90 (nr__91) ! [1/4167360] Reference level in Energy Level File
real*4 A_90 (nr__91) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-09100.dat' ! frequency-ordered transitions, 09100-09200cm^-1^
integer*4 nr__92
parameter (nr__92=19837694) ! Number of records
character*38 ar__92 ! Full-size record
integer*4 Lev1_91 (nr__92) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_91 (nr__92) ! [1/4167360] Reference level in Energy Level File
real*4 A_91 (nr__92) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-09200.dat' ! frequency-ordered transitions, 09200-09300cm^-1^
integer*4 nr__93
parameter (nr__93=20239006) ! Number of records
character*38 ar__93 ! Full-size record
integer*4 Lev1_92 (nr__93) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_92 (nr__93) ! [1/4167360] Reference level in Energy Level File
real*4 A_92 (nr__93) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-09300.dat' ! frequency-ordered transitions, 09300-09400cm^-1^
integer*4 nr__94
parameter (nr__94=20646768) ! Number of records
character*38 ar__94 ! Full-size record
integer*4 Lev1_93 (nr__94) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_93 (nr__94) ! [1/4167360] Reference level in Energy Level File
real*4 A_93 (nr__94) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-09400.dat' ! frequency-ordered transitions, 09400-09500cm^-1^
integer*4 nr__95
parameter (nr__95=21096539) ! Number of records
character*38 ar__95 ! Full-size record
integer*4 Lev1_94 (nr__95) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_94 (nr__95) ! [1/4167360] Reference level in Energy Level File
real*4 A_94 (nr__95) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-09500.dat' ! frequency-ordered transitions, 09500-09600cm^-1^
integer*4 nr__96
parameter (nr__96=21547715) ! Number of records
character*38 ar__96 ! Full-size record
integer*4 Lev1_95 (nr__96) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_95 (nr__96) ! [1/4167360] Reference level in Energy Level File
real*4 A_95 (nr__96) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-09600.dat' ! frequency-ordered transitions, 09600-09700cm^-1^
integer*4 nr__97
parameter (nr__97=21982458) ! Number of records
character*38 ar__97 ! Full-size record
integer*4 Lev1_96 (nr__97) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_96 (nr__97) ! [1/4167360] Reference level in Energy Level File
real*4 A_96 (nr__97) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-09700.dat' ! frequency-ordered transitions, 09700-09800cm^-1^
integer*4 nr__98
parameter (nr__98=22373923) ! Number of records
character*38 ar__98 ! Full-size record
integer*4 Lev1_97 (nr__98) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_97 (nr__98) ! [1/4167360] Reference level in Energy Level File
real*4 A_97 (nr__98) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-09800.dat' ! frequency-ordered transitions, 09800-09900cm^-1^
integer*4 nr__99
parameter (nr__99=22702270) ! Number of records
character*38 ar__99 ! Full-size record
integer*4 Lev1_98 (nr__99) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_98 (nr__99) ! [1/4167360] Reference level in Energy Level File
real*4 A_98 (nr__99) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-09900.dat' ! frequency-ordered transitions, 09900-10000cm^-1^
integer*4 nr__100
parameter (nr__100=22934619) ! Number of records
character*38 ar__100 ! Full-size record
integer*4 Lev1_99 (nr__100) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_99 (nr__100) ! [1/4167360] Reference level in Energy Level File
real*4 A_99 (nr__100) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-10000.dat' ! frequency-ordered transitions, 10000-10100cm^-1^
integer*4 nr__101
parameter (nr__101=22339283) ! Number of records
character*38 ar__101 ! Full-size record
integer*4 Lev1_100 (nr__101) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_100 (nr__101) ! [1/4167360] Reference level in Energy Level File
real*4 A_100 (nr__101) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-10100.dat' ! frequency-ordered transitions, 10100-10200cm^-1^
integer*4 nr__102
parameter (nr__102=21108601) ! Number of records
character*38 ar__102 ! Full-size record
integer*4 Lev1_101 (nr__102) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_101 (nr__102) ! [1/4167360] Reference level in Energy Level File
real*4 A_101 (nr__102) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-10200.dat' ! frequency-ordered transitions, 10200-10300cm^-1^
integer*4 nr__103
parameter (nr__103=19952989) ! Number of records
character*38 ar__103 ! Full-size record
integer*4 Lev1_102 (nr__103) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_102 (nr__103) ! [1/4167360] Reference level in Energy Level File
real*4 A_102 (nr__103) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-10300.dat' ! frequency-ordered transitions, 10300-10400cm^-1^
integer*4 nr__104
parameter (nr__104=18926591) ! Number of records
character*38 ar__104 ! Full-size record
integer*4 Lev1_103 (nr__104) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_103 (nr__104) ! [1/4167360] Reference level in Energy Level File
real*4 A_103 (nr__104) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-10400.dat' ! frequency-ordered transitions, 10400-10500cm^-1^
integer*4 nr__105
parameter (nr__105=18011268) ! Number of records
character*38 ar__105 ! Full-size record
integer*4 Lev1_104 (nr__105) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_104 (nr__105) ! [1/4167360] Reference level in Energy Level File
real*4 A_104 (nr__105) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-10500.dat' ! frequency-ordered transitions, 10500-10600cm^-1^
integer*4 nr__106
parameter (nr__106=17192700) ! Number of records
character*38 ar__106 ! Full-size record
integer*4 Lev1_105 (nr__106) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_105 (nr__106) ! [1/4167360] Reference level in Energy Level File
real*4 A_105 (nr__106) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-10600.dat' ! frequency-ordered transitions, 10600-10700cm^-1^
integer*4 nr__107
parameter (nr__107=16452057) ! Number of records
character*38 ar__107 ! Full-size record
integer*4 Lev1_106 (nr__107) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_106 (nr__107) ! [1/4167360] Reference level in Energy Level File
real*4 A_106 (nr__107) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-10700.dat' ! frequency-ordered transitions, 10700-10800cm^-1^
integer*4 nr__108
parameter (nr__108=15692461) ! Number of records
character*38 ar__108 ! Full-size record
integer*4 Lev1_107 (nr__108) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_107 (nr__108) ! [1/4167360] Reference level in Energy Level File
real*4 A_107 (nr__108) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-10800.dat' ! frequency-ordered transitions, 10800-10900cm^-1^
integer*4 nr__109
parameter (nr__109=14961423) ! Number of records
character*38 ar__109 ! Full-size record
integer*4 Lev1_108 (nr__109) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_108 (nr__109) ! [1/4167360] Reference level in Energy Level File
real*4 A_108 (nr__109) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-10900.dat' ! frequency-ordered transitions, 10900-11000cm^-1^
integer*4 nr__110
parameter (nr__110=14165788) ! Number of records
character*38 ar__110 ! Full-size record
integer*4 Lev1_109 (nr__110) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_109 (nr__110) ! [1/4167360] Reference level in Energy Level File
real*4 A_109 (nr__110) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-11000.dat' ! frequency-ordered transitions, 11000-11100cm^-1^
integer*4 nr__111
parameter (nr__111=13409218) ! Number of records
character*38 ar__111 ! Full-size record
integer*4 Lev1_110 (nr__111) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_110 (nr__111) ! [1/4167360] Reference level in Energy Level File
real*4 A_110 (nr__111) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-11100.dat' ! frequency-ordered transitions, 11100-11200cm^-1^
integer*4 nr__112
parameter (nr__112=12705679) ! Number of records
character*38 ar__112 ! Full-size record
integer*4 Lev1_111 (nr__112) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_111 (nr__112) ! [1/4167360] Reference level in Energy Level File
real*4 A_111 (nr__112) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-11200.dat' ! frequency-ordered transitions, 11200-11300cm^-1^
integer*4 nr__113
parameter (nr__113=12056386) ! Number of records
character*38 ar__113 ! Full-size record
integer*4 Lev1_112 (nr__113) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_112 (nr__113) ! [1/4167360] Reference level in Energy Level File
real*4 A_112 (nr__113) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-11300.dat' ! frequency-ordered transitions, 11300-11400cm^-1^
integer*4 nr__114
parameter (nr__114=11407255) ! Number of records
character*38 ar__114 ! Full-size record
integer*4 Lev1_113 (nr__114) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_113 (nr__114) ! [1/4167360] Reference level in Energy Level File
real*4 A_113 (nr__114) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-11400.dat' ! frequency-ordered transitions, 11400-11500cm^-1^
integer*4 nr__115
parameter (nr__115=10751832) ! Number of records
character*38 ar__115 ! Full-size record
integer*4 Lev1_114 (nr__115) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_114 (nr__115) ! [1/4167360] Reference level in Energy Level File
real*4 A_114 (nr__115) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-11500.dat' ! frequency-ordered transitions, 11500-11600cm^-1^
integer*4 nr__116
parameter (nr__116=10124085) ! Number of records
character*38 ar__116 ! Full-size record
integer*4 Lev1_115 (nr__116) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_115 (nr__116) ! [1/4167360] Reference level in Energy Level File
real*4 A_115 (nr__116) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-11600.dat' ! frequency-ordered transitions, 11600-11700cm^-1^
integer*4 nr__117
parameter (nr__117=9474612) ! Number of records
character*38 ar__117 ! Full-size record
integer*4 Lev1_116 (nr__117) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_116 (nr__117) ! [1/4167360] Reference level in Energy Level File
real*4 A_116 (nr__117) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-11700.dat' ! frequency-ordered transitions, 11700-11800cm^-1^
integer*4 nr__118
parameter (nr__118=8854492) ! Number of records
character*38 ar__118 ! Full-size record
integer*4 Lev1_117 (nr__118) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_117 (nr__118) ! [1/4167360] Reference level in Energy Level File
real*4 A_117 (nr__118) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-11800.dat' ! frequency-ordered transitions, 11800-11900cm^-1^
integer*4 nr__119
parameter (nr__119=8273327) ! Number of records
character*38 ar__119 ! Full-size record
integer*4 Lev1_118 (nr__119) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_118 (nr__119) ! [1/4167360] Reference level in Energy Level File
real*4 A_118 (nr__119) ! (s-1) Einstein A coefficient of transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'a-11900.dat' ! frequency-ordered transitions, 11900-12000cm^-1^
integer*4 nr__120
parameter (nr__120=7750733) ! Number of records
character*38 ar__120 ! Full-size record
integer*4 Lev1_119 (nr__120) ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_119 (nr__120) ! [1/4167360] Reference level in Energy Level File
real*4 A_119 (nr__120) ! (s-1) Einstein A coefficient of transition
C=============================================================================
C Loading file 'nh3_0-41.dat' ! labelled rovibrational states
C Format for file interpretation
1 format(
+ 5X,I7,2X,I2,1X,I2,4X,I6,4X,F12.6,4X,I2,2X,I2,2X,I2,2X,I2,4X,
+ I2,1X,I3,3X,I2,9X,I2,3X,I1,5X,I2,2X,I2,2X,I2,3X,I1,2X,I2,2X,
+ I2,4X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'nh3_0-41.dat')
write(6,*) '....Loading file: nh3_0-41.dat'
do i__=1,4167360
read(1,'(A126)')ar__
read(ar__,1)
+ Seq(i__),J(i__),G(i__),N_Block(i__),E(i__),n1(i__),n2(i__),
+ n3(i__),n4(i__),l3(i__),l4(i__),Pi(i__),K(i__),Pr(i__),
+ v1(i__),v2(i__),v3(i__),v4(i__),v5(i__),v6(i__),Gv(i__)
c ..............Just test output...........
write(6,1)
+ Seq(i__),J(i__),G(i__),N_Block(i__),E(i__),n1(i__),n2(i__),
+ n3(i__),n4(i__),l3(i__),l4(i__),Pi(i__),K(i__),Pr(i__),
+ v1(i__),v2(i__),v3(i__),v4(i__),v5(i__),v6(i__),Gv(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-00000.dat' ! frequency-ordered transitions, 00000-00100cm^-1^
C Format for file interpretation
2 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-00000.dat')
write(6,*) '....Loading file: a-00000.dat'
do i__=1,982907
read(1,'(A38)')ar__1
read(ar__1,2)Lev1(i__),Lev2(i__),A(i__)
c ..............Just test output...........
write(6,2)Lev1(i__),Lev2(i__),A(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-00100.dat' ! frequency-ordered transitions, 00100-00200cm^-1^
C Format for file interpretation
3 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-00100.dat')
write(6,*) '....Loading file: a-00100.dat'
do i__=1,1037545
read(1,'(A38)')ar__2
read(ar__2,3)Lev1_1(i__),Lev2_1(i__),A_1(i__)
c ..............Just test output...........
write(6,3)Lev1_1(i__),Lev2_1(i__),A_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-00200.dat' ! frequency-ordered transitions, 00200-00300cm^-1^
C Format for file interpretation
4 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-00200.dat')
write(6,*) '....Loading file: a-00200.dat'
do i__=1,1062896
read(1,'(A38)')ar__3
read(ar__3,4)Lev1_2(i__),Lev2_2(i__),A_2(i__)
c ..............Just test output...........
write(6,4)Lev1_2(i__),Lev2_2(i__),A_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-00300.dat' ! frequency-ordered transitions, 00300-00400cm^-1^
C Format for file interpretation
5 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-00300.dat')
write(6,*) '....Loading file: a-00300.dat'
do i__=1,1082795
read(1,'(A38)')ar__4
read(ar__4,5)Lev1_3(i__),Lev2_3(i__),A_3(i__)
c ..............Just test output...........
write(6,5)Lev1_3(i__),Lev2_3(i__),A_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-00400.dat' ! frequency-ordered transitions, 00400-00500cm^-1^
C Format for file interpretation
6 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-00400.dat')
write(6,*) '....Loading file: a-00400.dat'
do i__=1,1113869
read(1,'(A38)')ar__5
read(ar__5,6)Lev1_4(i__),Lev2_4(i__),A_4(i__)
c ..............Just test output...........
write(6,6)Lev1_4(i__),Lev2_4(i__),A_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-00500.dat' ! frequency-ordered transitions, 00500-00600cm^-1^
C Format for file interpretation
7 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-00500.dat')
write(6,*) '....Loading file: a-00500.dat'
do i__=1,1178862
read(1,'(A38)')ar__6
read(ar__6,7)Lev1_5(i__),Lev2_5(i__),A_5(i__)
c ..............Just test output...........
write(6,7)Lev1_5(i__),Lev2_5(i__),A_5(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-00600.dat' ! frequency-ordered transitions, 00600-00700cm^-1^
C Format for file interpretation
8 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-00600.dat')
write(6,*) '....Loading file: a-00600.dat'
do i__=1,1259075
read(1,'(A38)')ar__7
read(ar__7,8)Lev1_6(i__),Lev2_6(i__),A_6(i__)
c ..............Just test output...........
write(6,8)Lev1_6(i__),Lev2_6(i__),A_6(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-00700.dat' ! frequency-ordered transitions, 00700-00800cm^-1^
C Format for file interpretation
9 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-00700.dat')
write(6,*) '....Loading file: a-00700.dat'
do i__=1,1330374
read(1,'(A38)')ar__8
read(ar__8,9)Lev1_7(i__),Lev2_7(i__),A_7(i__)
c ..............Just test output...........
write(6,9)Lev1_7(i__),Lev2_7(i__),A_7(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-00800.dat' ! frequency-ordered transitions, 00800-00900cm^-1^
C Format for file interpretation
10 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-00800.dat')
write(6,*) '....Loading file: a-00800.dat'
do i__=1,1392503
read(1,'(A38)')ar__9
read(ar__9,10)Lev1_8(i__),Lev2_8(i__),A_8(i__)
c ..............Just test output...........
write(6,10)Lev1_8(i__),Lev2_8(i__),A_8(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-00900.dat' ! frequency-ordered transitions, 00900-01000cm^-1^
C Format for file interpretation
11 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-00900.dat')
write(6,*) '....Loading file: a-00900.dat'
do i__=1,1448135
read(1,'(A38)')ar__10
read(ar__10,11)Lev1_9(i__),Lev2_9(i__),A_9(i__)
c ..............Just test output...........
write(6,11)Lev1_9(i__),Lev2_9(i__),A_9(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-01000.dat' ! frequency-ordered transitions, 01000-01100cm^-1^
C Format for file interpretation
12 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-01000.dat')
write(6,*) '....Loading file: a-01000.dat'
do i__=1,1473957
read(1,'(A38)')ar__11
read(ar__11,12)Lev1_10(i__),Lev2_10(i__),A_10(i__)
c ..............Just test output...........
write(6,12)Lev1_10(i__),Lev2_10(i__),A_10(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-01100.dat' ! frequency-ordered transitions, 01100-01200cm^-1^
C Format for file interpretation
13 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-01100.dat')
write(6,*) '....Loading file: a-01100.dat'
do i__=1,1525679
read(1,'(A38)')ar__12
read(ar__12,13)Lev1_11(i__),Lev2_11(i__),A_11(i__)
c ..............Just test output...........
write(6,13)Lev1_11(i__),Lev2_11(i__),A_11(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-01200.dat' ! frequency-ordered transitions, 01200-01300cm^-1^
C Format for file interpretation
14 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-01200.dat')
write(6,*) '....Loading file: a-01200.dat'
do i__=1,1609146
read(1,'(A38)')ar__13
read(ar__13,14)Lev1_12(i__),Lev2_12(i__),A_12(i__)
c ..............Just test output...........
write(6,14)Lev1_12(i__),Lev2_12(i__),A_12(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-01300.dat' ! frequency-ordered transitions, 01300-01400cm^-1^
C Format for file interpretation
15 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-01300.dat')
write(6,*) '....Loading file: a-01300.dat'
do i__=1,1721833
read(1,'(A38)')ar__14
read(ar__14,15)Lev1_13(i__),Lev2_13(i__),A_13(i__)
c ..............Just test output...........
write(6,15)Lev1_13(i__),Lev2_13(i__),A_13(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-01400.dat' ! frequency-ordered transitions, 01400-01500cm^-1^
C Format for file interpretation
16 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-01400.dat')
write(6,*) '....Loading file: a-01400.dat'
do i__=1,1844544
read(1,'(A38)')ar__15
read(ar__15,16)Lev1_14(i__),Lev2_14(i__),A_14(i__)
c ..............Just test output...........
write(6,16)Lev1_14(i__),Lev2_14(i__),A_14(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-01500.dat' ! frequency-ordered transitions, 01500-01600cm^-1^
C Format for file interpretation
17 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-01500.dat')
write(6,*) '....Loading file: a-01500.dat'
do i__=1,1967673
read(1,'(A38)')ar__16
read(ar__16,17)Lev1_15(i__),Lev2_15(i__),A_15(i__)
c ..............Just test output...........
write(6,17)Lev1_15(i__),Lev2_15(i__),A_15(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-01600.dat' ! frequency-ordered transitions, 01600-01700cm^-1^
C Format for file interpretation
18 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-01600.dat')
write(6,*) '....Loading file: a-01600.dat'
do i__=1,2058265
read(1,'(A38)')ar__17
read(ar__17,18)Lev1_16(i__),Lev2_16(i__),A_16(i__)
c ..............Just test output...........
write(6,18)Lev1_16(i__),Lev2_16(i__),A_16(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-01700.dat' ! frequency-ordered transitions, 01700-01800cm^-1^
C Format for file interpretation
19 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-01700.dat')
write(6,*) '....Loading file: a-01700.dat'
do i__=1,2102558
read(1,'(A38)')ar__18
read(ar__18,19)Lev1_17(i__),Lev2_17(i__),A_17(i__)
c ..............Just test output...........
write(6,19)Lev1_17(i__),Lev2_17(i__),A_17(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-01800.dat' ! frequency-ordered transitions, 01800-01900cm^-1^
C Format for file interpretation
20 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-01800.dat')
write(6,*) '....Loading file: a-01800.dat'
do i__=1,2129362
read(1,'(A38)')ar__19
read(ar__19,20)Lev1_18(i__),Lev2_18(i__),A_18(i__)
c ..............Just test output...........
write(6,20)Lev1_18(i__),Lev2_18(i__),A_18(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-01900.dat' ! frequency-ordered transitions, 01900-02000cm^-1^
C Format for file interpretation
21 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-01900.dat')
write(6,*) '....Loading file: a-01900.dat'
do i__=1,2144368
read(1,'(A38)')ar__20
read(ar__20,21)Lev1_19(i__),Lev2_19(i__),A_19(i__)
c ..............Just test output...........
write(6,21)Lev1_19(i__),Lev2_19(i__),A_19(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-02000.dat' ! frequency-ordered transitions, 02000-02100cm^-1^
C Format for file interpretation
22 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-02000.dat')
write(6,*) '....Loading file: a-02000.dat'
do i__=1,2186309
read(1,'(A38)')ar__21
read(ar__21,22)Lev1_20(i__),Lev2_20(i__),A_20(i__)
c ..............Just test output...........
write(6,22)Lev1_20(i__),Lev2_20(i__),A_20(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-02100.dat' ! frequency-ordered transitions, 02100-02200cm^-1^
C Format for file interpretation
23 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-02100.dat')
write(6,*) '....Loading file: a-02100.dat'
do i__=1,2271167
read(1,'(A38)')ar__22
read(ar__22,23)Lev1_21(i__),Lev2_21(i__),A_21(i__)
c ..............Just test output...........
write(6,23)Lev1_21(i__),Lev2_21(i__),A_21(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-02200.dat' ! frequency-ordered transitions, 02200-02300cm^-1^
C Format for file interpretation
24 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-02200.dat')
write(6,*) '....Loading file: a-02200.dat'
do i__=1,2373033
read(1,'(A38)')ar__23
read(ar__23,24)Lev1_22(i__),Lev2_22(i__),A_22(i__)
c ..............Just test output...........
write(6,24)Lev1_22(i__),Lev2_22(i__),A_22(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-02300.dat' ! frequency-ordered transitions, 02300-02400cm^-1^
C Format for file interpretation
25 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-02300.dat')
write(6,*) '....Loading file: a-02300.dat'
do i__=1,2501654
read(1,'(A38)')ar__24
read(ar__24,25)Lev1_23(i__),Lev2_23(i__),A_23(i__)
c ..............Just test output...........
write(6,25)Lev1_23(i__),Lev2_23(i__),A_23(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-02400.dat' ! frequency-ordered transitions, 02400-02500cm^-1^
C Format for file interpretation
26 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-02400.dat')
write(6,*) '....Loading file: a-02400.dat'
do i__=1,2622434
read(1,'(A38)')ar__25
read(ar__25,26)Lev1_24(i__),Lev2_24(i__),A_24(i__)
c ..............Just test output...........
write(6,26)Lev1_24(i__),Lev2_24(i__),A_24(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-02500.dat' ! frequency-ordered transitions, 02500-02600cm^-1^
C Format for file interpretation
27 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-02500.dat')
write(6,*) '....Loading file: a-02500.dat'
do i__=1,2723233
read(1,'(A38)')ar__26
read(ar__26,27)Lev1_25(i__),Lev2_25(i__),A_25(i__)
c ..............Just test output...........
write(6,27)Lev1_25(i__),Lev2_25(i__),A_25(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-02600.dat' ! frequency-ordered transitions, 02600-02700cm^-1^
C Format for file interpretation
28 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-02600.dat')
write(6,*) '....Loading file: a-02600.dat'
do i__=1,2802387
read(1,'(A38)')ar__27
read(ar__27,28)Lev1_26(i__),Lev2_26(i__),A_26(i__)
c ..............Just test output...........
write(6,28)Lev1_26(i__),Lev2_26(i__),A_26(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-02700.dat' ! frequency-ordered transitions, 02700-02800cm^-1^
C Format for file interpretation
29 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-02700.dat')
write(6,*) '....Loading file: a-02700.dat'
do i__=1,2898849
read(1,'(A38)')ar__28
read(ar__28,29)Lev1_27(i__),Lev2_27(i__),A_27(i__)
c ..............Just test output...........
write(6,29)Lev1_27(i__),Lev2_27(i__),A_27(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-02800.dat' ! frequency-ordered transitions, 02800-02900cm^-1^
C Format for file interpretation
30 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-02800.dat')
write(6,*) '....Loading file: a-02800.dat'
do i__=1,3023510
read(1,'(A38)')ar__29
read(ar__29,30)Lev1_28(i__),Lev2_28(i__),A_28(i__)
c ..............Just test output...........
write(6,30)Lev1_28(i__),Lev2_28(i__),A_28(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-02900.dat' ! frequency-ordered transitions, 02900-03000cm^-1^
C Format for file interpretation
31 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-02900.dat')
write(6,*) '....Loading file: a-02900.dat'
do i__=1,3195291
read(1,'(A38)')ar__30
read(ar__30,31)Lev1_29(i__),Lev2_29(i__),A_29(i__)
c ..............Just test output...........
write(6,31)Lev1_29(i__),Lev2_29(i__),A_29(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-03000.dat' ! frequency-ordered transitions, 03000-03100cm^-1^
C Format for file interpretation
32 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-03000.dat')
write(6,*) '....Loading file: a-03000.dat'
do i__=1,3405551
read(1,'(A38)')ar__31
read(ar__31,32)Lev1_30(i__),Lev2_30(i__),A_30(i__)
c ..............Just test output...........
write(6,32)Lev1_30(i__),Lev2_30(i__),A_30(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-03100.dat' ! frequency-ordered transitions, 03100-03200cm^-1^
C Format for file interpretation
33 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-03100.dat')
write(6,*) '....Loading file: a-03100.dat'
do i__=1,3617557
read(1,'(A38)')ar__32
read(ar__32,33)Lev1_31(i__),Lev2_31(i__),A_31(i__)
c ..............Just test output...........
write(6,33)Lev1_31(i__),Lev2_31(i__),A_31(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-03200.dat' ! frequency-ordered transitions, 03200-03300cm^-1^
C Format for file interpretation
34 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-03200.dat')
write(6,*) '....Loading file: a-03200.dat'
do i__=1,3785845
read(1,'(A38)')ar__33
read(ar__33,34)Lev1_32(i__),Lev2_32(i__),A_32(i__)
c ..............Just test output...........
write(6,34)Lev1_32(i__),Lev2_32(i__),A_32(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-03300.dat' ! frequency-ordered transitions, 03300-03400cm^-1^
C Format for file interpretation
35 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-03300.dat')
write(6,*) '....Loading file: a-03300.dat'
do i__=1,3913479
read(1,'(A38)')ar__34
read(ar__34,35)Lev1_33(i__),Lev2_33(i__),A_33(i__)
c ..............Just test output...........
write(6,35)Lev1_33(i__),Lev2_33(i__),A_33(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-03400.dat' ! frequency-ordered transitions, 03400-03500cm^-1^
C Format for file interpretation
36 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-03400.dat')
write(6,*) '....Loading file: a-03400.dat'
do i__=1,3991611
read(1,'(A38)')ar__35
read(ar__35,36)Lev1_34(i__),Lev2_34(i__),A_34(i__)
c ..............Just test output...........
write(6,36)Lev1_34(i__),Lev2_34(i__),A_34(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-03500.dat' ! frequency-ordered transitions, 03500-03600cm^-1^
C Format for file interpretation
37 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-03500.dat')
write(6,*) '....Loading file: a-03500.dat'
do i__=1,4039425
read(1,'(A38)')ar__36
read(ar__36,37)Lev1_35(i__),Lev2_35(i__),A_35(i__)
c ..............Just test output...........
write(6,37)Lev1_35(i__),Lev2_35(i__),A_35(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-03600.dat' ! frequency-ordered transitions, 03600-03700cm^-1^
C Format for file interpretation
38 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-03600.dat')
write(6,*) '....Loading file: a-03600.dat'
do i__=1,4118227
read(1,'(A38)')ar__37
read(ar__37,38)Lev1_36(i__),Lev2_36(i__),A_36(i__)
c ..............Just test output...........
write(6,38)Lev1_36(i__),Lev2_36(i__),A_36(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-03700.dat' ! frequency-ordered transitions, 03700-03800cm^-1^
C Format for file interpretation
39 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-03700.dat')
write(6,*) '....Loading file: a-03700.dat'
do i__=1,4238610
read(1,'(A38)')ar__38
read(ar__38,39)Lev1_37(i__),Lev2_37(i__),A_37(i__)
c ..............Just test output...........
write(6,39)Lev1_37(i__),Lev2_37(i__),A_37(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-03800.dat' ! frequency-ordered transitions, 03800-03900cm^-1^
C Format for file interpretation
40 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-03800.dat')
write(6,*) '....Loading file: a-03800.dat'
do i__=1,4397129
read(1,'(A38)')ar__39
read(ar__39,40)Lev1_38(i__),Lev2_38(i__),A_38(i__)
c ..............Just test output...........
write(6,40)Lev1_38(i__),Lev2_38(i__),A_38(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-03900.dat' ! frequency-ordered transitions, 03900-04000cm^-1^
C Format for file interpretation
41 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-03900.dat')
write(6,*) '....Loading file: a-03900.dat'
do i__=1,4594598
read(1,'(A38)')ar__40
read(ar__40,41)Lev1_39(i__),Lev2_39(i__),A_39(i__)
c ..............Just test output...........
write(6,41)Lev1_39(i__),Lev2_39(i__),A_39(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-04000.dat' ! frequency-ordered transitions, 04000-04100cm^-1^
C Format for file interpretation
42 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-04000.dat')
write(6,*) '....Loading file: a-04000.dat'
do i__=1,4801158
read(1,'(A38)')ar__41
read(ar__41,42)Lev1_40(i__),Lev2_40(i__),A_40(i__)
c ..............Just test output...........
write(6,42)Lev1_40(i__),Lev2_40(i__),A_40(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-04100.dat' ! frequency-ordered transitions, 04100-04200cm^-1^
C Format for file interpretation
43 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-04100.dat')
write(6,*) '....Loading file: a-04100.dat'
do i__=1,4972457
read(1,'(A38)')ar__42
read(ar__42,43)Lev1_41(i__),Lev2_41(i__),A_41(i__)
c ..............Just test output...........
write(6,43)Lev1_41(i__),Lev2_41(i__),A_41(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-04200.dat' ! frequency-ordered transitions, 04200-04300cm^-1^
C Format for file interpretation
44 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-04200.dat')
write(6,*) '....Loading file: a-04200.dat'
do i__=1,5120515
read(1,'(A38)')ar__43
read(ar__43,44)Lev1_42(i__),Lev2_42(i__),A_42(i__)
c ..............Just test output...........
write(6,44)Lev1_42(i__),Lev2_42(i__),A_42(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-04300.dat' ! frequency-ordered transitions, 04300-04400cm^-1^
C Format for file interpretation
45 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-04300.dat')
write(6,*) '....Loading file: a-04300.dat'
do i__=1,5289932
read(1,'(A38)')ar__44
read(ar__44,45)Lev1_43(i__),Lev2_43(i__),A_43(i__)
c ..............Just test output...........
write(6,45)Lev1_43(i__),Lev2_43(i__),A_43(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-04400.dat' ! frequency-ordered transitions, 04400-04500cm^-1^
C Format for file interpretation
46 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-04400.dat')
write(6,*) '....Loading file: a-04400.dat'
do i__=1,5467013
read(1,'(A38)')ar__45
read(ar__45,46)Lev1_44(i__),Lev2_44(i__),A_44(i__)
c ..............Just test output...........
write(6,46)Lev1_44(i__),Lev2_44(i__),A_44(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-04500.dat' ! frequency-ordered transitions, 04500-04600cm^-1^
C Format for file interpretation
47 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-04500.dat')
write(6,*) '....Loading file: a-04500.dat'
do i__=1,5693057
read(1,'(A38)')ar__46
read(ar__46,47)Lev1_45(i__),Lev2_45(i__),A_45(i__)
c ..............Just test output...........
write(6,47)Lev1_45(i__),Lev2_45(i__),A_45(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-04600.dat' ! frequency-ordered transitions, 04600-04700cm^-1^
C Format for file interpretation
48 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-04600.dat')
write(6,*) '....Loading file: a-04600.dat'
do i__=1,5974425
read(1,'(A38)')ar__47
read(ar__47,48)Lev1_46(i__),Lev2_46(i__),A_46(i__)
c ..............Just test output...........
write(6,48)Lev1_46(i__),Lev2_46(i__),A_46(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-04700.dat' ! frequency-ordered transitions, 04700-04800cm^-1^
C Format for file interpretation
49 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-04700.dat')
write(6,*) '....Loading file: a-04700.dat'
do i__=1,6256099
read(1,'(A38)')ar__48
read(ar__48,49)Lev1_47(i__),Lev2_47(i__),A_47(i__)
c ..............Just test output...........
write(6,49)Lev1_47(i__),Lev2_47(i__),A_47(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-04800.dat' ! frequency-ordered transitions, 04800-04900cm^-1^
C Format for file interpretation
50 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-04800.dat')
write(6,*) '....Loading file: a-04800.dat'
do i__=1,6503065
read(1,'(A38)')ar__49
read(ar__49,50)Lev1_48(i__),Lev2_48(i__),A_48(i__)
c ..............Just test output...........
write(6,50)Lev1_48(i__),Lev2_48(i__),A_48(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-04900.dat' ! frequency-ordered transitions, 04900-05000cm^-1^
C Format for file interpretation
51 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-04900.dat')
write(6,*) '....Loading file: a-04900.dat'
do i__=1,6706294
read(1,'(A38)')ar__50
read(ar__50,51)Lev1_49(i__),Lev2_49(i__),A_49(i__)
c ..............Just test output...........
write(6,51)Lev1_49(i__),Lev2_49(i__),A_49(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-05000.dat' ! frequency-ordered transitions, 05000-05100cm^-1^
C Format for file interpretation
52 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-05000.dat')
write(6,*) '....Loading file: a-05000.dat'
do i__=1,6860855
read(1,'(A38)')ar__51
read(ar__51,52)Lev1_50(i__),Lev2_50(i__),A_50(i__)
c ..............Just test output...........
write(6,52)Lev1_50(i__),Lev2_50(i__),A_50(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-05100.dat' ! frequency-ordered transitions, 05100-05200cm^-1^
C Format for file interpretation
53 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-05100.dat')
write(6,*) '....Loading file: a-05100.dat'
do i__=1,6960417
read(1,'(A38)')ar__52
read(ar__52,53)Lev1_51(i__),Lev2_51(i__),A_51(i__)
c ..............Just test output...........
write(6,53)Lev1_51(i__),Lev2_51(i__),A_51(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-05200.dat' ! frequency-ordered transitions, 05200-05300cm^-1^
C Format for file interpretation
54 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-05200.dat')
write(6,*) '....Loading file: a-05200.dat'
do i__=1,7079819
read(1,'(A38)')ar__53
read(ar__53,54)Lev1_52(i__),Lev2_52(i__),A_52(i__)
c ..............Just test output...........
write(6,54)Lev1_52(i__),Lev2_52(i__),A_52(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-05300.dat' ! frequency-ordered transitions, 05300-05400cm^-1^
C Format for file interpretation
55 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-05300.dat')
write(6,*) '....Loading file: a-05300.dat'
do i__=1,7234325
read(1,'(A38)')ar__54
read(ar__54,55)Lev1_53(i__),Lev2_53(i__),A_53(i__)
c ..............Just test output...........
write(6,55)Lev1_53(i__),Lev2_53(i__),A_53(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-05400.dat' ! frequency-ordered transitions, 05400-05500cm^-1^
C Format for file interpretation
56 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-05400.dat')
write(6,*) '....Loading file: a-05400.dat'
do i__=1,7442462
read(1,'(A38)')ar__55
read(ar__55,56)Lev1_54(i__),Lev2_54(i__),A_54(i__)
c ..............Just test output...........
write(6,56)Lev1_54(i__),Lev2_54(i__),A_54(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-05500.dat' ! frequency-ordered transitions, 05500-05600cm^-1^
C Format for file interpretation
57 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-05500.dat')
write(6,*) '....Loading file: a-05500.dat'
do i__=1,7711422
read(1,'(A38)')ar__56
read(ar__56,57)Lev1_55(i__),Lev2_55(i__),A_55(i__)
c ..............Just test output...........
write(6,57)Lev1_55(i__),Lev2_55(i__),A_55(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-05600.dat' ! frequency-ordered transitions, 05600-05700cm^-1^
C Format for file interpretation
58 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-05600.dat')
write(6,*) '....Loading file: a-05600.dat'
do i__=1,8010525
read(1,'(A38)')ar__57
read(ar__57,58)Lev1_56(i__),Lev2_56(i__),A_56(i__)
c ..............Just test output...........
write(6,58)Lev1_56(i__),Lev2_56(i__),A_56(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-05700.dat' ! frequency-ordered transitions, 05700-05800cm^-1^
C Format for file interpretation
59 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-05700.dat')
write(6,*) '....Loading file: a-05700.dat'
do i__=1,8276442
read(1,'(A38)')ar__58
read(ar__58,59)Lev1_57(i__),Lev2_57(i__),A_57(i__)
c ..............Just test output...........
write(6,59)Lev1_57(i__),Lev2_57(i__),A_57(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-05800.dat' ! frequency-ordered transitions, 05800-05900cm^-1^
C Format for file interpretation
60 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-05800.dat')
write(6,*) '....Loading file: a-05800.dat'
do i__=1,8531943
read(1,'(A38)')ar__59
read(ar__59,60)Lev1_58(i__),Lev2_58(i__),A_58(i__)
c ..............Just test output...........
write(6,60)Lev1_58(i__),Lev2_58(i__),A_58(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-05900.dat' ! frequency-ordered transitions, 05900-06000cm^-1^
C Format for file interpretation
61 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-05900.dat')
write(6,*) '....Loading file: a-05900.dat'
do i__=1,8789752
read(1,'(A38)')ar__60
read(ar__60,61)Lev1_59(i__),Lev2_59(i__),A_59(i__)
c ..............Just test output...........
write(6,61)Lev1_59(i__),Lev2_59(i__),A_59(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-06000.dat' ! frequency-ordered transitions, 06000-06100cm^-1^
C Format for file interpretation
62 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-06000.dat')
write(6,*) '....Loading file: a-06000.dat'
do i__=1,9055326
read(1,'(A38)')ar__61
read(ar__61,62)Lev1_60(i__),Lev2_60(i__),A_60(i__)
c ..............Just test output...........
write(6,62)Lev1_60(i__),Lev2_60(i__),A_60(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-06100.dat' ! frequency-ordered transitions, 06100-06200cm^-1^
C Format for file interpretation
63 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-06100.dat')
write(6,*) '....Loading file: a-06100.dat'
do i__=1,9368728
read(1,'(A38)')ar__62
read(ar__62,63)Lev1_61(i__),Lev2_61(i__),A_61(i__)
c ..............Just test output...........
write(6,63)Lev1_61(i__),Lev2_61(i__),A_61(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-06200.dat' ! frequency-ordered transitions, 06200-06300cm^-1^
C Format for file interpretation
64 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-06200.dat')
write(6,*) '....Loading file: a-06200.dat'
do i__=1,9745838
read(1,'(A38)')ar__63
read(ar__63,64)Lev1_62(i__),Lev2_62(i__),A_62(i__)
c ..............Just test output...........
write(6,64)Lev1_62(i__),Lev2_62(i__),A_62(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-06300.dat' ! frequency-ordered transitions, 06300-06400cm^-1^
C Format for file interpretation
65 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-06300.dat')
write(6,*) '....Loading file: a-06300.dat'
do i__=1,10130895
read(1,'(A38)')ar__64
read(ar__64,65)Lev1_63(i__),Lev2_63(i__),A_63(i__)
c ..............Just test output...........
write(6,65)Lev1_63(i__),Lev2_63(i__),A_63(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-06400.dat' ! frequency-ordered transitions, 06400-06500cm^-1^
C Format for file interpretation
66 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-06400.dat')
write(6,*) '....Loading file: a-06400.dat'
do i__=1,10481180
read(1,'(A38)')ar__65
read(ar__65,66)Lev1_64(i__),Lev2_64(i__),A_64(i__)
c ..............Just test output...........
write(6,66)Lev1_64(i__),Lev2_64(i__),A_64(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-06500.dat' ! frequency-ordered transitions, 06500-06600cm^-1^
C Format for file interpretation
67 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-06500.dat')
write(6,*) '....Loading file: a-06500.dat'
do i__=1,10780525
read(1,'(A38)')ar__66
read(ar__66,67)Lev1_65(i__),Lev2_65(i__),A_65(i__)
c ..............Just test output...........
write(6,67)Lev1_65(i__),Lev2_65(i__),A_65(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-06600.dat' ! frequency-ordered transitions, 06600-06700cm^-1^
C Format for file interpretation
68 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-06600.dat')
write(6,*) '....Loading file: a-06600.dat'
do i__=1,11006291
read(1,'(A38)')ar__67
read(ar__67,68)Lev1_66(i__),Lev2_66(i__),A_66(i__)
c ..............Just test output...........
write(6,68)Lev1_66(i__),Lev2_66(i__),A_66(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-06700.dat' ! frequency-ordered transitions, 06700-06800cm^-1^
C Format for file interpretation
69 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-06700.dat')
write(6,*) '....Loading file: a-06700.dat'
do i__=1,11163868
read(1,'(A38)')ar__68
read(ar__68,69)Lev1_67(i__),Lev2_67(i__),A_67(i__)
c ..............Just test output...........
write(6,69)Lev1_67(i__),Lev2_67(i__),A_67(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-06800.dat' ! frequency-ordered transitions, 06800-06900cm^-1^
C Format for file interpretation
70 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-06800.dat')
write(6,*) '....Loading file: a-06800.dat'
do i__=1,11333508
read(1,'(A38)')ar__69
read(ar__69,70)Lev1_68(i__),Lev2_68(i__),A_68(i__)
c ..............Just test output...........
write(6,70)Lev1_68(i__),Lev2_68(i__),A_68(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-06900.dat' ! frequency-ordered transitions, 06900-07000cm^-1^
C Format for file interpretation
71 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-06900.dat')
write(6,*) '....Loading file: a-06900.dat'
do i__=1,11540059
read(1,'(A38)')ar__70
read(ar__70,71)Lev1_69(i__),Lev2_69(i__),A_69(i__)
c ..............Just test output...........
write(6,71)Lev1_69(i__),Lev2_69(i__),A_69(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-07000.dat' ! frequency-ordered transitions, 07000-07100cm^-1^
C Format for file interpretation
72 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-07000.dat')
write(6,*) '....Loading file: a-07000.dat'
do i__=1,11809529
read(1,'(A38)')ar__71
read(ar__71,72)Lev1_70(i__),Lev2_70(i__),A_70(i__)
c ..............Just test output...........
write(6,72)Lev1_70(i__),Lev2_70(i__),A_70(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-07100.dat' ! frequency-ordered transitions, 07100-07200cm^-1^
C Format for file interpretation
73 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-07100.dat')
write(6,*) '....Loading file: a-07100.dat'
do i__=1,12166183
read(1,'(A38)')ar__72
read(ar__72,73)Lev1_71(i__),Lev2_71(i__),A_71(i__)
c ..............Just test output...........
write(6,73)Lev1_71(i__),Lev2_71(i__),A_71(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-07200.dat' ! frequency-ordered transitions, 07200-07300cm^-1^
C Format for file interpretation
74 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-07200.dat')
write(6,*) '....Loading file: a-07200.dat'
do i__=1,12557951
read(1,'(A38)')ar__73
read(ar__73,74)Lev1_72(i__),Lev2_72(i__),A_72(i__)
c ..............Just test output...........
write(6,74)Lev1_72(i__),Lev2_72(i__),A_72(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-07300.dat' ! frequency-ordered transitions, 07300-07400cm^-1^
C Format for file interpretation
75 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-07300.dat')
write(6,*) '....Loading file: a-07300.dat'
do i__=1,12937073
read(1,'(A38)')ar__74
read(ar__74,75)Lev1_73(i__),Lev2_73(i__),A_73(i__)
c ..............Just test output...........
write(6,75)Lev1_73(i__),Lev2_73(i__),A_73(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-07400.dat' ! frequency-ordered transitions, 07400-07500cm^-1^
C Format for file interpretation
76 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-07400.dat')
write(6,*) '....Loading file: a-07400.dat'
do i__=1,13293545
read(1,'(A38)')ar__75
read(ar__75,76)Lev1_74(i__),Lev2_74(i__),A_74(i__)
c ..............Just test output...........
write(6,76)Lev1_74(i__),Lev2_74(i__),A_74(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-07500.dat' ! frequency-ordered transitions, 07500-07600cm^-1^
C Format for file interpretation
77 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-07500.dat')
write(6,*) '....Loading file: a-07500.dat'
do i__=1,13639572
read(1,'(A38)')ar__76
read(ar__76,77)Lev1_75(i__),Lev2_75(i__),A_75(i__)
c ..............Just test output...........
write(6,77)Lev1_75(i__),Lev2_75(i__),A_75(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-07600.dat' ! frequency-ordered transitions, 07600-07700cm^-1^
C Format for file interpretation
78 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-07600.dat')
write(6,*) '....Loading file: a-07600.dat'
do i__=1,13986280
read(1,'(A38)')ar__77
read(ar__77,78)Lev1_76(i__),Lev2_76(i__),A_76(i__)
c ..............Just test output...........
write(6,78)Lev1_76(i__),Lev2_76(i__),A_76(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-07700.dat' ! frequency-ordered transitions, 07700-07800cm^-1^
C Format for file interpretation
79 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-07700.dat')
write(6,*) '....Loading file: a-07700.dat'
do i__=1,14379711
read(1,'(A38)')ar__78
read(ar__78,79)Lev1_77(i__),Lev2_77(i__),A_77(i__)
c ..............Just test output...........
write(6,79)Lev1_77(i__),Lev2_77(i__),A_77(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-07800.dat' ! frequency-ordered transitions, 07800-07900cm^-1^
C Format for file interpretation
80 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-07800.dat')
write(6,*) '....Loading file: a-07800.dat'
do i__=1,14829655
read(1,'(A38)')ar__79
read(ar__79,80)Lev1_78(i__),Lev2_78(i__),A_78(i__)
c ..............Just test output...........
write(6,80)Lev1_78(i__),Lev2_78(i__),A_78(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-07900.dat' ! frequency-ordered transitions, 07900-08000cm^-1^
C Format for file interpretation
81 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-07900.dat')
write(6,*) '....Loading file: a-07900.dat'
do i__=1,15288793
read(1,'(A38)')ar__80
read(ar__80,81)Lev1_79(i__),Lev2_79(i__),A_79(i__)
c ..............Just test output...........
write(6,81)Lev1_79(i__),Lev2_79(i__),A_79(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-08000.dat' ! frequency-ordered transitions, 08000-08100cm^-1^
C Format for file interpretation
82 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-08000.dat')
write(6,*) '....Loading file: a-08000.dat'
do i__=1,15725255
read(1,'(A38)')ar__81
read(ar__81,82)Lev1_80(i__),Lev2_80(i__),A_80(i__)
c ..............Just test output...........
write(6,82)Lev1_80(i__),Lev2_80(i__),A_80(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-08100.dat' ! frequency-ordered transitions, 08100-08200cm^-1^
C Format for file interpretation
83 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-08100.dat')
write(6,*) '....Loading file: a-08100.dat'
do i__=1,16113244
read(1,'(A38)')ar__82
read(ar__82,83)Lev1_81(i__),Lev2_81(i__),A_81(i__)
c ..............Just test output...........
write(6,83)Lev1_81(i__),Lev2_81(i__),A_81(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-08200.dat' ! frequency-ordered transitions, 08200-08300cm^-1^
C Format for file interpretation
84 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-08200.dat')
write(6,*) '....Loading file: a-08200.dat'
do i__=1,16426095
read(1,'(A38)')ar__83
read(ar__83,84)Lev1_82(i__),Lev2_82(i__),A_82(i__)
c ..............Just test output...........
write(6,84)Lev1_82(i__),Lev2_82(i__),A_82(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-08300.dat' ! frequency-ordered transitions, 08300-08400cm^-1^
C Format for file interpretation
85 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-08300.dat')
write(6,*) '....Loading file: a-08300.dat'
do i__=1,16667848
read(1,'(A38)')ar__84
read(ar__84,85)Lev1_83(i__),Lev2_83(i__),A_83(i__)
c ..............Just test output...........
write(6,85)Lev1_83(i__),Lev2_83(i__),A_83(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-08400.dat' ! frequency-ordered transitions, 08400-08500cm^-1^
C Format for file interpretation
86 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-08400.dat')
write(6,*) '....Loading file: a-08400.dat'
do i__=1,16904219
read(1,'(A38)')ar__85
read(ar__85,86)Lev1_84(i__),Lev2_84(i__),A_84(i__)
c ..............Just test output...........
write(6,86)Lev1_84(i__),Lev2_84(i__),A_84(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-08500.dat' ! frequency-ordered transitions, 08500-08600cm^-1^
C Format for file interpretation
87 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-08500.dat')
write(6,*) '....Loading file: a-08500.dat'
do i__=1,17157959
read(1,'(A38)')ar__86
read(ar__86,87)Lev1_85(i__),Lev2_85(i__),A_85(i__)
c ..............Just test output...........
write(6,87)Lev1_85(i__),Lev2_85(i__),A_85(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-08600.dat' ! frequency-ordered transitions, 08600-08700cm^-1^
C Format for file interpretation
88 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-08600.dat')
write(6,*) '....Loading file: a-08600.dat'
do i__=1,17476169
read(1,'(A38)')ar__87
read(ar__87,88)Lev1_86(i__),Lev2_86(i__),A_86(i__)
c ..............Just test output...........
write(6,88)Lev1_86(i__),Lev2_86(i__),A_86(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-08700.dat' ! frequency-ordered transitions, 08700-08800cm^-1^
C Format for file interpretation
89 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-08700.dat')
write(6,*) '....Loading file: a-08700.dat'
do i__=1,17898755
read(1,'(A38)')ar__88
read(ar__88,89)Lev1_87(i__),Lev2_87(i__),A_87(i__)
c ..............Just test output...........
write(6,89)Lev1_87(i__),Lev2_87(i__),A_87(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-08800.dat' ! frequency-ordered transitions, 08800-08900cm^-1^
C Format for file interpretation
90 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-08800.dat')
write(6,*) '....Loading file: a-08800.dat'
do i__=1,18383515
read(1,'(A38)')ar__89
read(ar__89,90)Lev1_88(i__),Lev2_88(i__),A_88(i__)
c ..............Just test output...........
write(6,90)Lev1_88(i__),Lev2_88(i__),A_88(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-08900.dat' ! frequency-ordered transitions, 08900-09000cm^-1^
C Format for file interpretation
91 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-08900.dat')
write(6,*) '....Loading file: a-08900.dat'
do i__=1,18882490
read(1,'(A38)')ar__90
read(ar__90,91)Lev1_89(i__),Lev2_89(i__),A_89(i__)
c ..............Just test output...........
write(6,91)Lev1_89(i__),Lev2_89(i__),A_89(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-09000.dat' ! frequency-ordered transitions, 09000-09100cm^-1^
C Format for file interpretation
92 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-09000.dat')
write(6,*) '....Loading file: a-09000.dat'
do i__=1,19373298
read(1,'(A38)')ar__91
read(ar__91,92)Lev1_90(i__),Lev2_90(i__),A_90(i__)
c ..............Just test output...........
write(6,92)Lev1_90(i__),Lev2_90(i__),A_90(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-09100.dat' ! frequency-ordered transitions, 09100-09200cm^-1^
C Format for file interpretation
93 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-09100.dat')
write(6,*) '....Loading file: a-09100.dat'
do i__=1,19837694
read(1,'(A38)')ar__92
read(ar__92,93)Lev1_91(i__),Lev2_91(i__),A_91(i__)
c ..............Just test output...........
write(6,93)Lev1_91(i__),Lev2_91(i__),A_91(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-09200.dat' ! frequency-ordered transitions, 09200-09300cm^-1^
C Format for file interpretation
94 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-09200.dat')
write(6,*) '....Loading file: a-09200.dat'
do i__=1,20239006
read(1,'(A38)')ar__93
read(ar__93,94)Lev1_92(i__),Lev2_92(i__),A_92(i__)
c ..............Just test output...........
write(6,94)Lev1_92(i__),Lev2_92(i__),A_92(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-09300.dat' ! frequency-ordered transitions, 09300-09400cm^-1^
C Format for file interpretation
95 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-09300.dat')
write(6,*) '....Loading file: a-09300.dat'
do i__=1,20646768
read(1,'(A38)')ar__94
read(ar__94,95)Lev1_93(i__),Lev2_93(i__),A_93(i__)
c ..............Just test output...........
write(6,95)Lev1_93(i__),Lev2_93(i__),A_93(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-09400.dat' ! frequency-ordered transitions, 09400-09500cm^-1^
C Format for file interpretation
96 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-09400.dat')
write(6,*) '....Loading file: a-09400.dat'
do i__=1,21096539
read(1,'(A38)')ar__95
read(ar__95,96)Lev1_94(i__),Lev2_94(i__),A_94(i__)
c ..............Just test output...........
write(6,96)Lev1_94(i__),Lev2_94(i__),A_94(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-09500.dat' ! frequency-ordered transitions, 09500-09600cm^-1^
C Format for file interpretation
97 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-09500.dat')
write(6,*) '....Loading file: a-09500.dat'
do i__=1,21547715
read(1,'(A38)')ar__96
read(ar__96,97)Lev1_95(i__),Lev2_95(i__),A_95(i__)
c ..............Just test output...........
write(6,97)Lev1_95(i__),Lev2_95(i__),A_95(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-09600.dat' ! frequency-ordered transitions, 09600-09700cm^-1^
C Format for file interpretation
98 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-09600.dat')
write(6,*) '....Loading file: a-09600.dat'
do i__=1,21982458
read(1,'(A38)')ar__97
read(ar__97,98)Lev1_96(i__),Lev2_96(i__),A_96(i__)
c ..............Just test output...........
write(6,98)Lev1_96(i__),Lev2_96(i__),A_96(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-09700.dat' ! frequency-ordered transitions, 09700-09800cm^-1^
C Format for file interpretation
99 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-09700.dat')
write(6,*) '....Loading file: a-09700.dat'
do i__=1,22373923
read(1,'(A38)')ar__98
read(ar__98,99)Lev1_97(i__),Lev2_97(i__),A_97(i__)
c ..............Just test output...........
write(6,99)Lev1_97(i__),Lev2_97(i__),A_97(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-09800.dat' ! frequency-ordered transitions, 09800-09900cm^-1^
C Format for file interpretation
100 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-09800.dat')
write(6,*) '....Loading file: a-09800.dat'
do i__=1,22702270
read(1,'(A38)')ar__99
read(ar__99,100)Lev1_98(i__),Lev2_98(i__),A_98(i__)
c ..............Just test output...........
write(6,100)Lev1_98(i__),Lev2_98(i__),A_98(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-09900.dat' ! frequency-ordered transitions, 09900-10000cm^-1^
C Format for file interpretation
101 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-09900.dat')
write(6,*) '....Loading file: a-09900.dat'
do i__=1,22934619
read(1,'(A38)')ar__100
read(ar__100,101)Lev1_99(i__),Lev2_99(i__),A_99(i__)
c ..............Just test output...........
write(6,101)Lev1_99(i__),Lev2_99(i__),A_99(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-10000.dat' ! frequency-ordered transitions, 10000-10100cm^-1^
C Format for file interpretation
102 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-10000.dat')
write(6,*) '....Loading file: a-10000.dat'
do i__=1,22339283
read(1,'(A38)')ar__101
read(ar__101,102)Lev1_100(i__),Lev2_100(i__),A_100(i__)
c ..............Just test output...........
write(6,102)Lev1_100(i__),Lev2_100(i__),A_100(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-10100.dat' ! frequency-ordered transitions, 10100-10200cm^-1^
C Format for file interpretation
103 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-10100.dat')
write(6,*) '....Loading file: a-10100.dat'
do i__=1,21108601
read(1,'(A38)')ar__102
read(ar__102,103)Lev1_101(i__),Lev2_101(i__),A_101(i__)
c ..............Just test output...........
write(6,103)Lev1_101(i__),Lev2_101(i__),A_101(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-10200.dat' ! frequency-ordered transitions, 10200-10300cm^-1^
C Format for file interpretation
104 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-10200.dat')
write(6,*) '....Loading file: a-10200.dat'
do i__=1,19952989
read(1,'(A38)')ar__103
read(ar__103,104)Lev1_102(i__),Lev2_102(i__),A_102(i__)
c ..............Just test output...........
write(6,104)Lev1_102(i__),Lev2_102(i__),A_102(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-10300.dat' ! frequency-ordered transitions, 10300-10400cm^-1^
C Format for file interpretation
105 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-10300.dat')
write(6,*) '....Loading file: a-10300.dat'
do i__=1,18926591
read(1,'(A38)')ar__104
read(ar__104,105)Lev1_103(i__),Lev2_103(i__),A_103(i__)
c ..............Just test output...........
write(6,105)Lev1_103(i__),Lev2_103(i__),A_103(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-10400.dat' ! frequency-ordered transitions, 10400-10500cm^-1^
C Format for file interpretation
106 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-10400.dat')
write(6,*) '....Loading file: a-10400.dat'
do i__=1,18011268
read(1,'(A38)')ar__105
read(ar__105,106)Lev1_104(i__),Lev2_104(i__),A_104(i__)
c ..............Just test output...........
write(6,106)Lev1_104(i__),Lev2_104(i__),A_104(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-10500.dat' ! frequency-ordered transitions, 10500-10600cm^-1^
C Format for file interpretation
107 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-10500.dat')
write(6,*) '....Loading file: a-10500.dat'
do i__=1,17192700
read(1,'(A38)')ar__106
read(ar__106,107)Lev1_105(i__),Lev2_105(i__),A_105(i__)
c ..............Just test output...........
write(6,107)Lev1_105(i__),Lev2_105(i__),A_105(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-10600.dat' ! frequency-ordered transitions, 10600-10700cm^-1^
C Format for file interpretation
108 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-10600.dat')
write(6,*) '....Loading file: a-10600.dat'
do i__=1,16452057
read(1,'(A38)')ar__107
read(ar__107,108)Lev1_106(i__),Lev2_106(i__),A_106(i__)
c ..............Just test output...........
write(6,108)Lev1_106(i__),Lev2_106(i__),A_106(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-10700.dat' ! frequency-ordered transitions, 10700-10800cm^-1^
C Format for file interpretation
109 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-10700.dat')
write(6,*) '....Loading file: a-10700.dat'
do i__=1,15692461
read(1,'(A38)')ar__108
read(ar__108,109)Lev1_107(i__),Lev2_107(i__),A_107(i__)
c ..............Just test output...........
write(6,109)Lev1_107(i__),Lev2_107(i__),A_107(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-10800.dat' ! frequency-ordered transitions, 10800-10900cm^-1^
C Format for file interpretation
110 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-10800.dat')
write(6,*) '....Loading file: a-10800.dat'
do i__=1,14961423
read(1,'(A38)')ar__109
read(ar__109,110)Lev1_108(i__),Lev2_108(i__),A_108(i__)
c ..............Just test output...........
write(6,110)Lev1_108(i__),Lev2_108(i__),A_108(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-10900.dat' ! frequency-ordered transitions, 10900-11000cm^-1^
C Format for file interpretation
111 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-10900.dat')
write(6,*) '....Loading file: a-10900.dat'
do i__=1,14165788
read(1,'(A38)')ar__110
read(ar__110,111)Lev1_109(i__),Lev2_109(i__),A_109(i__)
c ..............Just test output...........
write(6,111)Lev1_109(i__),Lev2_109(i__),A_109(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-11000.dat' ! frequency-ordered transitions, 11000-11100cm^-1^
C Format for file interpretation
112 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-11000.dat')
write(6,*) '....Loading file: a-11000.dat'
do i__=1,13409218
read(1,'(A38)')ar__111
read(ar__111,112)Lev1_110(i__),Lev2_110(i__),A_110(i__)
c ..............Just test output...........
write(6,112)Lev1_110(i__),Lev2_110(i__),A_110(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-11100.dat' ! frequency-ordered transitions, 11100-11200cm^-1^
C Format for file interpretation
113 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-11100.dat')
write(6,*) '....Loading file: a-11100.dat'
do i__=1,12705679
read(1,'(A38)')ar__112
read(ar__112,113)Lev1_111(i__),Lev2_111(i__),A_111(i__)
c ..............Just test output...........
write(6,113)Lev1_111(i__),Lev2_111(i__),A_111(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-11200.dat' ! frequency-ordered transitions, 11200-11300cm^-1^
C Format for file interpretation
114 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-11200.dat')
write(6,*) '....Loading file: a-11200.dat'
do i__=1,12056386
read(1,'(A38)')ar__113
read(ar__113,114)Lev1_112(i__),Lev2_112(i__),A_112(i__)
c ..............Just test output...........
write(6,114)Lev1_112(i__),Lev2_112(i__),A_112(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-11300.dat' ! frequency-ordered transitions, 11300-11400cm^-1^
C Format for file interpretation
115 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-11300.dat')
write(6,*) '....Loading file: a-11300.dat'
do i__=1,11407255
read(1,'(A38)')ar__114
read(ar__114,115)Lev1_113(i__),Lev2_113(i__),A_113(i__)
c ..............Just test output...........
write(6,115)Lev1_113(i__),Lev2_113(i__),A_113(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-11400.dat' ! frequency-ordered transitions, 11400-11500cm^-1^
C Format for file interpretation
116 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-11400.dat')
write(6,*) '....Loading file: a-11400.dat'
do i__=1,10751832
read(1,'(A38)')ar__115
read(ar__115,116)Lev1_114(i__),Lev2_114(i__),A_114(i__)
c ..............Just test output...........
write(6,116)Lev1_114(i__),Lev2_114(i__),A_114(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-11500.dat' ! frequency-ordered transitions, 11500-11600cm^-1^
C Format for file interpretation
117 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-11500.dat')
write(6,*) '....Loading file: a-11500.dat'
do i__=1,10124085
read(1,'(A38)')ar__116
read(ar__116,117)Lev1_115(i__),Lev2_115(i__),A_115(i__)
c ..............Just test output...........
write(6,117)Lev1_115(i__),Lev2_115(i__),A_115(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-11600.dat' ! frequency-ordered transitions, 11600-11700cm^-1^
C Format for file interpretation
118 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-11600.dat')
write(6,*) '....Loading file: a-11600.dat'
do i__=1,9474612
read(1,'(A38)')ar__117
read(ar__117,118)Lev1_116(i__),Lev2_116(i__),A_116(i__)
c ..............Just test output...........
write(6,118)Lev1_116(i__),Lev2_116(i__),A_116(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-11700.dat' ! frequency-ordered transitions, 11700-11800cm^-1^
C Format for file interpretation
119 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-11700.dat')
write(6,*) '....Loading file: a-11700.dat'
do i__=1,8854492
read(1,'(A38)')ar__118
read(ar__118,119)Lev1_117(i__),Lev2_117(i__),A_117(i__)
c ..............Just test output...........
write(6,119)Lev1_117(i__),Lev2_117(i__),A_117(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-11800.dat' ! frequency-ordered transitions, 11800-11900cm^-1^
C Format for file interpretation
120 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-11800.dat')
write(6,*) '....Loading file: a-11800.dat'
do i__=1,8273327
read(1,'(A38)')ar__119
read(ar__119,120)Lev1_118(i__),Lev2_118(i__),A_118(i__)
c ..............Just test output...........
write(6,120)Lev1_118(i__),Lev2_118(i__),A_118(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'a-11900.dat' ! frequency-ordered transitions, 11900-12000cm^-1^
C Format for file interpretation
121 format(5X,I7,5X,I7,E14.3)
C Effective file loading
open(unit=1,status='old',file=
+'a-11900.dat')
write(6,*) '....Loading file: a-11900.dat'
do i__=1,7750733
read(1,'(A38)')ar__120
read(ar__120,121)Lev1_119(i__),Lev2_119(i__),A_119(i__)
c ..............Just test output...........
write(6,121)Lev1_119(i__),Lev2_119(i__),A_119(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end