Conversion of standardized ReadMe file for
file /./ftp/cats/V/112A 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-19
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. V/112A Catalog of Star-Forming Regions in the Galaxy (Avedisova, 2002)
*================================================================================
*A Catalog of Star-Forming Regions in the Galaxy
* Avedisova V.S
* <Astron. Zh. 79, 216 (2002)>
* =2002AZh....79..216A
* =2002ARep...46..193A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'catalog.dat' ! Data on star-forming regions
integer*4 nr__
parameter (nr__=66887) ! Number of records
character*164 ar__ ! 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)
character*12 nSFR ! Star-Forming Region Name (from galactic position)
real*8 GLON ! (deg) ? Galactic longitude of subsystems or
* individual source
real*8 GLAT ! (deg) ? Galactic latitude of subsystems or
* individual source
character*2 Type ! [DORIM ] Type of source (1)
character*1 n_Name ! [*] *: optical star
character*12 Name ! Name of source, or name of molecule for Type=M (2)
character*11 Comp ! Name of source component or type of the source (3)
integer*4 RAh ! (h) Right ascension 1950 (hours)
integer*4 RAm ! (min) Right ascension 1950 (minutes)
real*4 RAs ! (s) Right ascension 1950 (seconds)
character*1 DE_ ! Declination 1950 (sign)
integer*4 DEd ! (deg) Declination 1950 (degrees)
integer*4 DEm ! (arcmin) Declination 1950 (arcminutes)
real*4 DEs ! (arcsec) Declination 1950 (arcseconds)
character*8 Band ! Effective band of spectrum (4)
character*1 n_Flux ! [I:n] note on Flux value (5)
character*1 l_Flux ! limit flag on Flux
real*4 Flux ! (Jy) ? Flux density in Jy, or Integrated flux
* in Jy.km/s when if n_Flux="I"
character*1 f_Size1 ! [d] Deconvolved source size
character*1 l_Size1 ! limit flag on Size1
real*4 Size1 ! ? Half-power width (HPW) of source or maximum size
* or (HPBW) beam in right ascension (if n_Size2 = *)
* according to the original data (7)
character*1 x_Size1 ! ['"d] Unit of the Size1
character*1 n_Size1 ! [TEP] Note on Size1 (8)
character*1 l_Size2 ! Limit flag on Size2
real*4 Size2 ! ? Half-power beamwidth (HPBW) (if n_Size2="*"), or
* (HPW) in declination or minimum source size (7)
character*2 x_Size2 ! ['" ] Unit of the Size2
character*2 n_Size2 ! [* ] *: beamsize in Size1 and Size2 columns
character*39 Vlsr ! ? Radial velocities of the line (LSR) and
* their widths (9)
integer*4 Ref ! Bibliographic reference code, in refs.dat file
*Note (1): Type of source as follows:
* D = dark cloud or globule,
* O = optical nebula or star
* R = radio source
* IR = infrared source
* M = molecular cloud
*Note (2): For Molecular data (Type="M"):
* name of molecule escorted by 'A' (absorption) or 'E' (emission) in
* case of necessity; maser molecular-line escorted by 'E'.
*Note (3): Name of source component or type of the source.
* - When Type="R" or "M": name or designation of small sources
* according to original paper. The column may contain some
* morphological determination of source such as 'ridge', 'core',
* 'halo', 'envelope', etc., or note such as 'diff.emission','peak',
* 'cloud', 'globule' etc, taken from original paper; molecular
* outflow is designated by 'outflow';
*
* - When Type="R", the symbols enclosed in brackets describe
* ultra-compact (UC) HII region morphology class:
* <CH> = core-halo,
* <SH> = shell,
* <I> = irregularly shaped,
* <SP> = spherical,
* <C> = cometary shaped,
* <U> = unresolved,
* <MP> = multiply peaked,
* <AL> = arclike region,
* <P> = partially extended,
* <D> = double peaked,
* <G> = Gaussian;
*
* - When Type="IR", the symbols enclosed in brackets describe
* evolutionary class of object, such as:
* <0> = Class 0,
* <1> = Class 1,
* <2> = Class 2,
* <3> = Class 3,
* Object types can be also described as:
* st_emb = star embedded
* star_Ha = Ha emission star
* star_TT = T Tau star
* rfl_n. = reflection nebula
* em_n. = emission nebula
* st+neb = nebulous star
* HH_obj = Herbig-Haro object
* bipolar_n = bipolar nebula
* red_star = red star
*Note (4): Effective band of spectrum:
* - when Type="R" or "M": frequency, in GHz.
* - when Type="IR", "O" or "D": wavelength, in {mu}m
*Note (5): Note on Flux:
* - when Type="M", "I" means maser integrated flux in Jy.km/s;
* - the symbol ":" means flux uncertain;
* - the symbol "n" means negative flux.
*Note (7): Note on Size and Beam:
* In the case of 'outflow' the column contains the sizes of outflow
* extensions of the red and of the blue lobes at maximum velocities.
*Note (8): Note on Size1:
* T = flux integrated along the total source
* E = indication that source is extended and flux is related to part of it
* P = point source for this beam
*Note (9): Central radial velocity of the line (LSR) and its width in km/s,
* separated by semicolon.
*
* If several radial velocities are observed, they are separated by
* commas, and its widths are separated from them by semicolons.
*
* If multiple overlapping velocities are observed, lower and upper
* limits for velocity ranges are given, separated by a slash [/].
*
* When Type="O", the data refer generally to hydrogen recombination lines
* H(alpha).
* When Type="R" type the data refer to hydrogen radio recombination lines.
* When Type="M" type the data refer to the molecule line.
*
* In the case of numerous peaks in maser emission, the minimum and
* maximum velocities of the emission are presented as V(min)/V(max).
* Velocity of the maximum peak flux, minimum and maximum velocities of
* the emission are given as Vp,V(min)/V(max);
*
* When Type="M", in case of 'outflow', the maximum velocities in blue
* and red lobes of are given as V(min)/V(max).
*
* In the case of 'M' the symbol ']' after the line width means that the
* line width includes the line wings.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! Bibliographic references
integer*4 nr__1
parameter (nr__1=2441) ! Number of records
character*306 ar__1 ! Full-size record
integer*4 Ref_1 ! Bibliographic reference code (1)
character*300 Text ! Bibliographic reference of original article
*Note (1): The bibliographic reference consists of five-digit number.
* The first two figures correspond to two last digit of year of
* publication of the original reference, and the last three ones are
* the running number attributed to that paper, beginning with zero.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'namelist.dat' ! List of commonly used names of sources with
name of star-forming regions
integer*4 nr__2
parameter (nr__2=2754) ! Number of records
character*32 ar__2 ! Full-size record
character*11 Name_1 ! Source name in the well-known catalogs (1)
character*12 nSFR_1 ! Name of Star-Forming Region where the source
* is included
character*2 cat ! [II ] Main catalog (I) or Appendix catalog (II)
*Note (1): Here are the catalogues:
* BBW = Catalogue of galactic emission and reflection nebulae.
* Brand, Blitz and Wouterloot, 1986A&AS...65..537B
* BFS = CO radial velocities toward galactic HII regions.
* Blitz, Fich, Stark, 1982R, Cat. <VII/50>
* BHR = A catalogue of southern Bok globules.
* Bourke, Hyland and Robinson, 1995MNRAS.276.1067B
* CB = A catalog of small optically selected molecular clouds.
* Clemens & Barvainis, 1988ApJS...68..257C
* CTB = Observations of HII regions at 1400 Mc/s.
* Lynds, 1961, Publ. NRAO 1, 43
* DG = Reflection nebulae at Palomar Sky Survey.
* Von Dorschner & Gurtler, 1963AN....287..257D
* DR = A high-resolution radio map of the Cygnus X region.
* Pike & Drake, 1964ApJ...139..545P
* DWB = Catalogue and distances of optically visible HII regions.
* Dickel, Wendker and Bieritz, 1969A&A.....1..270D
* FIRSSE = Far-infrared sky survey.
* Price, Murdock and Shivanandan, AFGL-TR-83-0055
* GGD = New Herbig-Haro objects.
* Gyulbudaghian, Glushkov and Denisyuk, 1978ApJ...224L.137G
* GM = New interesting nebulous objects.
* Gyulbudaghian & Magakyan, 1977ATsir.953....1G
* Gum = A survey of southern HII regions. Gum, 1955MmRAS..67..155G
* GY = New objects resembling Herbig-Haro ones.
* Gyulbudaghian, 1982PAZh....8..222G, 1982PAZh....8..232G
* HFE = 100-micron survey of the galactic plane.
* Hoffmann, Frederick and Emery, 1971ApJ...170L..89H
* IC = NGC 2000.0. Sinnott, 1988, Cat. <VII/118>
* KR = A 21 cm radio continuum survey of the galactic plane between
* L=93{deg} and L=162{deg}. Kallas & Reich, 1980A&AS...42..227K
* L = Catalogue of Dark Nebulae. Lynds, 1962, Cat. <VII/7>
* LkHA = A new catalogue of members and candidate members of the
* Herbig Ae/Be(HAEBE) stellar group.
* The et al., 1994, Cat. <J/A+AS/104/315>
* MWC = A new catalogue of members and candidate members of the
* Herbig Ae/Be(HAEBE) stellar group.
* The et al., 1994, Cat. <J/A+AS/104/315>
* NGC = NGC 2000.0. Sinnott, 1988, Cat. <VII/118>
* RAFGL = The Revised AFGL Infrared Sky Survey Catalog.
* Price & Murdock, 1983AFGL..161.....P
* RNO = Red and nebulous objects in dark clouds: a survey.
* Cohen, 1980AJ.....85...29C
* RWC = Catalogue of H(alpha)-emission regions in the southern
* Milky Way.
* Rodgers, Campbell and Whiteoak, 1960, Cat. <VII/216>
* S = Catalogue of HII regions. Sharpless, 1959, Cat, <VII/20>
* Sa = Southern dark dust clouds.
* Sandqvist, 1976A&A....53..179S, 1977A&A....57..467S
* SG = Catalogue of emission nebulae.
* Shajn & Gase, 1955IzKry..15...11G
* VBH = Catalogue of southern stars embedded in nebulosity.
* Van den Bergh & Herbst, 1975, Cat. <VII/218>
* VDB = Catalogue of Reflection Nebulae.
* Van den Bergh, 1966, Cat. <VII/21>
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sfrlist.dat' ! Brief list of SFRs with main data
integer*4 nr__3
parameter (nr__3=3235) ! Number of records
character*56 ar__3 ! Full-size record
integer*4 Seq ! Running number of star-forming region
character*12 nSFR_2 ! Name of Star-Forming Region
integer*4 OHmaser ! Number of OH masers in the SFR
integer*4 H2Omaser ! Number of H2O masers in the SFR
integer*4 CH3OHmaser ! Number of CH3OH masers in the SFR
integer*4 IRAS ! Number of IRAS sources in the SFR
integer*4 nD ! [0/5] Presence of Dark clouds or globules
integer*4 nO ! [0/1] Presence of Optical nebula or star
integer*4 nR ! [0/2] Presence of radio sources
integer*4 nI ! [0/3] Presence of infrared sources
integer*4 nM ! [0/4] Presence of Moluclar Cloud
character*13 Names ! Some names of the source
integer*4 Vel ! [0/1] Existence of velocity data for the SFR:
* 0=velocity absent, 1=velocity present
C=============================================================================
C Loading file 'catalog.dat' ! Data on star-forming regions
C Format for file interpretation
1 format(
+ A12,1X,F7.3,F8.4,1X,A2,A1,A12,A11,I2,1X,I2,1X,F6.3,A1,I2,1X,
+ I2,1X,F6.3,1X,A8,A1,A1,E8.3,A1,A1,E6.2,A1,A1,A1,E5.1,A2,A2,
+ A39,1X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'catalog.dat')
write(6,*) '....Loading file: catalog.dat'
do i__=1,66887
read(1,'(A164)')ar__
read(ar__,1)
+ nSFR,GLON,GLAT,Type,n_Name,Name,Comp,RAh,RAm,RAs,DE_,DEd,DEm,
+ DEs,Band,n_Flux,l_Flux,Flux,f_Size1,l_Size1,Size1,x_Size1,
+ n_Size1,l_Size2,Size2,x_Size2,n_Size2,Vlsr,Ref
if(ar__(14:20) .EQ. '') GLON = rNULL__
if(ar__(21:28) .EQ. '') GLAT = rNULL__
if(ar__(92:99) .EQ. '') Flux = rNULL__
if(ar__(102:107) .EQ. '') Size1 = rNULL__
if(ar__(111:115) .EQ. '') Size2 = rNULL__
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,1)
+ nSFR,GLON,GLAT,Type,n_Name,Name,Comp,RAh,RAm,RAs,DE_,DEd,DEm,
+ DEs,Band,n_Flux,l_Flux,Flux,f_Size1,l_Size1,Size1,x_Size1,
+ n_Size1,l_Size2,Size2,x_Size2,n_Size2,Vlsr,Ref
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! Bibliographic references
C Format for file interpretation
2 format(I5,1X,A300)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,2441
read(1,'(A306)')ar__1
read(ar__1,2)Ref_1,Text
c ..............Just test output...........
write(6,2)Ref_1,Text
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'namelist.dat' ! List of commonly used names of sources with
* name of star-forming regions
C Format for file interpretation
3 format(A11,4X,A12,3X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'namelist.dat')
write(6,*) '....Loading file: namelist.dat'
do i__=1,2754
read(1,'(A32)')ar__2
read(ar__2,3)Name_1,nSFR_1,cat
c ..............Just test output...........
write(6,3)Name_1,nSFR_1,cat
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sfrlist.dat' ! Brief list of SFRs with main data
C Format for file interpretation
4 format(
+ I4,2X,A12,2X,I2,1X,I2,1X,I2,1X,I2,3X,I1,I1,I1,I1,I1,2X,A13,1X,
+ I1)
C Effective file loading
open(unit=1,status='old',file=
+'sfrlist.dat')
write(6,*) '....Loading file: sfrlist.dat'
do i__=1,3235
read(1,'(A56)')ar__3
read(ar__3,4)
+ Seq,nSFR_2,OHmaser,H2Omaser,CH3OHmaser,IRAS,nD,nO,nR,nI,nM,
+ Names,Vel
c ..............Just test output...........
write(6,4)
+ Seq,nSFR_2,OHmaser,H2Omaser,CH3OHmaser,IRAS,nD,nO,nR,nI,nM,
+ Names,Vel
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end