FORTRAN Generation
(/./ftp/cats/V/112A)

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 2018-Oct-20
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