Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/612/A7 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-Apr-19
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/A7 Vela Junior (RX J0852.0-4622) HESS image (HESS+, 2018)
*================================================================================
*Deeper H.E.S.S. observations of Vela Junior (RX J0852.0-4622):
*Morphology studies and resolved spectroscopy.
* H.E.S.S. Collaboration,
* Abdalla H., Abramowski A., Aharonian F., Ait Benkhali F., Akhperjanian A.G.,
* Andersson T., Anguener E.O., Arakawa M., Arrieta M., Aubert P., Backes M.,
* Balzer A., Barnard M., Becherini Y., Becker Tjus J., Berge D., Bernhard S.,
* Bernloehr K., Blackwell R., Boettcher M., Boisson C., Bolmont J., Bordas P.,
* Bregeon J., Brun F., Brun P., Bryan M., Buechele 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., Coffaro 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., 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.,
* 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., Iwasaki H., Jacholkowska A., Jamrozy M., Janiak M.,
* Jankowsky D., Jankowsky F., Jingo M., Jogler T., Jouvin L.,
* Jung-Richardt I., Kastendieck M.A., Katarzynski K., Katsuragawa M., Katz U.,
* Kerszberg D., Khangulyan D., Khelifi B., Kieffer M., King J., Klepser S.,
* Klochkov D., Kluzniak W., Kolitzus D., Komin Nu., Kosack K., Krakau S.,
* Kraus M., 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., Nakashima S., 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.,
* Paz Arribas M., 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., Richter S., Rieger F., Romoli C., Rowell G.,
* Rudak B., Rulten C.B., Sahakian V., Saito S., Salek D., Sanchez D.A.,
* Santangelo A., Sasaki M., Schlickeiser R., Schuessler F., Schulz A.,
* Schwanke U., Schwemmer S., Seglar-Arroyo M., 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., Stycz K., Sushch I., Takahashi T.,
* Tavernet J.-P., Tavernier T., Taylor A.M., Terrier R., Tibaldo L.,
* Tiziani D., Tluczykont M., Trichard C., Tsuji N., 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., Zanin R.,
* Zdziarski A.A., Zech A., Zefi F., Ziegler A., Zywucka N.
* <Astron. Astrophys. 612, A7 (2018)>
* =2018A&A...612A...7H (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'list.dat' ! Information on the fits image
integer*4 nr__
parameter (nr__=1) ! Number of records
character*75 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg ! (deg) Right Ascension of center (J2000)
real*8 DEdeg ! (deg) Declination 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*10 FileName ! Name of FITS file, in subdirectory fits
character*32 Title ! Title of the FITS file
C=============================================================================
C Loading file 'list.dat' ! Information on the fits image
C Format for file interpretation
1 format(F9.5,F9.5,1X,I3,1X,I3,1X,I4,1X,A10,1X,A32)
C Effective file loading
open(unit=1,status='old',file=
+'list.dat')
write(6,*) '....Loading file: list.dat'
do i__=1,1
read(1,'(A75)')ar__
read(ar__,1)RAdeg,DEdeg,Nx,Ny,size,FileName,Title
c ..............Just test output...........
write(6,1)RAdeg,DEdeg,Nx,Ny,size,FileName,Title
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end