FORTRAN Generation
(/./ftp/cats/J/A_A/461/789)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/461/789 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-29
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/A+A/461/789  Comet 153P/Ikeya-Zhang emission lines catalog  (Cremonese+, 2007)
*================================================================================
*Catalog of the emission lines in the visible spectrum of comet 153P/Ikeya-Zhang.
*    Cremonese G., Capria M.T., De Sanctis M.C.
*   <Astron. Astrophys. 461, 789 (2007)>
*   =2007A&A...461..789C
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table3.dat'	! The catalog

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

      real*8        Lambda     (nr__) ! (0.1nm) Wavelength
      character*1   n_Lambda   (nr__) ! [+] + for blended line with the previous one
      real*4        RInt       (nr__) ! ? Relative intensity in arbitrary units
      character*6   Species    (nr__) ! Molecule name (or "Unid" when the line 
*                                   is unidentified) (1)
      character*5   TransE     (nr__) ! Electronic transition
      character*21  TransV     (nr__) ! Vibrational transition
      character*49  TransR     (nr__) ! Rotational transition
*Note (1): Molecule names are:
*          C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and
*          Unid (when the line is unidentified)

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

C  Declarations for 'table4.dat'	! C2 emission lines (extract of the catalog)

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

      real*8        Lambda_1   (nr__1) ! (0.1nm) Wavelength
      character*1   n_Lambda_1 (nr__1) ! [+] + for blended line with the previous one
      real*4        RInt_1     (nr__1) ! ? Relative intensity in arbitrary units
      character*6   Species_1  (nr__1) ! Molecule name (or "Unid" when the line 
*                                   is unidentified) (1)
      character*5   TransE_1   (nr__1) ! Electronic transition
      character*21  TransV_1   (nr__1) ! Vibrational transition
      character*49  TransR_1   (nr__1) ! Rotational transition
*Note (1): Molecule names are:
*          C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and
*          Unid (when the line is unidentified)

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

C  Declarations for 'table5.dat'	! NH2 emission lines (extract of the catalog)

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

      real*8        Lambda_2   (nr__2) ! (0.1nm) Wavelength
      character*1   n_Lambda_2 (nr__2) ! [+] + for blended line with the previous one
      real*4        RInt_2     (nr__2) ! ? Relative intensity in arbitrary units
      character*6   Species_2  (nr__2) ! Molecule name (or "Unid" when the line 
*                                   is unidentified) (1)
      character*5   TransE_2   (nr__2) ! Electronic transition
      character*21  TransV_2   (nr__2) ! Vibrational transition
      character*49  TransR_2   (nr__2) ! Rotational transition
*Note (1): Molecule names are:
*          C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and
*          Unid (when the line is unidentified)

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

C  Declarations for 'table6.dat'	! CN emission lines (extract of the catalog)

      integer*4 nr__3
      parameter (nr__3=216)	! Number of records
      character*102 ar__3  	! Full-size record

      real*8        Lambda_3   (nr__3) ! (0.1nm) Wavelength
      character*1   n_Lambda_3 (nr__3) ! [+] + for blended line with the previous one
      real*4        RInt_3     (nr__3) ! ? Relative intensity in arbitrary units
      character*6   Species_3  (nr__3) ! Molecule name (or "Unid" when the line 
*                                   is unidentified) (1)
      character*5   TransE_3   (nr__3) ! Electronic transition
      character*21  TransV_3   (nr__3) ! Vibrational transition
      character*49  TransR_3   (nr__3) ! Rotational transition
*Note (1): Molecule names are:
*          C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and
*          Unid (when the line is unidentified)

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

C  Declarations for 'table7.dat'	! H2O+ emission lines (extract of the catalog)

      integer*4 nr__4
      parameter (nr__4=89)	! Number of records
      character*102 ar__4  	! Full-size record

      real*8        Lambda_4   (nr__4) ! (0.1nm) Wavelength
      character*1   n_Lambda_4 (nr__4) ! [+] + for blended line with the previous one
      real*4        RInt_4     (nr__4) ! ? Relative intensity in arbitrary units
      character*6   Species_4  (nr__4) ! Molecule name (or "Unid" when the line 
*                                   is unidentified) (1)
      character*5   TransE_4   (nr__4) ! Electronic transition
      character*21  TransV_4   (nr__4) ! Vibrational transition
      character*49  TransR_4   (nr__4) ! Rotational transition
*Note (1): Molecule names are:
*          C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and
*          Unid (when the line is unidentified)

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

C  Declarations for 'table8.dat'	! Atomic emission lines (extract of the catalog)

      integer*4 nr__5
      parameter (nr__5=6)	! Number of records
      character*102 ar__5  	! Full-size record

      real*8        Lambda_5   (nr__5) ! (0.1nm) Wavelength
      character*1   n_Lambda_5 (nr__5) ! [+] + for blended line with the previous one
      real*4        RInt_5     (nr__5) ! ? Relative intensity in arbitrary units
      character*6   Species_5  (nr__5) ! Molecule name (or "Unid" when the line 
*                                   is unidentified) (1)
      character*5   TransE_5   (nr__5) ! Electronic transition
      character*21  TransV_5   (nr__5) ! Vibrational transition
      character*49  TransR_5   (nr__5) ! Rotational transition
*Note (1): Molecule names are:
*          C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and
*          Unid (when the line is unidentified)

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

