Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/114/175 into FORTRAN code for loading all data files into arrays.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Apr-19
C=============================================================================
* This code was generated from the ReadMe file documenting a catalogue
* according to the "Standard for Documentation of Astronomical Catalogues"
* currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
* (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
* Please report problems or questions to
C=============================================================================
implicit none
* Unspecified or NULL values, generally corresponding to blank columns,
* are assigned one of the following special values:
* rNULL__ for unknown or NULL floating-point values
* iNULL__ for unknown or NULL integer values
real*4 rNULL__
integer*4 iNULL__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. J/A+AS/114/175 Einstein A-coefficients in CS transitions (Chandra+ 1995)
*================================================================================
*Einstein A-coefficients for vibrational transitions in CS
* Chandra S., Kegel W.H., Le Roy R.J., Hertenstein T.
* <Astron. Astrophys. Suppl. Ser. 114, 175 (1995)>
* =1995A&AS..114..175C (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2a' ! Einstein A-coefficients, energy of lower level,
and frequency of transition for C12S32
integer*4 nr__
parameter (nr__=23660) ! Number of records
character*49 ar__ ! Full-size record
integer*4 Vlow (nr__) ! Vibrational quantum number of the lower level
integer*4 Jlow (nr__) ! Rotational quantum number of the lower level
integer*4 Vup (nr__) ! Vibrational quantum number of the upper level
integer*4 Jup (nr__) ! Rotational quantum number of the upper level
real*8 A (nr__) ! (s-1) Einstein A-coefficient
real*8 Elow (nr__) ! (cm-1) Energy of the lower level of the transition
real*8 Freq (nr__) ! (cm-1) Frequency of the transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2b' ! Einstein A-coefficients, energy of lower level,
and frequency of transition for C12S33
integer*4 nr__1
parameter (nr__1=23660) ! Number of records
character*49 ar__1 ! Full-size record
integer*4 Vlow_1 (nr__1) ! Vibrational quantum number of the lower level
integer*4 Jlow_1 (nr__1) ! Rotational quantum number of the lower level
integer*4 Vup_1 (nr__1) ! Vibrational quantum number of the upper level
integer*4 Jup_1 (nr__1) ! Rotational quantum number of the upper level
real*8 A_1 (nr__1) ! (s-1) Einstein A-coefficient
real*8 Elow_1 (nr__1) ! (cm-1) Energy of the lower level of the transition
real*8 Freq_1 (nr__1) ! (cm-1) Frequency of the transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2c' ! Einstein A-coefficients, energy of lower level,
and frequency of transition for C12S34
integer*4 nr__2
parameter (nr__2=23660) ! Number of records
character*49 ar__2 ! Full-size record
integer*4 Vlow_2 (nr__2) ! Vibrational quantum number of the lower level
integer*4 Jlow_2 (nr__2) ! Rotational quantum number of the lower level
integer*4 Vup_2 (nr__2) ! Vibrational quantum number of the upper level
integer*4 Jup_2 (nr__2) ! Rotational quantum number of the upper level
real*8 A_2 (nr__2) ! (s-1) Einstein A-coefficient
real*8 Elow_2 (nr__2) ! (cm-1) Energy of the lower level of the transition
real*8 Freq_2 (nr__2) ! (cm-1) Frequency of the transition
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2d' ! Einstein A-coefficients, energy of lower level,
and frequency of transition for C13S32
integer*4 nr__3
parameter (nr__3=23660) ! Number of records
character*49 ar__3 ! Full-size record
integer*4 Vlow_3 (nr__3) ! Vibrational quantum number of the lower level
integer*4 Jlow_3 (nr__3) ! Rotational quantum number of the lower level
integer*4 Vup_3 (nr__3) ! Vibrational quantum number of the upper level
integer*4 Jup_3 (nr__3) ! Rotational quantum number of the upper level
real*8 A_3 (nr__3) ! (s-1) Einstein A-coefficient
real*8 Elow_3 (nr__3) ! (cm-1) Energy of the lower level of the transition
real*8 Freq_3 (nr__3) ! (cm-1) Frequency of the transition
C=============================================================================
C Loading file 'table2a' ! Einstein A-coefficients, energy of lower level,
* and frequency of transition for C12S32
C Format for file interpretation
1 format(1X,I2,1X,I3,1X,I2,1X,I3,2X,D9.3,2X,F10.4,3X,F9.4)
C Effective file loading
open(unit=1,status='old',file=
+'table2a')
write(6,*) '....Loading file: table2a'
do i__=1,23660
read(1,'(A49)')ar__
read(ar__,1)
+ Vlow(i__),Jlow(i__),Vup(i__),Jup(i__),A(i__),Elow(i__),
+ Freq(i__)
c ..............Just test output...........
write(6,1)
+ Vlow(i__),Jlow(i__),Vup(i__),Jup(i__),A(i__),Elow(i__),
+ Freq(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2b' ! Einstein A-coefficients, energy of lower level,
* and frequency of transition for C12S33
C Format for file interpretation
2 format(1X,I2,1X,I3,1X,I2,1X,I3,2X,D9.3,2X,F10.4,3X,F9.4)
C Effective file loading
open(unit=1,status='old',file=
+'table2b')
write(6,*) '....Loading file: table2b'
do i__=1,23660
read(1,'(A49)')ar__1
read(ar__1,2)
+ Vlow_1(i__),Jlow_1(i__),Vup_1(i__),Jup_1(i__),A_1(i__),
+ Elow_1(i__),Freq_1(i__)
c ..............Just test output...........
write(6,2)
+ Vlow_1(i__),Jlow_1(i__),Vup_1(i__),Jup_1(i__),A_1(i__),
+ Elow_1(i__),Freq_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2c' ! Einstein A-coefficients, energy of lower level,
* and frequency of transition for C12S34
C Format for file interpretation
3 format(1X,I2,1X,I3,1X,I2,1X,I3,2X,D9.3,2X,F10.4,3X,F9.4)
C Effective file loading
open(unit=1,status='old',file=
+'table2c')
write(6,*) '....Loading file: table2c'
do i__=1,23660
read(1,'(A49)')ar__2
read(ar__2,3)
+ Vlow_2(i__),Jlow_2(i__),Vup_2(i__),Jup_2(i__),A_2(i__),
+ Elow_2(i__),Freq_2(i__)
c ..............Just test output...........
write(6,3)
+ Vlow_2(i__),Jlow_2(i__),Vup_2(i__),Jup_2(i__),A_2(i__),
+ Elow_2(i__),Freq_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2d' ! Einstein A-coefficients, energy of lower level,
* and frequency of transition for C13S32
C Format for file interpretation
4 format(1X,I2,1X,I3,1X,I2,1X,I3,2X,D9.3,2X,F10.4,3X,F9.4)
C Effective file loading
open(unit=1,status='old',file=
+'table2d')
write(6,*) '....Loading file: table2d'
do i__=1,23660
read(1,'(A49)')ar__3
read(ar__3,4)
+ Vlow_3(i__),Jlow_3(i__),Vup_3(i__),Jup_3(i__),A_3(i__),
+ Elow_3(i__),Freq_3(i__)
c ..............Just test output...........
write(6,4)
+ Vlow_3(i__),Jlow_3(i__),Vup_3(i__),Jup_3(i__),A_3(i__),
+ Elow_3(i__),Freq_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end