Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/177/275 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-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/ApJS/177/275 1.3 and 2mm survey of IRC+10216 (He+, 2008)
*================================================================================
*A spectral line survey in the 2 and 1.3 mm windows toward the carbon-rich
*envelope of IRC +10216.
* He J.H., Dinh-V-Trung J.H., Kwok S., Muller H.S.P., Zhang Y., Hasegawa T.,
* Peng T.C., Huang Y.C.
* <Astrophys. J. Suppl. Ser., 177, 275-325 (2008)>
* =2008ApJS..177..275H
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Line parameters of all detected lines in our survey
integer*4 nr__
parameter (nr__=409) ! Number of records
character*113 ar__ ! Full-size record
character*10 Species ! Species name
character*34 Trans ! Transition
real*8 Freq ! (MHz) ? Observed line frequency
real*4 e_Freq ! (MHz) ? Uncertainty in Freq
real*8 Freq0 ! (MHz) ? Line frequency from CDMS/JPL catalogs (1)
character*1 n_Freq0 ! [abd] Note on Freq0 (2)
real*4 Iint ! (K.km/s) ? Integrated line intensity
character*1 n_Iint ! [*] Note on Iint (3)
real*4 e_Iint ! (K.km/s) ? Uncertainty in Iint
integer*4 Tlc ! (mK) ? Fitted main beam temperature at line center
integer*4 e_Tlc ! (mK) ? Uncertainty in Tlc
real*4 Vexp ! (km/s) ? Fitted outflow velocity
real*4 e_Vexp ! (km/s) ? Uncertainty in Vexp
character*4 Blend ! Notes on line blending (4)
*Note (1): Line identification was performed by using the Cologne Database
* for Molecular Spectroscopy (CDMS; see Muller et al., 2001A&A...370L..49M,
* 2005JMoSt.742..215M) and the Molecular Spectroscopy database of Jet
* Propulsion Laboratory (JPL; see Pickett et al., 1998JQSRT..60..883P).
*Note (2): Notes on line frequency as follows:
* a = average frequency of hyperfine components;
* b = same as a, but the hyperfine of components of neighbouring fine
* structure lines blended together, so that the fine structure lines are
* also partially blended. (for MgNC);
* d = unresolved lambda doublet (for SiC).
*Note (3): Note on Iint:
* * = Integrated line intensity derived from SHELL fitting.
*Note (4): Notes on line blending as follows:
* s = single lines;
* a = lines fitted using fixed line frequency and line width of 14.5km/s;
* b = lines too narrow;
* c = differentiable blended lines of the same species;
* d = undifferentiable blended lines of different species;
* e = differentiable blended lines of the same species;
* (hyperfine or lambda doublet or weak asymmetric transitions);
* f = undifferentiable blended lines of different species.
C=============================================================================
C Loading file 'table4.dat' ! Line parameters of all detected lines in our survey
C Format for file interpretation
1 format(
+ A10,1X,A34,1X,F9.2,1X,F4.2,1X,F9.2,1X,A1,1X,F6.2,1X,A1,1X,
+ F4.2,1X,I5,1X,I3,1X,F5.2,1X,F5.2,1X,A4)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,409
read(1,'(A113)')ar__
read(ar__,1)
+ Species,Trans,Freq,e_Freq,Freq0,n_Freq0,Iint,n_Iint,e_Iint,
+ Tlc,e_Tlc,Vexp,e_Vexp,Blend
if(ar__(47:55) .EQ. '') Freq = rNULL__
if(ar__(57:60) .EQ. '') e_Freq = rNULL__
if(ar__(62:70) .EQ. '') Freq0 = rNULL__
if(ar__(74:79) .EQ. '') Iint = rNULL__
if(ar__(83:86) .EQ. '') e_Iint = rNULL__
if(ar__(88:92) .EQ. '') Tlc = iNULL__
if(ar__(94:96) .EQ. '') e_Tlc = iNULL__
if(ar__(98:102) .EQ. '') Vexp = rNULL__
if(ar__(104:108) .EQ. '') e_Vexp = rNULL__
c ..............Just test output...........
write(6,1)
+ Species,Trans,Freq,e_Freq,Freq0,n_Freq0,Iint,n_Iint,e_Iint,
+ Tlc,e_Tlc,Vexp,e_Vexp,Blend
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end