Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/500/1059 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-18 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/ApJ/500/1059 Dimethyl ether transitions frequencies (Groner+, 1998) *================================================================================ *Dimethyl ether: laboratory assignments and predictions through 600 GHz. * Groner P., Albert S., Herbst E., De Lucia F.C. * <Astrophys. J. 500, 1059 (1998)> * =1998ApJ...500.1059G (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Assigned and Fitted Transition Frequencies of Dimethyl Ether in the Ground Vibrational State integer*4 nr__ parameter (nr__=2148) ! Number of records character*47 ar__ ! Full-size record integer*4 t (nr__) ! Torsional substates (1) integer*4 J_ (nr__) ! J' rotational quantum number integer*4 K_a (nr__) ! K'a rotational quantum number integer*4 K_c (nr__) ! K'c rotational quantum number integer*4 J__1 (nr__) ! J" rotational quantum number integer*4 K_a_1 (nr__) ! K"a rotational quantum number integer*4 K_c_1 (nr__) ! K"c rotational quantum number real*8 Freq (nr__) ! (MHz) Frequency real*4 O_C (nr__) ! (MHz) Observed minus calculated frequency real*4 e_Freq (nr__) ! (MHz) ?=0.000 rms uncertainty on Freq (2) character*1 Source (nr__) ! Source (3) *Note (1): 00=AA , 01=EE , 11=AE , 12=EA *Note (2): A 0.000 in the uncertainties column signifies that the transition has * been assigned but not included in the fit. Many of these are weaker, * blended lines for which the measured frequency of the stronger * neighbor was used to calculate the listed O - C. A total of 1626 * assigned frequencies were used in the fit. *Note (3): L: Lovas et al. 1979, J. Phys. Chem. Ref. Data 8, 1051 * D: Durig et al. 1976, J. Molec. Spectrosc. 62, 159 * N: Neustock et al. 1990, Z. Naturforsch. 45a, 702 * K: this work, klystron-based measurements * F: this work, FASSST-based measurements c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Predicted Transition Frequencies of Dimethyl Ether in the Ground Vibrational State integer*4 nr__1 parameter (nr__1=7546) ! Number of records character*57 ar__1 ! Full-size record integer*4 t_1 (nr__1) ! Torsional substates (1) integer*4 J__2 (nr__1) ! J' rotational quantum number integer*4 K_a_2 (nr__1) ! K'a rotational quantum number integer*4 K_c_2 (nr__1) ! K'c rotational quantum number integer*4 J__3 (nr__1) ! J" rotational quantum number integer*4 K_a_3 (nr__1) ! K"a rotational quantum number integer*4 K_c_3 (nr__1) ! K"c rotational quantum number real*8 Freq_1 (nr__1) ! (MHz) Frequency real*4 e_Freq_1 (nr__1) ! (MHz) rms uncertainty on Freq integer*4 WSpin (nr__1) ! Spin weight real*8 S (nr__1) ! S value (Townes & Schawlow, 1975, Microwave * Spectroscopy (New York: Dover))) real*8 Eu (nr__1) ! (cm-1) Upper state energies *Note (1): Torsional substates: 00=AA , 01=EE , 11=AE , 12=EA C============================================================================= C Loading file 'table1.dat' ! Assigned and Fitted Transition Frequencies of * Dimethyl Ether in the Ground Vibrational State C Format for file interpretation 1 format( + I2,1X,I2,1X,I2,1X,I2,1X,I2,1X,I2,1X,I2,1X,F10.3,1X,F6.3,1X, + F5.3,1X,A1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,2148 read(1,'(A47)')ar__ read(ar__,1) + t(i__),J_(i__),K_a(i__),K_c(i__),J__1(i__),K_a_1(i__), + K_c_1(i__),Freq(i__),O_C(i__),e_Freq(i__),Source(i__) c ..............Just test output........... write(6,1) + t(i__),J_(i__),K_a(i__),K_c(i__),J__1(i__),K_a_1(i__), + K_c_1(i__),Freq(i__),O_C(i__),e_Freq(i__),Source(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Predicted Transition Frequencies of Dimethyl * Ether in the Ground Vibrational State C Format for file interpretation 2 format( + I2,1X,I2,1X,I2,1X,I2,1X,I2,1X,I2,1X,I2,1X,F10.3,1X,F5.3,1X,I2, + 1X,F8.5,1X,F7.3) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,7546 read(1,'(A57)')ar__1 read(ar__1,2) + t_1(i__),J__2(i__),K_a_2(i__),K_c_2(i__),J__3(i__),K_a_3(i__), + K_c_3(i__),Freq_1(i__),e_Freq_1(i__),WSpin(i__),S(i__),Eu(i__) c ..............Just test output........... write(6,2) + t_1(i__),J__2(i__),K_a_2(i__),K_c_2(i__),J__3(i__),K_a_3(i__), + K_c_3(i__),Freq_1(i__),e_Freq_1(i__),WSpin(i__),S(i__),Eu(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end