Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/95/419 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-15
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/95/419 Molecular clouds in Cygnus. I. (Dobashi+ 1994)
*================================================================================
*Molecular clouds in Cygnus. I. A large-scale ^13^CO survey.
* Dobashi K., Bernard J.-P., Yonekura Y., Fukui Y.
* <Astrophys. J. Suppl. Ser. 95, 419 (1994)>
* =1994ApJS...95..419D (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1' ! A catalog of ^13^CO clouds
integer*4 nr__
parameter (nr__=160) ! Number of records
character*113 ar__ ! Full-size record
C 1950 position composed of: RAh RAn RAs DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension 1950
real*8 DEdeg ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 Seq ! Sequential number
character*1 Note ! [a] Note (1)
character*10 Name ! Cloud name
integer*4 RAh ! (h) Peak right ascension of the ^13^CO cloud (1950)
integer*4 RAn ! (min) Peak right ascension of the ^13^CO cloud (1950)
real*4 RAs ! (s) Peak right ascension of the ^13^CO cloud (1950)
integer*4 DEd ! (deg) Peak declination of the ^13^CO cloud (1950)
integer*4 DEm ! (arcmin) Peak declination of the ^13^CO cloud (1950)
integer*4 DEs ! (arcsec) Peak declination of the ^13^CO cloud (1950)
real*4 GLON ! (deg) Galactic longitude
real*4 GLAT ! (deg) Galactic latitude
real*4 Tr_ ! (K) Temperature
real*4 DV ! (km/s) {DELTA}V
real*4 Vlsr ! (km/s) V_lsr_
real*4 I ! (K.km/s) Intensity
real*4 tau_CO ! ^13^CO optical depth
real*4 N_CO ! (10+15cm-2) ^13^CO column density
real*4 N_H2 ! (10+21cm-2) H_2_ column density
character*1 l_size ! Limit flag on size
integer*4 size ! (arcmin) ? Size (2)
integer*4 size2 ! (arcmin) ? Size (2)
real*4 Dist ! (kpc) ? Distance
character*1 l_Mass ! Limit flag on Mass
integer*4 Mass ! (solMass) ? Cloud mass
character*10 ref ! References (3)
*Note (1): a: There is a secondary velocity component at V_LSR_=-2.8 km/s at the
* peak position of Cloud 8 (081.9+00.8).
* Clouds 8 and 34 comprise more than one velocity components (see text).
*Note (2): Size of the ^13^CO clouds measured at 1.2K.km/s contours in Fig. 1
* (3{sigma}).
*Note (3): References to the adopted distances:
* 1: Dame & Thaddeus (1985ApJ...297..751D)
* 2: Blitz et al. (1982ApJS...49..183B)
* 3: Lada (1985ARA&A..23..267L)
* 4: Fischer et al. (1985ApJ...293..508F)
* 5: Bally & Scoville (1980ApJ...239..121B)
* 6: Tatematsu et al. (1990A&A...237..189T)
* 7: Yun & Clemens (1992ApJ...385L..21Y)
* 8: Clark (1986A&A...164L..19C)
* 9: Walker (1959ApJ...130...57W)
* 10: Dobashi et al. (1992AJ....104.1525D)
* 11: Elias (1978ApJ...223..859)
* 12: Fukui et al. (1993, in Protostras and planets III, ed. E. Levy,
* Tuscon: Arizona Univ. Press, 603
* 13: Humphreys (1978ApJS...38..309H)
* 14: Sugitani et al. (1991ApJS...77...59S)
* 15: Sugitani et al. (1989ApJ...342L..87S)
* 16: Lindblad et al. (1973A&A....24..309L)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2' ! Associated astronomical objects
integer*4 nr__1
parameter (nr__1=159) ! Number of records
character*368 ar__1 ! Full-size record
C 1950 position composed of: RAh RAn RAs DEd DEm DEs
real*8 RAdeg_1 ! (deg) Right Ascension 1950
real*8 DEdeg_1 ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 Seq_1 ! Sequential number
character*10 Cloud ! Cloud name
integer*4 RAh_1 ! (h) Peak right ascension of the ^13^CO cloud (1950)
integer*4 RAn_1 ! (min) Peak right ascension of the ^13^CO cloud (1950)
real*4 RAs_1 ! (s) Peak right ascension of the ^13^CO cloud (1950)
integer*4 DEd_1 ! (deg) Peak declination of the ^13^CO cloud (1950)
integer*4 DEm_1 ! (arcmin) Peak declination of the ^13^CO cloud (1950)
integer*4 DEs_1 ! (arcsec) Peak declination of the ^13^CO cloud (1950)
real*4 GLON_1 ! (deg) Galactic longitude
real*4 GLAT_1 ! (deg) Galactic latitude
character*4 HII ! Associated HII region in Sharpless
* (1959, Cat. <VII/20>)
character*7 SNRs ! Associated supernova remnant in Green
* (1988Ap&SS.148....3G)
character*3 Rim ! The clouds having counterparts among bright
* rimmed globules are denoted by "yes"
character*23 HBC ! T Tauri stars catalogued in Herbig & Bell
* (1988, Cat. <V/73>) associated with the cloud
integer*4 IPS ! ? Number of associated IRAS point sources
* (Cat. <II/125>)
character*2 n_IPS ! [ns ] ns: cloud out of the coverage of the
* IRAS PSC (Cat. <II/125>)
character*69 Outflows ! Associated molecular outflows found in the
* surveyed region.
character*205 Lynds ! Associated darks clouds in Lynds
* (1962, cat. <VII/7>)
C=============================================================================
C Loading file 'table1' ! A catalog of ^13^CO clouds
C Format for file interpretation
1 format(
+ I3,A1,1X,A10,1X,I2,1X,I2,1X,F4.1,1X,I2,1X,I2,1X,I2,1X,F6.2,1X,
+ F5.2,1X,F3.1,1X,F3.1,1X,F5.1,1X,F4.1,1X,F4.2,1X,F4.1,1X,F4.1,
+ 1X,A1,I3,1X,I3,1X,F4.2,A1,I5,1X,A10)
C Effective file loading
open(unit=1,status='old',file=
+'table1')
write(6,*) '....Loading file: table1'
do i__=1,160
read(1,'(A113)')ar__
read(ar__,1)
+ Seq,Note,Name,RAh,RAn,RAs,DEd,DEm,DEs,GLON,GLAT,Tr_,DV,Vlsr,I,
+ tau_CO,N_CO,N_H2,l_size,size,size2,Dist,l_Mass,Mass,ref
if(ar__(85:87) .EQ. '') size = iNULL__
if(ar__(89:91) .EQ. '') size2 = iNULL__
if(ar__(93:96) .EQ. '') Dist = rNULL__
if(ar__(98:102) .EQ. '') Mass = 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(RAn .GT. -180) RAdeg=RAdeg+RAn/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.
c ..............Just test output...........
write(6,1)
+ Seq,Note,Name,RAh,RAn,RAs,DEd,DEm,DEs,GLON,GLAT,Tr_,DV,Vlsr,I,
+ tau_CO,N_CO,N_H2,l_size,size,size2,Dist,l_Mass,Mass,ref
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2' ! Associated astronomical objects
C Format for file interpretation
2 format(
+ I3,1X,A10,1X,I2,1X,I2,1X,F4.1,1X,I2,1X,I2,1X,I2,1X,F6.2,1X,
+ F5.2,1X,A4,1X,A7,1X,A3,1X,A23,I2,A2,1X,A69,1X,A205)
C Effective file loading
open(unit=1,status='old',file=
+'table2')
write(6,*) '....Loading file: table2'
do i__=1,159
read(1,'(A368)')ar__1
read(ar__1,2)
+ Seq_1,Cloud,RAh_1,RAn_1,RAs_1,DEd_1,DEm_1,DEs_1,GLON_1,GLAT_1,
+ HII,SNRs,Rim,HBC,IPS,n_IPS,Outflows,Lynds
if(ar__1(89:90) .EQ. '') IPS = iNULL__
RAdeg_1 = rNULL__
DEdeg_1 = rNULL__
c Derive coordinates RAdeg_1 and DEdeg_1 from input data
c (RAdeg_1 and DEdeg_1 are set to rNULL__ when unknown)
if(RAh_1 .GT. -180) RAdeg_1=RAh_1*15.
if(RAn_1 .GT. -180) RAdeg_1=RAdeg_1+RAn_1/4.
if(RAs_1 .GT. -180) RAdeg_1=RAdeg_1+RAs_1/240.
if(DEd_1 .GE. 0) DEdeg_1=DEd_1
if(DEm_1 .GE. 0) DEdeg_1=DEdeg_1+DEm_1/60.
if(DEs_1 .GE. 0) DEdeg_1=DEdeg_1+DEs_1/3600.
c ..............Just test output...........
write(6,2)
+ Seq_1,Cloud,RAh_1,RAn_1,RAs_1,DEd_1,DEm_1,DEs_1,GLON_1,GLAT_1,
+ HII,SNRs,Rim,HBC,IPS,n_IPS,Outflows,Lynds
write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end