FORTRAN Generation
(/./ftp/cats/J/ApJ/849/139)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/849/139 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 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/849/139   Interstellar acetone (CH_3_COCH_3_) in 3 regions   (Zou+, 2017)
*================================================================================
*Observation and analysis of interstellar acetone in GAL 31.41+0.31,
*GAL 034.3+00.2, and GAL 10.47+00.03.
*    Zou L., Widicus Weaver S.L.
*   <Astrophys. J., 849, 139-139 (2017)>
*   =2017ApJ...849..139Z    (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! Observational parameters

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

C  J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
      real*8        RAdeg      (nr__) ! (deg) Right Ascension J2000
      real*8        DEdeg      (nr__) ! (deg)     Declination J2000
C  ---------------------------------- ! (position vector(s) in degrees)

      character*15  Name       (nr__) ! Source name
      character*11  Date       (nr__) ! ("Y/M/D") First UT date of observation
      integer*4     Day2       (nr__) ! (d) Last day of observation
      integer*4     RAh        (nr__) ! (h) Hour of right ascension (J2000)
      integer*4     RAm        (nr__) ! (min) Minute of right ascension (J2000)
      real*4        RAs        (nr__) ! (s) Second of right ascension (J2000)
      character*1   DE_        (nr__) ! Sign of declination (J2000)
      integer*4     DEd        (nr__) ! (deg) Degree of declination (J2000)
      integer*4     DEm        (nr__) ! (arcmin) Arcminute of declination (J2000)
      real*4        DEs        (nr__) ! (arcsec) Arcsecond of declination (J2000)
      real*4        Vlsr       (nr__) ! (km/s) [58/97] Local standard of rest velocity
      integer*4     Tsys1      (nr__) ! (K) [175/196] Lower range of telescope system
*                                temperature
      integer*4     Tsys2      (nr__) ! (K) [265/344] Upper range of telescope system
*                                temperature
      real*4        tau1       (nr__) ! [0.04/0.06] Lower range of atmospheric optical
*                                at 225GHz
      real*4        tau2       (nr__) ! [0.08/0.2] Upper range of atmospheric optical
*                                at 225GHz {tau}

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

C  Declarations for 'table3.dat'	! Beam-averaged and source-averaged fit results of
                               acetone lines using the GOBASIC program
                               (Rad+ 2016, J/A+A/585/A23)

      integer*4 nr__1
      parameter (nr__1=3)	! Number of records
      character*135 ar__1  	! Full-size record

      character*15  Name_1     (nr__1) ! Source name
      integer*4     N          (nr__1) ! Number of transitions included in the fit
      character*9   Eup        (nr__1) ! (K) State energy E_up_/k
      real*4        tau_b      (nr__1) ! [0.001/0.005] Beam-averaged maximum acetone
*                                optical depth ({tau}_max_)
      real*4        NT_b       (nr__1) ! (cm-2) Beam-averaged column density
      real*4        e_NT_b     (nr__1) ! (cm-2) 1{sigma} uncertainty on NT-b
      integer*4     Trot_b     (nr__1) ! (K) [62/137] Beam-averaged rotational temperature
      integer*4     e_Trot_b   (nr__1) ! (K) 1{sigma} uncertainty on Trot-b
      real*4        FWHM_b     (nr__1) ! (km/s) Beam-averaged line width
      real*4        e_FWHM_b   (nr__1) ! (km/s) 1{sigma} uncertainty on FWHM-b
      character*1   f_FWHM_b   (nr__1) ! a: The FWHM was fixed to 10.0km/s
      real*4        dVel_b     (nr__1) ! (km/s) Beam-averaged velocity shift relative to the
*                                Vlsr and assumed source size {theta}
      real*4        e_dVel_b   (nr__1) ! (km/s) 1{sigma} uncertainty on dVel-b
      character*7   theta      (nr__1) ! (arcsec) Source size {theta}
      character*1   f_theta    (nr__1) ! Flag on {theta} (1)
      real*4        tau        (nr__1) ! [0.02/1.2] Source-averaged maximum acetone
*                                optical depth ({tau}_max_)
      real*4        NT         (nr__1) ! (cm-2) Source-averaged column density
      real*4        e_NT       (nr__1) ! (cm-2) 1{sigma} uncertainty on NT
      integer*4     Trot       (nr__1) ! (K) [49/132] Source-averaged rotational temperature
      integer*4     e_Trot     (nr__1) ! (K) 1{sigma} uncertainty on Trot
      real*4        FWHM       (nr__1) ! (km/s) Source-averaged line width
      real*4        e_FWHM     (nr__1) ! (km/s) 1{sigma} uncertainty on FWHM
      character*1   f_FWHM     (nr__1) ! a: The FWHM was fixed to 10.0km/s
      real*4        dVel       (nr__1) ! (km/s) Source-averaged velocity shift relative to the
*                                Vlsr and assumed source size {theta}
      real*4        e_dVel     (nr__1) ! (km/s) 1{sigma} uncertainty on dVel
*Note (1): Flag as follows:
*  b = Methyl formate (HCOOCH_3_) size in the 1.3mm band
*       (Calcutt+ 2014MNRAS.443.3157C).
*  c = Acetic acid (CH_3_COOH) size in the 3mm band
*       (Remijan+ 2003ApJ...590..314R)
*  d = Acetone (CH_3_COCH_3_) size in the 860um band, measured from the image
*       (Rolffs+ 2011A&A...536A..33R).

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

C  Declarations for 'table4.dat'	! Brightest acetone lines observed in these sources

      integer*4 nr__2
      parameter (nr__2=392)	! Number of records
      character*81 ar__2  	! Full-size record

      real*8        Freq       (nr__2) ! (MHz) [220352.5/265017.3] Catalog frequency
      real*8        GAL31_41   (nr__2) ! (MHz) [220352.3/265017] GAL 31.41+0.31 line center
*                                  frequency
      real*8        GAL034_3   (nr__2) ! (MHz) [220351.7/265016.3] GAL 034.3+00.2 line center
*                                  frequency
      real*8        GAL10_47   (nr__2) ! (MHz) [220353.2/265018.1] GAL 10.47+00.03 line center
*                                  frequency
      real*8        Eup_1      (nr__2) ! (K) [40.3/600.3] Upper state energy
      character*21  TNum       (nr__2) ! Transition quantum numbers in the format
*                                  J"_Ka",Kc"_-J'_Ka',Kc'_.
      character*2   Par        (nr__2) ! Transition parity label

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

C  Loading file 'table1.dat'	! Observational parameters

C  Format for file interpretation

    1 format(
     +  A15,1X,A11,1X,I2,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,
     +  1X,F4.1,1X,I3,1X,I3,1X,F5.3,1X,F5.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,3
        read(1,'(A79)')ar__
        read(ar__,1)
     +  Name(i__),Date(i__),Day2(i__),RAh(i__),RAm(i__),RAs(i__),
     +  DE_(i__),DEd(i__),DEm(i__),DEs(i__),Vlsr(i__),Tsys1(i__),
     +  Tsys2(i__),tau1(i__),tau2(i__)
        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(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(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.
        if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__)
c    ..............Just test output...........
        write(6,1)
     +  Name(i__),Date(i__),Day2(i__),RAh(i__),RAm(i__),RAs(i__),
     +  DE_(i__),DEd(i__),DEm(i__),DEs(i__),Vlsr(i__),Tsys1(i__),
     +  Tsys2(i__),tau1(i__),tau2(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 'table3.dat'	! Beam-averaged and source-averaged fit results of
*                               acetone lines using the GOBASIC program
*                               (Rad+ 2016, J/A+A/585/A23)

C  Format for file interpretation

    2 format(
     +  A15,1X,I4,1X,A9,1X,F6.4,1X,E7.3,1X,E7.3,1X,I3,1X,I2,1X,F4.1,
     +  1X,F3.1,A1,1X,F4.1,1X,F3.1,1X,A7,A1,1X,F6.4,1X,E6.2,1X,E6.2,
     +  1X,I3,1X,I2,1X,F4.1,1X,F3.1,A1,1X,F4.1,1X,F3.1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,3
        read(1,'(A135)')ar__1
        read(ar__1,2)
     +  Name_1(i__),N(i__),Eup(i__),tau_b(i__),NT_b(i__),e_NT_b(i__),
     +  Trot_b(i__),e_Trot_b(i__),FWHM_b(i__),e_FWHM_b(i__),
     +  f_FWHM_b(i__),dVel_b(i__),e_dVel_b(i__),theta(i__),
     +  f_theta(i__),tau(i__),NT(i__),e_NT(i__),Trot(i__),e_Trot(i__),
     +  FWHM(i__),e_FWHM(i__),f_FWHM(i__),dVel(i__),e_dVel(i__)
c    ..............Just test output...........
        write(6,2)
     +  Name_1(i__),N(i__),Eup(i__),tau_b(i__),NT_b(i__),e_NT_b(i__),
     +  Trot_b(i__),e_Trot_b(i__),FWHM_b(i__),e_FWHM_b(i__),
     +  f_FWHM_b(i__),dVel_b(i__),e_dVel_b(i__),theta(i__),
     +  f_theta(i__),tau(i__),NT(i__),e_NT(i__),Trot(i__),e_Trot(i__),
     +  FWHM(i__),e_FWHM(i__),f_FWHM(i__),dVel(i__),e_dVel(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table4.dat'	! Brightest acetone lines observed in these sources

C  Format for file interpretation

    3 format(F11.4,1X,F11.4,1X,F11.4,1X,F11.4,1X,F8.4,1X,A21,1X,A2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,392
        read(1,'(A81)')ar__2
        read(ar__2,3)
     +  Freq(i__),GAL31_41(i__),GAL034_3(i__),GAL10_47(i__),
     +  Eup_1(i__),TNum(i__),Par(i__)
c    ..............Just test output...........
        write(6,3)
     +  Freq(i__),GAL31_41(i__),GAL034_3(i__),GAL10_47(i__),
     +  Eup_1(i__),TNum(i__),Par(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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