Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/841/76 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/ApJ/841/76 Intrinsic far-IR SED of luminous AGNs (Lyu+, 2017) *================================================================================ *The intrinsic far-infrared continua of type-1 quasars. * Lyu J., Rieke G.H. * <Astrophys. J., 841, 76 (2017)> * =2017ApJ...841...76L C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Host galaxy IR properties of the 24 Palomar-Green quasars integer*4 nr__ parameter (nr__=24) ! Number of records character*64 ar__ ! Full-size record integer*4 ID ! [4/81] Object ID (1) character*11 Name ! Object name real*4 z ! [0.03/0.4] Redshift character*1 l_FPAH_spec ! Upper limit flag on FPAH real*4 FPAH_spec ! (10-13mW/m2) [0.02/4.6] Flux, 11.3um aromatic feature, * Shi+ (2014 J/ApJS/214/23); real*4 e_FPAH_spec ! (10-13mW/m2) ? Uncertainty in FPAH-spec real*4 LR09_PAH ! ([Lsun]) [9.7/13] IR luminosity, best-matched * Rieke+ (2009, J/ApJ/692/556) template (2) real*4 cR09_PAH ! [0.2/1.4] Scaling factor, best-matched * Rieke+ (2009, J/ApJ/692/556) template (2) real*4 fIR_AGN ! AGN fractional contribution to the IR * emission of each quasar real*4 FPAH_SED ! (10-13mW/m2) [0.1/9] Flux, 11.3um aromatic feature (3) real*4 LR09_SED ! ([Lsun]) [9.7/12] Log IR luminosity, best-fitted * Rieke+ (2009, J/ApJ/692/556) template (3) real*4 Lhost_SED ! ([Lsun]) [10.1/12.3] Log host galaxy * observed IR luminosity (3) *Note (1): See Table 2 in Lyu+ (2017ApJ...835..257L) for the list of * the whole Palomar-Green sample. *Note (2): Luminosities and ratio calculated from the best-matched Rieke+ * (2009, J/ApJ/692/556) template based on the 11.3um aromatic * feature luminosity. *Note (3): Flux and luminosity values calculated from SED modeling. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! AGN intrinsic templates integer*4 nr__1 parameter (nr__1=399) ! Number of records character*32 ar__1 ! Full-size record real*4 lambda ! ([um]) [-1/3] Wavelength, logarithm real*4 nu ! ([Hz]) [11.5/15.5] Frequency, logarithm real*4 LogLNorm ! [-5.1/0.7] Log intrinsic AGN luminosity, * normal quasars (1) real*4 LogLHDD ! [-5/0.7] Log intrinsic AGN luminosity, * hot-dust-deficient quasars (1) real*4 LogLWDD ! [-4.9/0.7] Log intrinsic AGN luminosity, * warm-dust-deficient quasars (1) *Note (1): The luminosities are normalized at 1.25 microns. For all the * templates at lambda >100um, a modified black-body with temperature at * 118K and dust emissivity 1.5 is scaled to match the observed SED. The * 0.1-1.25um SEDs of the HDD and WDD templates are assumed to be the * same as Elvis et al. (1994, J/ApJS/95/1). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Properties of 101 SFGs in the GOALS sample integer*4 nr__2 parameter (nr__2=101) ! Number of records character*41 ar__2 ! Full-size record character*16 Name_1 ! Object Name real*4 zNED ! Redshift from NED real*4 LogLPAH ! ([Lsun]) 11.3 aromatic emission luminosity, from the * mid-IR spectrum real*4 LogLIR ! ([Lsun]) Total IR luminosity, * from Armus+ (2009PASP..121..559A) real*4 fconv ! Luminosity conversion factor between LogL-PAH * and LogL-IR C============================================================================= C Loading file 'table2.dat' ! Host galaxy IR properties of the 24 Palomar-Green * quasars C Format for file interpretation 1 format( + I3,1X,A11,1X,F4.2,1X,A1,F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.2, + 1X,F4.2,1X,F5.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,24 read(1,'(A64)')ar__ read(ar__,1) + ID,Name,z,l_FPAH_spec,FPAH_spec,e_FPAH_spec,LR09_PAH,cR09_PAH, + fIR_AGN,FPAH_SED,LR09_SED,Lhost_SED if(ar__(28:31) .EQ. '') e_FPAH_spec = rNULL__ c ..............Just test output........... write(6,1) + ID,Name,z,l_FPAH_spec,FPAH_spec,e_FPAH_spec,LR09_PAH,cR09_PAH, + fIR_AGN,FPAH_SED,LR09_SED,Lhost_SED c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! AGN intrinsic templates C Format for file interpretation 2 format(F5.2,1X,F5.2,1X,F6.3,1X,F6.3,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,399 read(1,'(A32)')ar__1 read(ar__1,2)lambda,nu,LogLNorm,LogLHDD,LogLWDD c ..............Just test output........... write(6,2)lambda,nu,LogLNorm,LogLHDD,LogLWDD c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Properties of 101 SFGs in the GOALS sample C Format for file interpretation 3 format(A16,1X,F6.4,1X,F4.2,1X,F5.2,1X,F6.4) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,101 read(1,'(A41)')ar__2 read(ar__2,3)Name_1,zNED,LogLPAH,LogLIR,fconv c ..............Just test output........... write(6,3)Name_1,zNED,LogLPAH,LogLIR,fconv c .......End.of.Just test output........... end do close(1) C============================================================================= stop end