Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/527/A134 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-16
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/527/A134 Fe abundances for 28 XMM galaxy clusters (Matsushita, 2011)
*================================================================================
*Radial profiles of Fe abundance in the intracluster medium of nearby clusters
*observed with XMM-Newton.
* Matsushita K.
* <Astron. Astrophys., 527, A134 (2011)>
* =2011A&A...527A.134M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'clusters.dat' ! Clusters studied (from table 1 of paper)
integer*4 nr__
parameter (nr__=28) ! Number of records
character*35 ar__ ! Full-size record
character*6 Cluster ! Cluster name
character*7 OName ! Other name of cluster
real*4 z ! Redshift
real*4 v_kT_ ! (keV) Adopted average temperature of ICM used to
* calculate the virial radius r_180_
real*4 NH ! (10+20cm-2) Galactic value of the hydrogen column density
* (Dickey & Lockman, 1990ARA&A..28..215D)
character*6 Type ! Type of cluster: cD or non-cD (G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Cluster samples in the XMM-Newton archival data
integer*4 nr__1
parameter (nr__1=118) ! Number of records
character*63 ar__1 ! Full-size record
character*5 Cluster_1 ! Cluster name
character*7 OName_1 ! Other name of cluster
real*4 z_1 ! Redshift
real*4 v_kT__1 ! (keV) Adopted average temperature of ICM used to
* calculate the virial radius r_180_
real*4 NH_1 ! (10+20cm-2) Galactic value of the hydrogen column density
* (Dickey & Lockman, 1990ARA&A..28..215D)
character*6 Type_1 ! Type of cluster: cD or non-cD (G1)
integer*8 ObsID ! XMM Obs ID
real*4 ExpPN ! (ks) Exposure time of PN camera (2)
real*4 ExpMOS1 ! (ks) Exposure time of MOS1 camera (2)
real*4 ExpMOS2 ! (ks) Exposure time of MOS2 camera (2)
*Note (2): Exposure times after screening out the background flares.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Results of spectral fitting of annular spectra
integer*4 nr__2
parameter (nr__2=130) ! Number of records
character*59 ar__2 ! Full-size record
character*5 Cluster_2 ! Cluster name
real*4 rl ! Lower value of radius interval, in units of r180
real*4 ru ! Upper value of radius interval, in units of r180
real*4 kT ! (keV) Best-fit ICM temperature derived from
* the 1T model fits
real*4 e_kT ! (keV) 1{sigma} statistical error on kT
real*4 FeA ! ([Sun]) Best-fit Fe abundance using the ICM temperature
* derived from the 1T model fits
* (from F_FeHeK_/F_3.5-6_)
real*4 e_FeA ! ([Sun]) 1{sigma} statistical error on FeA (1)
real*4 DFeA ! ([Sun]) Difference in the derived FeA abundances using
* the best-fit multi-T model and the 1T model
real*4 FeB ! ([Sun]) ? Best-fit Fe abundance using the ICM
* temperature derived from the 1T model fits
* (for F_FeHK_/F_3.5-6_)
real*4 e_FeB ! ([Sun]) ? 1{sigma} statistical error on FeB (1)
real*4 DFeB ! ([Sun]) ? Difference in the derived FeB abundances using
* the best-fit multi-T model and the 1T model
*Note (1): 1{sigma} statistical error, considering a 10% systematic
* uncertainty in the ICM temperature derived from the 1T model
C=============================================================================
C Loading file 'clusters.dat' ! Clusters studied (from table 1 of paper)
C Format for file interpretation
1 format(A6,A7,1X,F5.3,1X,F3.1,1X,F4.1,1X,A6)
C Effective file loading
open(unit=1,status='old',file=
+'clusters.dat')
write(6,*) '....Loading file: clusters.dat'
do i__=1,28
read(1,'(A35)')ar__
read(ar__,1)Cluster,OName,z,v_kT_,NH,Type
c ..............Just test output...........
write(6,1)Cluster,OName,z,v_kT_,NH,Type
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table1.dat' ! Cluster samples in the XMM-Newton archival data
C Format for file interpretation
2 format(
+ A5,1X,A7,1X,F5.3,1X,F3.1,1X,F4.1,1X,A6,1X,I10,1X,F4.1,1X,F5.1,
+ 1X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,118
read(1,'(A63)')ar__1
read(ar__1,2)
+ Cluster_1,OName_1,z_1,v_kT__1,NH_1,Type_1,ObsID,ExpPN,ExpMOS1,
+ ExpMOS2
c ..............Just test output...........
write(6,2)
+ Cluster_1,OName_1,z_1,v_kT__1,NH_1,Type_1,ObsID,ExpPN,ExpMOS1,
+ ExpMOS2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Results of spectral fitting of annular spectra
C Format for file interpretation
3 format(
+ A5,2X,F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,
+ F4.2,1X,F4.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,130
read(1,'(A59)')ar__2
read(ar__2,3)
+ Cluster_2,rl,ru,kT,e_kT,FeA,e_FeA,DFeA,FeB,e_FeB,DFeB
if(ar__2(45:48) .EQ. '') FeB = rNULL__
if(ar__2(50:53) .EQ. '') e_FeB = rNULL__
if(ar__2(55:59) .EQ. '') DFeB = rNULL__
c ..............Just test output...........
write(6,3)
+ Cluster_2,rl,ru,kT,e_kT,FeA,e_FeA,DFeA,FeB,e_FeB,DFeB
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end