Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/705/144 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-16
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/705/144 Molecular and atomic gas in the LMC. II. (Fukui+, 2009)
*================================================================================
*Molecular and atomic gas in the Large Magellanic Cloud.
*II. Three-dimensional correlation between CO and H I.
* Fukui Y., Kawamura A., Wong T., Murai M., Iritani H., Mizuno N., Mizuno Y.,
* Onishi T., Hughes A., Ott J., Muller E., Staveley-Smith L., Kim S.
* <Astrophys. J., 705, 144-155 (2009)>
* =2009ApJ...705..144F
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! List of selected 123 giant molecular clouds (GMCs)
integer*4 nr__
parameter (nr__=123) ! Number of records
character*82 ar__ ! Full-size record
C B1950 position composed of: RAh RAm DE- DEd DEm
real*8 RAdeg ! (deg) Right Ascension B1950
real*8 DEdeg ! (deg) Declination B1950
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 GMC ! [1/271] Giant Molecular Cloud number (1)
character*10 Name ! GMC name (JHHMM+DDMM) (1)
character*3 Type ! I, II, or III type from Kawamura et al.
* (2009, Cat. J/ApJS/184/1) (2)
integer*4 RAh ! (h) CO peak hour of right ascension (B1950) (3)
real*4 RAm ! (min) Minute of right ascension (B1950)
character*1 DE_ ! CO peak sign of declination (B1950) (3)
integer*4 DEd ! (deg) Degree of declination (B1950)
integer*4 DEm ! (arcmin) Arcminute of declination (B1950)
integer*4 R ! (pc) CO radius from Fukui et al. (2008,
* Cat. J/ApJS/178/56)
integer*4 RAH_h ! (h) HI peak hour of right ascension (B1950) (3)
real*4 RAH_m ! (min) Minute of right ascension (B1950)
character*1 DEH__ ! HI peak sign of declination (B1950) (3)
integer*4 DEH_d ! (deg) Degree of declination (B1950)
integer*4 DEH_m ! (arcmin) Arcminute of declination (B1950)
character*1 f_RHI ! [*] *: HI clouds whose extent is poorly
* defined
integer*4 RHI ! (pc) ? Radius of the HI envelope (4)
real*4 NHI ! (10+21cm-2) HI column density
integer*4 Delt ! (pc) Deviation between CO and HI peak positions
* (CO({alpha},{delta})-HI({alpha},{delta}))
character*12 Comm ! Other GMCs in the same HI cloud (5)
*Note (1): GMC name from Fukui et al. (2008, Cat. J/ApJS/178/56)
* (<[FKM2008] NNN> or <[FKM2008] LMC N JHHMM+DDMM> in Simbad).
* Note that in 68 cases, the name is truncated in JHHMM+DDM format.
*Note (2): These classes are interpreted as an evolutionary sequence
* from Type I to III; the lifetime of a GMC is estimated to be a few
* x10Myr in total.
* * Type I GMCs show no signs of active star formation in the sense
* that no O stars are being formed.
* * Type II GMCs are associated with small HII region(s), indicating the
* formation of isolated O stars, but do not host any stellar clusters
* identified by Bica et al. (1996ApJS..102...57B).
* * Type III GMCs are actively forming stars as shown by their association
* with large HII regions and young stellar clusters.
*Note (3): Position of peak integrated intensity. Data are from Fukui et al.
* (2008, Cat. J/ApJS/178/56).
*Note (4): HI cloud radius defined as R=(S/{pi})^0.5^. Here S is the cloud
* area, calculated by summing the areas of all pixels detected above 80%
* of the peak integrated intensity level.
*Note (5): HI clouds including two or more GMCs: the numbers show GMCs that
* are located in the same HI cloud.
C=============================================================================
C Loading file 'table2.dat' ! List of selected 123 giant molecular clouds (GMCs)
C Format for file interpretation
1 format(
+ I3,7X,A10,1X,A3,1X,I1,1X,F4.1,1X,A1,I2,1X,I2,1X,I3,1X,I1,1X,
+ F4.1,1X,A1,I2,1X,I2,1X,A1,I3,1X,F3.1,1X,I3,1X,A12)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,123
read(1,'(A82)')ar__
read(ar__,1)
+ GMC,Name,Type,RAh,RAm,DE_,DEd,DEm,R,RAH_h,RAH_m,DEH__,DEH_d,
+ DEH_m,f_RHI,RHI,NHI,Delt,Comm
if(ar__(59:61) .EQ. '') RHI = iNULL__
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg=RAh*15.
if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)
+ GMC,Name,Type,RAh,RAm,DE_,DEd,DEm,R,RAH_h,RAH_m,DEH__,DEH_d,
+ DEH_m,f_RHI,RHI,NHI,Delt,Comm
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end