Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/640/A30 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-May-15
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/640/A30 Galaxies in the Perseus cluster field (Meusinger+, 2020)
*================================================================================
*The galaxy population within the virial radius of the Perseus cluster.
* Meusinger H., Rudolf C., Stecklum B., Hoeft M., Mauersberger R., Apai D.
* <Astron. Astrophys. 640, A30 (2020)>
* =2020A&A...640A..30M (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'catalog.dat' ! Galaxies in Perseus field
integer*4 nr__
parameter (nr__=1294) ! Number of records
character*234 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Seq ! [1/1294] Running catalogue number
character*15 Name ! Object designation (HHMMSS.s+DDMMSS)
real*8 RAdeg ! (deg) Right ascension (J2000)
real*8 DEdeg ! (deg) Declination (J2000)
character*14 OName ! Cross ID
integer*4 BM99 ! ? Catalogue number in Brunzendorf &
* Meusinger (1999A&AS..139..141B,
* Cat. J/A+AS/139/141),
* [BM99] NNN in Simnbad
real*4 R ! (arcmin) Cluster-centric distance in arcmin
real*4 z ! ? Spectroscopic redshift
integer*4 r_z ! [1/5]? Source of spectroscopic redshift (1)
integer*4 Halpha ! [0/5]? Halpha detection flag (2)
integer*4 cl1 ! [0/9]? Numerical descriptor of
* morphological class (3)
integer*4 f_cl1 ! [0/3]? Reliability flag for cl1 (4)
character*9 cl2 ! ? More detailed morphological description
integer*4 pec ! [0/9]? Numerical descriptor of the
* peculiarity type (5)
integer*4 f_pec ! [0/3]? Reliability flag for pec (6)
real*4 fracDeV ! ? Coefficient of the de Vaucouleurs term
* in the surface brightness profile fit (7)
integer*4 r_fracDeV ! [1/2]? Source of fracDeV (8)
real*4 umag ! (mag) ? SDSS model magnitude in the u band (9)
real*4 gmag ! (mag) ? SDSS model magnitude in the g band (9)
real*4 rmag ! (mag) ? SDSS model magnitude in the r band (9)
real*4 imag ! (mag) ? SDSS model magnitude in the i band (9)
real*4 zmag ! (mag) ? SDSS model magnitude in the z band (9)
real*4 Jmag ! (mag) ? 2MASS XSC magnitude in the J band (9)
real*4 Hmag ! (mag) ? 2MASS XSC magnitude in the H band (9)
real*4 Kmag ! (mag) ? 2MASS XSC magnitude in the K band (9)
real*4 W1mag ! (mag) ? WISE magnitude in the W1 band (9)
real*4 W2mag ! (mag) ? WISE magnitude in the W2 band (9)
real*4 W3mag ! (mag) ? WISE magnitude in the W3 band (9)
real*4 W4mag ! (mag) ? WISE magnitude in the W4 band (9)
real*4 E_B_V ! (mag) Galactic foreground reddening E(B-V) (10)
integer*4 ClMemb ! [0/1]? Spectroscopic cluster membership
* flag (11)
integer*4 FlagMLSW1 ! [0/1]? Membership flag for the
* MLS_W1 sample (11)
integer*4 FlagMLSur ! [0/1]? Membership flag for the
* MLS_ur sample (11)
real*4 rMAG_1 ! (mag) ? Absolute SDSS r band magnitude
integer*4 WHAN_type ! [1/4]? Spectral type from the
* WHAN diagram (12)
real*4 logSFR ! ([Msun/yr]) ? Decadic logarithm of star formation rate
* in solar mass per year (13)
real*4 logMstar ! ([Msun]) ? Decadic logarithm of stellar mass
* in solar mass (14)
integer*4 bl_flag ! [1]? Broad emission line flag (15)
real*4 logXMMflux ! ([mW/m+2]) ? Decadic logarithm of mean XMM flux
* in 0.2-12 keV band in mW/m^2^
real*4 logNVSSflux ! ([mJy]) ? Decadic logarithm of integrated 1.4GHz
* flux density in mJy
real*4 q ! ? FIR-to-radio flux density ratio (16)
*Note (1): Source of spectroscopic redshift as follows:
* 1 = present study (TLS-CA survey)
* 2 = present study (TLS-CA survey)
* 3 = SDSS
* 4 = other sources from NED
* 5 = Sakai et al. (2012ApJS..199...36S, Cat. J/ApJS/199/36)
*Note (2): Halpha detection flag as follows:
* 0 = no, present study (TLS survey)
* 1 = weak, present study (TLS survey)
* 2 = moderate, present study (TLS survey)
* 3 = strong, present study (TLS survey)
* 4 = Sakai et al. (2012ApJS..199...36S, Cat. J/ApJS/199/36)
*Note (3): Morphological class code as follows:
* 0 = unclassified
* 1 = E
* 2 = E/S0
* 3 = S0
* 4 = S/S0
* 5 = Sa
* 6 = Sb/Sc
* 7 = S/Irr
* 8 = Irr
* 9 = merger
*Note (4): Reliability flag for cl1 as follows:
* 0 = unclassified
* 1 = low
* 2 = moderate
* 3 = high
*Note (5): Peculiarity type code as follows:
* 0 = no peculiarity
* 1 = weakly lopsided
* 2 = strongly lopsided
* 3 = minor merger
* 4 = early major merger
* 5 = intermediate major merger
* 6 = late major merger
* 7 = M51 type
* 8 = collisional ring
* 9 = others
*Note (6): Reliability flag for pec as follows:
* 0 = no peculiarity
* 1 = low
* 2 = moderate
* 3 = high
*Note (7): clipped between zero and one.
*Note (8): Source of fracDeV as follows:
* 1 = SDSS
* 2 = present study
*Note (9): not corrected for Galactic foreground extinction
*Note (10): from Schlafly & Finkbeiner (2011ApJ...737..103S)
*Note (11): Membership flag as follows:
* 0 = non-member
* 1 = member
*Note (12): Spectral type code as follows:
* 1 = star-forming (SF) galaxy
* 2 = strong AGN (sAGN)
* 3 = weak AGN (wAGN)
* 4 = retired galaxy
*Note (13): derived from WISE W3 using equation 4 from Cluver et al.
* (2017ApJ...850...68C)
*Note (14): derived from WISE W1 and W2 using equation 1 from Jarrett et al.
* (2017ApJ...836..182J)
*Note (15): Broad emission line flag as follows:
* 1 = broad emission line indicated
*Note (16): from Miller & Owen (2001ApJS..134..355M, Cat. J/ApJS/134/355)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'list.dat' ! *List of spectra
integer*4 nr__1
parameter (nr__1=44) ! Number of records
character*43 ar__1 ! Full-size record
integer*4 Seq_1 ! [163/1293]? Running catalogue number
character*15 Name_1 ! Object designation (HHMMSS.s+DDMMSS)
character*22 FileName ! Name of the spectrum file in subdirectory sp
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp/*' ! Individual spectra
integer*4 nr__2
parameter (nr__2=44) ! Number of records
character*16 ar__2 ! Full-size record
real*8 lambda ! (0.1nm) Wavelength
real*8 Flambda ! Flux per wavelength interval
* (arbitrarily normalised)
C=============================================================================
C Loading file 'catalog.dat' ! Galaxies in Perseus field
C Format for file interpretation
1 format(
+ I4,1X,A15,1X,D8.5,1X,D8.5,1X,A14,1X,I3,1X,F5.1,1X,F6.4,1X,I1,
+ 1X,I1,1X,I1,1X,I1,1X,A9,1X,I1,1X,I1,1X,F4.2,1X,I1,1X,F6.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,1X,F5.3,1X,I1,1X,I1,1X,I1,1X,F5.1,1X,
+ I1,1X,F5.2,1X,F5.2,1X,I1,1X,F5.1,1X,F4.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'catalog.dat')
write(6,*) '....Loading file: catalog.dat'
do i__=1,1294
read(1,'(A234)')ar__
read(ar__,1)
+ Seq,Name,RAdeg,DEdeg,OName,BM99,R,z,r_z,Halpha,cl1,f_cl1,cl2,
+ pec,f_pec,fracDeV,r_fracDeV,umag,gmag,rmag,imag,zmag,Jmag,
+ Hmag,Kmag,W1mag,W2mag,W3mag,W4mag,E_B_V,ClMemb,FlagMLSW1,
+ FlagMLSur,rMAG_1,WHAN_type,logSFR,logMstar,bl_flag,logXMMflux,
+ logNVSSflux,q
if(ar__(55:57) .EQ. '') BM99 = iNULL__
if(ar__(65:70) .EQ. '') z = rNULL__
if(ar__(72:72) .EQ. '') r_z = iNULL__
if(ar__(74:74) .EQ. '') Halpha = iNULL__
if(ar__(76:76) .EQ. '') cl1 = iNULL__
if(ar__(78:78) .EQ. '') f_cl1 = iNULL__
if(ar__(90:90) .EQ. '') pec = iNULL__
if(ar__(92:92) .EQ. '') f_pec = iNULL__
if(ar__(94:97) .EQ. '') fracDeV = rNULL__
if(ar__(99:99) .EQ. '') r_fracDeV = iNULL__
if(ar__(101:106) .EQ. '') umag = rNULL__
if(ar__(108:113) .EQ. '') gmag = rNULL__
if(ar__(115:120) .EQ. '') rmag = rNULL__
if(ar__(122:127) .EQ. '') imag = rNULL__
if(ar__(129:134) .EQ. '') zmag = rNULL__
if(ar__(136:141) .EQ. '') Jmag = rNULL__
if(ar__(143:148) .EQ. '') Hmag = rNULL__
if(ar__(150:155) .EQ. '') Kmag = rNULL__
if(ar__(157:162) .EQ. '') W1mag = rNULL__
if(ar__(164:169) .EQ. '') W2mag = rNULL__
if(ar__(171:176) .EQ. '') W3mag = rNULL__
if(ar__(178:183) .EQ. '') W4mag = rNULL__
if(ar__(191:191) .EQ. '') ClMemb = iNULL__
if(ar__(193:193) .EQ. '') FlagMLSW1 = iNULL__
if(ar__(195:195) .EQ. '') FlagMLSur = iNULL__
if(ar__(197:201) .EQ. '') rMAG_1 = rNULL__
if(ar__(203:203) .EQ. '') WHAN_type = iNULL__
if(ar__(205:209) .EQ. '') logSFR = rNULL__
if(ar__(211:215) .EQ. '') logMstar = rNULL__
if(ar__(217:217) .EQ. '') bl_flag = iNULL__
if(ar__(219:223) .EQ. '') logXMMflux = rNULL__
if(ar__(225:228) .EQ. '') logNVSSflux = rNULL__
if(ar__(230:234) .EQ. '') q = rNULL__
c ..............Just test output...........
write(6,1)
+ Seq,Name,RAdeg,DEdeg,OName,BM99,R,z,r_z,Halpha,cl1,f_cl1,cl2,
+ pec,f_pec,fracDeV,r_fracDeV,umag,gmag,rmag,imag,zmag,Jmag,
+ Hmag,Kmag,W1mag,W2mag,W3mag,W4mag,E_B_V,ClMemb,FlagMLSW1,
+ FlagMLSur,rMAG_1,WHAN_type,logSFR,logMstar,bl_flag,logXMMflux,
+ logNVSSflux,q
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'list.dat' ! *List of spectra
C Format for file interpretation
2 format(I4,1X,A15,1X,A22)
C Effective file loading
open(unit=1,status='old',file=
+'list.dat')
write(6,*) '....Loading file: list.dat'
do i__=1,44
read(1,'(A43)')ar__1
read(ar__1,2)Seq_1,Name_1,FileName
if(ar__1(1:4) .EQ. '') Seq_1 = iNULL__
c ..............Just test output...........
write(6,2)Seq_1,Name_1,FileName
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp/*' ! Individual spectra
C Format for file interpretation
3 format(F7.2,2X,F7.4)
C Effective file loading
open(unit=1,status='old',file=
+'sp/*')
write(6,*) '....Loading file: sp/*'
do i__=1,44
read(1,'(A16)')ar__2
read(ar__2,3)lambda,Flambda
c ..............Just test output...........
write(6,3)lambda,Flambda
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end