Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/847/136 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-18
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/847/136 H{beta} to N2 line fluxes of nearby galaxies (Brown+, 2017)
*================================================================================
*Calibration of ultraviolet, mid-infrared, and radio star formation rate
*indicators.
* Brown M.J.I., Moustakas J., Kennicutt R.C., Bonne N.J., Intema H.T.,
* de Gasperin F., Boquien M., Jarrett T.H., Cluver M.E., Smith J.-D.T.,
* da Cunha E., Imanishi M., Armus L., Brandl B.R., Peek J.E.G.
* <Astrophys. J., 847, 136 (2017)>
* =2017ApJ...847..136B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Summary of galaxy properties, including aperture
emission line fluxes
integer*4 nr__
parameter (nr__=109) ! Number of records
character*107 ar__ ! Full-size record
character*12 Name ! Galaxy identifier
real*4 Dist ! (Mpc) [2.6/164.3] Distance
integer*4 amaj ! (arcsec) [15/657] Semi-major axis
integer*4 bmin ! (arcsec) [15/340] Semi-minor axis
integer*4 PA ! (deg) [25/180] Position angle
real*4 gtmag ! (mag) [8.1/15.8] Total g band apparent magnitude
real*4 gamag ! (mag) [9/15.9] Aperture g band apparent magnitude
real*4 Hb ! (10-17W/m2) [1.7/597] H{beta} (4861A) line flux (1)
real*4 e_Hb ! (10-17W/m2) [0.1/40] Uncertainty in Hb
character*1 l_O3 ! Limit flag on O3
real*4 O3 ! (10-17W/m2) [0.7/1441] The [OIII](5007{AA}) line flux (1)
real*4 e_O3 ! (10-17W/m2) [0/41]? Uncertainty in O3
real*4 Ha ! (10-17W/m2) [2.6/1813] H{alpha}(6563{AA}) line flux (1)
real*4 e_Ha ! (10-17W/m2) [0.4/74] Uncertainty in Ha
character*1 l_N2 ! Limit flag on N2
real*4 N2 ! (10-17W/m2) [0.4/465] The [NII](6716{AA}) line flux (1)
real*4 e_N2 ! (10-17W/m2) [0.2/52]? Uncertainty in N2
real*8 S1_4 ! (mJy) [0.4/22800]? The 1.4GHz flux density
integer*4 S150 ! (mJy) [3/55600]? The 150MHz flux density
character*1 r_S150 ! [ab] Reference code for S150 (2)
*Note (1): In units of 1e-14 erg/s/cm^2^.
*Note (2): Reference as follows:
* a = from 6C or 7C (Baldwin+ 1985, VIII/18 ;
* Hales+ 1988, VIII/21 ; 1990, VIII/22 ; 1991, VIII/23 ;
* 1993 , VIII/24 and VIII/25 ; 2007, VIII/84).
* b = from GLEAM (Wayth+ 2015PASA...32...25W and Hurley-Walker+ 2016, VIII/100).
C=============================================================================
C Loading file 'table1.dat' ! Summary of galaxy properties, including aperture
* emission line fluxes
C Format for file interpretation
1 format(
+ A12,1X,F5.1,1X,I3,1X,I3,1X,I3,1X,F5.2,1X,F5.2,1X,F5.1,1X,F4.1,
+ 1X,A1,F6.1,1X,F4.1,1X,F6.1,1X,F4.1,1X,A1,1X,F5.1,1X,F4.1,1X,
+ F7.1,1X,I5,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,109
read(1,'(A107)')ar__
read(ar__,1)
+ Name,Dist,amaj,bmin,PA,gtmag,gamag,Hb,e_Hb,l_O3,O3,e_O3,Ha,
+ e_Ha,l_N2,N2,e_N2,S1_4,S150,r_S150
if(ar__(63:66) .EQ. '') e_O3 = rNULL__
if(ar__(88:91) .EQ. '') e_N2 = rNULL__
if(ar__(93:99) .EQ. '') S1_4 = rNULL__
if(ar__(101:105) .EQ. '') S150 = iNULL__
c ..............Just test output...........
write(6,1)
+ Name,Dist,amaj,bmin,PA,gtmag,gamag,Hb,e_Hb,l_O3,O3,e_O3,Ha,
+ e_Ha,l_N2,N2,e_N2,S1_4,S150,r_S150
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end