Conversion of standardized ReadMe file for
file /./ftp/cats/VI/133 into FORTRAN code for reading data files line by line.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 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 ! [1/4167360]+ Reference number (row number)
integer*4 J ! [0/41] Total angular momentum quantum number
integer*4 G ! [1/6] Total symmetry in D3h(M) {Gamma}
integer*4 N_Block ! [1/104283] Reference number in the block
real*8 E ! (cm-1) Energy of the level
integer*4 n1 ! [0/7] Symmetric stretch quantum number
* (normal mode)
integer*4 n2 ! [0/14] Symmetric bend quantum number (normal mode)
integer*4 n3 ! [0/7] Asymmetric stretch quantum number
* (normal mode)
integer*4 n4 ! [0/14] Asymmetric bend quantum number
* (normal mode)
integer*4 l3 ! [-6/7] Additional normal mode vibrational quantum
* number.
integer*4 l4 ! [-12/13] Additional normal mode vibrational
* quantum number.
integer*4 Pi ! [0/1] Inversional parity {tau}(inv)
integer*4 K ! [0/41] Projection of J on axis of molecular
* symmetry
integer*4 Pr ! [0/1] Rotational parity {tau}(rot)
integer*4 v1 ! [0/6] Local mode vibrational quantum number
integer*4 v2 ! [0/6] Local mode vibrational quantum number
integer*4 v3 ! [0/7] Local mode vibrational quantum number
integer*4 v4 ! [0] Local mode vibrational quantum number
integer*4 v5 ! [0/14] Local mode vibrational quantum number
integer*4 v6 ! [0/28] Local mode vibrational quantum number
integer*4 Gv ! [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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2 ! [1/4167360] Reference level in Energy Level File
real*4 A ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_1 ! [1/4167360] Reference level in Energy Level File
real*4 A_1 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_2 ! [1/4167360] Reference level in Energy Level File
real*4 A_2 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_3 ! [1/4167360] Reference level in Energy Level File
real*4 A_3 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_4 ! [1/4167360] Reference level in Energy Level File
real*4 A_4 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_5 ! [1/4167360] Reference level in Energy Level File
real*4 A_5 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_6 ! [1/4167360] Reference level in Energy Level File
real*4 A_6 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_7 ! [1/4167360] Reference level in Energy Level File
real*4 A_7 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_8 ! [1/4167360] Reference level in Energy Level File
real*4 A_8 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_9 ! [1/4167360] Reference level in Energy Level File
real*4 A_9 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_10 ! [1/4167360] Reference level in Energy Level File
real*4 A_10 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_11 ! [1/4167360] Reference level in Energy Level File
real*4 A_11 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_12 ! [1/4167360] Reference level in Energy Level File
real*4 A_12 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_13 ! [1/4167360] Reference level in Energy Level File
real*4 A_13 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_14 ! [1/4167360] Reference level in Energy Level File
real*4 A_14 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_15 ! [1/4167360] Reference level in Energy Level File
real*4 A_15 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_16 ! [1/4167360] Reference level in Energy Level File
real*4 A_16 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_17 ! [1/4167360] Reference level in Energy Level File
real*4 A_17 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_18 ! [1/4167360] Reference level in Energy Level File
real*4 A_18 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_19 ! [1/4167360] Reference level in Energy Level File
real*4 A_19 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_20 ! [1/4167360] Reference level in Energy Level File
real*4 A_20 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_21 ! [1/4167360] Reference level in Energy Level File
real*4 A_21 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_22 ! [1/4167360] Reference level in Energy Level File
real*4 A_22 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_23 ! [1/4167360] Reference level in Energy Level File
real*4 A_23 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_24 ! [1/4167360] Reference level in Energy Level File
real*4 A_24 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_25 ! [1/4167360] Reference level in Energy Level File
real*4 A_25 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_26 ! [1/4167360] Reference level in Energy Level File
real*4 A_26 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_27 ! [1/4167360] Reference level in Energy Level File
real*4 A_27 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_28 ! [1/4167360] Reference level in Energy Level File
real*4 A_28 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_29 ! [1/4167360] Reference level in Energy Level File
real*4 A_29 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_30 ! [1/4167360] Reference level in Energy Level File
real*4 A_30 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_31 ! [1/4167360] Reference level in Energy Level File
real*4 A_31 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_32 ! [1/4167360] Reference level in Energy Level File
real*4 A_32 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_33 ! [1/4167360] Reference level in Energy Level File
real*4 A_33 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_34 ! [1/4167360] Reference level in Energy Level File
real*4 A_34 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_35 ! [1/4167360] Reference level in Energy Level File
real*4 A_35 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_36 ! [1/4167360] Reference level in Energy Level File
real*4 A_36 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_37 ! [1/4167360] Reference level in Energy Level File
real*4 A_37 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_38 ! [1/4167360] Reference level in Energy Level File
real*4 A_38 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_39 ! [1/4167360] Reference level in Energy Level File
real*4 A_39 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_40 ! [1/4167360] Reference level in Energy Level File
real*4 A_40 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_41 ! [1/4167360] Reference level in Energy Level File
real*4 A_41 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_42 ! [1/4167360] Reference level in Energy Level File
real*4 A_42 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_43 ! [1/4167360] Reference level in Energy Level File
real*4 A_43 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_44 ! [1/4167360] Reference level in Energy Level File
real*4 A_44 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_45 ! [1/4167360] Reference level in Energy Level File
real*4 A_45 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_46 ! [1/4167360] Reference level in Energy Level File
real*4 A_46 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_47 ! [1/4167360] Reference level in Energy Level File
real*4 A_47 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_48 ! [1/4167360] Reference level in Energy Level File
real*4 A_48 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_49 ! [1/4167360] Reference level in Energy Level File
real*4 A_49 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_50 ! [1/4167360] Reference level in Energy Level File
real*4 A_50 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_51 ! [1/4167360] Reference level in Energy Level File
real*4 A_51 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_52 ! [1/4167360] Reference level in Energy Level File
real*4 A_52 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_53 ! [1/4167360] Reference level in Energy Level File
real*4 A_53 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_54 ! [1/4167360] Reference level in Energy Level File
real*4 A_54 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_55 ! [1/4167360] Reference level in Energy Level File
real*4 A_55 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_56 ! [1/4167360] Reference level in Energy Level File
real*4 A_56 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_57 ! [1/4167360] Reference level in Energy Level File
real*4 A_57 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_58 ! [1/4167360] Reference level in Energy Level File
real*4 A_58 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_59 ! [1/4167360] Reference level in Energy Level File
real*4 A_59 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_60 ! [1/4167360] Reference level in Energy Level File
real*4 A_60 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_61 ! [1/4167360] Reference level in Energy Level File
real*4 A_61 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_62 ! [1/4167360] Reference level in Energy Level File
real*4 A_62 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_63 ! [1/4167360] Reference level in Energy Level File
real*4 A_63 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_64 ! [1/4167360] Reference level in Energy Level File
real*4 A_64 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_65 ! [1/4167360] Reference level in Energy Level File
real*4 A_65 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_66 ! [1/4167360] Reference level in Energy Level File
real*4 A_66 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_67 ! [1/4167360] Reference level in Energy Level File
real*4 A_67 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_68 ! [1/4167360] Reference level in Energy Level File
real*4 A_68 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_69 ! [1/4167360] Reference level in Energy Level File
real*4 A_69 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_70 ! [1/4167360] Reference level in Energy Level File
real*4 A_70 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_71 ! [1/4167360] Reference level in Energy Level File
real*4 A_71 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_72 ! [1/4167360] Reference level in Energy Level File
real*4 A_72 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_73 ! [1/4167360] Reference level in Energy Level File
real*4 A_73 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_74 ! [1/4167360] Reference level in Energy Level File
real*4 A_74 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_75 ! [1/4167360] Reference level in Energy Level File
real*4 A_75 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_76 ! [1/4167360] Reference level in Energy Level File
real*4 A_76 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_77 ! [1/4167360] Reference level in Energy Level File
real*4 A_77 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_78 ! [1/4167360] Reference level in Energy Level File
real*4 A_78 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_79 ! [1/4167360] Reference level in Energy Level File
real*4 A_79 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_80 ! [1/4167360] Reference level in Energy Level File
real*4 A_80 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_81 ! [1/4167360] Reference level in Energy Level File
real*4 A_81 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_82 ! [1/4167360] Reference level in Energy Level File
real*4 A_82 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_83 ! [1/4167360] Reference level in Energy Level File
real*4 A_83 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_84 ! [1/4167360] Reference level in Energy Level File
real*4 A_84 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_85 ! [1/4167360] Reference level in Energy Level File
real*4 A_85 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_86 ! [1/4167360] Reference level in Energy Level File
real*4 A_86 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_87 ! [1/4167360] Reference level in Energy Level File
real*4 A_87 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_88 ! [1/4167360] Reference level in Energy Level File
real*4 A_88 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_89 ! [1/4167360] Reference level in Energy Level File
real*4 A_89 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_90 ! [1/4167360] Reference level in Energy Level File
real*4 A_90 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_91 ! [1/4167360] Reference level in Energy Level File
real*4 A_91 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_92 ! [1/4167360] Reference level in Energy Level File
real*4 A_92 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_93 ! [1/4167360] Reference level in Energy Level File
real*4 A_93 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_94 ! [1/4167360] Reference level in Energy Level File
real*4 A_94 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_95 ! [1/4167360] Reference level in Energy Level File
real*4 A_95 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_96 ! [1/4167360] Reference level in Energy Level File
real*4 A_96 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_97 ! [1/4167360] Reference level in Energy Level File
real*4 A_97 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_98 ! [1/4167360] Reference level in Energy Level File
real*4 A_98 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_99 ! [1/4167360] Reference level in Energy Level File
real*4 A_99 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_100 ! [1/4167360] Reference level in Energy Level File
real*4 A_100 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_101 ! [1/4167360] Reference level in Energy Level File
real*4 A_101 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_102 ! [1/4167360] Reference level in Energy Level File
real*4 A_102 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_103 ! [1/4167360] Reference level in Energy Level File
real*4 A_103 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_104 ! [1/4167360] Reference level in Energy Level File
real*4 A_104 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_105 ! [1/4167360] Reference level in Energy Level File
real*4 A_105 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_106 ! [1/4167360] Reference level in Energy Level File
real*4 A_106 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_107 ! [1/4167360] Reference level in Energy Level File
real*4 A_107 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_108 ! [1/4167360] Reference level in Energy Level File
real*4 A_108 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_109 ! [1/4167360] Reference level in Energy Level File
real*4 A_109 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_110 ! [1/4167360] Reference level in Energy Level File
real*4 A_110 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_111 ! [1/4167360] Reference level in Energy Level File
real*4 A_111 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_112 ! [1/4167360] Reference level in Energy Level File
real*4 A_112 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_113 ! [1/4167360] Reference level in Energy Level File
real*4 A_113 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_114 ! [1/4167360] Reference level in Energy Level File
real*4 A_114 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_115 ! [1/4167360] Reference level in Energy Level File
real*4 A_115 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_116 ! [1/4167360] Reference level in Energy Level File
real*4 A_116 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_117 ! [1/4167360] Reference level in Energy Level File
real*4 A_117 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_118 ! [1/4167360] Reference level in Energy Level File
real*4 A_118 ! (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 ! [1/4167360] Reference level in Energy Level File
integer*4 Lev2_119 ! [1/4167360] Reference level in Energy Level File
real*4 A_119 ! (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,J,G,N_Block,E,n1,n2,n3,n4,l3,l4,Pi,K,Pr,v1,v2,v3,v4,v5,v6,
+ Gv
c ..............Just test output...........
write(6,1)
+ Seq,J,G,N_Block,E,n1,n2,n3,n4,l3,l4,Pi,K,Pr,v1,v2,v3,v4,v5,v6,
+ Gv
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,Lev2,A
c ..............Just test output...........
write(6,2)Lev1,Lev2,A
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,Lev2_1,A_1
c ..............Just test output...........
write(6,3)Lev1_1,Lev2_1,A_1
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,Lev2_2,A_2
c ..............Just test output...........
write(6,4)Lev1_2,Lev2_2,A_2
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,Lev2_3,A_3
c ..............Just test output...........
write(6,5)Lev1_3,Lev2_3,A_3
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,Lev2_4,A_4
c ..............Just test output...........
write(6,6)Lev1_4,Lev2_4,A_4
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,Lev2_5,A_5
c ..............Just test output...........
write(6,7)Lev1_5,Lev2_5,A_5
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,Lev2_6,A_6
c ..............Just test output...........
write(6,8)Lev1_6,Lev2_6,A_6
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,Lev2_7,A_7
c ..............Just test output...........
write(6,9)Lev1_7,Lev2_7,A_7
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,Lev2_8,A_8
c ..............Just test output...........
write(6,10)Lev1_8,Lev2_8,A_8
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,Lev2_9,A_9
c ..............Just test output...........
write(6,11)Lev1_9,Lev2_9,A_9
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,Lev2_10,A_10
c ..............Just test output...........
write(6,12)Lev1_10,Lev2_10,A_10
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,Lev2_11,A_11
c ..............Just test output...........
write(6,13)Lev1_11,Lev2_11,A_11
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,Lev2_12,A_12
c ..............Just test output...........
write(6,14)Lev1_12,Lev2_12,A_12
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,Lev2_13,A_13
c ..............Just test output...........
write(6,15)Lev1_13,Lev2_13,A_13
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,Lev2_14,A_14
c ..............Just test output...........
write(6,16)Lev1_14,Lev2_14,A_14
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,Lev2_15,A_15
c ..............Just test output...........
write(6,17)Lev1_15,Lev2_15,A_15
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,Lev2_16,A_16
c ..............Just test output...........
write(6,18)Lev1_16,Lev2_16,A_16
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,Lev2_17,A_17
c ..............Just test output...........
write(6,19)Lev1_17,Lev2_17,A_17
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,Lev2_18,A_18
c ..............Just test output...........
write(6,20)Lev1_18,Lev2_18,A_18
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,Lev2_19,A_19
c ..............Just test output...........
write(6,21)Lev1_19,Lev2_19,A_19
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,Lev2_20,A_20
c ..............Just test output...........
write(6,22)Lev1_20,Lev2_20,A_20
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,Lev2_21,A_21
c ..............Just test output...........
write(6,23)Lev1_21,Lev2_21,A_21
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,Lev2_22,A_22
c ..............Just test output...........
write(6,24)Lev1_22,Lev2_22,A_22
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,Lev2_23,A_23
c ..............Just test output...........
write(6,25)Lev1_23,Lev2_23,A_23
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,Lev2_24,A_24
c ..............Just test output...........
write(6,26)Lev1_24,Lev2_24,A_24
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,Lev2_25,A_25
c ..............Just test output...........
write(6,27)Lev1_25,Lev2_25,A_25
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,Lev2_26,A_26
c ..............Just test output...........
write(6,28)Lev1_26,Lev2_26,A_26
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,Lev2_27,A_27
c ..............Just test output...........
write(6,29)Lev1_27,Lev2_27,A_27
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,Lev2_28,A_28
c ..............Just test output...........
write(6,30)Lev1_28,Lev2_28,A_28
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,Lev2_29,A_29
c ..............Just test output...........
write(6,31)Lev1_29,Lev2_29,A_29
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,Lev2_30,A_30
c ..............Just test output...........
write(6,32)Lev1_30,Lev2_30,A_30
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,Lev2_31,A_31
c ..............Just test output...........
write(6,33)Lev1_31,Lev2_31,A_31
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,Lev2_32,A_32
c ..............Just test output...........
write(6,34)Lev1_32,Lev2_32,A_32
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,Lev2_33,A_33
c ..............Just test output...........
write(6,35)Lev1_33,Lev2_33,A_33
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,Lev2_34,A_34
c ..............Just test output...........
write(6,36)Lev1_34,Lev2_34,A_34
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,Lev2_35,A_35
c ..............Just test output...........
write(6,37)Lev1_35,Lev2_35,A_35
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,Lev2_36,A_36
c ..............Just test output...........
write(6,38)Lev1_36,Lev2_36,A_36
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,Lev2_37,A_37
c ..............Just test output...........
write(6,39)Lev1_37,Lev2_37,A_37
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,Lev2_38,A_38
c ..............Just test output...........
write(6,40)Lev1_38,Lev2_38,A_38
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,Lev2_39,A_39
c ..............Just test output...........
write(6,41)Lev1_39,Lev2_39,A_39
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,Lev2_40,A_40
c ..............Just test output...........
write(6,42)Lev1_40,Lev2_40,A_40
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,Lev2_41,A_41
c ..............Just test output...........
write(6,43)Lev1_41,Lev2_41,A_41
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,Lev2_42,A_42
c ..............Just test output...........
write(6,44)Lev1_42,Lev2_42,A_42
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,Lev2_43,A_43
c ..............Just test output...........
write(6,45)Lev1_43,Lev2_43,A_43
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,Lev2_44,A_44
c ..............Just test output...........
write(6,46)Lev1_44,Lev2_44,A_44
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,Lev2_45,A_45
c ..............Just test output...........
write(6,47)Lev1_45,Lev2_45,A_45
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,Lev2_46,A_46
c ..............Just test output...........
write(6,48)Lev1_46,Lev2_46,A_46
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,Lev2_47,A_47
c ..............Just test output...........
write(6,49)Lev1_47,Lev2_47,A_47
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,Lev2_48,A_48
c ..............Just test output...........
write(6,50)Lev1_48,Lev2_48,A_48
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,Lev2_49,A_49
c ..............Just test output...........
write(6,51)Lev1_49,Lev2_49,A_49
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,Lev2_50,A_50
c ..............Just test output...........
write(6,52)Lev1_50,Lev2_50,A_50
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,Lev2_51,A_51
c ..............Just test output...........
write(6,53)Lev1_51,Lev2_51,A_51
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,Lev2_52,A_52
c ..............Just test output...........
write(6,54)Lev1_52,Lev2_52,A_52
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,Lev2_53,A_53
c ..............Just test output...........
write(6,55)Lev1_53,Lev2_53,A_53
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,Lev2_54,A_54
c ..............Just test output...........
write(6,56)Lev1_54,Lev2_54,A_54
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,Lev2_55,A_55
c ..............Just test output...........
write(6,57)Lev1_55,Lev2_55,A_55
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,Lev2_56,A_56
c ..............Just test output...........
write(6,58)Lev1_56,Lev2_56,A_56
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,Lev2_57,A_57
c ..............Just test output...........
write(6,59)Lev1_57,Lev2_57,A_57
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,Lev2_58,A_58
c ..............Just test output...........
write(6,60)Lev1_58,Lev2_58,A_58
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,Lev2_59,A_59
c ..............Just test output...........
write(6,61)Lev1_59,Lev2_59,A_59
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,Lev2_60,A_60
c ..............Just test output...........
write(6,62)Lev1_60,Lev2_60,A_60
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,Lev2_61,A_61
c ..............Just test output...........
write(6,63)Lev1_61,Lev2_61,A_61
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,Lev2_62,A_62
c ..............Just test output...........
write(6,64)Lev1_62,Lev2_62,A_62
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,Lev2_63,A_63
c ..............Just test output...........
write(6,65)Lev1_63,Lev2_63,A_63
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,Lev2_64,A_64
c ..............Just test output...........
write(6,66)Lev1_64,Lev2_64,A_64
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,Lev2_65,A_65
c ..............Just test output...........
write(6,67)Lev1_65,Lev2_65,A_65
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,Lev2_66,A_66
c ..............Just test output...........
write(6,68)Lev1_66,Lev2_66,A_66
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,Lev2_67,A_67
c ..............Just test output...........
write(6,69)Lev1_67,Lev2_67,A_67
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,Lev2_68,A_68
c ..............Just test output...........
write(6,70)Lev1_68,Lev2_68,A_68
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,Lev2_69,A_69
c ..............Just test output...........
write(6,71)Lev1_69,Lev2_69,A_69
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,Lev2_70,A_70
c ..............Just test output...........
write(6,72)Lev1_70,Lev2_70,A_70
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,Lev2_71,A_71
c ..............Just test output...........
write(6,73)Lev1_71,Lev2_71,A_71
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,Lev2_72,A_72
c ..............Just test output...........
write(6,74)Lev1_72,Lev2_72,A_72
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,Lev2_73,A_73
c ..............Just test output...........
write(6,75)Lev1_73,Lev2_73,A_73
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,Lev2_74,A_74
c ..............Just test output...........
write(6,76)Lev1_74,Lev2_74,A_74
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,Lev2_75,A_75
c ..............Just test output...........
write(6,77)Lev1_75,Lev2_75,A_75
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,Lev2_76,A_76
c ..............Just test output...........
write(6,78)Lev1_76,Lev2_76,A_76
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,Lev2_77,A_77
c ..............Just test output...........
write(6,79)Lev1_77,Lev2_77,A_77
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,Lev2_78,A_78
c ..............Just test output...........
write(6,80)Lev1_78,Lev2_78,A_78
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,Lev2_79,A_79
c ..............Just test output...........
write(6,81)Lev1_79,Lev2_79,A_79
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,Lev2_80,A_80
c ..............Just test output...........
write(6,82)Lev1_80,Lev2_80,A_80
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,Lev2_81,A_81
c ..............Just test output...........
write(6,83)Lev1_81,Lev2_81,A_81
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,Lev2_82,A_82
c ..............Just test output...........
write(6,84)Lev1_82,Lev2_82,A_82
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,Lev2_83,A_83
c ..............Just test output...........
write(6,85)Lev1_83,Lev2_83,A_83
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,Lev2_84,A_84
c ..............Just test output...........
write(6,86)Lev1_84,Lev2_84,A_84
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,Lev2_85,A_85
c ..............Just test output...........
write(6,87)Lev1_85,Lev2_85,A_85
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,Lev2_86,A_86
c ..............Just test output...........
write(6,88)Lev1_86,Lev2_86,A_86
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,Lev2_87,A_87
c ..............Just test output...........
write(6,89)Lev1_87,Lev2_87,A_87
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,Lev2_88,A_88
c ..............Just test output...........
write(6,90)Lev1_88,Lev2_88,A_88
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,Lev2_89,A_89
c ..............Just test output...........
write(6,91)Lev1_89,Lev2_89,A_89
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,Lev2_90,A_90
c ..............Just test output...........
write(6,92)Lev1_90,Lev2_90,A_90
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,Lev2_91,A_91
c ..............Just test output...........
write(6,93)Lev1_91,Lev2_91,A_91
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,Lev2_92,A_92
c ..............Just test output...........
write(6,94)Lev1_92,Lev2_92,A_92
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,Lev2_93,A_93
c ..............Just test output...........
write(6,95)Lev1_93,Lev2_93,A_93
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,Lev2_94,A_94
c ..............Just test output...........
write(6,96)Lev1_94,Lev2_94,A_94
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,Lev2_95,A_95
c ..............Just test output...........
write(6,97)Lev1_95,Lev2_95,A_95
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,Lev2_96,A_96
c ..............Just test output...........
write(6,98)Lev1_96,Lev2_96,A_96
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,Lev2_97,A_97
c ..............Just test output...........
write(6,99)Lev1_97,Lev2_97,A_97
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,Lev2_98,A_98
c ..............Just test output...........
write(6,100)Lev1_98,Lev2_98,A_98
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,Lev2_99,A_99
c ..............Just test output...........
write(6,101)Lev1_99,Lev2_99,A_99
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,Lev2_100,A_100
c ..............Just test output...........
write(6,102)Lev1_100,Lev2_100,A_100
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,Lev2_101,A_101
c ..............Just test output...........
write(6,103)Lev1_101,Lev2_101,A_101
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,Lev2_102,A_102
c ..............Just test output...........
write(6,104)Lev1_102,Lev2_102,A_102
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,Lev2_103,A_103
c ..............Just test output...........
write(6,105)Lev1_103,Lev2_103,A_103
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,Lev2_104,A_104
c ..............Just test output...........
write(6,106)Lev1_104,Lev2_104,A_104
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,Lev2_105,A_105
c ..............Just test output...........
write(6,107)Lev1_105,Lev2_105,A_105
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,Lev2_106,A_106
c ..............Just test output...........
write(6,108)Lev1_106,Lev2_106,A_106
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,Lev2_107,A_107
c ..............Just test output...........
write(6,109)Lev1_107,Lev2_107,A_107
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,Lev2_108,A_108
c ..............Just test output...........
write(6,110)Lev1_108,Lev2_108,A_108
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,Lev2_109,A_109
c ..............Just test output...........
write(6,111)Lev1_109,Lev2_109,A_109
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,Lev2_110,A_110
c ..............Just test output...........
write(6,112)Lev1_110,Lev2_110,A_110
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,Lev2_111,A_111
c ..............Just test output...........
write(6,113)Lev1_111,Lev2_111,A_111
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,Lev2_112,A_112
c ..............Just test output...........
write(6,114)Lev1_112,Lev2_112,A_112
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,Lev2_113,A_113
c ..............Just test output...........
write(6,115)Lev1_113,Lev2_113,A_113
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,Lev2_114,A_114
c ..............Just test output...........
write(6,116)Lev1_114,Lev2_114,A_114
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,Lev2_115,A_115
c ..............Just test output...........
write(6,117)Lev1_115,Lev2_115,A_115
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,Lev2_116,A_116
c ..............Just test output...........
write(6,118)Lev1_116,Lev2_116,A_116
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,Lev2_117,A_117
c ..............Just test output...........
write(6,119)Lev1_117,Lev2_117,A_117
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,Lev2_118,A_118
c ..............Just test output...........
write(6,120)Lev1_118,Lev2_118,A_118
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,Lev2_119,A_119
c ..............Just test output...........
write(6,121)Lev1_119,Lev2_119,A_119
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end