FORTRAN Generation
(/./ftp/cats/J/A_A/612/A5)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/612/A5 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-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/612/A5        W49B with H.E.S.S. and Fermi-LAT              (HESS+, 2018)
*================================================================================
*The supernova remnant W49B as seen with H.E.S.S. and Fermi-LAT.
*    H.E.S.S. Collaboration, Abdalla H., Abramowski A., Aharonian F.,
*    Ait Benkhali F., Akhperjanian A.G., Andersson T., Anguner E.O., Arrieta M.,
*    Aubert P., Backes M., Balzer A., Barnard M., Becherini Y., Becker Tjus J.,
*    Berge D., Bernhard S., Bernlohr K., Blackwell R., Bottcher M., Boisson C.,
*    Bolmont J., Bordas P., Bregeon J., Brun F., Brun P., Bryan M., Bulik T.,
*    Capasso M., Carr J., Casanova S., Cerruti M., Chakraborty N.,
*    Chalme-Calvet R., Chaves R.C.G., Chen A., Chevalier J., Chretien M.,
*    Colafrancesco S., Cologna G., Condon B., Conrad J., Cui Y., Davids I.D.,
*    Decock J., Degrange B., Deil C., Devin J., deWilt P., Dirson L.,
*    Djannati-Atai A., Domainko W., Donath A., Drury L.O'C., Dubus G.,
*    Dutson K., Dyks J., Edwards T., Egberts K., Eger P., Ernenwein J.-P.,
*    Eschbach S., Farnier C., Fegan S., Fernandes M.V., Fiasson A.,
*    Fontaine G., Foerster A., Funk S., Fuessling M., Gabici S., Gajdus M.,
*    Gallant Y.A., Garrigoux T., Giavitto G., Giebels B., Glicenstein J.F.,
*    Gottschall D., Goyal A., Grondin M.-H., Hadasch D., Hahn J., Haupt M.,
*    Hawkes J., Heinzelmann G., Henri G., Hermann G., Hervet O., Hinton J.A.,
*    Hofmann W., Hoischen C., Holler M., Horns D., Ivascenko A.,
*    Jacholkowska A., Jamrozy M., Janiak M., Jankowsky D., Jankowsky F.,
*    Jingo M., Jogler T., Jouvin L., Jung-Richardt I., Kastendieck M.A.,
*    Katarzynski K., Katz U., Kerszberg D., Khelifi B., Kieffer M., King J.,
*    Klepser S., Klochkov D., Kluzniak W., Kolitzus D., Komin Nu., Kosack K.,
*    Krakau S., Kraus M., Krayzel F., Krueger P.P., Laffon H., Lamanna G.,
*    Lau J., Lees J.-P., Lefaucheur J., Lefranc V., Lemiere A.,
*    Lemoine-Goumard M., Lenain J.-P., Leser E., Lohse T., Lorentz M., Liu R.,
*    Lopez-Coto R., Lypova I., Marandon V., Marcowith A., Mariaud C., Marx R.,
*    Maurin G., Maxted N., Mayer M., Meintjes P.J., Meyer M., Mitchell A.M.W.,
*    Moderski R., Mohamed M., Mohrmann L., Mora K., Moulin E., Murach T.,
*    de Naurois M., Niederwanger F., Niemiec J., Oakes L., O'Brien P.,
*    Odaka H., Oettl S., Ohm S., Ostrowski M., Oya I., Padovani M., Panter M.,
*    Parsons R.D., Pekeur N.W., Pelletier G., Perennes C., Petrucci P.-O.,
*    Peyaud B., Piel Q., Pita S., Poon H., Prokhorov D., Prokoph H.,
*    Puehlhofer G., Punch M., Quirrenbach A., Raab S., Reimer A., Reimer O.,
*    Renaud M., de los Reyes R., Rieger F., Romoli C., Rosier-Lees S.,
*    Rowell G., Rudak B., Rulten C.B., Sahakian V., Salek D., Sanchez D.A.,
*    Santangelo A., Sasaki M., Schlickeiser R., Schuessler F., Schulz A.,
*    Schwanke U., Schwemmer S., Settimo M., Seyffert A.S., Shafi N.,
*    Shilon I., Simoni R., Sol H., Spanier F., Spengler G., Spies F.,
*    Stawarz L., Steenkamp R., Stegmann C., Stinzing F., Stycz K., Sushch I.,
*    Tavernet J.-P., Tavernier T., Taylor A.M., Terrier R., Tibaldo L.,
*    Tiziani D., Tluczykont M., Trichard C., Tuffs R., Uchiyama Y.,
*    van der Walt D.J., van Eldik C., van Rensburg C., van Soelen B.,
*    Vasileiadis G., Veh J., Venter C., Viana A., Vincent P., Vink J.,
*    Voisin F., Voelk H.J., Vuillaume T., Wadiasingh Z., Wagner S.J.,
*    Wagner P., Wagner R.M., White R., Wierzcholska A., Willmann P.,
*    Woernlein A., Wouters D., Yang R., Zabalza V., Zaborov D., Zacharias M.,
*    Zdziarski A.A., Zech A., Zefi F., Ziegler A., Zywucka N.,
*    Fermi-LAT Collaboration, Katsuta J.
*    <Astron. Astrophys. 612, A5 (2018)>
*    =2018A&A...612A...5H        (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'list.dat'	! Information on fits image

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

C  Position composed of: GLON GLAT
      real*8        GLON        ! (deg) Galactic longitude of center
      real*8        GLAT        ! (deg) Galactic latitude of center (J2000)
      integer*4     Nx          ! Number of pixels along X-axis
      integer*4     Ny          ! Number of pixels along Y-axis
      integer*4     size        ! (Kibyte) Size of FITS file
      character*11  FileName    ! Name of FITS file
      character*92  Title       ! Title of the FITS file

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

C  Loading file 'list.dat'	! Information on fits image

C  Format for file interpretation

    1 format(1X,F9.5,F9.5,1X,I3,1X,I3,1X,I2,1X,A11,1X,A92)

C  Effective file loading

      open(unit=1,status='old',file=
     +'list.dat')
      write(6,*) '....Loading file: list.dat'
      do i__=1,1
        read(1,'(A135)')ar__
        read(ar__,1)GLON,GLAT,Nx,Ny,size,FileName,Title
c    ..............Just test output...........
        write(6,1)GLON,GLAT,Nx,Ny,size,FileName,Title
c    .......End.of.Just test output...........
      end do
      close(1)

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