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