C  Declarations for 'table9.dat'	! Unidentified emission lines (extract of the catalog)

      integer*4 nr__6
      parameter (nr__6=1862)	! Number of records
      character*102 ar__6  	! Full-size record

      real*8        Lambda_6   (nr__6) ! (0.1nm) Wavelength
      character*1   n_Lambda_6 (nr__6) ! [+] + for blended line with the previous one
      real*4        RInt_6     (nr__6) ! ? Relative intensity in arbitrary units
      character*6   Species_6  (nr__6) ! Molecule name (or "Unid" when the line 
*                                   is unidentified) (1)
      character*5   TransE_6   (nr__6) ! Electronic transition
      character*21  TransV_6   (nr__6) ! Vibrational transition
      character*49  TransR_6   (nr__6) ! Rotational transition
*Note (1): Molecule names are:
*          C2 ; CN ; H alph ; H2O+ ; NH2 ; [Na I] ; [O I] and
*          Unid (when the line is unidentified)

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

C  Loading file 'table3.dat'	! The catalog

C  Format for file interpretation

    1 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,8468
        read(1,'(A102)')ar__
        read(ar__,1)
     +  Lambda(i__),n_Lambda(i__),RInt(i__),Species(i__),TransE(i__),
     +  TransV(i__),TransR(i__)
        if(ar__(12:17) .EQ. '') RInt(i__) = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  Lambda(i__),n_Lambda(i__),RInt(i__),Species(i__),TransE(i__),
     +  TransV(i__),TransR(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table4.dat'	! C2 emission lines (extract of the catalog)

C  Format for file interpretation

    2 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,4722
        read(1,'(A102)')ar__1
        read(ar__1,2)
     +  Lambda_1(i__),n_Lambda_1(i__),RInt_1(i__),Species_1(i__),
     +  TransE_1(i__),TransV_1(i__),TransR_1(i__)
        if(ar__1(12:17) .EQ. '') RInt_1(i__) = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  Lambda_1(i__),n_Lambda_1(i__),RInt_1(i__),Species_1(i__),
     +  TransE_1(i__),TransV_1(i__),TransR_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table5.dat'	! NH2 emission lines (extract of the catalog)

C  Format for file interpretation

    3 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5.dat')
      write(6,*) '....Loading file: table5.dat'
      do i__=1,1572
        read(1,'(A102)')ar__2
        read(ar__2,3)
     +  Lambda_2(i__),n_Lambda_2(i__),RInt_2(i__),Species_2(i__),
     +  TransE_2(i__),TransV_2(i__),TransR_2(i__)
        if(ar__2(12:17) .EQ. '') RInt_2(i__) = rNULL__
c    ..............Just test output...........
        write(6,3)
     +  Lambda_2(i__),n_Lambda_2(i__),RInt_2(i__),Species_2(i__),
     +  TransE_2(i__),TransV_2(i__),TransR_2(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table6.dat'	! CN emission lines (extract of the catalog)

C  Format for file interpretation

    4 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table6.dat')
      write(6,*) '....Loading file: table6.dat'
      do i__=1,216
        read(1,'(A102)')ar__3
        read(ar__3,4)
     +  Lambda_3(i__),n_Lambda_3(i__),RInt_3(i__),Species_3(i__),
     +  TransE_3(i__),TransV_3(i__),TransR_3(i__)
        if(ar__3(12:17) .EQ. '') RInt_3(i__) = rNULL__
c    ..............Just test output...........
        write(6,4)
     +  Lambda_3(i__),n_Lambda_3(i__),RInt_3(i__),Species_3(i__),
     +  TransE_3(i__),TransV_3(i__),TransR_3(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table7.dat'	! H2O+ emission lines (extract of the catalog)

C  Format for file interpretation

    5 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table7.dat')
      write(6,*) '....Loading file: table7.dat'
      do i__=1,89
        read(1,'(A102)')ar__4
        read(ar__4,5)
     +  Lambda_4(i__),n_Lambda_4(i__),RInt_4(i__),Species_4(i__),
     +  TransE_4(i__),TransV_4(i__),TransR_4(i__)
        if(ar__4(12:17) .EQ. '') RInt_4(i__) = rNULL__
c    ..............Just test output...........
        write(6,5)
     +  Lambda_4(i__),n_Lambda_4(i__),RInt_4(i__),Species_4(i__),
     +  TransE_4(i__),TransV_4(i__),TransR_4(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table8.dat'	! Atomic emission lines (extract of the catalog)

C  Format for file interpretation

    6 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table8.dat')
      write(6,*) '....Loading file: table8.dat'
      do i__=1,6
        read(1,'(A102)')ar__5
        read(ar__5,6)
     +  Lambda_5(i__),n_Lambda_5(i__),RInt_5(i__),Species_5(i__),
     +  TransE_5(i__),TransV_5(i__),TransR_5(i__)
        if(ar__5(12:17) .EQ. '') RInt_5(i__) = rNULL__
c    ..............Just test output...........
        write(6,6)
     +  Lambda_5(i__),n_Lambda_5(i__),RInt_5(i__),Species_5(i__),
     +  TransE_5(i__),TransV_5(i__),TransR_5(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table9.dat'	! Unidentified emission lines (extract of the catalog)

C  Format for file interpretation

    7 format(1X,F8.3,A1,1X,F6.3,2X,A6,A5,1X,A21,1X,A49)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table9.dat')
      write(6,*) '....Loading file: table9.dat'
      do i__=1,1862
        read(1,'(A102)')ar__6
        read(ar__6,7)
     +  Lambda_6(i__),n_Lambda_6(i__),RInt_6(i__),Species_6(i__),
     +  TransE_6(i__),TransV_6(i__),TransR_6(i__)
        if(ar__6(12:17) .EQ. '') RInt_6(i__) = rNULL__
c    ..............Just test output...........
        write(6,7)
     +  Lambda_6(i__),n_Lambda_6(i__),RInt_6(i__),Species_6(i__),
     +  TransE_6(i__),TransV_6(i__),TransR_6(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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