Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/591/A136 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 2026-Sep-06
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/591/A136 Galaxies and QSOs FIR size and surface brightness (Lutz+, 2016)
*================================================================================
*The far-infrared emitting region in local galaxies and QSOs:
*Size and scaling relations.
* Lutz D., Berta S., Contursi A., Forster Schreiber N.M., Genzel R.,
* Gracia-Carpio J., Herrera-Camus R., Netzer H., Sturm E., Tacconi L.J.,
* Tadaki K., Veilleux S.
* <Astron. Astrophys., 591, A136 (2016)>
* =2016A&A...591A.136L (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea1.dat' ! Far-infrared size and surface brightness of
galaxies and QSOs
integer*4 nr__
parameter (nr__=399) ! Number of records
character*98 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*17 Name (nr__) ! Target name
real*8 RAdeg (nr__) ! (deg) Right ascension (J2000) (1)
real*8 DEdeg (nr__) ! (deg) Declination (J2000) (1)
character*1 Cl (nr__) ! [G/Q] Class, Galaxy (G) or QSO (Q)
character*1 Mo (nr__) ! [D] Morphology (2)
real*4 Scale (nr__) ! (kpc/arcsec) Scale for the adopted distance and
* cosmology
character*1 l_Re70 (nr__) ! Limit flag on Re70
real*4 Re70 (nr__) ! (kpc) ? Far-infrared half light radii
* at 70um (3)
real*4 e_Re70 (nr__) ! (kpc) ? rms uncertainty on Re70
character*1 l_Re100 (nr__) ! Limit flag on Re100
real*4 Re100 (nr__) ! (kpc) ? Far-infrared half light radii
* at 100um (3)
real*4 e_Re100 (nr__) ! (kpc) ? rms uncertainty on Re100
character*1 l_Re160 (nr__) ! Limit flag on Re160
real*4 Re160 (nr__) ! (kpc) ? Far-infrared half light radii
* at 160um (3)
real*4 e_Re160 (nr__) ! (kpc) ? rms uncertainty on Re160
character*1 l_log_SFIR (nr__) ! Limit flag on log(SFIR)
real*4 log_SFIR (nr__) ! ([Lsun/kpc+2]) ? Surface brightness of the 40-120um
* far-infrared emission
real*4 e_log_SFIR (nr__) ! ([Lsun/kpc+2]) ? rms uncertainty on log(SFIR)
*Note (1): Far-infrared source position, as measured from the Gaussian fits
*Note (2): D denotes a double source with potentially inflated fitted size
*Note (3): Missing entries for a given band indicate photometric S/N<10 or band
* not observed. Half light radii are based on subtracting in quadrature observed
* width and PSF width. The errors are statistical and do not include systematics
* due to the non-gaussianity of the real source structure and PSF.
C=============================================================================
C Loading file 'tablea1.dat' ! Far-infrared size and surface brightness of
* galaxies and QSOs
C Format for file interpretation
1 format(
+ A17,1X,F8.4,1X,F8.4,1X,A1,1X,A1,1X,F5.3,1X,A1,F5.3,1X,F5.3,1X,
+ A1,F6.3,1X,F5.3,1X,A1,F6.3,1X,F5.3,1X,A1,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'tablea1.dat')
write(6,*) '....Loading file: tablea1.dat'
do i__=1,399
read(1,'(A98)')ar__
read(ar__,1)
+ Name(i__),RAdeg(i__),DEdeg(i__),Cl(i__),Mo(i__),Scale(i__),
+ l_Re70(i__),Re70(i__),e_Re70(i__),l_Re100(i__),Re100(i__),
+ e_Re100(i__),l_Re160(i__),Re160(i__),e_Re160(i__),
+ l_log_SFIR(i__),log_SFIR(i__),e_log_SFIR(i__)
if(ar__(48:52) .EQ. '') Re70(i__) = rNULL__
if(ar__(54:58) .EQ. '') e_Re70(i__) = rNULL__
if(ar__(61:66) .EQ. '') Re100(i__) = rNULL__
if(ar__(68:72) .EQ. '') e_Re100(i__) = rNULL__
if(ar__(75:80) .EQ. '') Re160(i__) = rNULL__
if(ar__(82:86) .EQ. '') e_Re160(i__) = rNULL__
if(ar__(89:93) .EQ. '') log_SFIR(i__) = rNULL__
if(ar__(95:98) .EQ. '') e_log_SFIR(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Name(i__),RAdeg(i__),DEdeg(i__),Cl(i__),Mo(i__),Scale(i__),
+ l_Re70(i__),Re70(i__),e_Re70(i__),l_Re100(i__),Re100(i__),
+ e_Re100(i__),l_Re160(i__),Re160(i__),e_Re160(i__),
+ l_log_SFIR(i__),log_SFIR(i__),e_log_SFIR(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end