Conversion of standardized ReadMe file for
file /./ftp/cats/J/PASJ/51/791 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/PASJ/51/791 Molecular clouds in southern HII regions (Yamaguchi+ 1999)
*================================================================================
*Molecular clouds and star formation in the southern HII regions
* Yamaguchi R., Saito H., Mizuno N., Mine Y., Mizuno A., Ogawa H., Fukui Y.
* <Publ. Astron. Soc. Jap., 51, 791 (1999)>
* =1999PASJ...51..791Y
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Observed H II regions
integer*4 nr__
parameter (nr__=28) ! Number of records
character*74 ar__ ! Full-size record
character*11 HII ! HII region
character*7 Size ! (arcmin) Size (NN or NNNxNNN) in arcmin (1)
character*11 Star ! Exciting star
character*1 n_Star ! [+] +: the earliest star probably contributing
* to ionization
character*9 SpType ! MK spectral type
real*4 Dist ! (kpc) ? Distance
character*6 r_Dist ! References for distance and exciting star (2),
* in refs.dat file
character*20 RelObj ! Related objects
*Note (1): References for size:
* S = Sharpless (1959, Cat. <VII/20>)
* RCW = Rodgers et al. (1960, Cat. <VII/216>)
* Cum Nebula = Chanot and Sivan (1983A&A...121...19C)
* Others = Brand et al. (1986A&AS...65..537B)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References
integer*4 nr__1
parameter (nr__1=24) ! Number of records
character*72 ar__1 ! Full-size record
integer*4 Ref ! Reference number
character*19 BibCOde ! BibCode
character*20 Aut ! Author's name
character*23 Com ! Comments
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Observed properties of ^13^CO clouds
integer*4 nr__2
parameter (nr__2=104) ! Number of records
character*67 ar__2 ! Full-size record
C 1950 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension 1950
real*8 DEdeg ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 v_YSM99_ ! [1-95] Sequential number
character*10 Cloud ! Cloud name
real*4 GLON ! (deg) Galactic longitude
real*4 GLAT ! (deg) Galactic latitude
integer*4 RAh ! (h) Right ascension (1950)
integer*4 RAm ! (min) Right ascension (1950)
real*4 RAs ! (s) Right ascension (1950)
character*1 DE_ ! Declination sign (1950)
integer*4 DEd ! (deg) Declination (1950)
integer*4 DEm ! (arcmin) Declination (1950)
integer*4 DEs ! (arcsec) Declination (1950)
real*4 TR_ ! (K) Peak antenna temperature (1)
real*4 DV ! (km/s) FWHM line width (1)
real*4 Vlsr ! (km/s) LSR velocity (1)
real*4 Int ! (K.km/s) Velocity-integrated intensity (1)
*Note (1): Observed properties at the peak position of molecular clouds.
* The typical rms noise fluctuations are 0.35K at a velocity
* resolution of 0.1km/s with 4-12s integration.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Physical properties of ^13^CO clouds
integer*4 nr__3
parameter (nr__3=104) ! Number of records
character*53 ar__3 ! Full-size record
integer*4 v_YSM99__1 ! [1-95] Sequential number
real*4 tau ! ? Optical depth
real*4 N_H2 ! (10+21cm-2) H_2_ column density
real*4 DVc ! (km/s) ? FWHM line width computed from gaussian fit
real*4 Dist_1 ! (kpc) ? Distance to the molecular cloud
real*4 Rad ! (pc) ? Size of the molecular cloud
integer*4 Mass ! (solMass) ? Molecular cloud mass
character*15 HII_1 ! Associated HII regions
integer*4 IPS ! ? Number of cold IRAS points sources
* listed in table4
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Associated IRAS point sources
integer*4 nr__4
parameter (nr__4=204) ! Number of records
character*14 ar__4 ! Full-size record
integer*4 v_YSM99__2 ! [1-95] Sequential number
character*10 IRAS ! Associated IRAS point source
character*1 m_IRAS ! [A] Multiplicity index on IRAS name
C=============================================================================
C Loading file 'table1.dat' ! Observed H II regions
C Format for file interpretation
1 format(A11,1X,A7,1X,A11,A1,1X,A9,1X,F4.2,1X,A6,A20)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,28
read(1,'(A74)')ar__
read(ar__,1)HII,Size,Star,n_Star,SpType,Dist,r_Dist,RelObj
if(ar__(44:47) .EQ. '') Dist = rNULL__
c ..............Just test output...........
write(6,1)HII,Size,Star,n_Star,SpType,Dist,r_Dist,RelObj
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References
C Format for file interpretation
2 format(I2,1X,A19,1X,A20,6X,A23)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,24
read(1,'(A72)')ar__1
read(ar__1,2)Ref,BibCOde,Aut,Com
c ..............Just test output...........
write(6,2)Ref,BibCOde,Aut,Com
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Observed properties of ^13^CO clouds
C Format for file interpretation
3 format(
+ I2,1X,A10,1X,F6.2,1X,F6.2,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,
+ 1X,I2,1X,F3.1,1X,F3.1,1X,F5.1,1X,F4.1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,104
read(1,'(A67)')ar__2
read(ar__2,3)
+ v_YSM99_,Cloud,GLON,GLAT,RAh,RAm,RAs,DE_,DEd,DEm,DEs,TR_,DV,
+ Vlsr,Int
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(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,3)
+ v_YSM99_,Cloud,GLON,GLAT,RAh,RAm,RAs,DE_,DEd,DEm,DEs,TR_,DV,
+ Vlsr,Int
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Physical properties of ^13^CO clouds
C Format for file interpretation
4 format(
+ I2,1X,F4.2,1X,F5.2,1X,F3.1,1X,F4.2,1X,F4.1,1X,I6,1X,A15,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,104
read(1,'(A53)')ar__3
read(ar__3,4)v_YSM99__1,tau,N_H2,DVc,Dist_1,Rad,Mass,HII_1,IPS
if(ar__3(4:7) .EQ. '') tau = rNULL__
if(ar__3(15:17) .EQ. '') DVc = rNULL__
if(ar__3(19:22) .EQ. '') Dist_1 = rNULL__
if(ar__3(24:27) .EQ. '') Rad = rNULL__
if(ar__3(29:34) .EQ. '') Mass = iNULL__
if(ar__3(52:53) .EQ. '') IPS = iNULL__
c ..............Just test output...........
write(6,4)v_YSM99__1,tau,N_H2,DVc,Dist_1,Rad,Mass,HII_1,IPS
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Associated IRAS point sources
C Format for file interpretation
5 format(I2,1X,A10,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,204
read(1,'(A14)')ar__4
read(ar__4,5)v_YSM99__2,IRAS,m_IRAS
c ..............Just test output...........
write(6,5)v_YSM99__2,IRAS,m_IRAS
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end