Conversion of standardized ReadMe file for
file /./ftp/cats/J/AZh/87/760 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-20
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/AZh/87/760 Astrophysical catalog of clusters of galaxies (Kuvshinova+, 2010)
*================================================================================
*The physical properties of the intergalactic gas in rich clusters of galaxies.
* Kuvshinova I.B., Rozgacheva I. K.
* <Astron. Zh. 87, 760 (2010)>
* =2010AZh....87..760K
* =2010ARep...54..696K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Physical characteristics of clusters of galaxies
integer*4 nr__
parameter (nr__=213) ! Number of records
character*100 ar__ ! Full-size record
C J2000.0 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension J2000.0
real*8 DEdeg ! (deg) Declination J2000.0
C ---------------------------------- ! (position vector(s) in degrees)
character*16 Name ! Name of cluster
integer*4 RAh ! (h) Right ascension (J2000.0)
integer*4 RAm ! (min) Right ascension (J2000.0)
real*4 RAs ! (s) Right ascension (J2000.0)
character*1 DE_ ! Declination sign (J2000.0)
integer*4 DEd ! (deg) Declination (J2000.0)
integer*4 DEm ! (arcmin) Declination (J2000.0)
integer*4 DEs ! (arcsec) [0/60] Declination (J2000.0)
character*5 r_Pos ! Reference of RA and DE, in refs.dat file
real*4 z ! Redshift
character*8 r_z ! Reference of redshift, in refs.dat file
real*4 mag ! (mag) ? Magnitude
character*2 r_mag ! Reference of magnitude, in refs.dat file
real*4 MAG_1 ! (mag) ? Absolute magnitude
character*3 R ! ? Richness of clusters of galaxies
integer*4 sigma ! (km/s) ? Velocity dispersion
character*8 r_sigma ! Reference of velocity dispersion,
* in refs.dat file
integer*4 E_sigma ! (km/s) ? Error on sigma (upper limit)
integer*4 e_sigma_1 ! (km/s) ? Error on sigma (lower limit)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Processes and phenomenon in clusters of galaxies
integer*4 nr__1
parameter (nr__1=236) ! Number of records
character*97 ar__1 ! Full-size record
character*16 Name_1 ! Name of cluster
character*1 CF ! [+-?] cooling flows (CF) detection flag (1)
character*54 r_CF ! References for evidence of the presence of
* cooling flows (CF) in clusters of galaxies,
* in refs.dat file
character*1 Fil ! [+-?] Filaments datection flag (1)
character*19 r_Fil ! References for evidence of the presence of
* filaments in clusters of galaxies in
* refs.dat file
*Note (1): the flag is as follows:
* + = found
* - = not detected
* ? = no data
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Physical parameters of clusters of galaxies in X-ray
integer*4 nr__2
parameter (nr__2=213) ! Number of records
character*88 ar__2 ! Full-size record
character*16 Name_2 ! Name of cluster
real*4 FX ! (fW/m2) ? X-ray flux (10^-12^erg/cm^2^/s)
character*7 r_FX ! Reference of FX, in refs.dat file
real*8 LX ! (10+37W) ? X-ray luminosity (10^+44^erg/s)
character*7 r_LX ! Reference of LX, in refs.dat file
real*4 E_LX ! (10+37W) ? Error on X-ray luminosity (upper limit)
real*4 e_LX_1 ! (10+37W) ? Error on X-ray luminosity (lower limit)
real*4 TX ! (keV) ? Temperature of the intracluster gas
character*11 r_TX ! Reference of TX, in refs.dat file
real*4 E_TX ! (keV) ? Error on TX (upper limit)
real*4 e_TX_1 ! (keV) ? Error on TX (lower limit)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! X-ray, optical and IR luminosities of clusters of
galaxies
integer*4 nr__3
parameter (nr__3=213) ! Number of records
character*67 ar__3 ! Full-size record
character*16 Name_3 ! Name of cluster
real*4 LX_1 ! (10+37W) ? X-ray luminosity (in 10^+44^erg/s)
character*7 r_LX_1 ! ? Reference of LX, in refs.dat file
real*8 LHa ! (10+33W) ? Halpha luminosity (in 10^+40^erg/s)
integer*4 r_LHa ! ? Reference of LHa, in refs.dat file
real*4 E_LHa ! (10+33W) ? Error on LHa (upper limit)
real*4 e_LHa_1 ! (10+33W) ? Error on LHa (lower limit)
real*4 LIR ! (10+37W) ? IR-luminosity
integer*4 r_LIR ! ? Reference of LIR, in refs.dat file
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References
integer*4 nr__4
parameter (nr__4=237) ! Number of records
character*158 ar__4 ! Full-size record
integer*4 Ref ! Reference number
character*19 BibCode ! BibCode
character*30 Aut ! Author's name
character*104 Com ! Comments
C=============================================================================
C Loading file 'table1.dat' ! Physical characteristics of clusters of galaxies
C Format for file interpretation
1 format(
+ A16,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X,A5,1X,F6.4,1X,
+ A8,1X,F4.1,1X,A2,1X,F6.2,1X,A3,1X,I4,1X,A8,1X,I3,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,213
read(1,'(A100)')ar__
read(ar__,1)
+ Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,r_Pos,z,r_z,mag,r_mag,MAG_1,
+ R,sigma,r_sigma,E_sigma,e_sigma_1
if(ar__(61:64) .EQ. '') mag = rNULL__
if(ar__(69:74) .EQ. '') MAG_1 = rNULL__
if(ar__(80:83) .EQ. '') sigma = iNULL__
if(ar__(94:96) .EQ. '') E_sigma = iNULL__
if(ar__(98:100) .EQ. '') e_sigma_1 = iNULL__
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg=RAh*15.
if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)
+ Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,r_Pos,z,r_z,mag,r_mag,MAG_1,
+ R,sigma,r_sigma,E_sigma,e_sigma_1
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Processes and phenomenon in clusters of galaxies
C Format for file interpretation
2 format(A16,2X,A1,1X,A54,2X,A1,1X,A19)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,236
read(1,'(A97)')ar__1
read(ar__1,2)Name_1,CF,r_CF,Fil,r_Fil
c ..............Just test output...........
write(6,2)Name_1,CF,r_CF,Fil,r_Fil
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Physical parameters of clusters of galaxies in X-ray
C Format for file interpretation
3 format(
+ A16,2X,F6.2,1X,A7,1X,F7.3,1X,A7,F6.3,1X,F5.3,1X,F5.2,1X,A11,
+ 1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,213
read(1,'(A88)')ar__2
read(ar__2,3)
+ Name_2,FX,r_FX,LX,r_LX,E_LX,e_LX_1,TX,r_TX,E_TX,e_TX_1
if(ar__2(19:24) .EQ. '') FX = rNULL__
if(ar__2(34:40) .EQ. '') LX = rNULL__
if(ar__2(49:54) .EQ. '') E_LX = rNULL__
if(ar__2(56:60) .EQ. '') e_LX_1 = rNULL__
if(ar__2(62:66) .EQ. '') TX = rNULL__
if(ar__2(80:83) .EQ. '') E_TX = rNULL__
if(ar__2(85:88) .EQ. '') e_TX_1 = rNULL__
c ..............Just test output...........
write(6,3)
+ Name_2,FX,r_FX,LX,r_LX,E_LX,e_LX_1,TX,r_TX,E_TX,e_TX_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! X-ray, optical and IR luminosities of clusters of
* galaxies
C Format for file interpretation
4 format(
+ A16,1X,F6.2,1X,A7,1X,F7.2,1X,I3,1X,F6.2,1X,F6.2,1X,F5.2,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,213
read(1,'(A67)')ar__3
read(ar__3,4)
+ Name_3,LX_1,r_LX_1,LHa,r_LHa,E_LHa,e_LHa_1,LIR,r_LIR
if(ar__3(18:23) .EQ. '') LX_1 = rNULL__
if(ar__3(33:39) .EQ. '') LHa = rNULL__
if(ar__3(41:43) .EQ. '') r_LHa = iNULL__
if(ar__3(45:50) .EQ. '') E_LHa = rNULL__
if(ar__3(52:57) .EQ. '') e_LHa_1 = rNULL__
if(ar__3(59:63) .EQ. '') LIR = rNULL__
if(ar__3(65:67) .EQ. '') r_LIR = iNULL__
c ..............Just test output...........
write(6,4)
+ Name_3,LX_1,r_LX_1,LHa,r_LHa,E_LHa,e_LHa_1,LIR,r_LIR
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References
C Format for file interpretation
5 format(I3,1X,A19,1X,A30,A104)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,237
read(1,'(A158)')ar__4
read(ar__4,5)Ref,BibCode,Aut,Com
c ..............Just test output...........
write(6,5)Ref,BibCode,Aut,Com
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end