FORTRAN Generation
(/./ftp/cats/J/AJ/105/853)

Conversion of standardized ReadMe file for file /./ftp/cats/J/AJ/105/853 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/AJ/105/853    Energy distributions of radio galaxies             (Impey+ 1993)
*================================================================================
*Energy distributions of radio galaxies
*     IMPEY C., GREGORINI L.
*    <Astron. J. 105, 853 (1993)>
*    =1993AJ....105..853I
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table12'	! B2 and 3CR radio galaxies

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

      character*12  Name        ! Galaxy name
      real*4        z           ! Redshift
      real*4        mv          ! (mag) []? Visual magnitude
      integer*4     S408        ! (mJy) Total radio flux at 408MHz
      character*1   l_S5        ! Limit flag on S5
      real*4        S5          ! (mJy) Core radio flux at 5GHz
      character*1   l_S12       ! Limit flag on S12
      integer*4     S12         ! (mJy) []? IRAS flux density at 12 microns
      integer*4     e_S12       ! (mJy) []? rms uncertainty on S12
      character*1   l_S25       ! Limit flag on S25
      integer*4     S25         ! (mJy) []? IRAS flux density at 25 microns
      integer*4     e_S25       ! (mJy) []? rms uncertainty on S25
      character*1   l_S60       ! Limit flag on S60
      integer*4     S60         ! (mJy) []? IRAS flux density at 60 microns
      integer*4     e_S60       ! (mJy) []? rms uncertainty on S60
      character*1   l_S100      ! Limit flag on S100
      integer*4     S100        ! (mJy) []? IRAS flux density at 100 microns
      integer*4     e_S100      ! (mJy) []? rms uncertainty on S100

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

C  Loading file 'table12'	! B2 and 3CR radio galaxies

C  Format for file interpretation

    1 format(
     +  A12,3X,F6.4,4X,F5.1,1X,I6,2X,A1,F6.1,3X,A1,I4,3X,I2,4X,A1,I4,
     +  1X,I2,1X,A1,I4,1X,I2,1X,A1,I4,1X,I3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table12')
      write(6,*) '....Loading file: table12'
      do i__=1,140
        read(1,'(A93)')ar__
        read(ar__,1)
     +  Name,z,mv,S408,l_S5,S5,l_S12,S12,e_S12,l_S25,S25,e_S25,l_S60,
     +  S60,e_S60,l_S100,S100,e_S100
        if(ar__(26:30) .EQ. '') mv = rNULL__
        if(ar__(51:54) .EQ. '') S12 = iNULL__
        if(ar__(58:59) .EQ. '') e_S12 = iNULL__
        if(ar__(65:68) .EQ. '') S25 = iNULL__
        if(ar__(70:71) .EQ. '') e_S25 = iNULL__
        if(ar__(74:77) .EQ. '') S60 = iNULL__
        if(ar__(79:80) .EQ. '') e_S60 = iNULL__
        if(ar__(83:86) .EQ. '') S100 = iNULL__
        if(ar__(88:90) .EQ. '') e_S100 = iNULL__
c    ..............Just test output...........
        write(6,1)
     +  Name,z,mv,S408,l_S5,S5,l_S12,S12,e_S12,l_S25,S25,e_S25,l_S60,
     +  S60,e_S60,l_S100,S100,e_S100
c    .......End.of.Just test output...........
      end do
      close(1)

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