Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/409/2 into FORTRAN code for loading all data files into arrays.
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/MNRAS/409/2 86 Herschel sources SED model parameters (Rowan-Robinson+, 2010) *================================================================================ *Cold dust and young starbursts: spectral energy distributions of Herschel SPIRE *sources from the HerMES survey. * Rowan-Robinson M., Roseboom I.G., Vaccari M., Amblard A., Arumugam V., * Auld R., Aussel H., Babbedge T., Blain A., Bock J., Boselli A., Brisbin D., * Buat V., Burgarella D., Castro-Rodriguez N., Cava A., Chanial P., * Clements D.L., Conley A., Conversi L., Cooray A., Dowell C.D., Dwek E., * Dye S., Eales S., Elbaz D., Farrah D., Fox M., Franceschini A., Gear W., * Glenn J., Gonzalez Solares E.A., Griffin M., Halpern M., Hatziminaoglou E., * Huang J., Ibar E., Isaak K., Ivison R.J., Lagache G., Levenson L., Lu N., * Madden S., Maffei B., Mainetti G., Marchetti L., Mortier A.M.J., * Nguyen H.T., O'halloran B., Oliver S.J., Omont A., Page M.J., Panuzzo P., * Papageorgiou A., Patel H., Pearson C.P., Perez Fournon I., Pohlen M., * Rawlings J.I., Raymond G., Rigopoulou D., Rizzo D., Schulz B., Scott D., * Seymour N., Shupe D.L., Smith A.J., Stevens J.A., Symeonidis M., * Trichas M., Tugwell K.E., Valtchanov I., Vigroux L., Wang L., Ward R., * Wright G., Xu C.K., Zemcov M. * <Mon. Not. R. Astron. Soc., 409, 2-11 (2010)> * =2010MNRAS.409....2R C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! *Parameters for SED models, complete sample of 86 three-band sources integer*4 nr__ parameter (nr__=87) ! Number of records character*81 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg character*1 Code (nr__) ! [YZ] Y = Young starburst; Z = z>3 real*8 RAdeg (nr__) ! (deg) Right ascension in decimal degrees (J2000) real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000) real*4 z (nr__) ! Redshift character*1 n_z (nr__) ! [)] ) for photometric redshift real*4 logLc5 (nr__) ! ([Lsun]) ? Cirrus luminosity, {psi}=5 template (1) real*4 logLc1 (nr__) ! ([Lsun]) ? Cirrus luminosity, {psi}=1 template (1) character*1 n_logLc1 (nr__) ! [a] a when {psi}=0.1 (1) real*4 logLsb1 (nr__) ! ([Lsun]) ? Luminosity, M82 starburst template (1) real*4 logLsb2 (nr__) ! ([Lsun]) ? Luminosity, A220 starburst template (1) character*1 n_logLsb2 (nr__) ! [bc] b = Young sb (t=0); c = ysb (t=6Gyr) real*4 logLtor (nr__) ! ([Lsun]) ? Luminosity, AGN dust torus template (1) real*4 logLopt (nr__) ! ([Lsun]) Optical luminosity character*3 Mtype (nr__) ! Template morphological type real*4 AV (nr__) ! (mag) Absorption in V band real*4 logMdust (nr__) ! ([Msun]) Dust mass *Note (1): Properties of templates: * ------------------------------------------------------------- * Template Tcolour Tdust Peak {lambda} 60um bol. correction * (K) (K) (um) * ------------------------------------------------------------- * Cirrus psi=0.1 12 9.8-13.4 202 10.9 * Cirrus psi=1 17.5 14.5-19.7 136 8.38 * Cirrus psi=5 23.5 19.1-24.1 102 3.30 * Arp 220 sb 33 3-1000 73 1.50 * Young sb (t=0) 38 3-1000 63 1.28 * M82 sb 45 3-1000 53 1.75 * ------------------------------------------------------------- C============================================================================= C Loading file 'table2.dat' ! *Parameters for SED models, complete sample of 86 * three-band sources C Format for file interpretation 1 format( + A1,1X,F9.5,1X,F8.5,1X,F6.4,A1,1X,F5.2,1X,F5.2,A1,1X,F5.2,1X, + F5.2,A1,1X,F5.2,1X,F5.2,1X,A3,1X,F4.2,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,87 read(1,'(A81)')ar__ read(ar__,1) + Code(i__),RAdeg(i__),DEdeg(i__),z(i__),n_z(i__),logLc5(i__), + logLc1(i__),n_logLc1(i__),logLsb1(i__),logLsb2(i__), + n_logLsb2(i__),logLtor(i__),logLopt(i__),Mtype(i__),AV(i__), + logMdust(i__) if(ar__(30:34) .EQ. '') logLc5(i__) = rNULL__ if(ar__(36:40) .EQ. '') logLc1(i__) = rNULL__ if(ar__(43:47) .EQ. '') logLsb1(i__) = rNULL__ if(ar__(49:53) .EQ. '') logLsb2(i__) = rNULL__ if(ar__(56:60) .EQ. '') logLtor(i__) = rNULL__ c ..............Just test output........... write(6,1) + Code(i__),RAdeg(i__),DEdeg(i__),z(i__),n_z(i__),logLc5(i__), + logLc1(i__),n_logLc1(i__),logLsb1(i__),logLsb2(i__), + n_logLsb2(i__),logLtor(i__),logLopt(i__),Mtype(i__),AV(i__), + logMdust(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end