Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/233/24 into FORTRAN code for reading data files line by line.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Apr-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/ApJS/233/24 Iso-propyl cyanide rotational study (Kolesnikova+, 2017)
*================================================================================
*A comprehensive rotational study of interstellar iso-propyl cyanide up to
*480GHz.
* Kolesnikova L., Alonso E.R., Mata S., Cernicharo J., Alonso J.L.
* <Astrophys. J. Suppl. Ser., 233, 24-24 (2017)>
* =2017ApJS..233...24K (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! List of the measured transitions in the ground and
19 excited vibrational states, three ^13^C and
^15^N isotopologues and monohydrate of iso-propyl
cyanide
integer*4 nr__
parameter (nr__=16226) ! Number of records
character*79 ar__ ! Full-size record
character*18 Species ! Species
integer*4 J1 ! [1/82] Upper J quantum number
integer*4 Ka1 ! [0/46] Upper Ka quantum number
integer*4 Kc1 ! [0/82] Upper Kc quantum number
integer*4 F1 ! [0/5]? Upper F quantum number
integer*4 J0 ! [0/81] Lower J quantum number
integer*4 Ka0 ! [0/46] Lower Kc quantum number
integer*4 Kc0 ! [0/81] Lower Ka quantum number
integer*4 F0 ! [0/4]? Lower F quantum number
real*8 nuobs ! (MHz) [6667.8/476986] Observed frequency of
* the transition
real*4 e_nuobs ! (MHz) [0.01/0.3] Uncertainty of the observed frequency
real*4 O_C ! (MHz) [-0.5/0.6]? Observed minus calculated frequency
character*3 Comm ! (MHz) Comment(s) (1)
*Note (1): Comments:
* 1 = Used to fit the constants from Table 1.
* ----------------------------------------------------------------------------
* i-PrCN
* Constant Parent ^13^C(1) ^13^C(2) ^13^C(3)/^13^C(4) ^15^N
* /Unit Species
* ----------------------------------------------------------------------------
* A/MHz 7941.78 7940.29 7923.32 7747.66 (42) 7939.79
* B/MHz 3968.0684 3939.1001 3956.5312 3927.9247 (32) 3837.1287
* C/MHz 2901.0366 2885.7173 2897.6034 2854.3535 (28) 2830.6890
* Pa/u{AA}2 118.9662 119.8909 119.1809 120.2444 (17) 123.2959
* Pb/u{AA}2 55.2401 55.2402 55.2318 56.8111 (17) 55.2398
* Pc/u{AA}2 8.3953 8.4072 8.5519 8.4187 (17) 8.4116
* Xaa/MHz -3.955 -3.942 -3.957 -3.943 (18) ---
* Xbb/MHz 2.139 2.118 2.143 2.125 (24) ---
* Xcc/MHz 1.816 1.824 1.814 1.818 (24) ---
* sig_fit_/MHz 0.014 0.016 0.015 0.013 0.016
* ----------------------------------------------------------------------------
* i-PrCN-H_2O
* Constant Experiment Ab initio
* /Unit
* ----------------------------------------------------------------------------
* A/MHz 3279.4204 (73) 3324
* B/MHz 2257.5487 (27) 2351
* C/MHz 1884.2656 (18) 1957
* Pa/u{AA}2 168.98285 (26) 160.58
* Pb/u{AA}2 99.22721 (26) 97.65
* Pc/u{AA}2 54.87898 (26) 54.38
* Xaa/MHz -1.8220 (81) -1.97
* Xbb/MHz -0.239 (10) 0.17
* Xcc/MHz 2.0606 (65) 1.80
* sig_fit_/MHz 0.008 ---
* ----------------------------------------------------------------------------
* 2 = Used to fit the constants from Table 2.
* ----------------------------------------------------------------------------
* Constant G.S. v_30_=1 v_17_=1 v_29_=1 v_16_=1
* /Unit
* ----------------------------------------------------------------------------
* A/MHz 7940.87823 7896.80912 7995.5117 7930.9396 7923.1442
* B/MHz 3968.087339 3980.03060 3971.85736 3964.95930 3970.26245
* C/MHz 2901.052880 2899.857594 2904.8589 2898.0735 2902.83122
* D_J/kHz 0.609971 0.631009 0.611532 0.604695 0.604472
* D_JK/kHz 12.176382 11.52206 12.65453 12.16478 12.00451
* D_K/kHz -5.2110 -7.3344 -2.6810 -5.2770 -5.3246
* d_1/kHz -0.244012 -0.255115 -0.240432 -0.242324 -0.243118
* d_2/kHz -0.1893655 -0.183894 -0.196335 -0.189434 -0.185858
* H_J/Hz -0.0006330 -0.0006644 -0.0003203 -0.0006950 -0.0005843
* H_JK/Hz 0.037319 0.033848 0.04040 0.03902 0.035446
* H_KJ/Hz 0.011908 -0.03718 0.011908 0.011908 0.017155
* h_1/Hz 0.0000440 0.0001210 0.0000440 0.0000440 0.0000515
* h_2/Hz 0.0008951 0.0008570 0.0008951 0.0008951 0.0008512
* h_3/Hz 0.00031802 0.0002386 0.0003714 0.0003232 0.0003001
* DelE/MHz --- --- 214803.02 ---
* Ga/MHz --- --- 574.735 ---
* Ga^J^/MHz --- --- -0.016774 ---
* Ga^K^/MHz --- --- -0.05968 ---
* Ga^KK^/kHz --- --- -0.01455 ---
* Gc/MHz --- --- 175.80 ---
* Gc^K^/MHz --- --- -0.05363 ---
* Fab/MHz --- --- -6.482 ---
* Jmin/Jmax 6/82 6/81 6/79 6/79 6/75
* Ka,min/Ka,max 0/46 0/37 0/19 0/19 0/40
* Nlines 2355 1584 994 1065 1684
* sigfit/MHz 0.029 0.039 0.053 0.054 0.037
* ----------------------------------------------------------------------------
* 3 = Used to fit the constants from Table 3.
* ----------------------------------------------------------------------------
* Constant/Unit ^13^C(1) ^13^C(2) ^13^C(3)/^13C(4)
* ----------------------------------------------------------------------------
* A/MHz 7939.346 (55) 7922.258 (74) 7747.2999 (39)
* B/MHz 3939.11746 (98) 3956.54960 (90) 3927.9414 (10)
* C/MHz 2885.73189 (64) 2897.61731 (68) 2854.36709 (38)
* D_J/kHz 0.60667(43) 0.60171 (48) 0.5878 (15)
* D_JK/kHz 12.239 (30) 12.368 (51) 11.910 (52)
* D_K/kHz -5.2110 -5.2110 -5.2110^b
* d_1/kHz -0.244012 -0.244012 -0.244012^b
* d_2/kHz -0.1893655 -0.1893655 -0.19198 (87)
* Xaa/MHz -3.9331 (56) -3.9492 (49) -3.9253 (62)
* Xbb/MHz 2.1043 (85) 2.1315 (75) 2.1034 (84)
* Xcc/MHz 1.8288 (85) 1.8177 (75) 1.8219 (84)
* Jmin/Jmax 0/33 0/31 0/36
* Ka,min/Ka,max 0/3 0/2 0/4
* Nlines 45 28 60
* sigfit/MHz 0.022 0.017 0.026
* ----------------------------------------------------------------------------
* 4 = Perturbed transition. Measured using the Loomis-Wood type plots.
* 5 = Used to fit the constants from Table 5.
C=============================================================================
C Loading file 'table4.dat' ! List of the measured transitions in the ground and
* 19 excited vibrational states, three ^13^C and
* ^15^N isotopologues and monohydrate of iso-propyl
* cyanide
C Format for file interpretation
1 format(
+ A18,1X,I2,1X,I2,1X,I2,1X,I2,3X,I2,1X,I2,1X,I2,1X,I2,3X,F10.3,
+ 3X,F5.3,2X,F6.3,3X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,16226
read(1,'(A79)')ar__
read(ar__,1)
+ Species,J1,Ka1,Kc1,F1,J0,Ka0,Kc0,F0,nuobs,e_nuobs,O_C,Comm
if(ar__(29:30) .EQ. '') F1 = iNULL__
if(ar__(43:44) .EQ. '') F0 = iNULL__
if(ar__(68:73) .EQ. '') O_C = rNULL__
c ..............Just test output...........
write(6,1)
+ Species,J1,Ka1,Kc1,F1,J0,Ka0,Kc0,F0,nuobs,e_nuobs,O_C,Comm
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end