Conversion of standardized ReadMe file for
file /./ftp/cats/J/PASJ/56/313 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 2026-Oct-12
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/PASJ/56/313 13CO survey of Mon & CMa molecular clouds (Kim+, 2004)
*================================================================================
*^13^CO (J=1-0) survey toward of molecular clouds toward the Monoceros and
*Canis Major Region.
* Kim B.G., Kawamura A., Yonekura Y., Fukui Y.
* <Publ. Astron. Soc. Jap., 56, 313-339 (2004)>
* =2004PASJ...56..313K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'groups.dat' ! Groups designations
integer*4 nr__
parameter (nr__=17) ! Number of records
character*43 ar__ ! Full-size record
character*10 Group ! Group name
character*27 OName ! Other name
integer*4 Dist ! (pc) Distance
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! List of ^13^CO clouds.
integer*4 nr__1
parameter (nr__1=115) ! Number of records
character*69 ar__1 ! Full-size record
C Position composed of: GLON GLAT
character*10 Group_1 ! Group name
integer*4 v_KKY2004_ ! Sequential number of the cloud
character*10 Name ! Name of the cloud (LLL.l+BB.b)
real*4 GLON ! (deg) Galactic longitude, peak position of the
* ^13^CO cloud
real*4 GLAT ! (deg) Galacitic latitude, peak position of the
* ^13^CO cloud
real*4 v13TR ! (K) Radiation temperatures at the peak positions
* of the ^13^CO cloud
real*4 v13Tint ! (K.km/s) Velocity integrated intensities at the peak
* positions of the ^13^CO cloud
real*4 Vlsr ! (km/s) Composed LSR velocities of the all line
* profiles in the ^13^CO cloud
real*4 DVc ! (km/s) FWHM line widths corresponding to Vlsr
integer*4 Area ! (pc+2) ? Area of the ^13^CO clouds width in the
* lowest boundary of the ^13^CO cloud
integer*4 Mass ! (solMass) ? Mass of the ^13^CO clouds width in the
* lowest boundary of the ^13^CO cloud
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Objects associated with ^13^CO clouds.
integer*4 nr__2
parameter (nr__2=115) ! Number of records
character*172 ar__2 ! Full-size record
character*10 Group_2 ! Group name
integer*4 v_KKY2004__1 ! Sequential number of the cloud
character*10 Name_1 ! Name of the cloud (LLL.l+BB.b)
character*38 Dark ! Associated dark clouds (1)
character*35 HII ! Associated HII regions (2)
character*26 RNeb ! Associated reflection nebulae (3)
character*25 Out ! Associated outflows (4)
character*15 HBC ! Associated emission-line stars (5)
integer*4 NIps ! Number of associated IRAS point sources
*Note (1): Objects are denoted by their numbers in the following references:
* L = Lynds, 1962ApJS....7....1L, Cat. <VII/7>
* CB = Clemens and Barvainis, 1988ApJS...68..257C
* TDS = Tylor et al., 1987ApJ...315..104T
*Note (2): Objects are denoted by their numbers or galactic coordinates
* in the following references:
* S = Sharpless, 1959ApJS....4..257S, Cat. <VII/20>
* BFS = Blitz et al., 1982ApJS...49..183B, Cat. <VII/50>
* G = Hughes and Baines, 1985ApJ...289..238H
*Note (3): Objects are denoted by their numbers in the following references:
* vdb = van den Bergh, 1966AJ.....71..990V, Cat. <VII/21>
* DG = Dorschner and Gurtler, 1963AN....287..257D
*Note (4): Objects are denoted by their names in
* Fukui et al. (1993, IAU Symp., 179, 165) and
* Yun and Clemens (1994ApJS...92..145Y).
*Note (5): Emission-line stars (Herbig & Bell, 1988LicOB1111....1H,
* Cat. <V/73>) associated with ^13^CO clouds. The objects numbers are
* taken from their catalog.
C=============================================================================
C Loading file 'groups.dat' ! Groups designations
C Format for file interpretation
1 format(A10,1X,A27,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'groups.dat')
write(6,*) '....Loading file: groups.dat'
do i__=1,17
read(1,'(A43)')ar__
read(ar__,1)Group,OName,Dist
c ..............Just test output...........
write(6,1)Group,OName,Dist
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table1.dat' ! List of ^13^CO clouds.
C Format for file interpretation
2 format(
+ A10,2X,I3,1X,A10,1X,F6.2,1X,F6.2,1X,F4.2,1X,F4.1,1X,F4.1,1X,
+ F3.1,1X,I3,1X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,115
read(1,'(A69)')ar__1
read(ar__1,2)
+ Group_1,v_KKY2004_,Name,GLON,GLAT,v13TR,v13Tint,Vlsr,DVc,Area,
+ Mass
if(ar__1(61:63) .EQ. '') Area = iNULL__
if(ar__1(65:69) .EQ. '') Mass = iNULL__
c ..............Just test output...........
write(6,2)
+ Group_1,v_KKY2004_,Name,GLON,GLAT,v13TR,v13Tint,Vlsr,DVc,Area,
+ Mass
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Objects associated with ^13^CO clouds.
C Format for file interpretation
3 format(
+ A10,1X,I3,1X,A10,1X,A38,1X,A35,1X,A26,1X,A25,1X,A15,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,115
read(1,'(A172)')ar__2
read(ar__2,3)
+ Group_2,v_KKY2004__1,Name_1,Dark,HII,RNeb,Out,HBC,NIps
c ..............Just test output...........
write(6,3)
+ Group_2,v_KKY2004__1,Name_1,Dark,HII,RNeb,Out,HBC,NIps
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end