Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/685/A75 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 2026-Oct-11
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/685/A75 PDRs4All IV. Orion Bar MRS template spectra (Chown+, 2024)
*================================================================================
*PDRs4All. IV. An embarrassment of riches:
*Aromatic infrared bands in the Orion Bar.
* Chown R., Sidhu A., Peeters E., Tielens A.G.G.M., Cami J., Berne O.,
* Habart E., Alarcon F., Canin A., Schroetter I., Trahin B., Van De Putte D.,
* Abergel A., Bergin E.A., Bernard-Salas J., Boersma C., Bron E.,
* Cuadrado S., Dartois E., Dicken D., El-Yajouri M., Fuente A.,
* Goicoechea J.R., Gordon K.D., Issa L., Joblin C., Kannavou O., Khan B.,
* Lacinbala O., Languignon D., Le Gal R., Maragkoudakis A., Meshaka R.,
* Okada Y., Onaka T., Pasquini S., Pound M.W., Robberto M., Roellig M.,
* Schefter B., Schirmer T., Vicente S., Wolfire M.G., Zannese M., Aleman I.,
* Allamandola L., Auchettl R., Baratta G.A., Bejaoui S., Bera P.P.,
* Black J.H., Boulanger F., Bouwman J., Brandl B., Brechignac P.,
* Bruenken S., Buragohain M., Burkhardt A., Candian A., Cazaux S.,
* Cernicharo J., Chabot M., Chakraborty S., Champion J., Colgan S.W.J.,
* Cooke I.R., Coutens A., Cox N.L.J., Demyk K., Meyer J.D., Foschino S.,
* Garcia-Lario P., Gavilan L., Gerin M., Gottlieb C.A., Guillard P.,
* Gusdorf A., Hartigan P., He J., Herbst E., Hornekaer L., Jaeger C.,
* Janot-Pacheco E., Kaufman M., Kemper F., Kendrew S., Kirsanova M.S.,
* Klaassen P., Kwok S., Labiano A., Lai T.S.-Y., Lee T.J., Lefloch B.,
* Le Petit F., Li A., Linz H., Mackie C.J., Madden S.C., Mascetti J.,
* McGuire B.A., Merino P., Micelotta E.R., Misselt K., Morse J.A., Mulas G.,
* Neelamkodan N., Ohsawa R., Omont A., Paladini R., Palumbo M.E., Pathak A.,
* Pendleton Y.J., Petrignani A., Pino T., Puga E., Rangwala N., Rapacioli M.,
* Ricca A., Roman-Duval J., Roser J., Roueff E., Rouille G., Salama F.,
* Sales D.A., Sandstrom K., Sarre P., Sciamma-O'Brien E., Sellgren K.,
* Shenoy S.S., Teyssier D., Thomas R.D., Togi A., Verstraete L., Witt A.N.,
* Wootten A., Zettergren H., Zhang Y., Zhang Z.E., Zhen J.
* <Astron. Astrophys. 685, A75 (2024)>
* =2024A&A...685A..75C (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sptemp.dat' ! MRS template spectra
integer*4 nr__
parameter (nr__=50000) ! Number of records
character*115 ar__ ! Full-size record
real*8 lambda ! (um) [4.9/27.91] Wavelength
real*8 Inu_HII ! (MJy/sr) [141.13/679147.86] HII region MRS template
* spectrum (surface brightness)
real*8 Inu_APDR ! (MJy/sr) [316.06/480937.2] Atomic PDR MRS template
* spectrum (surface brightness)
real*8 Inu_DF3 ! (MJy/sr) [94.88/157221.8] Dissociation Front 3 (DF3)
* MRS template spectrum (surface brightness)
real*8 Inu_DF2 ! (MJy/sr) [135.14/198845.05] Dissociation Front 2 (DF2)
* MRS template spectrum (surface brightness)
real*8 Inu_DF1 ! (MJy/sr) [194.85/228498.7] Dissociation Front 1 (DF1)
* MRS template spectrum (surface brightness)
C=============================================================================
C Loading file 'sptemp.dat' ! MRS template spectra
C Format for file interpretation
1 format(F10.7,1X,F20.13,1X,F20.13,1X,F20.13,1X,F20.13,1X,F20.13)
C Effective file loading
open(unit=1,status='old',file=
+'sptemp.dat')
write(6,*) '....Loading file: sptemp.dat'
do i__=1,50000
read(1,'(A115)')ar__
read(ar__,1)lambda,Inu_HII,Inu_APDR,Inu_DF3,Inu_DF2,Inu_DF1
c ..............Just test output...........
write(6,1)lambda,Inu_HII,Inu_APDR,Inu_DF3,Inu_DF2,Inu_DF1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end