Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/445/79 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.5, on 2013-May-25
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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/A+A/445/79 Nearby early-type gal. with ionized gas. II. (Annibali+, 2006)
*================================================================================
*Nearby early-type galaxies with ionized gas.
*II. Line-strength indices for 18 additional galaxies.
* Annibali F., Bressan A., Rampazzo R., Zeilinger W.W.
* <Astron. Astrophys., 445, 79-91 (2006)>
* =2006A&A...445...79A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Overview of the observed sample
integer*4 nr__
parameter (nr__=18) ! Number of records
character*88 ar__ ! Full-size record
real*8 RA_ (nr__) ! (deg) Right Ascension J2000
real*8 Dec (nr__) ! (deg) Declination J2000
character*7 Galaxy (nr__) ! Galaxy name
integer*4 RAh (nr__) ! (h) Right ascension (J2000)
integer*4 RAm (nr__) ! (min) Right ascension (J2000)
real*4 RAs (nr__) ! (s) Right ascension (J2000)
character*1 DE_ (nr__) ! Declination sign (J2000)
integer*4 DEd (nr__) ! (deg) Declination (J2000)
integer*4 DEm (nr__) ! (arcmin) Declination (J2000)
integer*4 DEs (nr__) ! (arcsec) Declination (J2000)
character*11 MType1 (nr__) ! Spectral type from RSA
* (Sandage & Tamman, 1987, Cat. <VII/51>)
character*7 MType2 (nr__) ! Spectral type from RC3
* (de Vaucouleurs, Cat. <VII/155>)
integer*4 PA (nr__) ! (deg) Position angle of the isophotes along
* the major axis
real*4 B0mag (nr__) ! (mag) Total corrected B magnitude (from RC3)
real*4 v_B_V_0 (nr__) ! (mag) ? Total corrected B-V colour index (from RC3)
real*4 v_U_B_0 (nr__) ! (mag) ? Total corrected U-B colour index (from RC3)
integer*4 HV (nr__) ! (km/s) Heliocentric systemic velocity (2)
real*4 re (nr__) ! (arcsec) Effective radius (1)
real*4 rhoxyz (nr__) ! (Mpc-3) ? Measure of the richness of the environment,
* in galaxies/Mpc^3^
real*4 eps (nr__) ! Average ellipticity of the galaxy (2)
*Note (1): The value of re of NGC 4696, NGC 5090 and NGC 5266 have been
* derived from ESO-LV (Lauberts & Valentijn, 1989, Cat. <VII/115>)
* while the value for NGC 5044 is derived from Goudfrooij (1994,
* Cat. <J/A+AS/104/179>)
*Note (2): From HYPERCAT: http://www-obs.univ-lyon1.fr/hypercat
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! H{beta} corrections for apertures
integer*4 nr__1
parameter (nr__1=119) ! Number of records
character*31 ar__1 ! Full-size record
character*7 Galaxy_1 (nr__1) ! Galaxy designation
integer*4 iz (nr__1) ! [0/6] Indicates the aperture (table5)
* or the gradient (table6) code (G2)
real*8 EWHb1 (nr__1) ! (0.1nm) Equivalent width of H{beta} as derived
* from [OIII]
integer*4 Qual (nr__1) ! Quality of the measure (G1)
real*8 EWHb2 (nr__1) ! (0.1nm) Equivalent width of H{beta} as derived
* from H{alpha}
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! H{beta} corrections for gradients
integer*4 nr__2
parameter (nr__2=65) ! Number of records
character*31 ar__2 ! Full-size record
character*7 Galaxy_2 (nr__2) ! Galaxy designation
integer*4 iz_1 (nr__2) ! [0/6] Indicates the aperture (table5)
* or the gradient (table6) code (G2)
real*8 EWHb1_1 (nr__2) ! (0.1nm) Equivalent width of H{beta} as derived
* from [OIII]
integer*4 Qual_1 (nr__2) ! Quality of the measure (G1)
real*8 EWHb2_1 (nr__2) ! (0.1nm) Equivalent width of H{beta} as derived
* from H{alpha}
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! *Aperture fully corrected line-strength indices
integer*4 nr__3
parameter (nr__3=454) ! Number of records
character*361 ar__3 ! Full-size record
character*7 Galaxy_3 (nr__3) ! Galaxy designation
integer*4 iz_2 (nr__3) ! [0/6] Indicates the aperture (table8)
* or the gradient (table9) code (G2)
real*4 r1 (nr__3) ! Relative aperture radius (lower limit)
real*4 r2 (nr__3) ! Relative aperture radius (upper limit)
real*4 rwl (nr__3) ! Luminosity weighted radius
real*4 req (nr__3) ! (arcsec) Adopted equivalent radius
real*4 CN1 (nr__3) ! (mag) Line-strength index of CN1
real*4 CN2 (nr__3) ! (mag) Line-strength index of CN2
real*4 Ca4227 (nr__3) ! (0.1nm) Line-strength index of Ca4227
real*4 G4300 (nr__3) ! (0.1nm) Line-strength index of G4300
real*4 Fe4383 (nr__3) ! (0.1nm) Line-strength index of Fe4383
real*4 Ca4455 (nr__3) ! (0.1nm) Line-strength index of Ca4455
real*4 Fe4531 (nr__3) ! (0.1nm) Line-strength index of Fe4531
real*4 Fe4668 (nr__3) ! (0.1nm) Line-strength index of Fe4668
real*4 Hbeta (nr__3) ! (0.1nm) Line-strength index of Hbeta
real*8 Fe5015 (nr__3) ! (0.1nm) Line-strength index of Fe5015
real*4 Mg1 (nr__3) ! (mag) Line-strength index of Mg1
real*4 Mg2 (nr__3) ! (mag) Line-strength index of Mg2
real*4 Mgb (nr__3) ! (0.1nm) Line-strength index of Mgb
real*4 Fe5270 (nr__3) ! (0.1nm) Line-strength index of Fe5270
real*4 Fe5335 (nr__3) ! (0.1nm) Line-strength index of Fe5335
real*4 Fe5406 (nr__3) ! (0.1nm) Line-strength index of Fe5406
real*4 Fe5709 (nr__3) ! (0.1nm) Line-strength index of Fe5709
real*4 Fe5782 (nr__3) ! (0.1nm) Line-strength index of Fe5782
real*4 NaD (nr__3) ! (0.1nm) Line-strength index of NaD
real*4 TiO1 (nr__3) ! (mag) Line-strength index of TiO1
real*4 TiO2 (nr__3) ! (mag) Line-strength index of TiO2
real*4 HdeltaA (nr__3) ! (0.1nm) Line-strength index of HdeltaA
real*8 HgammaA (nr__3) ! (0.1nm) Line-strength index of HgammaA
real*4 HdeltaF (nr__3) ! (0.1nm) Line-strength index of HdeltaF
real*4 HgammaF (nr__3) ! (0.1nm) Line-strength index of HgammaF
real*4 e_CN1 (nr__3) ! (mag) Error on Line-strength index of CN1
real*4 e_CN2 (nr__3) ! (mag) Error on Line-strength index of CN2
real*4 e_Ca4227 (nr__3) ! (0.1nm) Error on Line-strength index of Ca4227
real*4 e_G4300 (nr__3) ! (0.1nm) Error on Line-strength index of G4300
real*4 e_Fe4383 (nr__3) ! (0.1nm) Error on Line-strength index of Fe4383
real*4 e_Ca4455 (nr__3) ! (0.1nm) Error on Line-strength index of Ca4455
real*4 e_Fe4531 (nr__3) ! (0.1nm) Error on Line-strength index of Fe4531
real*4 e_Fe4668 (nr__3) ! (0.1nm) Error on Line-strength index of Fe4668
real*4 e_Hbeta (nr__3) ! (0.1nm) Error on Line-strength index of Hbeta
real*4 e_Fe5015 (nr__3) ! (0.1nm) Error on Line-strength index of Fe5015
real*4 e_Mg1 (nr__3) ! (mag) Error on Line-strength index of Mg1
real*4 e_Mg2 (nr__3) ! (mag) Error on Line-strength index of Mg2
real*4 e_Mgb (nr__3) ! (0.1nm) Error on Line-strength index of Mgb
real*4 e_Fe5270 (nr__3) ! (0.1nm) Error on Line-strength index of Fe5270
real*4 e_Fe5335 (nr__3) ! (0.1nm) Error on Line-strength index of Fe5335
real*4 e_Fe5406 (nr__3) ! (0.1nm) Error on Line-strength index of Fe5406
real*4 e_Fe5709 (nr__3) ! (0.1nm) Error on Line-strength index of Fe5709
real*4 e_Fe5782 (nr__3) ! (0.1nm) Error on Line-strength index of Fe5782
real*4 e_NaD (nr__3) ! (0.1nm) Error on Line-strength index of NaD
real*4 e_TiO1 (nr__3) ! (mag) Error on Line-strength index of TiO1
real*4 e_TiO2 (nr__3) ! (mag) Error on Line-strength index of TiO2
real*4 e_HdeltaA (nr__3) ! (0.1nm) Error on Line-strength index of HdeltaA
real*4 e_HgammaA (nr__3) ! (0.1nm) Error on Line-strength index of HgammaA
real*4 e_HdeltaF (nr__3) ! (0.1nm) Error on Line-strength index of HdeltaF
real*4 e_HgammaF (nr__3) ! (0.1nm) Error on Line-strength index of HgammaF
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table9.dat' ! *Gradients fully corrected line-strength indices
integer*4 nr__4
parameter (nr__4=257) ! Number of records
character*361 ar__4 ! Full-size record
character*7 Galaxy_4 (nr__4) ! Galaxy designation
integer*4 iz_3 (nr__4) ! [0/6] Indicates the aperture (table8)
* or the gradient (table9) code (G2)
real*4 r1_1 (nr__4) ! Relative aperture radius (lower limit)
real*4 r2_1 (nr__4) ! Relative aperture radius (upper limit)
real*4 rwl_1 (nr__4) ! Luminosity weighted radius
real*4 req_1 (nr__4) ! (arcsec) Adopted equivalent radius
real*4 CN1_1 (nr__4) ! (mag) Line-strength index of CN1
real*4 CN2_1 (nr__4) ! (mag) Line-strength index of CN2
real*4 Ca4227_1 (nr__4) ! (0.1nm) Line-strength index of Ca4227
real*4 G4300_1 (nr__4) ! (0.1nm) Line-strength index of G4300
real*4 Fe4383_1 (nr__4) ! (0.1nm) Line-strength index of Fe4383
real*4 Ca4455_1 (nr__4) ! (0.1nm) Line-strength index of Ca4455
real*4 Fe4531_1 (nr__4) ! (0.1nm) Line-strength index of Fe4531
real*4 Fe4668_1 (nr__4) ! (0.1nm) Line-strength index of Fe4668
real*4 Hbeta_1 (nr__4) ! (0.1nm) Line-strength index of Hbeta
real*8 Fe5015_1 (nr__4) ! (0.1nm) Line-strength index of Fe5015
real*4 Mg1_1 (nr__4) ! (mag) Line-strength index of Mg1
real*4 Mg2_1 (nr__4) ! (mag) Line-strength index of Mg2
real*4 Mgb_1 (nr__4) ! (0.1nm) Line-strength index of Mgb
real*4 Fe5270_1 (nr__4) ! (0.1nm) Line-strength index of Fe5270
real*4 Fe5335_1 (nr__4) ! (0.1nm) Line-strength index of Fe5335
real*4 Fe5406_1 (nr__4) ! (0.1nm) Line-strength index of Fe5406
real*4 Fe5709_1 (nr__4) ! (0.1nm) Line-strength index of Fe5709
real*4 Fe5782_1 (nr__4) ! (0.1nm) Line-strength index of Fe5782
real*4 NaD_1 (nr__4) ! (0.1nm) Line-strength index of NaD
real*4 TiO1_1 (nr__4) ! (mag) Line-strength index of TiO1
real*4 TiO2_1 (nr__4) ! (mag) Line-strength index of TiO2
real*4 HdeltaA_1 (nr__4) ! (0.1nm) Line-strength index of HdeltaA
real*8 HgammaA_1 (nr__4) ! (0.1nm) Line-strength index of HgammaA
real*4 HdeltaF_1 (nr__4) ! (0.1nm) Line-strength index of HdeltaF
real*4 HgammaF_1 (nr__4) ! (0.1nm) Line-strength index of HgammaF
real*4 e_CN1_1 (nr__4) ! (mag) Error on Line-strength index of CN1
real*4 e_CN2_1 (nr__4) ! (mag) Error on Line-strength index of CN2
real*4 e_Ca4227_1 (nr__4) ! (0.1nm) Error on Line-strength index of Ca4227
real*4 e_G4300_1 (nr__4) ! (0.1nm) Error on Line-strength index of G4300
real*4 e_Fe4383_1 (nr__4) ! (0.1nm) Error on Line-strength index of Fe4383
real*4 e_Ca4455_1 (nr__4) ! (0.1nm) Error on Line-strength index of Ca4455
real*4 e_Fe4531_1 (nr__4) ! (0.1nm) Error on Line-strength index of Fe4531
real*4 e_Fe4668_1 (nr__4) ! (0.1nm) Error on Line-strength index of Fe4668
real*4 e_Hbeta_1 (nr__4) ! (0.1nm) Error on Line-strength index of Hbeta
real*4 e_Fe5015_1 (nr__4) ! (0.1nm) Error on Line-strength index of Fe5015
real*4 e_Mg1_1 (nr__4) ! (mag) Error on Line-strength index of Mg1
real*4 e_Mg2_1 (nr__4) ! (mag) Error on Line-strength index of Mg2
real*4 e_Mgb_1 (nr__4) ! (0.1nm) Error on Line-strength index of Mgb
real*4 e_Fe5270_1 (nr__4) ! (0.1nm) Error on Line-strength index of Fe5270
real*4 e_Fe5335_1 (nr__4) ! (0.1nm) Error on Line-strength index of Fe5335
real*4 e_Fe5406_1 (nr__4) ! (0.1nm) Error on Line-strength index of Fe5406
real*4 e_Fe5709_1 (nr__4) ! (0.1nm) Error on Line-strength index of Fe5709
real*4 e_Fe5782_1 (nr__4) ! (0.1nm) Error on Line-strength index of Fe5782
real*4 e_NaD_1 (nr__4) ! (0.1nm) Error on Line-strength index of NaD
real*4 e_TiO1_1 (nr__4) ! (mag) Error on Line-strength index of TiO1
real*4 e_TiO2_1 (nr__4) ! (mag) Error on Line-strength index of TiO2
real*4 e_HdeltaA_1(nr__4) ! (0.1nm) Error on Line-strength index of HdeltaA
real*4 e_HgammaA_1(nr__4) ! (0.1nm) Error on Line-strength index of HgammaA
real*4 e_HdeltaF_1(nr__4) ! (0.1nm) Error on Line-strength index of HdeltaF
real*4 e_HgammaF_1(nr__4) ! (0.1nm) Error on Line-strength index of HgammaF
C=============================================================================
C Loading file 'table1.dat' ! Overview of the observed sample
C Format for file interpretation
1 format(
+ A7,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X,A11,1X,A7,1X,
+ I3,1X,F5.2,1X,F4.2,1X,F4.2,1X,I4,1X,F4.1,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,file='table1.dat', status='old')
write(6,*) '....Loading file: table1.dat'
do i__=1,18
read(1,'(A88)')ar__
read(ar__,1)
+ Galaxy(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),
+ DEm(i__),DEs(i__),MType1(i__),MType2(i__),PA(i__),B0mag(i__),
+ v_B_V_0(i__),v_U_B_0(i__),HV(i__),re(i__),rhoxyz(i__),eps(i__)
if(ar__(60:63) .EQ. '') v_B_V_0(i__) = rNULL__
if(ar__(65:68) .EQ. '') v_U_B_0(i__) = rNULL__
if(ar__(80:83) .EQ. '') rhoxyz(i__) = rNULL__
c Derive coordinates RA_ and Dec from input data
c (RA_ and Dec are set to rNULL_ when unknown)
RA_(i__) = RAh(i__)
if(RAh(i__) .GE. 0) RA_(i__)=RAh(i__)*15.
if(RAm(i__) .GE. 0) RA_(i__)=RA_(i__)+RAm(i__)/4.
if(RAs(i__) .GE. 0) RA_(i__)=RA_(i__)+RAs(i__)/240.
Dec(i__) = DEd(i__)
if(DEm(i__) .GE. 0) Dec(i__)=Dec(i__)+DEm(i__)/60.
if(DEs(i__) .GE. 0) Dec(i__)=Dec(i__)+DEs(i__)/3600.
if(DE_(i__).EQ.'-'.AND.Dec(i__).GE.0) Dec(i__)=-Dec(i__)
c ..............Just test output...........
write(6,1)
+ Galaxy(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),
+ DEm(i__),DEs(i__),MType1(i__),MType2(i__),PA(i__),B0mag(i__),
+ v_B_V_0(i__),v_U_B_0(i__),HV(i__),re(i__),rhoxyz(i__),eps(i__)
write(6,'(6H Pos: 2F8.4)') RA_(i__),Dec(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! H{beta} corrections for apertures
C Format for file interpretation
2 format(A7,1X,I1,2X,F7.3,4X,I1,1X,F7.3)
C Effective file loading
open(unit=1,file='table5.dat', status='old')
write(6,*) '....Loading file: table5.dat'
do i__=1,119
read(1,'(A31)')ar__1
read(ar__1,2)
+ Galaxy_1(i__),iz(i__),EWHb1(i__),Qual(i__),EWHb2(i__)
c ..............Just test output...........
write(6,2)
+ Galaxy_1(i__),iz(i__),EWHb1(i__),Qual(i__),EWHb2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! H{beta} corrections for gradients
C Format for file interpretation
3 format(A7,1X,I1,2X,F7.3,4X,I1,1X,F7.3)
C Effective file loading
open(unit=1,file='table6.dat', status='old')
write(6,*) '....Loading file: table6.dat'
do i__=1,65
read(1,'(A31)')ar__2
read(ar__2,3)
+ Galaxy_2(i__),iz_1(i__),EWHb1_1(i__),Qual_1(i__),EWHb2_1(i__)
c ..............Just test output...........
write(6,3)
+ Galaxy_2(i__),iz_1(i__),EWHb1_1(i__),Qual_1(i__),EWHb2_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! *Aperture fully corrected line-strength indices
C Format for file interpretation
4 format(
+ A7,1X,I1,1X,F5.3,1X,F5.3,1X,F5.3,1X,F4.1,3X,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,F7.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,F6.3,1X,F7.3,1X,F6.3,1X,F6.3,
+ 1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,
+ 1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3,1X,F5.3)
C Effective file loading
open(unit=1,file='table8.dat', status='old')
write(6,*) '....Loading file: table8.dat'
do i__=1,454
read(1,'(A361)')ar__3
read(ar__3,4)
+ Galaxy_3(i__),iz_2(i__),r1(i__),r2(i__),rwl(i__),req(i__),
+ CN1(i__),CN2(i__),Ca4227(i__),G4300(i__),Fe4383(i__),
+ Ca4455(i__),Fe4531(i__),Fe4668(i__),Hbeta(i__),Fe5015(i__),
+ Mg1(i__),Mg2(i__),Mgb(i__),Fe5270(i__),Fe5335(i__),
+ Fe5406(i__),Fe5709(i__),Fe5782(i__),NaD(i__),TiO1(i__),
+ TiO2(i__),HdeltaA(i__),HgammaA(i__),HdeltaF(i__),HgammaF(i__),
+ e_CN1(i__),e_CN2(i__),e_Ca4227(i__),e_G4300(i__),
+ e_Fe4383(i__),e_Ca4455(i__),e_Fe4531(i__),e_Fe4668(i__),
+ e_Hbeta(i__),e_Fe5015(i__),e_Mg1(i__),e_Mg2(i__),e_Mgb(i__),
+ e_Fe5270(i__),e_Fe5335(i__),e_Fe5406(i__),e_Fe5709(i__),
+ e_Fe5782(i__),e_NaD(i__),e_TiO1(i__),e_TiO2(i__),
+ e_HdeltaA(i__),e_HgammaA(i__),e_HdeltaF(i__),e_HgammaF(i__)
c ..............Just test output...........
write(6,4)
+ Galaxy_3(i__),iz_2(i__),r1(i__),r2(i__),rwl(i__),req(i__),
+ CN1(i__),CN2(i__),Ca4227(i__),G4300(i__),Fe4383(i__),
+ Ca4455(i__),Fe4531(i__),Fe4668(i__),Hbeta(i__),Fe5015(i__),
+ Mg1(i__),Mg2(i__),Mgb(i__),Fe5270(i__),Fe5335(i__),
+ Fe5406(i__),Fe5709(i__),Fe5782(i__),NaD(i__),TiO1(i__),
+ TiO2(i__),HdeltaA(i__),HgammaA(i__),HdeltaF(i__),HgammaF(i__),
+ e_CN1(i__),e_CN2(i__),e_Ca4227(i__),e_G4300(i__),
+ e_Fe4383(i__),e_Ca4455(i__),e_Fe4531(i__),e_Fe4668(i__),
+ e_Hbeta(i__),e_Fe5015(i__),e_Mg1(i__),e_Mg2(i__),e_Mgb(i__),
+ e_Fe5270(i__),e_Fe5335(i__),e_Fe5406(i__),e_Fe5709(i__),
+ e_Fe5782(i__),e_NaD(i__),e_TiO1(i__),e_TiO2(i__),
+ e_HdeltaA(i__),e_HgammaA(i__),e_HdeltaF(i__),e_HgammaF(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table9.dat' ! *Gradients fully corrected line-strength indices
C Format for file interpretation
5 format(
+ A7,1X,I1,1X,F5.3,1X,F5.3,1X,F5.3,1X,F4.1,3X,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,F7.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,F6.3,1X,F7.3,1X,F6.3,1X,F6.3,
+ 1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,
+ 1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3,1X,F5.3)
C Effective file loading
open(unit=1,file='table9.dat', status='old')
write(6,*) '....Loading file: table9.dat'
do i__=1,257
read(1,'(A361)')ar__4
read(ar__4,5)
+ Galaxy_4(i__),iz_3(i__),r1_1(i__),r2_1(i__),rwl_1(i__),
+ req_1(i__),CN1_1(i__),CN2_1(i__),Ca4227_1(i__),G4300_1(i__),
+ Fe4383_1(i__),Ca4455_1(i__),Fe4531_1(i__),Fe4668_1(i__),
+ Hbeta_1(i__),Fe5015_1(i__),Mg1_1(i__),Mg2_1(i__),Mgb_1(i__),
+ Fe5270_1(i__),Fe5335_1(i__),Fe5406_1(i__),Fe5709_1(i__),
+ Fe5782_1(i__),NaD_1(i__),TiO1_1(i__),TiO2_1(i__),
+ HdeltaA_1(i__),HgammaA_1(i__),HdeltaF_1(i__),HgammaF_1(i__),
+ e_CN1_1(i__),e_CN2_1(i__),e_Ca4227_1(i__),e_G4300_1(i__),
+ e_Fe4383_1(i__),e_Ca4455_1(i__),e_Fe4531_1(i__),
+ e_Fe4668_1(i__),e_Hbeta_1(i__),e_Fe5015_1(i__),e_Mg1_1(i__),
+ e_Mg2_1(i__),e_Mgb_1(i__),e_Fe5270_1(i__),e_Fe5335_1(i__),
+ e_Fe5406_1(i__),e_Fe5709_1(i__),e_Fe5782_1(i__),e_NaD_1(i__),
+ e_TiO1_1(i__),e_TiO2_1(i__),e_HdeltaA_1(i__),e_HgammaA_1(i__),
+ e_HdeltaF_1(i__),e_HgammaF_1(i__)
c ..............Just test output...........
write(6,5)
+ Galaxy_4(i__),iz_3(i__),r1_1(i__),r2_1(i__),rwl_1(i__),
+ req_1(i__),CN1_1(i__),CN2_1(i__),Ca4227_1(i__),G4300_1(i__),
+ Fe4383_1(i__),Ca4455_1(i__),Fe4531_1(i__),Fe4668_1(i__),
+ Hbeta_1(i__),Fe5015_1(i__),Mg1_1(i__),Mg2_1(i__),Mgb_1(i__),
+ Fe5270_1(i__),Fe5335_1(i__),Fe5406_1(i__),Fe5709_1(i__),
+ Fe5782_1(i__),NaD_1(i__),TiO1_1(i__),TiO2_1(i__),
+ HdeltaA_1(i__),HgammaA_1(i__),HdeltaF_1(i__),HgammaF_1(i__),
+ e_CN1_1(i__),e_CN2_1(i__),e_Ca4227_1(i__),e_G4300_1(i__),
+ e_Fe4383_1(i__),e_Ca4455_1(i__),e_Fe4531_1(i__),
+ e_Fe4668_1(i__),e_Hbeta_1(i__),e_Fe5015_1(i__),e_Mg1_1(i__),
+ e_Mg2_1(i__),e_Mgb_1(i__),e_Fe5270_1(i__),e_Fe5335_1(i__),
+ e_Fe5406_1(i__),e_Fe5709_1(i__),e_Fe5782_1(i__),e_NaD_1(i__),
+ e_TiO1_1(i__),e_TiO2_1(i__),e_HdeltaA_1(i__),e_HgammaA_1(i__),
+ e_HdeltaF_1(i__),e_HgammaF_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end