Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/95/419 into FORTRAN code for loading all data files into arrays.
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 (nr__) ! (deg) Right Ascension 1950
real*8 DEdeg (nr__) ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 Seq (nr__) ! Sequential number
character*1 Note (nr__) ! [a] Note (1)
character*10 Name (nr__) ! Cloud name
integer*4 RAh (nr__) ! (h) Peak right ascension of the ^13^CO cloud (1950)
integer*4 RAn (nr__) ! (min) Peak right ascension of the ^13^CO cloud (1950)
real*4 RAs (nr__) ! (s) Peak right ascension of the ^13^CO cloud (1950)
integer*4 DEd (nr__) ! (deg) Peak declination of the ^13^CO cloud (1950)
integer*4 DEm (nr__) ! (arcmin) Peak declination of the ^13^CO cloud (1950)
integer*4 DEs (nr__) ! (arcsec) Peak declination of the ^13^CO cloud (1950)
real*4 GLON (nr__) ! (deg) Galactic longitude
real*4 GLAT (nr__) ! (deg) Galactic latitude
real*4 Tr_ (nr__) ! (K) Temperature
real*4 DV (nr__) ! (km/s) {DELTA}V
real*4 Vlsr (nr__) ! (km/s) V_lsr_
real*4 I (nr__) ! (K.km/s) Intensity
real*4 tau_CO (nr__) ! ^13^CO optical depth
real*4 N_CO (nr__) ! (10+15cm-2) ^13^CO column density
real*4 N_H2 (nr__) ! (10+21cm-2) H_2_ column density
character*1 l_size (nr__) ! Limit flag on size
integer*4 size (nr__) ! (arcmin) ? Size (2)
integer*4 size2 (nr__) ! (arcmin) ? Size (2)
real*4 Dist (nr__) ! (kpc) ? Distance
character*1 l_Mass (nr__) ! Limit flag on Mass
integer*4 Mass (nr__) ! (solMass) ? Cloud mass
character*10 ref (nr__) ! 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 (nr__1) ! (deg) Right Ascension 1950
real*8 DEdeg_1 (nr__1) ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 Seq_1 (nr__1) ! Sequential number
character*10 Cloud (nr__1) ! Cloud name
integer*4 RAh_1 (nr__1) ! (h) Peak right ascension of the ^13^CO cloud (1950)
integer*4 RAn_1 (nr__1) ! (min) Peak right ascension of the ^13^CO cloud (1950)
real*4 RAs_1 (nr__1) ! (s) Peak right ascension of the ^13^CO cloud (1950)
integer*4 DEd_1 (nr__1) ! (deg) Peak declination of the ^13^CO cloud (1950)
integer*4 DEm_1 (nr__1) ! (arcmin) Peak declination of the ^13^CO cloud (1950)
integer*4 DEs_1 (nr__1) ! (arcsec) Peak declination of the ^13^CO cloud (1950)
real*4 GLON_1 (nr__1) ! (deg) Galactic longitude
real*4 GLAT_1 (nr__1) ! (deg) Galactic latitude
character*4 HII (nr__1) ! Associated HII region in Sharpless
* (1959, Cat. <VII/20>)
character*7 SNRs (nr__1) ! Associated supernova remnant in Green
* (1988Ap&SS.148....3G)
character*3 Rim (nr__1) ! The clouds having counterparts among bright
* rimmed globules are denoted by "yes"
character*23 HBC (nr__1) ! T Tauri stars catalogued in Herbig & Bell
* (1988, Cat. <V/73>) associated with the cloud
integer*4 IPS (nr__1) ! ? Number of associated IRAS point sources
* (Cat. <II/125>)
character*2 n_IPS (nr__1) ! [ns ] ns: cloud out of the coverage of the
* IRAS PSC (Cat. <II/125>)
character*69 Outflows (nr__1) ! Associated molecular outflows found in the
* surveyed region.
character*205 Lynds (nr__1) ! 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(i__),Note(i__),Name(i__),RAh(i__),RAn(i__),RAs(i__),
+ DEd(i__),DEm(i__),DEs(i__),GLON(i__),GLAT(i__),Tr_(i__),
+ DV(i__),Vlsr(i__),I(i__),tau_CO(i__),N_CO(i__),N_H2(i__),
+ l_size(i__),size(i__),size2(i__),Dist(i__),l_Mass(i__),
+ Mass(i__),ref(i__)
if(ar__(85:87) .EQ. '') size(i__) = iNULL__
if(ar__(89:91) .EQ. '') size2(i__) = iNULL__
if(ar__(93:96) .EQ. '') Dist(i__) = rNULL__
if(ar__(98:102) .EQ. '') Mass(i__) = iNULL__
RAdeg(i__) = rNULL__
DEdeg(i__) = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15.
if(RAn(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAn(i__)/4.
if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240.
if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__)
if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60.
if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600.
c ..............Just test output...........
write(6,1)
+ Seq(i__),Note(i__),Name(i__),RAh(i__),RAn(i__),RAs(i__),
+ DEd(i__),DEm(i__),DEs(i__),GLON(i__),GLAT(i__),Tr_(i__),
+ DV(i__),Vlsr(i__),I(i__),tau_CO(i__),N_CO(i__),N_H2(i__),
+ l_size(i__),size(i__),size2(i__),Dist(i__),l_Mass(i__),
+ Mass(i__),ref(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__)
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(i__),Cloud(i__),RAh_1(i__),RAn_1(i__),RAs_1(i__),
+ DEd_1(i__),DEm_1(i__),DEs_1(i__),GLON_1(i__),GLAT_1(i__),
+ HII(i__),SNRs(i__),Rim(i__),HBC(i__),IPS(i__),n_IPS(i__),
+ Outflows(i__),Lynds(i__)
if(ar__1(89:90) .EQ. '') IPS(i__) = iNULL__
RAdeg_1(i__) = rNULL__
DEdeg_1(i__) = 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(i__) .GT. -180) RAdeg_1(i__)=RAh_1(i__)*15.
if(RAn_1(i__) .GT. -180) RAdeg_1(i__)=RAdeg_1(i__)+RAn_1(i__)/4.
if(RAs_1(i__) .GT. -180) RAdeg_1(i__)=RAdeg_1(i__)+RAs_1(i__)/240.
if(DEd_1(i__) .GE. 0) DEdeg_1(i__)=DEd_1(i__)
if(DEm_1(i__) .GE. 0) DEdeg_1(i__)=DEdeg_1(i__)+DEm_1(i__)/60.
if(DEs_1(i__) .GE. 0) DEdeg_1(i__)=DEdeg_1(i__)+DEs_1(i__)/3600.
c ..............Just test output...........
write(6,2)
+ Seq_1(i__),Cloud(i__),RAh_1(i__),RAn_1(i__),RAs_1(i__),
+ DEd_1(i__),DEm_1(i__),DEs_1(i__),GLON_1(i__),GLAT_1(i__),
+ HII(i__),SNRs(i__),Rim(i__),HBC(i__),IPS(i__),n_IPS(i__),
+ Outflows(i__),Lynds(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg_1(i__),DEdeg_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end