FORTRAN Generation
(/./ftp/cats/J/ApJ/805/53)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/805/53 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-Mar-28
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/ApJ/805/53        H2O masers in W43A monitored with VLBA        (Chong+, 2015)
*================================================================================
*Water masers in W43A: early morphological changes of a future planetary nebula.
*    Chong S.-N., Imai H., Diamond P.J.
*   <Astrophys. J., 805, 53 (2015)>
*   =2015ApJ...805...53C
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table2.dat'	! Maser features detected in all thirteen epochs

      integer*4 nr__
      parameter (nr__=525)	! Number of records
      character*46 ar__   	! Full-size record

      integer*4     Epoch       ! [1/13] Epoch number (1)
      real*8        oRA         ! (mas) [-377/455] Right Ascension offset (2)
      real*4        e_oRA       ! (mas) [0/0.6] Error in oRA (3)
      real*8        oDE         ! (mas) [-155/213] Declination offset (2)
      real*4        e_oDE       ! (mas) [0/0.5] Error in oDE (3)
      real*4        VLSR        ! (km/s) [-63/129] Local Standard of Rest velocity
      real*4        dV          ! (km/s) [0/8] Velocity width of feature {Delta}V (4)
      real*4        Int         ! (Jy) [0.04/53] Intensity; Jy/beam
*Note (1): Epochs are defined in table 1 as follows:
*    ------------------------------------------------------------
*    Ep  Code    Date         JD        tint   Vref    rms   N
*                             -2400000  (min)  (km/s)
*    ------------------------------------------------------------
*    1   BD03    1994-Jun-25  49528.8   273    123.9   18    24
*    2   BD17H   1994-Oct-11  49636.5   274    121.6   10    36
*    3   BD20    1995-Mar-17  49794.1   233    124.3   14    27
*    4   BI24B   2002-Apr-03  52368.1   223    119.3   6     52
*    5   BI24C   2002-Jul-26  52481.8   223    121.6   9     37
*    6   BI24F   2002-Nov-04  52583.4   222    122.7   7     38
*    7   BI27A   2003-Apr-03  52733.1   221    126.2   5     32
*    8   BI27B   2003-Aug-16  52867.7   224    125.6   8     50
*    9   BI27C   2003-Sep-06  52918.6   224    125.8   8     18
*    10  BI30A   2004-Aug-25  53242.9   198    125.8   8     94
*    11  BI30B   2004-Dec-04  53344.4   198    125.8   9     61
*    12  BI30C   2005-Feb-04  53406.1   165    126.0   4     21
*    13  BI30D   2005-Apr-06  53467.1   168    126.0   5     35
*    ------------------------------------------------------------
*    -- tint is the integration time.
*    -- Vref is the LSR velocity channel used for phase referencing.
*    -- rms is the rms noise in mJy/beam.
*    -- N is the number of features.
*    ------------------------------------------------------------
*Note (2): Of the brightest point in the feature from the geometric center.
*Note (3): See Imai et al. (2002ApJ...567..971I) for the evaluation method.
*          0.00 means a value <0.005, for which only one spot is found in the
*          feature, and observed with a very narrow beam aligned almost
*          perpendicular to that direction.
*Note (4): The corresponding width of one channel is 0.11km/s.

C=============================================================================

C  Loading file 'table2.dat'	! Maser features detected in all thirteen epochs

C  Format for file interpretation

    1 format(
     +  I2,1X,F7.2,1X,F4.2,1X,F7.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,525
        read(1,'(A46)')ar__
        read(ar__,1)Epoch,oRA,e_oRA,oDE,e_oDE,VLSR,dV,Int
c    ..............Just test output...........
        write(6,1)Epoch,oRA,e_oRA,oDE,e_oDE,VLSR,dV,Int
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end