[cig-commits] r13275 - in seismo/3D/SPECFEM3D_GLOBE/branches: . pluggable pluggable/DATA pluggable/MODELS pluggable/MODELS/1066a pluggable/MODELS/ak135 pluggable/MODELS/crust2.0 pluggable/MODELS/iasp91 pluggable/MODELS/prem pluggable/MODELS/ref pluggable/MODELS/s20rts pluggable/MODELS/s362ani

leif at geodynamics.org leif at geodynamics.org
Fri Nov 7 16:24:08 PST 2008


Author: leif
Date: 2008-11-07 16:24:07 -0800 (Fri, 07 Nov 2008)
New Revision: 13275

Added:
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/1066a/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/1066a/build.mk
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/1066a/model_1066a.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ak135/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ak135/build.mk
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ak135/model_ak135.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/crust2.0/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/crust2.0/build.mk
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/crust2.0/crustal_model.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/iasp91/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/iasp91/build.mk
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/iasp91/model_iasp91.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/prem/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/prem/build.mk
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/prem/model_prem.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ref/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ref/build.mk
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ref/model_ref.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s20rts/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s20rts/build.mk
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s20rts/mantle_model.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/S362ANI
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/add_topography_410_650.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/build.mk
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/s362ani.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/prem_common.f90
Removed:
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/DATA/crust2.0/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/DATA/s20rts/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/DATA/s362ani/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/add_topography_410_650.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/crustal_model.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/mantle_model.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_1066a.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_ak135.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_iasp91.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_prem.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_ref.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/s362ani.f90
Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/Makefile.in
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/anisotropic_inner_core_model.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/attenuation_model.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/check_buffers_1D.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/check_buffers_2D.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/check_buffers_corners_chunks.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/check_buffers_faces_chunks.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/combine_AVS_DX.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/compute_element_properties.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/constants.h.in
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/create_header_file.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/create_movie_AVS_DX.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/create_movie_GMT_global.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/create_regions_mesh.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/get_model.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/meshfem3D.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/read_compute_parameters.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/specfem3D.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/write_AVS_DX_global_chunks_data.f90
Log:
Began the "pluggable earth models" project.  This is based upon the
v4.0.3 snapshot.

Factored-out the following into separate, plug-in modules: 3D models
S20RTS and S362ANI (and friends); 1D reference models PREM, IASP91,
1066A, AK135, and REF (i.e., all of them); and crustal model CRUST2.0.

Eliminated most references to REFERENCE_1D_MODEL, and some references
to THREE_D_MODEL.  (I anticipate that these variables will disappear
once the project is complete.)

XXX: This checkin breaks the serial utility programs by contaminating
them with MPI dependencies.


Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal)

Added: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/1066a/build.mk
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/1066a/build.mk	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/1066a/build.mk	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,7 @@
+
+reference_1d_model_OBJECTS = \
+	$O/model_1066a.o \
+	$(EMPTY_MACRO)
+
+$O/model_1066a.o: constants.h $S/MODELS/1066a/model_1066a.f90
+	${MPIFCCOMPILE_CHECK} -c -o $O/model_1066a.o ${FCFLAGS_f90} $S/MODELS/1066a/model_1066a.f90

Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/1066a/model_1066a.f90 (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/model_1066a.f90)
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/1066a/model_1066a.f90	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/1066a/model_1066a.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,1260 @@
+!=====================================================================
+!
+!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
+!          --------------------------------------------------
+!
+!          Main authors: Dimitri Komatitsch and Jeroen Tromp
+!    Seismological Laboratory, California Institute of Technology, USA
+!             and University of Pau / CNRS / INRIA, France
+! (c) California Institute of Technology and University of Pau / CNRS / INRIA
+!                            February 2008
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
+
+  module model_1066a_module
+
+! number of layers in DATA/1066a/1066a.dat
+  integer, parameter :: NR_1066A = 160
+
+! model_1066a_variables
+  type model_1066a_variables
+    sequence
+      double precision, dimension(NR_1066A) :: radius_1066a
+      double precision, dimension(NR_1066A) :: density_1066a
+      double precision, dimension(NR_1066A) :: vp_1066a
+      double precision, dimension(NR_1066A) :: vs_1066a
+      double precision, dimension(NR_1066A) :: Qkappa_1066a
+      double precision, dimension(NR_1066A) :: Qmu_1066a
+  end type model_1066a_variables
+
+  type (model_1066a_variables) M1066a_V
+! model_1066a_variables
+
+  end module
+
+!-------------------
+
+  subroutine get_reference_1d_model_radii(ROCEAN,RMIDDLE_CRUST,RMOHO, &
+     R80,R120,R220,R400,R600,R670,R771, &
+     RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC)
+
+  implicit none
+
+  include "constants.h"
+
+  double precision ROCEAN,RMIDDLE_CRUST,RMOHO, &
+       R80,R120,R220,R400,R600,R670,R771, &
+       RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC
+
+  ! values below corrected by Ying Zhou <yingz at gps.caltech.edu>
+
+  ! 1066A
+  RMOHO = 6360000.d0
+  R400 = 5950000.d0
+  R600 = 5781000.d0
+  R670 = 5700000.d0
+  RCMB = 3484300.d0
+  RICB = 1229480.d0
+
+  ! values for 1066A that are not discontinuities
+  RTOPDDOUBLEPRIME = 3631000.d0
+  R220 = 6161000.d0
+  R771 = 5611000.d0
+  ! RMIDDLE_CRUST used only for high resolution FFSW1C model, with 3 elements crust simulations
+  ! mid_crust = 10 km
+  RMIDDLE_CRUST = 6361000.d0
+  R80 = 6291000.d0
+
+  ! model 1066A has no oceans, therefore we use the radius of the Earth instead
+  ROCEAN = R_EARTH
+
+  RHO_TOP_OC = 9917.4500 / RHOAV
+  RHO_BOTTOM_OC = 12160.6500 / RHOAV
+
+  end subroutine get_reference_1d_model_radii
+
+!-------------------
+
+  subroutine reference_1d_model_adjust_time_step(DT)
+
+  double precision DT
+
+  DT = DT*0.20d0
+
+  end subroutine reference_1d_model_adjust_time_step
+
+!-------------------
+
+  subroutine reference_1d_model_aniso_inner_core_model_setup(x,vp,vp0,vs,vs0,rho,rho0)
+
+  double precision x,vp,vp0,vs,vs0,rho,rho0
+
+  stop 'anisotropic inner core not implemented for 1066a'
+
+  end subroutine reference_1d_model_aniso_inner_core_model_setup
+
+!-------------------
+
+  subroutine reference_1d_model_attenuation_model_setup(AM_V)
+
+  use model_1066a_module
+  implicit none
+
+  include "constants.h"
+
+! attenuation_model_variables
+  type attenuation_model_variables
+    sequence
+    double precision min_period, max_period
+    double precision                          :: QT_c_source        ! Source Frequency
+    double precision, dimension(:), pointer   :: Qtau_s             ! tau_sigma
+    double precision, dimension(:), pointer   :: QrDisc             ! Discontinutitues Defined
+    double precision, dimension(:), pointer   :: Qr                 ! Radius
+    integer, dimension(:), pointer            :: interval_Q                 ! Steps
+    double precision, dimension(:), pointer   :: Qmu                ! Shear Attenuation
+    double precision, dimension(:,:), pointer :: Qtau_e             ! tau_epsilon
+    double precision, dimension(:), pointer   :: Qomsb, Qomsb2      ! one_minus_sum_beta
+    double precision, dimension(:,:), pointer :: Qfc, Qfc2          ! factor_common
+    double precision, dimension(:), pointer   :: Qsf, Qsf2          ! scale_factor
+    integer, dimension(:), pointer            :: Qrmin              ! Max and Mins of idoubling
+    integer, dimension(:), pointer            :: Qrmax              ! Max and Mins of idoubling
+    integer                                   :: Qn                 ! Number of points
+  end type attenuation_model_variables
+
+  type (attenuation_model_variables) AM_V
+! attenuation_model_variables
+
+  AM_V%Qn = NR_1066A
+
+  allocate(AM_V%Qr(AM_V%Qn))
+  allocate(AM_V%Qmu(AM_V%Qn))
+  allocate(AM_V%interval_Q(AM_V%Qn))
+  allocate(AM_V%Qtau_e(N_SLS,AM_V%Qn))
+
+  AM_V%Qr(:)     = M1066a_V%radius_1066a(:)
+  AM_V%Qmu(:)    = M1066a_V%Qmu_1066a(:)
+
+  end subroutine reference_1d_model_attenuation_model_setup
+
+!-------------------
+
+  subroutine get_reference_1d_model(myrank,r_prem,rho,vpv,vph,vsv,vsh,eta_aniso, &
+       Qkappa,Qmu,idoubling,iregion_code,CRUSTAL,ONE_CRUST,TRANSVERSE_ISOTROPY, &
+       ISOTROPIC_3D_MANTLE)
+
+    implicit none
+
+    logical CRUSTAL,ONE_CRUST,TRANSVERSE_ISOTROPY,ISOTROPIC_3D_MANTLE
+    integer myrank,idoubling,iregion_code
+    double precision r_prem,rho,Qkappa,Qmu,vpv,vph,vsv,vsh,eta_aniso
+
+    double precision vp,vs
+
+    if(TRANSVERSE_ISOTROPY) then
+       stop 'reference Earth model 1066a is not transversely isotropic'
+    endif
+
+    call model_1066a(r_prem,rho,vp,vs,Qkappa,Qmu,iregion_code)
+
+    vpv = vp
+    vph = vp
+    vsv = vs
+    vsh = vs
+    eta_aniso = 1.d0
+
+  end subroutine get_reference_1d_model
+
+!-------------------
+
+  subroutine model_1066a(x,rho,vp,vs,Qkappa,Qmu,iregion_code)
+
+  use model_1066a_module
+  implicit none
+
+  include "constants.h"
+
+! input:
+! radius r: meters
+
+! output:
+! density rho: kg/m^3
+! compressional wave speed vp: km/s
+! shear wave speed vs: km/s
+
+  integer iregion_code
+
+  double precision x,rho,vp,vs,Qmu,Qkappa
+
+  integer i
+
+  double precision r,frac,scaleval
+
+! compute real physical radius in meters
+  r = x * R_EARTH
+
+  i = 1
+  do while(r >= M1066a_V%radius_1066a(i) .and. i /= NR_1066A)
+    i = i + 1
+  enddo
+
+! make sure we stay in the right region and never take a point above
+! and a point below the ICB or the CMB and interpolate between them,
+! which would lead to a wrong value (keeping in mind that we interpolate
+! between points i-1 and i below)
+  if(iregion_code == IREGION_INNER_CORE .and. i > 33) i = 33
+
+  if(iregion_code == IREGION_OUTER_CORE .and. i < 35) i = 35
+  if(iregion_code == IREGION_OUTER_CORE .and. i > 66) i = 66
+
+  if(iregion_code == IREGION_CRUST_MANTLE .and. i < 68) i = 68
+
+  if(i == 1) then
+    rho = M1066a_V%density_1066a(i)
+    vp = M1066a_V%vp_1066a(i)
+    vs = M1066a_V%vs_1066a(i)
+    Qmu = M1066a_V%Qmu_1066a(i)
+    Qkappa = M1066a_V%Qkappa_1066a(i)
+  else
+
+! interpolate from radius_1066a(i-1) to r using the values at i-1 and i
+    frac = (r-M1066a_V%radius_1066a(i-1))/(M1066a_V%radius_1066a(i)-M1066a_V%radius_1066a(i-1))
+
+    rho = M1066a_V%density_1066a(i-1) + frac * (M1066a_V%density_1066a(i)-M1066a_V%density_1066a(i-1))
+    vp = M1066a_V%vp_1066a(i-1) + frac * (M1066a_V%vp_1066a(i)-M1066a_V%vp_1066a(i-1))
+    vs = M1066a_V%vs_1066a(i-1) + frac * (M1066a_V%vs_1066a(i)-M1066a_V%vs_1066a(i-1))
+    Qmu = M1066a_V%Qmu_1066a(i-1) + frac * (M1066a_V%Qmu_1066a(i)-M1066a_V%Qmu_1066a(i-1))
+    Qkappa = M1066a_V%Qkappa_1066a(i-1) + frac * (M1066a_V%Qkappa_1066a(i)-M1066a_V%Qkappa_1066a(i-1))
+
+  endif
+
+! make sure Vs is zero in the outer core even if roundoff errors on depth
+! also set fictitious attenuation to a very high value (attenuation is not used in the fluid)
+  if(iregion_code == IREGION_OUTER_CORE) then
+    vs = 0.d0
+    Qkappa = 3000.d0
+    Qmu = 3000.d0
+  endif
+
+! non-dimensionalize
+! time scaling (s^{-1}) is done with scaleval
+  scaleval=dsqrt(PI*GRAV*RHOAV)
+  rho=rho*1000.0d0/RHOAV
+  vp=vp*1000.0d0/(R_EARTH*scaleval)
+  vs=vs*1000.0d0/(R_EARTH*scaleval)
+
+  end subroutine model_1066a
+
+!-------------------
+
+  subroutine define_reference_1d_model(USE_EXTERNAL_CRUSTAL_MODEL)
+
+  use model_1066a_module
+  implicit none
+  include "constants.h"
+
+  logical USE_EXTERNAL_CRUSTAL_MODEL
+
+  integer i
+
+! define all the values in the model
+
+  M1066a_V%radius_1066a(  1) =  0.000000000000000
+  M1066a_V%radius_1066a(  2) =   38400.0000000000
+  M1066a_V%radius_1066a(  3) =   76810.0000000000
+  M1066a_V%radius_1066a(  4) =   115210.000000000
+  M1066a_V%radius_1066a(  5) =   153610.000000000
+  M1066a_V%radius_1066a(  6) =   192020.000000000
+  M1066a_V%radius_1066a(  7) =   230420.000000000
+  M1066a_V%radius_1066a(  8) =   268820.000000000
+  M1066a_V%radius_1066a(  9) =   307220.000000000
+  M1066a_V%radius_1066a( 10) =   345630.000000000
+  M1066a_V%radius_1066a( 11) =   384030.000000000
+  M1066a_V%radius_1066a( 12) =   422430.000000000
+  M1066a_V%radius_1066a( 13) =   460840.000000000
+  M1066a_V%radius_1066a( 14) =   499240.000000000
+  M1066a_V%radius_1066a( 15) =   537640.000000000
+  M1066a_V%radius_1066a( 16) =   576050.000000000
+  M1066a_V%radius_1066a( 17) =   614450.000000000
+  M1066a_V%radius_1066a( 18) =   652850.000000000
+  M1066a_V%radius_1066a( 19) =   691260.000000000
+  M1066a_V%radius_1066a( 20) =   729660.000000000
+  M1066a_V%radius_1066a( 21) =   768060.000000000
+  M1066a_V%radius_1066a( 22) =   806460.000000000
+  M1066a_V%radius_1066a( 23) =   844870.000000000
+  M1066a_V%radius_1066a( 24) =   883270.000000000
+  M1066a_V%radius_1066a( 25) =   921670.000000000
+  M1066a_V%radius_1066a( 26) =   960080.000000000
+  M1066a_V%radius_1066a( 27) =   998480.000000000
+  M1066a_V%radius_1066a( 28) =   1036880.00000000
+  M1066a_V%radius_1066a( 29) =   1075290.00000000
+  M1066a_V%radius_1066a( 30) =   1113690.00000000
+  M1066a_V%radius_1066a( 31) =   1152090.00000000
+  M1066a_V%radius_1066a( 32) =   1190500.00000000
+  M1066a_V%radius_1066a( 33) =   1229480.00000000
+  M1066a_V%radius_1066a( 34) =   1229480.00000000
+  M1066a_V%radius_1066a( 35) =   1299360.00000000
+  M1066a_V%radius_1066a( 36) =   1369820.00000000
+  M1066a_V%radius_1066a( 37) =   1440280.00000000
+  M1066a_V%radius_1066a( 38) =   1510740.00000000
+  M1066a_V%radius_1066a( 39) =   1581190.00000000
+  M1066a_V%radius_1066a( 40) =   1651650.00000000
+  M1066a_V%radius_1066a( 41) =   1722110.00000000
+  M1066a_V%radius_1066a( 42) =   1792570.00000000
+  M1066a_V%radius_1066a( 43) =   1863030.00000000
+  M1066a_V%radius_1066a( 44) =   1933490.00000000
+  M1066a_V%radius_1066a( 45) =   2003950.00000000
+  M1066a_V%radius_1066a( 46) =   2074410.00000000
+  M1066a_V%radius_1066a( 47) =   2144870.00000000
+  M1066a_V%radius_1066a( 48) =   2215330.00000000
+  M1066a_V%radius_1066a( 49) =   2285790.00000000
+  M1066a_V%radius_1066a( 50) =   2356240.00000000
+  M1066a_V%radius_1066a( 51) =   2426700.00000000
+  M1066a_V%radius_1066a( 52) =   2497160.00000000
+  M1066a_V%radius_1066a( 53) =   2567620.00000000
+  M1066a_V%radius_1066a( 54) =   2638080.00000000
+  M1066a_V%radius_1066a( 55) =   2708540.00000000
+  M1066a_V%radius_1066a( 56) =   2779000.00000000
+  M1066a_V%radius_1066a( 57) =   2849460.00000000
+  M1066a_V%radius_1066a( 58) =   2919920.00000000
+  M1066a_V%radius_1066a( 59) =   2990380.00000000
+  M1066a_V%radius_1066a( 60) =   3060840.00000000
+  M1066a_V%radius_1066a( 61) =   3131300.00000000
+  M1066a_V%radius_1066a( 62) =   3201750.00000000
+  M1066a_V%radius_1066a( 63) =   3272210.00000000
+  M1066a_V%radius_1066a( 64) =   3342670.00000000
+  M1066a_V%radius_1066a( 65) =   3413130.00000000
+  M1066a_V%radius_1066a( 66) =   3484300.00000000
+  M1066a_V%radius_1066a( 67) =   3484300.00000000
+  M1066a_V%radius_1066a( 68) =   3518220.00000000
+  M1066a_V%radius_1066a( 69) =   3552850.00000000
+  M1066a_V%radius_1066a( 70) =   3587490.00000000
+  M1066a_V%radius_1066a( 71) =   3622120.00000000
+  M1066a_V%radius_1066a( 72) =   3656750.00000000
+  M1066a_V%radius_1066a( 73) =   3691380.00000000
+  M1066a_V%radius_1066a( 74) =   3726010.00000000
+  M1066a_V%radius_1066a( 75) =   3760640.00000000
+  M1066a_V%radius_1066a( 76) =   3795270.00000000
+  M1066a_V%radius_1066a( 77) =   3829910.00000000
+  M1066a_V%radius_1066a( 78) =   3864540.00000000
+  M1066a_V%radius_1066a( 79) =   3899170.00000000
+  M1066a_V%radius_1066a( 80) =   3933800.00000000
+  M1066a_V%radius_1066a( 81) =   3968430.00000000
+  M1066a_V%radius_1066a( 82) =   4003060.00000000
+  M1066a_V%radius_1066a( 83) =   4037690.00000000
+  M1066a_V%radius_1066a( 84) =   4072330.00000000
+  M1066a_V%radius_1066a( 85) =   4106960.00000000
+  M1066a_V%radius_1066a( 86) =   4141590.00000000
+  M1066a_V%radius_1066a( 87) =   4176220.00000000
+  M1066a_V%radius_1066a( 88) =   4210850.00000000
+  M1066a_V%radius_1066a( 89) =   4245480.00000000
+  M1066a_V%radius_1066a( 90) =   4280110.00000000
+  M1066a_V%radius_1066a( 91) =   4314740.00000000
+  M1066a_V%radius_1066a( 92) =   4349380.00000000
+  M1066a_V%radius_1066a( 93) =   4384010.00000000
+  M1066a_V%radius_1066a( 94) =   4418640.00000000
+  M1066a_V%radius_1066a( 95) =   4453270.00000000
+  M1066a_V%radius_1066a( 96) =   4487900.00000000
+  M1066a_V%radius_1066a( 97) =   4522530.00000000
+  M1066a_V%radius_1066a( 98) =   4557160.00000000
+  M1066a_V%radius_1066a( 99) =   4591800.00000000
+  M1066a_V%radius_1066a(100) =   4626430.00000000
+  M1066a_V%radius_1066a(101) =   4661060.00000000
+  M1066a_V%radius_1066a(102) =   4695690.00000000
+  M1066a_V%radius_1066a(103) =   4730320.00000000
+  M1066a_V%radius_1066a(104) =   4764950.00000000
+  M1066a_V%radius_1066a(105) =   4799580.00000000
+  M1066a_V%radius_1066a(106) =   4834220.00000000
+  M1066a_V%radius_1066a(107) =   4868850.00000000
+  M1066a_V%radius_1066a(108) =   4903480.00000000
+  M1066a_V%radius_1066a(109) =   4938110.00000000
+  M1066a_V%radius_1066a(110) =   4972740.00000000
+  M1066a_V%radius_1066a(111) =   5007370.00000000
+  M1066a_V%radius_1066a(112) =   5042000.00000000
+  M1066a_V%radius_1066a(113) =   5076640.00000000
+  M1066a_V%radius_1066a(114) =   5111270.00000000
+  M1066a_V%radius_1066a(115) =   5145900.00000000
+  M1066a_V%radius_1066a(116) =   5180530.00000000
+  M1066a_V%radius_1066a(117) =   5215160.00000000
+  M1066a_V%radius_1066a(118) =   5249790.00000000
+  M1066a_V%radius_1066a(119) =   5284420.00000000
+  M1066a_V%radius_1066a(120) =   5319060.00000000
+  M1066a_V%radius_1066a(121) =   5353690.00000000
+  M1066a_V%radius_1066a(122) =   5388320.00000000
+  M1066a_V%radius_1066a(123) =   5422950.00000000
+  M1066a_V%radius_1066a(124) =   5457580.00000000
+  M1066a_V%radius_1066a(125) =   5492210.00000000
+  M1066a_V%radius_1066a(126) =   5526840.00000000
+  M1066a_V%radius_1066a(127) =   5561470.00000000
+  M1066a_V%radius_1066a(128) =   5596110.00000000
+  M1066a_V%radius_1066a(129) =   5630740.00000000
+  M1066a_V%radius_1066a(130) =   5665370.00000000
+  M1066a_V%radius_1066a(131) =   5700000.00000000
+  M1066a_V%radius_1066a(132) =   5700000.00000000
+  M1066a_V%radius_1066a(133) =   5731250.00000000
+  M1066a_V%radius_1066a(134) =   5762500.00000000
+  M1066a_V%radius_1066a(135) =   5793750.00000000
+  M1066a_V%radius_1066a(136) =   5825000.00000000
+  M1066a_V%radius_1066a(137) =   5856250.00000000
+  M1066a_V%radius_1066a(138) =   5887500.00000000
+  M1066a_V%radius_1066a(139) =   5918750.00000000
+  M1066a_V%radius_1066a(140) =   5950000.00000000
+  M1066a_V%radius_1066a(141) =   5950000.00000000
+  M1066a_V%radius_1066a(142) =   5975630.00000000
+  M1066a_V%radius_1066a(143) =   6001250.00000000
+  M1066a_V%radius_1066a(144) =   6026880.00000000
+  M1066a_V%radius_1066a(145) =   6052500.00000000
+  M1066a_V%radius_1066a(146) =   6078130.00000000
+  M1066a_V%radius_1066a(147) =   6103750.00000000
+  M1066a_V%radius_1066a(148) =   6129380.00000000
+  M1066a_V%radius_1066a(149) =   6155000.00000000
+  M1066a_V%radius_1066a(150) =   6180630.00000000
+  M1066a_V%radius_1066a(151) =   6206250.00000000
+  M1066a_V%radius_1066a(152) =   6231880.00000000
+  M1066a_V%radius_1066a(153) =   6257500.00000000
+  M1066a_V%radius_1066a(154) =   6283130.00000000
+  M1066a_V%radius_1066a(155) =   6308750.00000000
+  M1066a_V%radius_1066a(156) =   6334380.00000000
+  M1066a_V%radius_1066a(157) =   6360000.00000000
+  M1066a_V%radius_1066a(158) =   6360000.00000000
+  M1066a_V%radius_1066a(159) =   6365500.00000000
+  M1066a_V%radius_1066a(160) =   6371000.00000000
+
+  M1066a_V%density_1066a(  1) =   13.4290300000000
+  M1066a_V%density_1066a(  2) =   13.4256300000000
+  M1066a_V%density_1066a(  3) =   13.4191300000000
+  M1066a_V%density_1066a(  4) =   13.4135300000000
+  M1066a_V%density_1066a(  5) =   13.4072300000000
+  M1066a_V%density_1066a(  6) =   13.4003200000000
+  M1066a_V%density_1066a(  7) =   13.3929200000000
+  M1066a_V%density_1066a(  8) =   13.3847100000000
+  M1066a_V%density_1066a(  9) =   13.3754000000000
+  M1066a_V%density_1066a( 10) =   13.3649000000000
+  M1066a_V%density_1066a( 11) =   13.3527900000000
+  M1066a_V%density_1066a( 12) =   13.3389800000000
+  M1066a_V%density_1066a( 13) =   13.3238700000000
+  M1066a_V%density_1066a( 14) =   13.3078500000000
+  M1066a_V%density_1066a( 15) =   13.2914400000000
+  M1066a_V%density_1066a( 16) =   13.2750300000000
+  M1066a_V%density_1066a( 17) =   13.2589100000000
+  M1066a_V%density_1066a( 18) =   13.2431000000000
+  M1066a_V%density_1066a( 19) =   13.2275800000000
+  M1066a_V%density_1066a( 20) =   13.2123600000000
+  M1066a_V%density_1066a( 21) =   13.1972500000000
+  M1066a_V%density_1066a( 22) =   13.1823300000000
+  M1066a_V%density_1066a( 23) =   13.1675100000000
+  M1066a_V%density_1066a( 24) =   13.1527800000000
+  M1066a_V%density_1066a( 25) =   13.1382600000000
+  M1066a_V%density_1066a( 26) =   13.1239400000000
+  M1066a_V%density_1066a( 27) =   13.1095200000000
+  M1066a_V%density_1066a( 28) =   13.0953900000000
+  M1066a_V%density_1066a( 29) =   13.0811600000000
+  M1066a_V%density_1066a( 30) =   13.0670400000000
+  M1066a_V%density_1066a( 31) =   13.0525100000000
+  M1066a_V%density_1066a( 32) =   13.0385800000000
+  M1066a_V%density_1066a( 33) =   13.0287500000000
+  M1066a_V%density_1066a( 34) =   12.1606500000000
+  M1066a_V%density_1066a( 35) =   12.1169900000000
+  M1066a_V%density_1066a( 36) =   12.0748300000000
+  M1066a_V%density_1066a( 37) =   12.0330700000000
+  M1066a_V%density_1066a( 38) =   11.9916000000000
+  M1066a_V%density_1066a( 39) =   11.9507300000000
+  M1066a_V%density_1066a( 40) =   11.9104600000000
+  M1066a_V%density_1066a( 41) =   11.8693800000000
+  M1066a_V%density_1066a( 42) =   11.8248100000000
+  M1066a_V%density_1066a( 43) =   11.7753200000000
+  M1066a_V%density_1066a( 44) =   11.7220400000000
+  M1066a_V%density_1066a( 45) =   11.6665500000000
+  M1066a_V%density_1066a( 46) =   11.6085600000000
+  M1066a_V%density_1066a( 47) =   11.5469600000000
+  M1066a_V%density_1066a( 48) =   11.4809600000000
+  M1066a_V%density_1066a( 49) =   11.4116600000000
+  M1066a_V%density_1066a( 50) =   11.3411600000000
+  M1066a_V%density_1066a( 51) =   11.2705500000000
+  M1066a_V%density_1066a( 52) =   11.1982400000000
+  M1066a_V%density_1066a( 53) =   11.1214200000000
+  M1066a_V%density_1066a( 54) =   11.0384100000000
+  M1066a_V%density_1066a( 55) =   10.9511900000000
+  M1066a_V%density_1066a( 56) =   10.8631600000000
+  M1066a_V%density_1066a( 57) =   10.7770300000000
+  M1066a_V%density_1066a( 58) =   10.6925000000000
+  M1066a_V%density_1066a( 59) =   10.6076700000000
+  M1066a_V%density_1066a( 60) =   10.5207300000000
+  M1066a_V%density_1066a( 61) =   10.4312000000000
+  M1066a_V%density_1066a( 62) =   10.3377500000000
+  M1066a_V%density_1066a( 63) =   10.2396100000000
+  M1066a_V%density_1066a( 64) =   10.1378600000000
+  M1066a_V%density_1066a( 65) =   10.0323000000000
+  M1066a_V%density_1066a( 66) =   9.91745000000000
+  M1066a_V%density_1066a( 67) =   5.53205000000000
+  M1066a_V%density_1066a( 68) =   5.52147000000000
+  M1066a_V%density_1066a( 69) =   5.50959000000000
+  M1066a_V%density_1066a( 70) =   5.49821000000000
+  M1066a_V%density_1066a( 71) =   5.48673000000000
+  M1066a_V%density_1066a( 72) =   5.47495000000000
+  M1066a_V%density_1066a( 73) =   5.46297000000000
+  M1066a_V%density_1066a( 74) =   5.45049000000000
+  M1066a_V%density_1066a( 75) =   5.43741000000000
+  M1066a_V%density_1066a( 76) =   5.42382000000000
+  M1066a_V%density_1066a( 77) =   5.40934000000000
+  M1066a_V%density_1066a( 78) =   5.39375000000000
+  M1066a_V%density_1066a( 79) =   5.37717000000000
+  M1066a_V%density_1066a( 80) =   5.35958000000000
+  M1066a_V%density_1066a( 81) =   5.34079000000000
+  M1066a_V%density_1066a( 82) =   5.32100000000000
+  M1066a_V%density_1066a( 83) =   5.30031000000000
+  M1066a_V%density_1066a( 84) =   5.27902000000000
+  M1066a_V%density_1066a( 85) =   5.25733000000000
+  M1066a_V%density_1066a( 86) =   5.23554000000000
+  M1066a_V%density_1066a( 87) =   5.21375000000000
+  M1066a_V%density_1066a( 88) =   5.19196000000000
+  M1066a_V%density_1066a( 89) =   5.17056000000000
+  M1066a_V%density_1066a( 90) =   5.14937000000000
+  M1066a_V%density_1066a( 91) =   5.12827000000000
+  M1066a_V%density_1066a( 92) =   5.10758000000000
+  M1066a_V%density_1066a( 93) =   5.08728000000000
+  M1066a_V%density_1066a( 94) =   5.06738000000000
+  M1066a_V%density_1066a( 95) =   5.04769000000000
+  M1066a_V%density_1066a( 96) =   5.02809000000000
+  M1066a_V%density_1066a( 97) =   5.00869000000000
+  M1066a_V%density_1066a( 98) =   4.98929000000000
+  M1066a_V%density_1066a( 99) =   4.96968000000000
+  M1066a_V%density_1066a(100) =   4.95008000000000
+  M1066a_V%density_1066a(101) =   4.93048000000000
+  M1066a_V%density_1066a(102) =   4.91128000000000
+  M1066a_V%density_1066a(103) =   4.89257000000000
+  M1066a_V%density_1066a(104) =   4.87447000000000
+  M1066a_V%density_1066a(105) =   4.85716000000000
+  M1066a_V%density_1066a(106) =   4.84095000000000
+  M1066a_V%density_1066a(107) =   4.82554000000000
+  M1066a_V%density_1066a(108) =   4.81084000000000
+  M1066a_V%density_1066a(109) =   4.79683000000000
+  M1066a_V%density_1066a(110) =   4.78312000000000
+  M1066a_V%density_1066a(111) =   4.76951000000000
+  M1066a_V%density_1066a(112) =   4.75530000000000
+  M1066a_V%density_1066a(113) =   4.74008000000000
+  M1066a_V%density_1066a(114) =   4.72317000000000
+  M1066a_V%density_1066a(115) =   4.70426000000000
+  M1066a_V%density_1066a(116) =   4.68264000000000
+  M1066a_V%density_1066a(117) =   4.65863000000000
+  M1066a_V%density_1066a(118) =   4.63351000000000
+  M1066a_V%density_1066a(119) =   4.60859000000000
+  M1066a_V%density_1066a(120) =   4.58538000000000
+  M1066a_V%density_1066a(121) =   4.56536000000000
+  M1066a_V%density_1066a(122) =   4.55044000000000
+  M1066a_V%density_1066a(123) =   4.54072000000000
+  M1066a_V%density_1066a(124) =   4.53480000000000
+  M1066a_V%density_1066a(125) =   4.53478000000000
+  M1066a_V%density_1066a(126) =   4.53275000000000
+  M1066a_V%density_1066a(127) =   4.50893000000000
+  M1066a_V%density_1066a(128) =   4.46541000000000
+  M1066a_V%density_1066a(129) =   4.40098000000000
+  M1066a_V%density_1066a(130) =   4.31686000000000
+  M1066a_V%density_1066a(131) =   4.20553000000000
+  M1066a_V%density_1066a(132) =   4.20553000000000
+  M1066a_V%density_1066a(133) =   4.10272000000000
+  M1066a_V%density_1066a(134) =   4.02250000000000
+  M1066a_V%density_1066a(135) =   3.95789000000000
+  M1066a_V%density_1066a(136) =   3.89997000000000
+  M1066a_V%density_1066a(137) =   3.84675000000000
+  M1066a_V%density_1066a(138) =   3.80144000000000
+  M1066a_V%density_1066a(139) =   3.76072000000000
+  M1066a_V%density_1066a(140) =   3.70840000000000
+  M1066a_V%density_1066a(141) =   3.70840000000000
+  M1066a_V%density_1066a(142) =   3.65370000000000
+  M1066a_V%density_1066a(143) =   3.59640000000000
+  M1066a_V%density_1066a(144) =   3.54731000000000
+  M1066a_V%density_1066a(145) =   3.50511000000000
+  M1066a_V%density_1066a(146) =   3.46861000000000
+  M1066a_V%density_1066a(147) =   3.43851000000000
+  M1066a_V%density_1066a(148) =   3.41471000000000
+  M1066a_V%density_1066a(149) =   3.39751000000000
+  M1066a_V%density_1066a(150) =   3.38820000000000
+  M1066a_V%density_1066a(151) =   3.38200000000000
+  M1066a_V%density_1066a(152) =   3.37450000000000
+  M1066a_V%density_1066a(153) =   3.36710000000000
+  M1066a_V%density_1066a(154) =   3.35980000000000
+  M1066a_V%density_1066a(155) =   3.35259000000000
+  M1066a_V%density_1066a(156) =   3.34549000000000
+  M1066a_V%density_1066a(157) =   3.33828000000000
+  M1066a_V%density_1066a(158) =   2.17798000000000
+  M1066a_V%density_1066a(159) =   2.17766000000000
+  M1066a_V%density_1066a(160) =   2.17734000000000
+
+  M1066a_V%vp_1066a(  1) =   11.3383000000000
+  M1066a_V%vp_1066a(  2) =   11.3374000000000
+  M1066a_V%vp_1066a(  3) =   11.3347000000000
+  M1066a_V%vp_1066a(  4) =   11.3301000000000
+  M1066a_V%vp_1066a(  5) =   11.3237000000000
+  M1066a_V%vp_1066a(  6) =   11.3155000000000
+  M1066a_V%vp_1066a(  7) =   11.3056000000000
+  M1066a_V%vp_1066a(  8) =   11.2940000000000
+  M1066a_V%vp_1066a(  9) =   11.2810000000000
+  M1066a_V%vp_1066a( 10) =   11.2666000000000
+  M1066a_V%vp_1066a( 11) =   11.2512000000000
+  M1066a_V%vp_1066a( 12) =   11.2349000000000
+  M1066a_V%vp_1066a( 13) =   11.2181000000000
+  M1066a_V%vp_1066a( 14) =   11.2010000000000
+  M1066a_V%vp_1066a( 15) =   11.1840000000000
+  M1066a_V%vp_1066a( 16) =   11.1672000000000
+  M1066a_V%vp_1066a( 17) =   11.1508000000000
+  M1066a_V%vp_1066a( 18) =   11.1351000000000
+  M1066a_V%vp_1066a( 19) =   11.1201000000000
+  M1066a_V%vp_1066a( 20) =   11.1059000000000
+  M1066a_V%vp_1066a( 21) =   11.0924000000000
+  M1066a_V%vp_1066a( 22) =   11.0798000000000
+  M1066a_V%vp_1066a( 23) =   11.0678000000000
+  M1066a_V%vp_1066a( 24) =   11.0564000000000
+  M1066a_V%vp_1066a( 25) =   11.0455000000000
+  M1066a_V%vp_1066a( 26) =   11.0350000000000
+  M1066a_V%vp_1066a( 27) =   11.0248000000000
+  M1066a_V%vp_1066a( 28) =   11.0149000000000
+  M1066a_V%vp_1066a( 29) =   11.0051000000000
+  M1066a_V%vp_1066a( 30) =   10.9953000000000
+  M1066a_V%vp_1066a( 31) =   10.9857000000000
+  M1066a_V%vp_1066a( 32) =   10.9756000000000
+  M1066a_V%vp_1066a( 33) =   10.9687000000000
+  M1066a_V%vp_1066a( 34) =   10.4140000000000
+  M1066a_V%vp_1066a( 35) =   10.3518000000000
+  M1066a_V%vp_1066a( 36) =   10.2922000000000
+  M1066a_V%vp_1066a( 37) =   10.2351000000000
+  M1066a_V%vp_1066a( 38) =   10.1808000000000
+  M1066a_V%vp_1066a( 39) =   10.1297000000000
+  M1066a_V%vp_1066a( 40) =   10.0788000000000
+  M1066a_V%vp_1066a( 41) =   10.0284000000000
+  M1066a_V%vp_1066a( 42) =   9.97880000000000
+  M1066a_V%vp_1066a( 43) =   9.93070000000000
+  M1066a_V%vp_1066a( 44) =   9.88360000000000
+  M1066a_V%vp_1066a( 45) =   9.83530000000000
+  M1066a_V%vp_1066a( 46) =   9.78250000000000
+  M1066a_V%vp_1066a( 47) =   9.72110000000000
+  M1066a_V%vp_1066a( 48) =   9.65210000000000
+  M1066a_V%vp_1066a( 49) =   9.58060000000000
+  M1066a_V%vp_1066a( 50) =   9.51150000000000
+  M1066a_V%vp_1066a( 51) =   9.44650000000000
+  M1066a_V%vp_1066a( 52) =   9.38280000000000
+  M1066a_V%vp_1066a( 53) =   9.31660000000000
+  M1066a_V%vp_1066a( 54) =   9.24420000000000
+  M1066a_V%vp_1066a( 55) =   9.16580000000000
+  M1066a_V%vp_1066a( 56) =   9.08330000000000
+  M1066a_V%vp_1066a( 57) =   8.99870000000000
+  M1066a_V%vp_1066a( 58) =   8.91160000000000
+  M1066a_V%vp_1066a( 59) =   8.82010000000000
+  M1066a_V%vp_1066a( 60) =   8.72230000000000
+  M1066a_V%vp_1066a( 61) =   8.61710000000000
+  M1066a_V%vp_1066a( 62) =   8.50300000000000
+  M1066a_V%vp_1066a( 63) =   8.38070000000000
+  M1066a_V%vp_1066a( 64) =   8.25560000000000
+  M1066a_V%vp_1066a( 65) =   8.13180000000000
+  M1066a_V%vp_1066a( 66) =   8.01120000000000
+  M1066a_V%vp_1066a( 67) =   13.7172000000000
+  M1066a_V%vp_1066a( 68) =   13.7134000000000
+  M1066a_V%vp_1066a( 69) =   13.7089000000000
+  M1066a_V%vp_1066a( 70) =   13.6806000000000
+  M1066a_V%vp_1066a( 71) =   13.6517000000000
+  M1066a_V%vp_1066a( 72) =   13.6251000000000
+  M1066a_V%vp_1066a( 73) =   13.5916000000000
+  M1066a_V%vp_1066a( 74) =   13.5564000000000
+  M1066a_V%vp_1066a( 75) =   13.5165000000000
+  M1066a_V%vp_1066a( 76) =   13.4725000000000
+  M1066a_V%vp_1066a( 77) =   13.4248000000000
+  M1066a_V%vp_1066a( 78) =   13.3742000000000
+  M1066a_V%vp_1066a( 79) =   13.3216000000000
+  M1066a_V%vp_1066a( 80) =   13.2679000000000
+  M1066a_V%vp_1066a( 81) =   13.2142000000000
+  M1066a_V%vp_1066a( 82) =   13.1619000000000
+  M1066a_V%vp_1066a( 83) =   13.1114000000000
+  M1066a_V%vp_1066a( 84) =   13.0631000000000
+  M1066a_V%vp_1066a( 85) =   13.0174000000000
+  M1066a_V%vp_1066a( 86) =   12.9745000000000
+  M1066a_V%vp_1066a( 87) =   12.9346000000000
+  M1066a_V%vp_1066a( 88) =   12.8977000000000
+  M1066a_V%vp_1066a( 89) =   12.8635000000000
+  M1066a_V%vp_1066a( 90) =   12.8318000000000
+  M1066a_V%vp_1066a( 91) =   12.8022000000000
+  M1066a_V%vp_1066a( 92) =   12.7739000000000
+  M1066a_V%vp_1066a( 93) =   12.7463000000000
+  M1066a_V%vp_1066a( 94) =   12.7186000000000
+  M1066a_V%vp_1066a( 95) =   12.6903000000000
+  M1066a_V%vp_1066a( 96) =   12.6610000000000
+  M1066a_V%vp_1066a( 97) =   12.6302000000000
+  M1066a_V%vp_1066a( 98) =   12.5978000000000
+  M1066a_V%vp_1066a( 99) =   12.5637000000000
+  M1066a_V%vp_1066a(100) =   12.5276000000000
+  M1066a_V%vp_1066a(101) =   12.4893000000000
+  M1066a_V%vp_1066a(102) =   12.4485000000000
+  M1066a_V%vp_1066a(103) =   12.4052000000000
+  M1066a_V%vp_1066a(104) =   12.3592000000000
+  M1066a_V%vp_1066a(105) =   12.3105000000000
+  M1066a_V%vp_1066a(106) =   12.2596000000000
+  M1066a_V%vp_1066a(107) =   12.2072000000000
+  M1066a_V%vp_1066a(108) =   12.1538000000000
+  M1066a_V%vp_1066a(109) =   12.0998000000000
+  M1066a_V%vp_1066a(110) =   12.0458000000000
+  M1066a_V%vp_1066a(111) =   11.9920000000000
+  M1066a_V%vp_1066a(112) =   11.9373000000000
+  M1066a_V%vp_1066a(113) =   11.8804000000000
+  M1066a_V%vp_1066a(114) =   11.8200000000000
+  M1066a_V%vp_1066a(115) =   11.7554000000000
+  M1066a_V%vp_1066a(116) =   11.6844000000000
+  M1066a_V%vp_1066a(117) =   11.6079000000000
+  M1066a_V%vp_1066a(118) =   11.5308000000000
+  M1066a_V%vp_1066a(119) =   11.4579000000000
+  M1066a_V%vp_1066a(120) =   11.3935000000000
+  M1066a_V%vp_1066a(121) =   11.3418000000000
+  M1066a_V%vp_1066a(122) =   11.3085000000000
+  M1066a_V%vp_1066a(123) =   11.2938000000000
+  M1066a_V%vp_1066a(124) =   11.2915000000000
+  M1066a_V%vp_1066a(125) =   11.3049000000000
+  M1066a_V%vp_1066a(126) =   11.3123000000000
+  M1066a_V%vp_1066a(127) =   11.2643000000000
+  M1066a_V%vp_1066a(128) =   11.1635000000000
+  M1066a_V%vp_1066a(129) =   11.0063000000000
+  M1066a_V%vp_1066a(130) =   10.7959000000000
+  M1066a_V%vp_1066a(131) =   10.5143000000000
+  M1066a_V%vp_1066a(132) =   10.5143000000000
+  M1066a_V%vp_1066a(133) =   10.2513000000000
+  M1066a_V%vp_1066a(134) =   10.0402000000000
+  M1066a_V%vp_1066a(135) =   9.86480000000000
+  M1066a_V%vp_1066a(136) =   9.70860000000000
+  M1066a_V%vp_1066a(137) =   9.56810000000000
+  M1066a_V%vp_1066a(138) =   9.45120000000000
+  M1066a_V%vp_1066a(139) =   9.35100000000000
+  M1066a_V%vp_1066a(140) =   9.22830000000000
+  M1066a_V%vp_1066a(141) =   9.22830000000000
+  M1066a_V%vp_1066a(142) =   9.10870000000000
+  M1066a_V%vp_1066a(143) =   8.98230000000000
+  M1066a_V%vp_1066a(144) =   8.85920000000000
+  M1066a_V%vp_1066a(145) =   8.73860000000000
+  M1066a_V%vp_1066a(146) =   8.61930000000000
+  M1066a_V%vp_1066a(147) =   8.50180000000000
+  M1066a_V%vp_1066a(148) =   8.38710000000000
+  M1066a_V%vp_1066a(149) =   8.27360000000000
+  M1066a_V%vp_1066a(150) =   8.15850000000000
+  M1066a_V%vp_1066a(151) =   8.05400000000000
+  M1066a_V%vp_1066a(152) =   7.96520000000000
+  M1066a_V%vp_1066a(153) =   7.87340000000000
+  M1066a_V%vp_1066a(154) =   7.79720000000000
+  M1066a_V%vp_1066a(155) =   7.73910000000000
+  M1066a_V%vp_1066a(156) =   7.71340000000000
+  M1066a_V%vp_1066a(157) =   7.70460000000000
+  M1066a_V%vp_1066a(158) =   4.70220000000000
+  M1066a_V%vp_1066a(159) =   4.70010000000000
+  M1066a_V%vp_1066a(160) =   4.69790000000000
+
+  M1066a_V%vs_1066a(  1) =   3.62980000000000
+  M1066a_V%vs_1066a(  2) =   3.62970000000000
+  M1066a_V%vs_1066a(  3) =   3.62940000000000
+  M1066a_V%vs_1066a(  4) =   3.62880000000000
+  M1066a_V%vs_1066a(  5) =   3.62810000000000
+  M1066a_V%vs_1066a(  6) =   3.62710000000000
+  M1066a_V%vs_1066a(  7) =   3.62590000000000
+  M1066a_V%vs_1066a(  8) =   3.62440000000000
+  M1066a_V%vs_1066a(  9) =   3.62280000000000
+  M1066a_V%vs_1066a( 10) =   3.62090000000000
+  M1066a_V%vs_1066a( 11) =   3.61870000000000
+  M1066a_V%vs_1066a( 12) =   3.61630000000000
+  M1066a_V%vs_1066a( 13) =   3.61370000000000
+  M1066a_V%vs_1066a( 14) =   3.61080000000000
+  M1066a_V%vs_1066a( 15) =   3.60760000000000
+  M1066a_V%vs_1066a( 16) =   3.60420000000000
+  M1066a_V%vs_1066a( 17) =   3.60040000000000
+  M1066a_V%vs_1066a( 18) =   3.59650000000000
+  M1066a_V%vs_1066a( 19) =   3.59220000000000
+  M1066a_V%vs_1066a( 20) =   3.58760000000000
+  M1066a_V%vs_1066a( 21) =   3.58280000000000
+  M1066a_V%vs_1066a( 22) =   3.57770000000000
+  M1066a_V%vs_1066a( 23) =   3.57240000000000
+  M1066a_V%vs_1066a( 24) =   3.56680000000000
+  M1066a_V%vs_1066a( 25) =   3.56100000000000
+  M1066a_V%vs_1066a( 26) =   3.55510000000000
+  M1066a_V%vs_1066a( 27) =   3.54900000000000
+  M1066a_V%vs_1066a( 28) =   3.54280000000000
+  M1066a_V%vs_1066a( 29) =   3.53650000000000
+  M1066a_V%vs_1066a( 30) =   3.53010000000000
+  M1066a_V%vs_1066a( 31) =   3.52380000000000
+  M1066a_V%vs_1066a( 32) =   3.51720000000000
+  M1066a_V%vs_1066a( 33) =   3.51180000000000
+  M1066a_V%vs_1066a( 34) =  0.000000000000000
+  M1066a_V%vs_1066a( 35) =  0.000000000000000
+  M1066a_V%vs_1066a( 36) =  0.000000000000000
+  M1066a_V%vs_1066a( 37) =  0.000000000000000
+  M1066a_V%vs_1066a( 38) =  0.000000000000000
+  M1066a_V%vs_1066a( 39) =  0.000000000000000
+  M1066a_V%vs_1066a( 40) =  0.000000000000000
+  M1066a_V%vs_1066a( 41) =  0.000000000000000
+  M1066a_V%vs_1066a( 42) =  0.000000000000000
+  M1066a_V%vs_1066a( 43) =  0.000000000000000
+  M1066a_V%vs_1066a( 44) =  0.000000000000000
+  M1066a_V%vs_1066a( 45) =  0.000000000000000
+  M1066a_V%vs_1066a( 46) =  0.000000000000000
+  M1066a_V%vs_1066a( 47) =  0.000000000000000
+  M1066a_V%vs_1066a( 48) =  0.000000000000000
+  M1066a_V%vs_1066a( 49) =  0.000000000000000
+  M1066a_V%vs_1066a( 50) =  0.000000000000000
+  M1066a_V%vs_1066a( 51) =  0.000000000000000
+  M1066a_V%vs_1066a( 52) =  0.000000000000000
+  M1066a_V%vs_1066a( 53) =  0.000000000000000
+  M1066a_V%vs_1066a( 54) =  0.000000000000000
+  M1066a_V%vs_1066a( 55) =  0.000000000000000
+  M1066a_V%vs_1066a( 56) =  0.000000000000000
+  M1066a_V%vs_1066a( 57) =  0.000000000000000
+  M1066a_V%vs_1066a( 58) =  0.000000000000000
+  M1066a_V%vs_1066a( 59) =  0.000000000000000
+  M1066a_V%vs_1066a( 60) =  0.000000000000000
+  M1066a_V%vs_1066a( 61) =  0.000000000000000
+  M1066a_V%vs_1066a( 62) =  0.000000000000000
+  M1066a_V%vs_1066a( 63) =  0.000000000000000
+  M1066a_V%vs_1066a( 64) =  0.000000000000000
+  M1066a_V%vs_1066a( 65) =  0.000000000000000
+  M1066a_V%vs_1066a( 66) =  0.000000000000000
+  M1066a_V%vs_1066a( 67) =   7.24980000000000
+  M1066a_V%vs_1066a( 68) =   7.23760000000000
+  M1066a_V%vs_1066a( 69) =   7.22390000000000
+  M1066a_V%vs_1066a( 70) =   7.21000000000000
+  M1066a_V%vs_1066a( 71) =   7.19640000000000
+  M1066a_V%vs_1066a( 72) =   7.18300000000000
+  M1066a_V%vs_1066a( 73) =   7.16990000000000
+  M1066a_V%vs_1066a( 74) =   7.15710000000000
+  M1066a_V%vs_1066a( 75) =   7.14450000000000
+  M1066a_V%vs_1066a( 76) =   7.13200000000000
+  M1066a_V%vs_1066a( 77) =   7.11960000000000
+  M1066a_V%vs_1066a( 78) =   7.10740000000000
+  M1066a_V%vs_1066a( 79) =   7.09530000000000
+  M1066a_V%vs_1066a( 80) =   7.08320000000000
+  M1066a_V%vs_1066a( 81) =   7.07120000000000
+  M1066a_V%vs_1066a( 82) =   7.05920000000000
+  M1066a_V%vs_1066a( 83) =   7.04710000000000
+  M1066a_V%vs_1066a( 84) =   7.03470000000000
+  M1066a_V%vs_1066a( 85) =   7.02190000000000
+  M1066a_V%vs_1066a( 86) =   7.00860000000000
+  M1066a_V%vs_1066a( 87) =   6.99470000000000
+  M1066a_V%vs_1066a( 88) =   6.98030000000000
+  M1066a_V%vs_1066a( 89) =   6.96510000000000
+  M1066a_V%vs_1066a( 90) =   6.94930000000000
+  M1066a_V%vs_1066a( 91) =   6.93290000000000
+  M1066a_V%vs_1066a( 92) =   6.91620000000000
+  M1066a_V%vs_1066a( 93) =   6.89910000000000
+  M1066a_V%vs_1066a( 94) =   6.88200000000000
+  M1066a_V%vs_1066a( 95) =   6.86520000000000
+  M1066a_V%vs_1066a( 96) =   6.84900000000000
+  M1066a_V%vs_1066a( 97) =   6.83340000000000
+  M1066a_V%vs_1066a( 98) =   6.81820000000000
+  M1066a_V%vs_1066a( 99) =   6.80360000000000
+  M1066a_V%vs_1066a(100) =   6.78910000000000
+  M1066a_V%vs_1066a(101) =   6.77440000000000
+  M1066a_V%vs_1066a(102) =   6.75890000000000
+  M1066a_V%vs_1066a(103) =   6.74270000000000
+  M1066a_V%vs_1066a(104) =   6.72550000000000
+  M1066a_V%vs_1066a(105) =   6.70730000000000
+  M1066a_V%vs_1066a(106) =   6.68810000000000
+  M1066a_V%vs_1066a(107) =   6.66840000000000
+  M1066a_V%vs_1066a(108) =   6.64850000000000
+  M1066a_V%vs_1066a(109) =   6.62880000000000
+  M1066a_V%vs_1066a(110) =   6.60950000000000
+  M1066a_V%vs_1066a(111) =   6.59110000000000
+  M1066a_V%vs_1066a(112) =   6.57310000000000
+  M1066a_V%vs_1066a(113) =   6.55480000000000
+  M1066a_V%vs_1066a(114) =   6.53510000000000
+  M1066a_V%vs_1066a(115) =   6.51330000000000
+  M1066a_V%vs_1066a(116) =   6.48810000000000
+  M1066a_V%vs_1066a(117) =   6.45940000000000
+  M1066a_V%vs_1066a(118) =   6.42860000000000
+  M1066a_V%vs_1066a(119) =   6.39760000000000
+  M1066a_V%vs_1066a(120) =   6.36840000000000
+  M1066a_V%vs_1066a(121) =   6.34280000000000
+  M1066a_V%vs_1066a(122) =   6.32350000000000
+  M1066a_V%vs_1066a(123) =   6.31140000000000
+  M1066a_V%vs_1066a(124) =   6.30410000000000
+  M1066a_V%vs_1066a(125) =   6.30520000000000
+  M1066a_V%vs_1066a(126) =   6.30210000000000
+  M1066a_V%vs_1066a(127) =   6.26430000000000
+  M1066a_V%vs_1066a(128) =   6.19470000000000
+  M1066a_V%vs_1066a(129) =   6.09120000000000
+  M1066a_V%vs_1066a(130) =   5.95550000000000
+  M1066a_V%vs_1066a(131) =   5.77550000000000
+  M1066a_V%vs_1066a(132) =   5.77550000000000
+  M1066a_V%vs_1066a(133) =   5.60830000000000
+  M1066a_V%vs_1066a(134) =   5.47520000000000
+  M1066a_V%vs_1066a(135) =   5.36530000000000
+  M1066a_V%vs_1066a(136) =   5.26650000000000
+  M1066a_V%vs_1066a(137) =   5.17620000000000
+  M1066a_V%vs_1066a(138) =   5.09960000000000
+  M1066a_V%vs_1066a(139) =   5.03220000000000
+  M1066a_V%vs_1066a(140) =   4.94880000000000
+  M1066a_V%vs_1066a(141) =   4.94880000000000
+  M1066a_V%vs_1066a(142) =   4.86670000000000
+  M1066a_V%vs_1066a(143) =   4.78060000000000
+  M1066a_V%vs_1066a(144) =   4.69950000000000
+  M1066a_V%vs_1066a(145) =   4.62110000000000
+  M1066a_V%vs_1066a(146) =   4.54790000000000
+  M1066a_V%vs_1066a(147) =   4.48820000000000
+  M1066a_V%vs_1066a(148) =   4.44210000000000
+  M1066a_V%vs_1066a(149) =   4.40840000000000
+  M1066a_V%vs_1066a(150) =   4.38740000000000
+  M1066a_V%vs_1066a(151) =   4.37950000000000
+  M1066a_V%vs_1066a(152) =   4.39040000000000
+  M1066a_V%vs_1066a(153) =   4.43310000000000
+  M1066a_V%vs_1066a(154) =   4.48300000000000
+  M1066a_V%vs_1066a(155) =   4.53890000000000
+  M1066a_V%vs_1066a(156) =   4.60400000000000
+  M1066a_V%vs_1066a(157) =   4.64870000000000
+  M1066a_V%vs_1066a(158) =   2.58060000000000
+  M1066a_V%vs_1066a(159) =   2.58140000000000
+  M1066a_V%vs_1066a(160) =   2.58220000000000
+
+  if (SUPPRESS_CRUSTAL_MESH) then
+    M1066a_V%vp_1066a(158:160) = M1066a_V%vp_1066a(157)
+    M1066a_V%vs_1066a(158:160) = M1066a_V%vs_1066a(157)
+    M1066a_V%density_1066a(158:160) = M1066a_V%density_1066a(157)
+  endif
+
+  M1066a_V%Qkappa_1066a(  1) =   156900.000000000
+  M1066a_V%Qkappa_1066a(  2) =   156900.000000000
+  M1066a_V%Qkappa_1066a(  3) =   156900.000000000
+  M1066a_V%Qkappa_1066a(  4) =   156900.000000000
+  M1066a_V%Qkappa_1066a(  5) =   156900.000000000
+  M1066a_V%Qkappa_1066a(  6) =   156900.000000000
+  M1066a_V%Qkappa_1066a(  7) =   156900.000000000
+  M1066a_V%Qkappa_1066a(  8) =   156900.000000000
+  M1066a_V%Qkappa_1066a(  9) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 10) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 11) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 12) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 13) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 14) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 15) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 16) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 17) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 18) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 19) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 20) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 21) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 22) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 23) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 24) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 25) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 26) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 27) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 28) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 29) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 30) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 31) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 32) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 33) =   156900.000000000
+  M1066a_V%Qkappa_1066a( 34) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 35) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 36) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 37) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 38) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 39) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 40) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 41) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 42) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 43) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 44) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 45) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 46) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 47) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 48) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 49) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 50) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 51) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 52) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 53) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 54) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 55) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 56) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 57) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 58) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 59) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 60) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 61) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 62) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 63) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 64) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 65) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 66) =  0.000000000000000
+  M1066a_V%Qkappa_1066a( 67) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 68) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 69) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 70) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 71) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 72) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 73) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 74) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 75) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 76) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 77) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 78) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 79) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 80) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 81) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 82) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 83) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 84) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 85) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 86) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 87) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 88) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 89) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 90) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 91) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 92) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 93) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 94) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 95) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 96) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 97) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 98) =   16600.0000000000
+  M1066a_V%Qkappa_1066a( 99) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(100) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(101) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(102) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(103) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(104) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(105) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(106) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(107) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(108) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(109) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(110) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(111) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(112) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(113) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(114) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(115) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(116) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(117) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(118) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(119) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(120) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(121) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(122) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(123) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(124) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(125) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(126) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(127) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(128) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(129) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(130) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(131) =   16600.0000000000
+  M1066a_V%Qkappa_1066a(132) =   13840.0000000000
+  M1066a_V%Qkappa_1066a(133) =   13840.0000000000
+  M1066a_V%Qkappa_1066a(134) =   13840.0000000000
+  M1066a_V%Qkappa_1066a(135) =   13840.0000000000
+  M1066a_V%Qkappa_1066a(136) =   13840.0000000000
+  M1066a_V%Qkappa_1066a(137) =   13840.0000000000
+  M1066a_V%Qkappa_1066a(138) =   13840.0000000000
+  M1066a_V%Qkappa_1066a(139) =   13840.0000000000
+  M1066a_V%Qkappa_1066a(140) =   13840.0000000000
+  M1066a_V%Qkappa_1066a(141) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(142) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(143) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(144) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(145) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(146) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(147) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(148) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(149) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(150) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(151) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(152) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(153) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(154) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(155) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(156) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(157) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(158) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(159) =   5893.00000000000
+  M1066a_V%Qkappa_1066a(160) =   5893.00000000000
+
+  M1066a_V%Qmu_1066a(  1) =   3138.00000000000
+  M1066a_V%Qmu_1066a(  2) =   3138.00000000000
+  M1066a_V%Qmu_1066a(  3) =   3138.00000000000
+  M1066a_V%Qmu_1066a(  4) =   3138.00000000000
+  M1066a_V%Qmu_1066a(  5) =   3138.00000000000
+  M1066a_V%Qmu_1066a(  6) =   3138.00000000000
+  M1066a_V%Qmu_1066a(  7) =   3138.00000000000
+  M1066a_V%Qmu_1066a(  8) =   3138.00000000000
+  M1066a_V%Qmu_1066a(  9) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 10) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 11) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 12) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 13) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 14) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 15) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 16) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 17) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 18) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 19) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 20) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 21) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 22) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 23) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 24) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 25) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 26) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 27) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 28) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 29) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 30) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 31) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 32) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 33) =   3138.00000000000
+  M1066a_V%Qmu_1066a( 34) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 35) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 36) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 37) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 38) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 39) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 40) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 41) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 42) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 43) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 44) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 45) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 46) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 47) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 48) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 49) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 50) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 51) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 52) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 53) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 54) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 55) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 56) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 57) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 58) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 59) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 60) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 61) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 62) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 63) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 64) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 65) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 66) =  0.000000000000000
+  M1066a_V%Qmu_1066a( 67) =   332.000000000000
+  M1066a_V%Qmu_1066a( 68) =   332.000000000000
+  M1066a_V%Qmu_1066a( 69) =   332.000000000000
+  M1066a_V%Qmu_1066a( 70) =   332.000000000000
+  M1066a_V%Qmu_1066a( 71) =   332.000000000000
+  M1066a_V%Qmu_1066a( 72) =   332.000000000000
+  M1066a_V%Qmu_1066a( 73) =   332.000000000000
+  M1066a_V%Qmu_1066a( 74) =   332.000000000000
+  M1066a_V%Qmu_1066a( 75) =   332.000000000000
+  M1066a_V%Qmu_1066a( 76) =   332.000000000000
+  M1066a_V%Qmu_1066a( 77) =   332.000000000000
+  M1066a_V%Qmu_1066a( 78) =   332.000000000000
+  M1066a_V%Qmu_1066a( 79) =   332.000000000000
+  M1066a_V%Qmu_1066a( 80) =   332.000000000000
+  M1066a_V%Qmu_1066a( 81) =   332.000000000000
+  M1066a_V%Qmu_1066a( 82) =   332.000000000000
+  M1066a_V%Qmu_1066a( 83) =   332.000000000000
+  M1066a_V%Qmu_1066a( 84) =   332.000000000000
+  M1066a_V%Qmu_1066a( 85) =   332.000000000000
+  M1066a_V%Qmu_1066a( 86) =   332.000000000000
+  M1066a_V%Qmu_1066a( 87) =   332.000000000000
+  M1066a_V%Qmu_1066a( 88) =   332.000000000000
+  M1066a_V%Qmu_1066a( 89) =   332.000000000000
+  M1066a_V%Qmu_1066a( 90) =   332.000000000000
+  M1066a_V%Qmu_1066a( 91) =   332.000000000000
+  M1066a_V%Qmu_1066a( 92) =   332.000000000000
+  M1066a_V%Qmu_1066a( 93) =   332.000000000000
+  M1066a_V%Qmu_1066a( 94) =   332.000000000000
+  M1066a_V%Qmu_1066a( 95) =   332.000000000000
+  M1066a_V%Qmu_1066a( 96) =   332.000000000000
+  M1066a_V%Qmu_1066a( 97) =   332.000000000000
+  M1066a_V%Qmu_1066a( 98) =   332.000000000000
+  M1066a_V%Qmu_1066a( 99) =   332.000000000000
+  M1066a_V%Qmu_1066a(100) =   332.000000000000
+  M1066a_V%Qmu_1066a(101) =   332.000000000000
+  M1066a_V%Qmu_1066a(102) =   332.000000000000
+  M1066a_V%Qmu_1066a(103) =   332.000000000000
+  M1066a_V%Qmu_1066a(104) =   332.000000000000
+  M1066a_V%Qmu_1066a(105) =   332.000000000000
+  M1066a_V%Qmu_1066a(106) =   332.000000000000
+  M1066a_V%Qmu_1066a(107) =   332.000000000000
+  M1066a_V%Qmu_1066a(108) =   332.000000000000
+  M1066a_V%Qmu_1066a(109) =   332.000000000000
+  M1066a_V%Qmu_1066a(110) =   332.000000000000
+  M1066a_V%Qmu_1066a(111) =   332.000000000000
+  M1066a_V%Qmu_1066a(112) =   332.000000000000
+  M1066a_V%Qmu_1066a(113) =   332.000000000000
+  M1066a_V%Qmu_1066a(114) =   332.000000000000
+  M1066a_V%Qmu_1066a(115) =   332.000000000000
+  M1066a_V%Qmu_1066a(116) =   332.000000000000
+  M1066a_V%Qmu_1066a(117) =   332.000000000000
+  M1066a_V%Qmu_1066a(118) =   332.000000000000
+  M1066a_V%Qmu_1066a(119) =   332.000000000000
+  M1066a_V%Qmu_1066a(120) =   332.000000000000
+  M1066a_V%Qmu_1066a(121) =   332.000000000000
+  M1066a_V%Qmu_1066a(122) =   332.000000000000
+  M1066a_V%Qmu_1066a(123) =   332.000000000000
+  M1066a_V%Qmu_1066a(124) =   332.000000000000
+  M1066a_V%Qmu_1066a(125) =   332.000000000000
+  M1066a_V%Qmu_1066a(126) =   332.000000000000
+  M1066a_V%Qmu_1066a(127) =   332.000000000000
+  M1066a_V%Qmu_1066a(128) =   332.000000000000
+  M1066a_V%Qmu_1066a(129) =   332.000000000000
+  M1066a_V%Qmu_1066a(130) =   332.000000000000
+  M1066a_V%Qmu_1066a(131) =   332.000000000000
+  M1066a_V%Qmu_1066a(132) =   276.800000000000
+  M1066a_V%Qmu_1066a(133) =   276.800000000000
+  M1066a_V%Qmu_1066a(134) =   276.800000000000
+  M1066a_V%Qmu_1066a(135) =   276.800000000000
+  M1066a_V%Qmu_1066a(136) =   276.800000000000
+  M1066a_V%Qmu_1066a(137) =   276.800000000000
+  M1066a_V%Qmu_1066a(138) =   276.800000000000
+  M1066a_V%Qmu_1066a(139) =   276.800000000000
+  M1066a_V%Qmu_1066a(140) =   276.800000000000
+  M1066a_V%Qmu_1066a(141) =   117.900000000000
+  M1066a_V%Qmu_1066a(142) =   117.900000000000
+  M1066a_V%Qmu_1066a(143) =   117.900000000000
+  M1066a_V%Qmu_1066a(144) =   117.900000000000
+  M1066a_V%Qmu_1066a(145) =   117.900000000000
+  M1066a_V%Qmu_1066a(146) =   117.900000000000
+  M1066a_V%Qmu_1066a(147) =   117.900000000000
+  M1066a_V%Qmu_1066a(148) =   117.900000000000
+  M1066a_V%Qmu_1066a(149) =   117.900000000000
+  M1066a_V%Qmu_1066a(150) =   117.900000000000
+  M1066a_V%Qmu_1066a(151) =   117.900000000000
+  M1066a_V%Qmu_1066a(152) =   117.900000000000
+  M1066a_V%Qmu_1066a(153) =   117.900000000000
+  M1066a_V%Qmu_1066a(154) =   117.900000000000
+  M1066a_V%Qmu_1066a(155) =   117.900000000000
+  M1066a_V%Qmu_1066a(156) =   117.900000000000
+  M1066a_V%Qmu_1066a(157) =   117.900000000000
+  M1066a_V%Qmu_1066a(158) =   117.900000000000
+  M1066a_V%Qmu_1066a(159) =   117.900000000000
+  M1066a_V%Qmu_1066a(160) =   117.900000000000
+
+! strip the crust and replace it by mantle if we use an external crustal model
+  if(USE_EXTERNAL_CRUSTAL_MODEL) then
+    do i=NR_1066A-3,NR_1066A
+      M1066a_V%density_1066a(i) = M1066a_V%density_1066a(NR_1066A-4)
+      M1066a_V%vp_1066a(i) = M1066a_V%vp_1066a(NR_1066A-4)
+      M1066a_V%vs_1066a(i) = M1066a_V%vs_1066a(NR_1066A-4)
+      M1066a_V%Qkappa_1066a(i) = M1066a_V%Qkappa_1066a(NR_1066A-4)
+      M1066a_V%Qmu_1066a(i) = M1066a_V%Qmu_1066a(NR_1066A-4)
+    enddo
+  endif
+
+  end subroutine define_reference_1d_model
+

Added: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ak135/build.mk
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ak135/build.mk	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ak135/build.mk	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,7 @@
+
+reference_1d_model_OBJECTS = \
+	$O/model_ak135.o \
+	$(EMPTY_MACRO)
+
+$O/model_ak135.o: constants.h $S/MODELS/ak135/model_ak135.f90
+	${MPIFCCOMPILE_CHECK} -c -o $O/model_ak135.o ${FCFLAGS_f90} $S/MODELS/ak135/model_ak135.f90

Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ak135/model_ak135.f90 (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/model_ak135.f90)
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ak135/model_ak135.f90	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ak135/model_ak135.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,1166 @@
+!=====================================================================
+!
+!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
+!          --------------------------------------------------
+!
+!          Main authors: Dimitri Komatitsch and Jeroen Tromp
+!    Seismological Laboratory, California Institute of Technology, USA
+!             and University of Pau / CNRS / INRIA, France
+! (c) California Institute of Technology and University of Pau / CNRS / INRIA
+!                            February 2008
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
+  module model_ak135_module
+
+! number of layers in DATA/ak135/ak135.dat
+  integer, parameter :: NR_AK135 = 144
+
+! model_ak135_variables
+  type model_ak135_variables
+    sequence
+    double precision, dimension(NR_AK135) :: radius_ak135
+    double precision, dimension(NR_AK135) :: density_ak135
+    double precision, dimension(NR_AK135) :: vp_ak135
+    double precision, dimension(NR_AK135) :: vs_ak135
+    double precision, dimension(NR_AK135) :: Qkappa_ak135
+    double precision, dimension(NR_AK135) :: Qmu_ak135
+  end type model_ak135_variables
+
+ type (model_ak135_variables) Mak135_V
+! model_ak135_variables
+
+  end module
+
+!-------------------
+
+  subroutine get_reference_1d_model_radii(ROCEAN,RMIDDLE_CRUST,RMOHO, &
+     R80,R120,R220,R400,R600,R670,R771, &
+     RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC)
+
+  implicit none
+
+  include "constants.h"
+
+  double precision ROCEAN,RMIDDLE_CRUST,RMOHO, &
+       R80,R120,R220,R400,R600,R670,R771, &
+       RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC
+
+  ! our implementation of AK135 has not been checked carefully yet
+  ! therefore let us doublecheck it carefully one day
+
+  ! values below corrected by Ying Zhou <yingz at gps.caltech.edu>
+
+  ! AK135 without the 300 meters of mud layer
+  ROCEAN = 6368000.d0
+  RMIDDLE_CRUST = 6361000.d0
+  RMOHO  = 6353000.d0
+  R80    = 6291000.d0
+  R220   = 6161000.d0
+  R400   = 5961000.d0
+  R670   = 5711000.d0
+  RTOPDDOUBLEPRIME = 3631000.d0
+  RCMB   = 3479500.d0
+  RICB   = 1217500.d0
+
+  ! values for AK135 that are not discontinuities
+  R600 = 5771000.d0
+  R771 = 5611000.d0
+
+  RHO_TOP_OC = 9914.5000 / RHOAV
+  RHO_BOTTOM_OC = 12139.1000 / RHOAV
+
+  end subroutine get_reference_1d_model_radii
+
+!-------------------
+
+  subroutine reference_1d_model_adjust_time_step(DT)
+
+  double precision DT
+
+  ! no-op
+
+  end subroutine reference_1d_model_adjust_time_step
+
+!-------------------
+
+  subroutine reference_1d_model_aniso_inner_core_model_setup(x,vp,vp0,vs,vs0,rho,rho0)
+
+  double precision x,vp,vp0,vs,vs0,rho,rho0
+
+  stop 'anisotropic inner core not implemented for ak135'
+
+  end subroutine reference_1d_model_aniso_inner_core_model_setup
+
+!-------------------
+
+  subroutine reference_1d_model_attenuation_model_setup(AM_V)
+
+  use model_ak135_module
+  implicit none
+
+  include "constants.h"
+
+! attenuation_model_variables
+  type attenuation_model_variables
+    sequence
+    double precision min_period, max_period
+    double precision                          :: QT_c_source        ! Source Frequency
+    double precision, dimension(:), pointer   :: Qtau_s             ! tau_sigma
+    double precision, dimension(:), pointer   :: QrDisc             ! Discontinutitues Defined
+    double precision, dimension(:), pointer   :: Qr                 ! Radius
+    integer, dimension(:), pointer            :: interval_Q                 ! Steps
+    double precision, dimension(:), pointer   :: Qmu                ! Shear Attenuation
+    double precision, dimension(:,:), pointer :: Qtau_e             ! tau_epsilon
+    double precision, dimension(:), pointer   :: Qomsb, Qomsb2      ! one_minus_sum_beta
+    double precision, dimension(:,:), pointer :: Qfc, Qfc2          ! factor_common
+    double precision, dimension(:), pointer   :: Qsf, Qsf2          ! scale_factor
+    integer, dimension(:), pointer            :: Qrmin              ! Max and Mins of idoubling
+    integer, dimension(:), pointer            :: Qrmax              ! Max and Mins of idoubling
+    integer                                   :: Qn                 ! Number of points
+  end type attenuation_model_variables
+
+  type (attenuation_model_variables) AM_V
+! attenuation_model_variables
+
+  AM_V%Qn = NR_AK135
+
+  allocate(AM_V%Qr(AM_V%Qn))
+  allocate(AM_V%Qmu(AM_V%Qn))
+  allocate(AM_V%interval_Q(AM_V%Qn))
+  allocate(AM_V%Qtau_e(N_SLS,AM_V%Qn))
+
+  AM_V%Qr(:)     = Mak135_V%radius_ak135(:)
+  AM_V%Qmu(:)    = Mak135_V%Qmu_ak135(:)
+
+  end subroutine reference_1d_model_attenuation_model_setup
+
+!-------------------
+
+  subroutine get_reference_1d_model(myrank,r_prem,rho,vpv,vph,vsv,vsh,eta_aniso, &
+       Qkappa,Qmu,idoubling,iregion_code,CRUSTAL,ONE_CRUST,TRANSVERSE_ISOTROPY, &
+       ISOTROPIC_3D_MANTLE)
+
+    implicit none
+
+    logical CRUSTAL,ONE_CRUST,TRANSVERSE_ISOTROPY,ISOTROPIC_3D_MANTLE
+    integer myrank,idoubling,iregion_code
+    double precision r_prem,rho,Qkappa,Qmu,vpv,vph,vsv,vsh,eta_aniso
+
+    double precision vp,vs
+
+    if(TRANSVERSE_ISOTROPY) then
+       stop 'reference Earth model ak135 is not transversely isotropic'
+    endif
+
+    call model_ak135(r_prem,rho,vp,vs,Qkappa,Qmu,iregion_code)
+
+    vpv = vp
+    vph = vp
+    vsv = vs
+    vsh = vs
+    eta_aniso = 1.d0
+
+  end subroutine get_reference_1d_model
+
+!-------------------
+
+  subroutine model_ak135(x,rho,vp,vs,Qkappa,Qmu,iregion_code)
+
+  use model_ak135_module
+  implicit none
+
+  include "constants.h"
+
+! input:
+! radius r: meters
+
+! output:
+! density rho: kg/m^3
+! compressional wave speed vp: km/s
+! shear wave speed vs: km/s
+
+  integer iregion_code
+
+  double precision x,rho,vp,vs,Qmu,Qkappa
+
+  integer i
+
+  double precision r,frac,scaleval
+
+!! DK DK UGLY implementation of model ak135 below and its radii in
+!! DK DK UGLY subroutine read_parameter_file.f90 has not been thoroughly
+!! DK DK UGLY checked yet
+
+! compute real physical radius in meters
+  r = x * R_EARTH
+
+  i = 1
+  do while(r >= Mak135_V%radius_ak135(i) .and. i /= NR_AK135)
+    i = i + 1
+  enddo
+
+! make sure we stay in the right region and never take a point above
+! and a point below the ICB or the CMB and interpolate between them,
+! which would lead to a wrong value (keeping in mind that we interpolate
+! between points i-1 and i below)
+  if(iregion_code == IREGION_INNER_CORE .and. i > 25) i = 25
+
+  if(iregion_code == IREGION_OUTER_CORE .and. i < 27) i = 27
+  if(iregion_code == IREGION_OUTER_CORE .and. i > 71) i = 71
+
+  if(iregion_code == IREGION_CRUST_MANTLE .and. i < 73) i = 73
+
+  if(i == 1) then
+    rho = Mak135_V%density_ak135(i)
+    vp = Mak135_V%vp_ak135(i)
+    vs = Mak135_V%vs_ak135(i)
+    Qmu = Mak135_V%Qmu_ak135(i)
+    Qkappa = Mak135_V%Qkappa_ak135(i)
+  else
+
+! interpolate from radius_ak135(i-1) to r using the values at i-1 and i
+    frac = (r-Mak135_V%radius_ak135(i-1))/(Mak135_V%radius_ak135(i)-Mak135_V%radius_ak135(i-1))
+
+    rho = Mak135_V%density_ak135(i-1) + frac * (Mak135_V%density_ak135(i)-Mak135_V%density_ak135(i-1))
+    vp = Mak135_V%vp_ak135(i-1) + frac * (Mak135_V%vp_ak135(i)-Mak135_V%vp_ak135(i-1))
+    vs = Mak135_V%vs_ak135(i-1) + frac * (Mak135_V%vs_ak135(i)-Mak135_V%vs_ak135(i-1))
+    Qmu = Mak135_V%Qmu_ak135(i-1) + frac * (Mak135_V%Qmu_ak135(i)-Mak135_V%Qmu_ak135(i-1))
+    Qkappa = Mak135_V%Qkappa_ak135(i-1) + frac * (Mak135_V%Qkappa_ak135(i)-Mak135_V%Qkappa_ak135(i-1))
+
+  endif
+
+! make sure Vs is zero in the outer core even if roundoff errors on depth
+! also set fictitious attenuation to a very high value (attenuation is not used in the fluid)
+  if(iregion_code == IREGION_OUTER_CORE) then
+    vs = 0.d0
+    Qkappa = 3000.d0
+    Qmu = 3000.d0
+  endif
+
+! non-dimensionalize
+! time scaling (s^{-1}) is done with scaleval
+  scaleval=dsqrt(PI*GRAV*RHOAV)
+  rho=rho*1000.0d0/RHOAV
+  vp=vp*1000.0d0/(R_EARTH*scaleval)
+  vs=vs*1000.0d0/(R_EARTH*scaleval)
+
+  end subroutine model_ak135
+
+!-------------------
+
+  subroutine define_reference_1d_model(USE_EXTERNAL_CRUSTAL_MODEL)
+
+  use model_ak135_module
+  implicit none
+  include "constants.h"
+
+  logical USE_EXTERNAL_CRUSTAL_MODEL
+
+  integer i
+
+! define all the values in the model
+
+  Mak135_V%radius_ak135(  1) =  0.000000000000000
+  Mak135_V%radius_ak135(  2) =   50710.0000000000
+  Mak135_V%radius_ak135(  3) =   101430.000000000
+  Mak135_V%radius_ak135(  4) =   152140.000000000
+  Mak135_V%radius_ak135(  5) =   202850.000000000
+  Mak135_V%radius_ak135(  6) =   253560.000000000
+  Mak135_V%radius_ak135(  7) =   304280.000000000
+  Mak135_V%radius_ak135(  8) =   354990.000000000
+  Mak135_V%radius_ak135(  9) =   405700.000000000
+  Mak135_V%radius_ak135( 10) =   456410.000000000
+  Mak135_V%radius_ak135( 11) =   507130.000000000
+  Mak135_V%radius_ak135( 12) =   557840.000000000
+  Mak135_V%radius_ak135( 13) =   608550.000000000
+  Mak135_V%radius_ak135( 14) =   659260.000000000
+  Mak135_V%radius_ak135( 15) =   709980.000000000
+  Mak135_V%radius_ak135( 16) =   760690.000000000
+  Mak135_V%radius_ak135( 17) =   811400.000000000
+  Mak135_V%radius_ak135( 18) =   862110.000000000
+  Mak135_V%radius_ak135( 19) =   912830.000000000
+  Mak135_V%radius_ak135( 20) =   963540.000000000
+  Mak135_V%radius_ak135( 21) =   1014250.00000000
+  Mak135_V%radius_ak135( 22) =   1064960.00000000
+  Mak135_V%radius_ak135( 23) =   1115680.00000000
+  Mak135_V%radius_ak135( 24) =   1166390.00000000
+  Mak135_V%radius_ak135( 25) =   1217500.00000000
+  Mak135_V%radius_ak135( 26) =   1217500.00000000
+  Mak135_V%radius_ak135( 27) =   1267430.00000000
+  Mak135_V%radius_ak135( 28) =   1317760.00000000
+  Mak135_V%radius_ak135( 29) =   1368090.00000000
+  Mak135_V%radius_ak135( 30) =   1418420.00000000
+  Mak135_V%radius_ak135( 31) =   1468760.00000000
+  Mak135_V%radius_ak135( 32) =   1519090.00000000
+  Mak135_V%radius_ak135( 33) =   1569420.00000000
+  Mak135_V%radius_ak135( 34) =   1619750.00000000
+  Mak135_V%radius_ak135( 35) =   1670080.00000000
+  Mak135_V%radius_ak135( 36) =   1720410.00000000
+  Mak135_V%radius_ak135( 37) =   1770740.00000000
+  Mak135_V%radius_ak135( 38) =   1821070.00000000
+  Mak135_V%radius_ak135( 39) =   1871400.00000000
+  Mak135_V%radius_ak135( 40) =   1921740.00000000
+  Mak135_V%radius_ak135( 41) =   1972070.00000000
+  Mak135_V%radius_ak135( 42) =   2022400.00000000
+  Mak135_V%radius_ak135( 43) =   2072730.00000000
+  Mak135_V%radius_ak135( 44) =   2123060.00000000
+  Mak135_V%radius_ak135( 45) =   2173390.00000000
+  Mak135_V%radius_ak135( 46) =   2223720.00000000
+  Mak135_V%radius_ak135( 47) =   2274050.00000000
+  Mak135_V%radius_ak135( 48) =   2324380.00000000
+  Mak135_V%radius_ak135( 49) =   2374720.00000000
+  Mak135_V%radius_ak135( 50) =   2425050.00000000
+  Mak135_V%radius_ak135( 51) =   2475380.00000000
+  Mak135_V%radius_ak135( 52) =   2525710.00000000
+  Mak135_V%radius_ak135( 53) =   2576040.00000000
+  Mak135_V%radius_ak135( 54) =   2626370.00000000
+  Mak135_V%radius_ak135( 55) =   2676700.00000000
+  Mak135_V%radius_ak135( 56) =   2727030.00000000
+  Mak135_V%radius_ak135( 57) =   2777360.00000000
+  Mak135_V%radius_ak135( 58) =   2827700.00000000
+  Mak135_V%radius_ak135( 59) =   2878030.00000000
+  Mak135_V%radius_ak135( 60) =   2928360.00000000
+  Mak135_V%radius_ak135( 61) =   2978690.00000000
+  Mak135_V%radius_ak135( 62) =   3029020.00000000
+  Mak135_V%radius_ak135( 63) =   3079350.00000000
+  Mak135_V%radius_ak135( 64) =   3129680.00000000
+  Mak135_V%radius_ak135( 65) =   3180010.00000000
+  Mak135_V%radius_ak135( 66) =   3230340.00000000
+  Mak135_V%radius_ak135( 67) =   3280680.00000000
+  Mak135_V%radius_ak135( 68) =   3331010.00000000
+  Mak135_V%radius_ak135( 69) =   3381340.00000000
+  Mak135_V%radius_ak135( 70) =   3431670.00000000
+  Mak135_V%radius_ak135( 71) =   3479500.00000000
+  Mak135_V%radius_ak135( 72) =   3479500.00000000
+  Mak135_V%radius_ak135( 73) =   3531670.00000000
+  Mak135_V%radius_ak135( 74) =   3581330.00000000
+  Mak135_V%radius_ak135( 75) =   3631000.00000000
+  Mak135_V%radius_ak135( 76) =   3631000.00000000
+  Mak135_V%radius_ak135( 77) =   3681000.00000000
+  Mak135_V%radius_ak135( 78) =   3731000.00000000
+  Mak135_V%radius_ak135( 79) =   3779500.00000000
+  Mak135_V%radius_ak135( 80) =   3829000.00000000
+  Mak135_V%radius_ak135( 81) =   3878500.00000000
+  Mak135_V%radius_ak135( 82) =   3928000.00000000
+  Mak135_V%radius_ak135( 83) =   3977500.00000000
+  Mak135_V%radius_ak135( 84) =   4027000.00000000
+  Mak135_V%radius_ak135( 85) =   4076500.00000000
+  Mak135_V%radius_ak135( 86) =   4126000.00000000
+  Mak135_V%radius_ak135( 87) =   4175500.00000000
+  Mak135_V%radius_ak135( 88) =   4225000.00000000
+  Mak135_V%radius_ak135( 89) =   4274500.00000000
+  Mak135_V%radius_ak135( 90) =   4324000.00000000
+  Mak135_V%radius_ak135( 91) =   4373500.00000000
+  Mak135_V%radius_ak135( 92) =   4423000.00000000
+  Mak135_V%radius_ak135( 93) =   4472500.00000000
+  Mak135_V%radius_ak135( 94) =   4522000.00000000
+  Mak135_V%radius_ak135( 95) =   4571500.00000000
+  Mak135_V%radius_ak135( 96) =   4621000.00000000
+  Mak135_V%radius_ak135( 97) =   4670500.00000000
+  Mak135_V%radius_ak135( 98) =   4720000.00000000
+  Mak135_V%radius_ak135( 99) =   4769500.00000000
+  Mak135_V%radius_ak135(100) =   4819000.00000000
+  Mak135_V%radius_ak135(101) =   4868500.00000000
+  Mak135_V%radius_ak135(102) =   4918000.00000000
+  Mak135_V%radius_ak135(103) =   4967500.00000000
+  Mak135_V%radius_ak135(104) =   5017000.00000000
+  Mak135_V%radius_ak135(105) =   5066500.00000000
+  Mak135_V%radius_ak135(106) =   5116000.00000000
+  Mak135_V%radius_ak135(107) =   5165500.00000000
+  Mak135_V%radius_ak135(108) =   5215000.00000000
+  Mak135_V%radius_ak135(109) =   5264500.00000000
+  Mak135_V%radius_ak135(110) =   5314000.00000000
+  Mak135_V%radius_ak135(111) =   5363500.00000000
+  Mak135_V%radius_ak135(112) =   5413000.00000000
+  Mak135_V%radius_ak135(113) =   5462500.00000000
+  Mak135_V%radius_ak135(114) =   5512000.00000000
+  Mak135_V%radius_ak135(115) =   5561500.00000000
+  Mak135_V%radius_ak135(116) =   5611000.00000000
+  Mak135_V%radius_ak135(117) =   5661000.00000000
+  Mak135_V%radius_ak135(118) =   5711000.00000000
+  Mak135_V%radius_ak135(119) =   5711000.00000000
+  Mak135_V%radius_ak135(120) =   5761000.00000000
+  Mak135_V%radius_ak135(121) =   5811000.00000000
+  Mak135_V%radius_ak135(122) =   5861000.00000000
+  Mak135_V%radius_ak135(123) =   5911000.00000000
+  Mak135_V%radius_ak135(124) =   5961000.00000000
+  Mak135_V%radius_ak135(125) =   5961000.00000000
+  Mak135_V%radius_ak135(126) =   6011000.00000000
+  Mak135_V%radius_ak135(127) =   6061000.00000000
+  Mak135_V%radius_ak135(128) =   6111000.00000000
+  Mak135_V%radius_ak135(129) =   6161000.00000000
+  Mak135_V%radius_ak135(130) =   6161000.00000000
+  Mak135_V%radius_ak135(131) =   6206000.00000000
+  Mak135_V%radius_ak135(132) =   6251000.00000000
+  Mak135_V%radius_ak135(133) =   6291000.00000000
+  Mak135_V%radius_ak135(134) =   6291000.00000000
+  Mak135_V%radius_ak135(135) =   6328000.00000000
+  Mak135_V%radius_ak135(136) =   6353000.00000000
+  Mak135_V%radius_ak135(137) =   6353000.00000000
+  Mak135_V%radius_ak135(138) =   6361000.00000000
+  Mak135_V%radius_ak135(139) =   6361000.00000000
+  Mak135_V%radius_ak135(140) =   6367700.00000000
+  Mak135_V%radius_ak135(141) =   6367700.00000000
+  Mak135_V%radius_ak135(142) =   6368000.00000000
+  Mak135_V%radius_ak135(143) =   6368000.00000000
+  Mak135_V%radius_ak135(144) =   6371000.00000000
+
+  Mak135_V%density_ak135(  1) =   13.0122000000000
+  Mak135_V%density_ak135(  2) =   13.0117000000000
+  Mak135_V%density_ak135(  3) =   13.0100000000000
+  Mak135_V%density_ak135(  4) =   13.0074000000000
+  Mak135_V%density_ak135(  5) =   13.0036000000000
+  Mak135_V%density_ak135(  6) =   12.9988000000000
+  Mak135_V%density_ak135(  7) =   12.9929000000000
+  Mak135_V%density_ak135(  8) =   12.9859000000000
+  Mak135_V%density_ak135(  9) =   12.9779000000000
+  Mak135_V%density_ak135( 10) =   12.9688000000000
+  Mak135_V%density_ak135( 11) =   12.9586000000000
+  Mak135_V%density_ak135( 12) =   12.9474000000000
+  Mak135_V%density_ak135( 13) =   12.9351000000000
+  Mak135_V%density_ak135( 14) =   12.9217000000000
+  Mak135_V%density_ak135( 15) =   12.9072000000000
+  Mak135_V%density_ak135( 16) =   12.8917000000000
+  Mak135_V%density_ak135( 17) =   12.8751000000000
+  Mak135_V%density_ak135( 18) =   12.8574000000000
+  Mak135_V%density_ak135( 19) =   12.8387000000000
+  Mak135_V%density_ak135( 20) =   12.8188000000000
+  Mak135_V%density_ak135( 21) =   12.7980000000000
+  Mak135_V%density_ak135( 22) =   12.7760000000000
+  Mak135_V%density_ak135( 23) =   12.7530000000000
+  Mak135_V%density_ak135( 24) =   12.7289000000000
+  Mak135_V%density_ak135( 25) =   12.7037000000000
+  Mak135_V%density_ak135( 26) =   12.1391000000000
+  Mak135_V%density_ak135( 27) =   12.1133000000000
+  Mak135_V%density_ak135( 28) =   12.0867000000000
+  Mak135_V%density_ak135( 29) =   12.0593000000000
+  Mak135_V%density_ak135( 30) =   12.0311000000000
+  Mak135_V%density_ak135( 31) =   12.0001000000000
+  Mak135_V%density_ak135( 32) =   11.9722000000000
+  Mak135_V%density_ak135( 33) =   11.9414000000000
+  Mak135_V%density_ak135( 34) =   11.9098000000000
+  Mak135_V%density_ak135( 35) =   11.8772000000000
+  Mak135_V%density_ak135( 36) =   11.8437000000000
+  Mak135_V%density_ak135( 37) =   11.8092000000000
+  Mak135_V%density_ak135( 38) =   11.7737000000000
+  Mak135_V%density_ak135( 39) =   11.7373000000000
+  Mak135_V%density_ak135( 40) =   11.6998000000000
+  Mak135_V%density_ak135( 41) =   11.6612000000000
+  Mak135_V%density_ak135( 42) =   11.6216000000000
+  Mak135_V%density_ak135( 43) =   11.5809000000000
+  Mak135_V%density_ak135( 44) =   11.5391000000000
+  Mak135_V%density_ak135( 45) =   11.4962000000000
+  Mak135_V%density_ak135( 46) =   11.4521000000000
+  Mak135_V%density_ak135( 47) =   11.4069000000000
+  Mak135_V%density_ak135( 48) =   11.3604000000000
+  Mak135_V%density_ak135( 49) =   11.3127000000000
+  Mak135_V%density_ak135( 50) =   11.2639000000000
+  Mak135_V%density_ak135( 51) =   11.2137000000000
+  Mak135_V%density_ak135( 52) =   11.1623000000000
+  Mak135_V%density_ak135( 53) =   11.1095000000000
+  Mak135_V%density_ak135( 54) =   11.0555000000000
+  Mak135_V%density_ak135( 55) =   11.0001000000000
+  Mak135_V%density_ak135( 56) =   10.9434000000000
+  Mak135_V%density_ak135( 57) =   10.8852000000000
+  Mak135_V%density_ak135( 58) =   10.8257000000000
+  Mak135_V%density_ak135( 59) =   10.7647000000000
+  Mak135_V%density_ak135( 60) =   10.7023000000000
+  Mak135_V%density_ak135( 61) =   10.6385000000000
+  Mak135_V%density_ak135( 62) =   10.5731000000000
+  Mak135_V%density_ak135( 63) =   10.5062000000000
+  Mak135_V%density_ak135( 64) =   10.4378000000000
+  Mak135_V%density_ak135( 65) =   10.3679000000000
+  Mak135_V%density_ak135( 66) =   10.2964000000000
+  Mak135_V%density_ak135( 67) =   10.2233000000000
+  Mak135_V%density_ak135( 68) =   10.1485000000000
+  Mak135_V%density_ak135( 69) =   10.0722000000000
+  Mak135_V%density_ak135( 70) =   9.99420000000000
+  Mak135_V%density_ak135( 71) =   9.91450000000000
+  Mak135_V%density_ak135( 72) =   5.77210000000000
+  Mak135_V%density_ak135( 73) =   5.74580000000000
+  Mak135_V%density_ak135( 74) =   5.71960000000000
+  Mak135_V%density_ak135( 75) =   5.69340000000000
+  Mak135_V%density_ak135( 76) =   5.43870000000000
+  Mak135_V%density_ak135( 77) =   5.41760000000000
+  Mak135_V%density_ak135( 78) =   5.39620000000000
+  Mak135_V%density_ak135( 79) =   5.37480000000000
+  Mak135_V%density_ak135( 80) =   5.35310000000000
+  Mak135_V%density_ak135( 81) =   5.33130000000000
+  Mak135_V%density_ak135( 82) =   5.30920000000000
+  Mak135_V%density_ak135( 83) =   5.28700000000000
+  Mak135_V%density_ak135( 84) =   5.26460000000000
+  Mak135_V%density_ak135( 85) =   5.24200000000000
+  Mak135_V%density_ak135( 86) =   5.21920000000000
+  Mak135_V%density_ak135( 87) =   5.19630000000000
+  Mak135_V%density_ak135( 88) =   5.17320000000000
+  Mak135_V%density_ak135( 89) =   5.14990000000000
+  Mak135_V%density_ak135( 90) =   5.12640000000000
+  Mak135_V%density_ak135( 91) =   5.10270000000000
+  Mak135_V%density_ak135( 92) =   5.07890000000000
+  Mak135_V%density_ak135( 93) =   5.05480000000000
+  Mak135_V%density_ak135( 94) =   5.03060000000000
+  Mak135_V%density_ak135( 95) =   5.00620000000000
+  Mak135_V%density_ak135( 96) =   4.98170000000000
+  Mak135_V%density_ak135( 97) =   4.95700000000000
+  Mak135_V%density_ak135( 98) =   4.93210000000000
+  Mak135_V%density_ak135( 99) =   4.90690000000000
+  Mak135_V%density_ak135(100) =   4.88170000000000
+  Mak135_V%density_ak135(101) =   4.85620000000000
+  Mak135_V%density_ak135(102) =   4.83070000000000
+  Mak135_V%density_ak135(103) =   4.80500000000000
+  Mak135_V%density_ak135(104) =   4.77900000000000
+  Mak135_V%density_ak135(105) =   4.75280000000000
+  Mak135_V%density_ak135(106) =   4.72660000000000
+  Mak135_V%density_ak135(107) =   4.70010000000000
+  Mak135_V%density_ak135(108) =   4.67350000000000
+  Mak135_V%density_ak135(109) =   4.64670000000000
+  Mak135_V%density_ak135(110) =   4.61980000000000
+  Mak135_V%density_ak135(111) =   4.59260000000000
+  Mak135_V%density_ak135(112) =   4.56540000000000
+  Mak135_V%density_ak135(113) =   4.51620000000000
+  Mak135_V%density_ak135(114) =   4.46500000000000
+  Mak135_V%density_ak135(115) =   4.41180000000000
+  Mak135_V%density_ak135(116) =   4.35650000000000
+  Mak135_V%density_ak135(117) =   4.29860000000000
+  Mak135_V%density_ak135(118) =   4.23870000000000
+  Mak135_V%density_ak135(119) =   3.92010000000000
+  Mak135_V%density_ak135(120) =   3.92060000000000
+  Mak135_V%density_ak135(121) =   3.92180000000000
+  Mak135_V%density_ak135(122) =   3.92330000000000
+  Mak135_V%density_ak135(123) =   3.92730000000000
+  Mak135_V%density_ak135(124) =   3.93170000000000
+  Mak135_V%density_ak135(125) =   3.50680000000000
+  Mak135_V%density_ak135(126) =   3.45770000000000
+  Mak135_V%density_ak135(127) =   3.41100000000000
+  Mak135_V%density_ak135(128) =   3.36630000000000
+  Mak135_V%density_ak135(129) =   3.32430000000000
+  Mak135_V%density_ak135(130) =   3.32430000000000
+  Mak135_V%density_ak135(131) =   3.37110000000000
+  Mak135_V%density_ak135(132) =   3.42680000000000
+  Mak135_V%density_ak135(133) =   3.50200000000000
+  Mak135_V%density_ak135(134) =   3.50200000000000
+  Mak135_V%density_ak135(135) =   3.58010000000000
+  Mak135_V%density_ak135(136) =   3.64100000000000
+  Mak135_V%density_ak135(137) =   2.92000000000000
+  Mak135_V%density_ak135(138) =   2.92000000000000
+  Mak135_V%density_ak135(139) =   2.60000000000000
+  Mak135_V%density_ak135(140) =   2.60000000000000
+  Mak135_V%density_ak135(141) =   2.60000000000000
+  Mak135_V%density_ak135(142) =   2.60000000000000
+  Mak135_V%density_ak135(143) =   2.60000000000000
+  Mak135_V%density_ak135(144) =   2.60000000000000
+
+  Mak135_V%vp_ak135(  1) =   11.2622000000000
+  Mak135_V%vp_ak135(  2) =   11.2618000000000
+  Mak135_V%vp_ak135(  3) =   11.2606000000000
+  Mak135_V%vp_ak135(  4) =   11.2586000000000
+  Mak135_V%vp_ak135(  5) =   11.2557000000000
+  Mak135_V%vp_ak135(  6) =   11.2521000000000
+  Mak135_V%vp_ak135(  7) =   11.2477000000000
+  Mak135_V%vp_ak135(  8) =   11.2424000000000
+  Mak135_V%vp_ak135(  9) =   11.2364000000000
+  Mak135_V%vp_ak135( 10) =   11.2295000000000
+  Mak135_V%vp_ak135( 11) =   11.2219000000000
+  Mak135_V%vp_ak135( 12) =   11.2134000000000
+  Mak135_V%vp_ak135( 13) =   11.2041000000000
+  Mak135_V%vp_ak135( 14) =   11.1941000000000
+  Mak135_V%vp_ak135( 15) =   11.1832000000000
+  Mak135_V%vp_ak135( 16) =   11.1715000000000
+  Mak135_V%vp_ak135( 17) =   11.1590000000000
+  Mak135_V%vp_ak135( 18) =   11.1457000000000
+  Mak135_V%vp_ak135( 19) =   11.1316000000000
+  Mak135_V%vp_ak135( 20) =   11.1166000000000
+  Mak135_V%vp_ak135( 21) =   11.0983000000000
+  Mak135_V%vp_ak135( 22) =   11.0850000000000
+  Mak135_V%vp_ak135( 23) =   11.0718000000000
+  Mak135_V%vp_ak135( 24) =   11.0585000000000
+  Mak135_V%vp_ak135( 25) =   11.0427000000000
+  Mak135_V%vp_ak135( 26) =   10.2890000000000
+  Mak135_V%vp_ak135( 27) =   10.2854000000000
+  Mak135_V%vp_ak135( 28) =   10.2745000000000
+  Mak135_V%vp_ak135( 29) =   10.2565000000000
+  Mak135_V%vp_ak135( 30) =   10.2329000000000
+  Mak135_V%vp_ak135( 31) =   10.2049000000000
+  Mak135_V%vp_ak135( 32) =   10.1739000000000
+  Mak135_V%vp_ak135( 33) =   10.1415000000000
+  Mak135_V%vp_ak135( 34) =   10.1095000000000
+  Mak135_V%vp_ak135( 35) =   10.0768000000000
+  Mak135_V%vp_ak135( 36) =   10.0439000000000
+  Mak135_V%vp_ak135( 37) =   10.0103000000000
+  Mak135_V%vp_ak135( 38) =   9.97610000000000
+  Mak135_V%vp_ak135( 39) =   9.94100000000000
+  Mak135_V%vp_ak135( 40) =   9.90510000000000
+  Mak135_V%vp_ak135( 41) =   9.86820000000000
+  Mak135_V%vp_ak135( 42) =   9.83040000000000
+  Mak135_V%vp_ak135( 43) =   9.79140000000000
+  Mak135_V%vp_ak135( 44) =   9.75130000000000
+  Mak135_V%vp_ak135( 45) =   9.71000000000000
+  Mak135_V%vp_ak135( 46) =   9.66730000000000
+  Mak135_V%vp_ak135( 47) =   9.62320000000000
+  Mak135_V%vp_ak135( 48) =   9.57770000000000
+  Mak135_V%vp_ak135( 49) =   9.53060000000000
+  Mak135_V%vp_ak135( 50) =   9.48140000000000
+  Mak135_V%vp_ak135( 51) =   9.42970000000000
+  Mak135_V%vp_ak135( 52) =   9.37600000000000
+  Mak135_V%vp_ak135( 53) =   9.32050000000000
+  Mak135_V%vp_ak135( 54) =   9.26340000000000
+  Mak135_V%vp_ak135( 55) =   9.20420000000000
+  Mak135_V%vp_ak135( 56) =   9.14260000000000
+  Mak135_V%vp_ak135( 57) =   9.07920000000000
+  Mak135_V%vp_ak135( 58) =   9.01380000000000
+  Mak135_V%vp_ak135( 59) =   8.94610000000000
+  Mak135_V%vp_ak135( 60) =   8.87610000000000
+  Mak135_V%vp_ak135( 61) =   8.80360000000000
+  Mak135_V%vp_ak135( 62) =   8.72830000000000
+  Mak135_V%vp_ak135( 63) =   8.64960000000000
+  Mak135_V%vp_ak135( 64) =   8.56920000000000
+  Mak135_V%vp_ak135( 65) =   8.48610000000000
+  Mak135_V%vp_ak135( 66) =   8.40010000000000
+  Mak135_V%vp_ak135( 67) =   8.31220000000000
+  Mak135_V%vp_ak135( 68) =   8.22130000000000
+  Mak135_V%vp_ak135( 69) =   8.12830000000000
+  Mak135_V%vp_ak135( 70) =   8.03820000000000
+  Mak135_V%vp_ak135( 71) =   8.00000000000000
+  Mak135_V%vp_ak135( 72) =   13.6601000000000
+  Mak135_V%vp_ak135( 73) =   13.6570000000000
+  Mak135_V%vp_ak135( 74) =   13.6533000000000
+  Mak135_V%vp_ak135( 75) =   13.6498000000000
+  Mak135_V%vp_ak135( 76) =   13.6498000000000
+  Mak135_V%vp_ak135( 77) =   13.5899000000000
+  Mak135_V%vp_ak135( 78) =   13.5311000000000
+  Mak135_V%vp_ak135( 79) =   13.4741000000000
+  Mak135_V%vp_ak135( 80) =   13.4156000000000
+  Mak135_V%vp_ak135( 81) =   13.3584000000000
+  Mak135_V%vp_ak135( 82) =   13.3017000000000
+  Mak135_V%vp_ak135( 83) =   13.2465000000000
+  Mak135_V%vp_ak135( 84) =   13.1895000000000
+  Mak135_V%vp_ak135( 85) =   13.1337000000000
+  Mak135_V%vp_ak135( 86) =   13.0786000000000
+  Mak135_V%vp_ak135( 87) =   13.0226000000000
+  Mak135_V%vp_ak135( 88) =   12.9663000000000
+  Mak135_V%vp_ak135( 89) =   12.9093000000000
+  Mak135_V%vp_ak135( 90) =   12.8524000000000
+  Mak135_V%vp_ak135( 91) =   12.7956000000000
+  Mak135_V%vp_ak135( 92) =   12.7384000000000
+  Mak135_V%vp_ak135( 93) =   12.6807000000000
+  Mak135_V%vp_ak135( 94) =   12.6226000000000
+  Mak135_V%vp_ak135( 95) =   12.5638000000000
+  Mak135_V%vp_ak135( 96) =   12.5030000000000
+  Mak135_V%vp_ak135( 97) =   12.4427000000000
+  Mak135_V%vp_ak135( 98) =   12.3813000000000
+  Mak135_V%vp_ak135( 99) =   12.3181000000000
+  Mak135_V%vp_ak135(100) =   12.2558000000000
+  Mak135_V%vp_ak135(101) =   12.1912000000000
+  Mak135_V%vp_ak135(102) =   12.1247000000000
+  Mak135_V%vp_ak135(103) =   12.0571000000000
+  Mak135_V%vp_ak135(104) =   11.9891000000000
+  Mak135_V%vp_ak135(105) =   11.9208000000000
+  Mak135_V%vp_ak135(106) =   11.8491000000000
+  Mak135_V%vp_ak135(107) =   11.7768000000000
+  Mak135_V%vp_ak135(108) =   11.7020000000000
+  Mak135_V%vp_ak135(109) =   11.6265000000000
+  Mak135_V%vp_ak135(110) =   11.5493000000000
+  Mak135_V%vp_ak135(111) =   11.4704000000000
+  Mak135_V%vp_ak135(112) =   11.3897000000000
+  Mak135_V%vp_ak135(113) =   11.3068000000000
+  Mak135_V%vp_ak135(114) =   11.2228000000000
+  Mak135_V%vp_ak135(115) =   11.1355000000000
+  Mak135_V%vp_ak135(116) =   11.0553000000000
+  Mak135_V%vp_ak135(117) =   10.9222000000000
+  Mak135_V%vp_ak135(118) =   10.7909000000000
+  Mak135_V%vp_ak135(119) =   10.2000000000000
+  Mak135_V%vp_ak135(120) =   10.0320000000000
+  Mak135_V%vp_ak135(121) =   9.86400000000000
+  Mak135_V%vp_ak135(122) =   9.69620000000000
+  Mak135_V%vp_ak135(123) =   9.52800000000000
+  Mak135_V%vp_ak135(124) =   9.36010000000000
+  Mak135_V%vp_ak135(125) =   9.03020000000000
+  Mak135_V%vp_ak135(126) =   8.84760000000000
+  Mak135_V%vp_ak135(127) =   8.66500000000000
+  Mak135_V%vp_ak135(128) =   8.48220000000000
+  Mak135_V%vp_ak135(129) =   8.30070000000000
+  Mak135_V%vp_ak135(130) =   8.30070000000000
+  Mak135_V%vp_ak135(131) =   8.17500000000000
+  Mak135_V%vp_ak135(132) =   8.05050000000000
+  Mak135_V%vp_ak135(133) =   8.04500000000000
+  Mak135_V%vp_ak135(134) =   8.04000000000000
+  Mak135_V%vp_ak135(135) =   8.03790000000000
+  Mak135_V%vp_ak135(136) =   8.03550000000000
+  Mak135_V%vp_ak135(137) =   6.80000000000000
+  Mak135_V%vp_ak135(138) =   6.80000000000000
+  Mak135_V%vp_ak135(139) =   5.80000000000000
+  Mak135_V%vp_ak135(140) =   5.80000000000000
+  Mak135_V%vp_ak135(141) =   5.80000000000000
+  Mak135_V%vp_ak135(142) =   5.80000000000000
+  Mak135_V%vp_ak135(143) =   5.80000000000000
+  Mak135_V%vp_ak135(144) =   5.80000000000000
+
+  Mak135_V%vs_ak135(  1) =   3.66780000000000
+  Mak135_V%vs_ak135(  2) =   3.66750000000000
+  Mak135_V%vs_ak135(  3) =   3.66670000000000
+  Mak135_V%vs_ak135(  4) =   3.66530000000000
+  Mak135_V%vs_ak135(  5) =   3.66330000000000
+  Mak135_V%vs_ak135(  6) =   3.66080000000000
+  Mak135_V%vs_ak135(  7) =   3.65770000000000
+  Mak135_V%vs_ak135(  8) =   3.65400000000000
+  Mak135_V%vs_ak135(  9) =   3.64980000000000
+  Mak135_V%vs_ak135( 10) =   3.64500000000000
+  Mak135_V%vs_ak135( 11) =   3.63960000000000
+  Mak135_V%vs_ak135( 12) =   3.63370000000000
+  Mak135_V%vs_ak135( 13) =   3.62720000000000
+  Mak135_V%vs_ak135( 14) =   3.62020000000000
+  Mak135_V%vs_ak135( 15) =   3.61260000000000
+  Mak135_V%vs_ak135( 16) =   3.60440000000000
+  Mak135_V%vs_ak135( 17) =   3.59570000000000
+  Mak135_V%vs_ak135( 18) =   3.58640000000000
+  Mak135_V%vs_ak135( 19) =   3.57650000000000
+  Mak135_V%vs_ak135( 20) =   3.56610000000000
+  Mak135_V%vs_ak135( 21) =   3.55510000000000
+  Mak135_V%vs_ak135( 22) =   3.54350000000000
+  Mak135_V%vs_ak135( 23) =   3.53140000000000
+  Mak135_V%vs_ak135( 24) =   3.51870000000000
+  Mak135_V%vs_ak135( 25) =   3.50430000000000
+  Mak135_V%vs_ak135( 26) =  0.000000000000000
+  Mak135_V%vs_ak135( 27) =  0.000000000000000
+  Mak135_V%vs_ak135( 28) =  0.000000000000000
+  Mak135_V%vs_ak135( 29) =  0.000000000000000
+  Mak135_V%vs_ak135( 30) =  0.000000000000000
+  Mak135_V%vs_ak135( 31) =  0.000000000000000
+  Mak135_V%vs_ak135( 32) =  0.000000000000000
+  Mak135_V%vs_ak135( 33) =  0.000000000000000
+  Mak135_V%vs_ak135( 34) =  0.000000000000000
+  Mak135_V%vs_ak135( 35) =  0.000000000000000
+  Mak135_V%vs_ak135( 36) =  0.000000000000000
+  Mak135_V%vs_ak135( 37) =  0.000000000000000
+  Mak135_V%vs_ak135( 38) =  0.000000000000000
+  Mak135_V%vs_ak135( 39) =  0.000000000000000
+  Mak135_V%vs_ak135( 40) =  0.000000000000000
+  Mak135_V%vs_ak135( 41) =  0.000000000000000
+  Mak135_V%vs_ak135( 42) =  0.000000000000000
+  Mak135_V%vs_ak135( 43) =  0.000000000000000
+  Mak135_V%vs_ak135( 44) =  0.000000000000000
+  Mak135_V%vs_ak135( 45) =  0.000000000000000
+  Mak135_V%vs_ak135( 46) =  0.000000000000000
+  Mak135_V%vs_ak135( 47) =  0.000000000000000
+  Mak135_V%vs_ak135( 48) =  0.000000000000000
+  Mak135_V%vs_ak135( 49) =  0.000000000000000
+  Mak135_V%vs_ak135( 50) =  0.000000000000000
+  Mak135_V%vs_ak135( 51) =  0.000000000000000
+  Mak135_V%vs_ak135( 52) =  0.000000000000000
+  Mak135_V%vs_ak135( 53) =  0.000000000000000
+  Mak135_V%vs_ak135( 54) =  0.000000000000000
+  Mak135_V%vs_ak135( 55) =  0.000000000000000
+  Mak135_V%vs_ak135( 56) =  0.000000000000000
+  Mak135_V%vs_ak135( 57) =  0.000000000000000
+  Mak135_V%vs_ak135( 58) =  0.000000000000000
+  Mak135_V%vs_ak135( 59) =  0.000000000000000
+  Mak135_V%vs_ak135( 60) =  0.000000000000000
+  Mak135_V%vs_ak135( 61) =  0.000000000000000
+  Mak135_V%vs_ak135( 62) =  0.000000000000000
+  Mak135_V%vs_ak135( 63) =  0.000000000000000
+  Mak135_V%vs_ak135( 64) =  0.000000000000000
+  Mak135_V%vs_ak135( 65) =  0.000000000000000
+  Mak135_V%vs_ak135( 66) =  0.000000000000000
+  Mak135_V%vs_ak135( 67) =  0.000000000000000
+  Mak135_V%vs_ak135( 68) =  0.000000000000000
+  Mak135_V%vs_ak135( 69) =  0.000000000000000
+  Mak135_V%vs_ak135( 70) =  0.000000000000000
+  Mak135_V%vs_ak135( 71) =  0.000000000000000
+  Mak135_V%vs_ak135( 72) =   7.28170000000000
+  Mak135_V%vs_ak135( 73) =   7.27000000000000
+  Mak135_V%vs_ak135( 74) =   7.25930000000000
+  Mak135_V%vs_ak135( 75) =   7.24850000000000
+  Mak135_V%vs_ak135( 76) =   7.24850000000000
+  Mak135_V%vs_ak135( 77) =   7.22530000000000
+  Mak135_V%vs_ak135( 78) =   7.20310000000000
+  Mak135_V%vs_ak135( 79) =   7.18040000000000
+  Mak135_V%vs_ak135( 80) =   7.15840000000000
+  Mak135_V%vs_ak135( 81) =   7.13680000000000
+  Mak135_V%vs_ak135( 82) =   7.11440000000000
+  Mak135_V%vs_ak135( 83) =   7.09320000000000
+  Mak135_V%vs_ak135( 84) =   7.07220000000000
+  Mak135_V%vs_ak135( 85) =   7.05040000000000
+  Mak135_V%vs_ak135( 86) =   7.02860000000000
+  Mak135_V%vs_ak135( 87) =   7.00690000000000
+  Mak135_V%vs_ak135( 88) =   6.98520000000000
+  Mak135_V%vs_ak135( 89) =   6.96250000000000
+  Mak135_V%vs_ak135( 90) =   6.94160000000000
+  Mak135_V%vs_ak135( 91) =   6.91940000000000
+  Mak135_V%vs_ak135( 92) =   6.89720000000000
+  Mak135_V%vs_ak135( 93) =   6.87430000000000
+  Mak135_V%vs_ak135( 94) =   6.85170000000000
+  Mak135_V%vs_ak135( 95) =   6.82890000000000
+  Mak135_V%vs_ak135( 96) =   6.80560000000000
+  Mak135_V%vs_ak135( 97) =   6.78200000000000
+  Mak135_V%vs_ak135( 98) =   6.75790000000000
+  Mak135_V%vs_ak135( 99) =   6.73230000000000
+  Mak135_V%vs_ak135(100) =   6.70700000000000
+  Mak135_V%vs_ak135(101) =   6.68130000000000
+  Mak135_V%vs_ak135(102) =   6.65540000000000
+  Mak135_V%vs_ak135(103) =   6.62850000000000
+  Mak135_V%vs_ak135(104) =   6.60090000000000
+  Mak135_V%vs_ak135(105) =   6.57280000000000
+  Mak135_V%vs_ak135(106) =   6.54310000000000
+  Mak135_V%vs_ak135(107) =   6.51310000000000
+  Mak135_V%vs_ak135(108) =   6.48220000000000
+  Mak135_V%vs_ak135(109) =   6.45140000000000
+  Mak135_V%vs_ak135(110) =   6.41820000000000
+  Mak135_V%vs_ak135(111) =   6.38600000000000
+  Mak135_V%vs_ak135(112) =   6.35190000000000
+  Mak135_V%vs_ak135(113) =   6.31640000000000
+  Mak135_V%vs_ak135(114) =   6.27990000000000
+  Mak135_V%vs_ak135(115) =   6.24240000000000
+  Mak135_V%vs_ak135(116) =   6.21000000000000
+  Mak135_V%vs_ak135(117) =   6.08980000000000
+  Mak135_V%vs_ak135(118) =   5.96070000000000
+  Mak135_V%vs_ak135(119) =   5.61040000000000
+  Mak135_V%vs_ak135(120) =   5.50470000000000
+  Mak135_V%vs_ak135(121) =   5.39890000000000
+  Mak135_V%vs_ak135(122) =   5.29220000000000
+  Mak135_V%vs_ak135(123) =   5.18640000000000
+  Mak135_V%vs_ak135(124) =   5.08060000000000
+  Mak135_V%vs_ak135(125) =   4.87020000000000
+  Mak135_V%vs_ak135(126) =   4.78320000000000
+  Mak135_V%vs_ak135(127) =   4.69640000000000
+  Mak135_V%vs_ak135(128) =   4.60940000000000
+  Mak135_V%vs_ak135(129) =   4.51840000000000
+  Mak135_V%vs_ak135(130) =   4.51840000000000
+  Mak135_V%vs_ak135(131) =   4.50900000000000
+  Mak135_V%vs_ak135(132) =   4.50000000000000
+  Mak135_V%vs_ak135(133) =   4.49000000000000
+  Mak135_V%vs_ak135(134) =   4.48000000000000
+  Mak135_V%vs_ak135(135) =   4.48560000000000
+  Mak135_V%vs_ak135(136) =   4.48390000000000
+  Mak135_V%vs_ak135(137) =   3.90000000000000
+  Mak135_V%vs_ak135(138) =   3.90000000000000
+  Mak135_V%vs_ak135(139) =   3.20000000000000
+  Mak135_V%vs_ak135(140) =   3.20000000000000
+  Mak135_V%vs_ak135(141) =   3.20000000000000
+  Mak135_V%vs_ak135(142) =   3.20000000000000
+  Mak135_V%vs_ak135(143) =   3.20000000000000
+  Mak135_V%vs_ak135(144) =   3.20000000000000
+
+  if (SUPPRESS_CRUSTAL_MESH) then
+    Mak135_V%vp_ak135(137:144) = Mak135_V%vp_ak135(136)
+    Mak135_V%vs_ak135(137:144) = Mak135_V%vs_ak135(136)
+    Mak135_V%density_ak135(137:144) = Mak135_V%density_ak135(136)
+  endif
+
+  Mak135_V%Qkappa_ak135(  1) =   601.270000000000
+  Mak135_V%Qkappa_ak135(  2) =   601.320000000000
+  Mak135_V%Qkappa_ak135(  3) =   601.460000000000
+  Mak135_V%Qkappa_ak135(  4) =   601.700000000000
+  Mak135_V%Qkappa_ak135(  5) =   602.050000000000
+  Mak135_V%Qkappa_ak135(  6) =   602.490000000000
+  Mak135_V%Qkappa_ak135(  7) =   603.040000000000
+  Mak135_V%Qkappa_ak135(  8) =   603.690000000000
+  Mak135_V%Qkappa_ak135(  9) =   604.440000000000
+  Mak135_V%Qkappa_ak135( 10) =   605.280000000000
+  Mak135_V%Qkappa_ak135( 11) =   606.260000000000
+  Mak135_V%Qkappa_ak135( 12) =   607.310000000000
+  Mak135_V%Qkappa_ak135( 13) =   608.480000000000
+  Mak135_V%Qkappa_ak135( 14) =   609.740000000000
+  Mak135_V%Qkappa_ak135( 15) =   611.120000000000
+  Mak135_V%Qkappa_ak135( 16) =   612.620000000000
+  Mak135_V%Qkappa_ak135( 17) =   614.210000000000
+  Mak135_V%Qkappa_ak135( 18) =   615.930000000000
+  Mak135_V%Qkappa_ak135( 19) =   617.780000000000
+  Mak135_V%Qkappa_ak135( 20) =   619.710000000000
+  Mak135_V%Qkappa_ak135( 21) =   621.500000000000
+  Mak135_V%Qkappa_ak135( 22) =   624.080000000000
+  Mak135_V%Qkappa_ak135( 23) =   626.870000000000
+  Mak135_V%Qkappa_ak135( 24) =   629.890000000000
+  Mak135_V%Qkappa_ak135( 25) =   633.260000000000
+  Mak135_V%Qkappa_ak135( 26) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 27) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 28) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 29) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 30) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 31) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 32) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 33) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 34) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 35) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 36) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 37) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 38) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 39) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 40) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 41) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 42) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 43) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 44) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 45) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 46) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 47) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 48) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 49) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 50) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 51) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 52) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 53) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 54) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 55) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 56) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 57) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 58) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 59) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 60) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 61) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 62) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 63) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 64) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 65) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 66) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 67) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 68) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 69) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 70) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 71) =   57822.0000000000
+  Mak135_V%Qkappa_ak135( 72) =   723.120000000000
+  Mak135_V%Qkappa_ak135( 73) =   725.110000000000
+  Mak135_V%Qkappa_ak135( 74) =   726.870000000000
+  Mak135_V%Qkappa_ak135( 75) =   722.730000000000
+  Mak135_V%Qkappa_ak135( 76) =   933.210000000000
+  Mak135_V%Qkappa_ak135( 77) =   940.880000000000
+  Mak135_V%Qkappa_ak135( 78) =   952.000000000000
+  Mak135_V%Qkappa_ak135( 79) =   960.360000000000
+  Mak135_V%Qkappa_ak135( 80) =   968.460000000000
+  Mak135_V%Qkappa_ak135( 81) =   976.810000000000
+  Mak135_V%Qkappa_ak135( 82) =   985.630000000000
+  Mak135_V%Qkappa_ak135( 83) =   990.770000000000
+  Mak135_V%Qkappa_ak135( 84) =   999.440000000000
+  Mak135_V%Qkappa_ak135( 85) =   1008.79000000000
+  Mak135_V%Qkappa_ak135( 86) =   1018.38000000000
+  Mak135_V%Qkappa_ak135( 87) =   1032.14000000000
+  Mak135_V%Qkappa_ak135( 88) =   1042.07000000000
+  Mak135_V%Qkappa_ak135( 89) =   1048.09000000000
+  Mak135_V%Qkappa_ak135( 90) =   1058.03000000000
+  Mak135_V%Qkappa_ak135( 91) =   1064.23000000000
+  Mak135_V%Qkappa_ak135( 92) =   1070.38000000000
+  Mak135_V%Qkappa_ak135( 93) =   1085.97000000000
+  Mak135_V%Qkappa_ak135( 94) =   1097.16000000000
+  Mak135_V%Qkappa_ak135( 95) =   1108.58000000000
+  Mak135_V%Qkappa_ak135( 96) =   1120.09000000000
+  Mak135_V%Qkappa_ak135( 97) =   1127.02000000000
+  Mak135_V%Qkappa_ak135( 98) =   1134.01000000000
+  Mak135_V%Qkappa_ak135( 99) =   1141.32000000000
+  Mak135_V%Qkappa_ak135(100) =   1148.76000000000
+  Mak135_V%Qkappa_ak135(101) =   1156.04000000000
+  Mak135_V%Qkappa_ak135(102) =   1163.16000000000
+  Mak135_V%Qkappa_ak135(103) =   1170.53000000000
+  Mak135_V%Qkappa_ak135(104) =   1178.19000000000
+  Mak135_V%Qkappa_ak135(105) =   1186.06000000000
+  Mak135_V%Qkappa_ak135(106) =   1193.99000000000
+  Mak135_V%Qkappa_ak135(107) =   1202.04000000000
+  Mak135_V%Qkappa_ak135(108) =   1210.02000000000
+  Mak135_V%Qkappa_ak135(109) =   1217.91000000000
+  Mak135_V%Qkappa_ak135(110) =   1226.52000000000
+  Mak135_V%Qkappa_ak135(111) =   1234.54000000000
+  Mak135_V%Qkappa_ak135(112) =   1243.02000000000
+  Mak135_V%Qkappa_ak135(113) =   1251.69000000000
+  Mak135_V%Qkappa_ak135(114) =   1260.68000000000
+  Mak135_V%Qkappa_ak135(115) =   1269.44000000000
+  Mak135_V%Qkappa_ak135(116) =   1277.93000000000
+  Mak135_V%Qkappa_ak135(117) =   1311.17000000000
+  Mak135_V%Qkappa_ak135(118) =   1350.54000000000
+  Mak135_V%Qkappa_ak135(119) =   428.690000000000
+  Mak135_V%Qkappa_ak135(120) =   425.510000000000
+  Mak135_V%Qkappa_ak135(121) =   422.550000000000
+  Mak135_V%Qkappa_ak135(122) =   419.940000000000
+  Mak135_V%Qkappa_ak135(123) =   417.320000000000
+  Mak135_V%Qkappa_ak135(124) =   413.660000000000
+  Mak135_V%Qkappa_ak135(125) =   377.930000000000
+  Mak135_V%Qkappa_ak135(126) =   366.340000000000
+  Mak135_V%Qkappa_ak135(127) =   355.850000000000
+  Mak135_V%Qkappa_ak135(128) =   346.370000000000
+  Mak135_V%Qkappa_ak135(129) =   338.470000000000
+  Mak135_V%Qkappa_ak135(130) =   200.970000000000
+  Mak135_V%Qkappa_ak135(131) =   188.720000000000
+  Mak135_V%Qkappa_ak135(132) =   182.570000000000
+  Mak135_V%Qkappa_ak135(133) =   182.030000000000
+  Mak135_V%Qkappa_ak135(134) =   1008.71000000000
+  Mak135_V%Qkappa_ak135(135) =   972.770000000000
+  Mak135_V%Qkappa_ak135(136) =   950.500000000000
+  Mak135_V%Qkappa_ak135(137) =   1368.02000000000
+  Mak135_V%Qkappa_ak135(138) =   1368.02000000000
+  Mak135_V%Qkappa_ak135(139) =   1478.30000000000
+  Mak135_V%Qkappa_ak135(140) =   1478.30000000000
+  Mak135_V%Qkappa_ak135(141) =   1478.30000000000
+  Mak135_V%Qkappa_ak135(142) =   1478.30000000000
+  Mak135_V%Qkappa_ak135(143) =   1478.30000000000
+  Mak135_V%Qkappa_ak135(144) =   1478.30000000000
+
+  Mak135_V%Qmu_ak135(  1) =   85.0300000000000
+  Mak135_V%Qmu_ak135(  2) =   85.0300000000000
+  Mak135_V%Qmu_ak135(  3) =   85.0300000000000
+  Mak135_V%Qmu_ak135(  4) =   85.0300000000000
+  Mak135_V%Qmu_ak135(  5) =   85.0300000000000
+  Mak135_V%Qmu_ak135(  6) =   85.0300000000000
+  Mak135_V%Qmu_ak135(  7) =   85.0300000000000
+  Mak135_V%Qmu_ak135(  8) =   85.0300000000000
+  Mak135_V%Qmu_ak135(  9) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 10) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 11) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 12) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 13) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 14) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 15) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 16) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 17) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 18) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 19) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 20) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 21) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 22) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 23) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 24) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 25) =   85.0300000000000
+  Mak135_V%Qmu_ak135( 26) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 27) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 28) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 29) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 30) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 31) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 32) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 33) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 34) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 35) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 36) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 37) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 38) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 39) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 40) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 41) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 42) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 43) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 44) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 45) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 46) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 47) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 48) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 49) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 50) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 51) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 52) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 53) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 54) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 55) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 56) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 57) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 58) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 59) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 60) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 61) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 62) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 63) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 64) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 65) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 66) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 67) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 68) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 69) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 70) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 71) =  0.000000000000000
+  Mak135_V%Qmu_ak135( 72) =   273.970000000000
+  Mak135_V%Qmu_ak135( 73) =   273.970000000000
+  Mak135_V%Qmu_ak135( 74) =   273.970000000000
+  Mak135_V%Qmu_ak135( 75) =   271.740000000000
+  Mak135_V%Qmu_ak135( 76) =   350.880000000000
+  Mak135_V%Qmu_ak135( 77) =   354.610000000000
+  Mak135_V%Qmu_ak135( 78) =   359.710000000000
+  Mak135_V%Qmu_ak135( 79) =   363.640000000000
+  Mak135_V%Qmu_ak135( 80) =   367.650000000000
+  Mak135_V%Qmu_ak135( 81) =   371.750000000000
+  Mak135_V%Qmu_ak135( 82) =   375.940000000000
+  Mak135_V%Qmu_ak135( 83) =   378.790000000000
+  Mak135_V%Qmu_ak135( 84) =   383.140000000000
+  Mak135_V%Qmu_ak135( 85) =   387.600000000000
+  Mak135_V%Qmu_ak135( 86) =   392.160000000000
+  Mak135_V%Qmu_ak135( 87) =   398.410000000000
+  Mak135_V%Qmu_ak135( 88) =   403.230000000000
+  Mak135_V%Qmu_ak135( 89) =   406.500000000000
+  Mak135_V%Qmu_ak135( 90) =   411.520000000000
+  Mak135_V%Qmu_ak135( 91) =   414.940000000000
+  Mak135_V%Qmu_ak135( 92) =   418.410000000000
+  Mak135_V%Qmu_ak135( 93) =   425.530000000000
+  Mak135_V%Qmu_ak135( 94) =   431.030000000000
+  Mak135_V%Qmu_ak135( 95) =   436.680000000000
+  Mak135_V%Qmu_ak135( 96) =   442.480000000000
+  Mak135_V%Qmu_ak135( 97) =   446.430000000000
+  Mak135_V%Qmu_ak135( 98) =   450.450000000000
+  Mak135_V%Qmu_ak135( 99) =   454.550000000000
+  Mak135_V%Qmu_ak135(100) =   458.720000000000
+  Mak135_V%Qmu_ak135(101) =   462.960000000000
+  Mak135_V%Qmu_ak135(102) =   467.290000000000
+  Mak135_V%Qmu_ak135(103) =   471.700000000000
+  Mak135_V%Qmu_ak135(104) =   476.190000000000
+  Mak135_V%Qmu_ak135(105) =   480.770000000000
+  Mak135_V%Qmu_ak135(106) =   485.440000000000
+  Mak135_V%Qmu_ak135(107) =   490.200000000000
+  Mak135_V%Qmu_ak135(108) =   495.050000000000
+  Mak135_V%Qmu_ak135(109) =   500.000000000000
+  Mak135_V%Qmu_ak135(110) =   505.050000000000
+  Mak135_V%Qmu_ak135(111) =   510.200000000000
+  Mak135_V%Qmu_ak135(112) =   515.460000000000
+  Mak135_V%Qmu_ak135(113) =   520.830000000000
+  Mak135_V%Qmu_ak135(114) =   526.320000000000
+  Mak135_V%Qmu_ak135(115) =   531.910000000000
+  Mak135_V%Qmu_ak135(116) =   537.630000000000
+  Mak135_V%Qmu_ak135(117) =   543.480000000000
+  Mak135_V%Qmu_ak135(118) =   549.450000000000
+  Mak135_V%Qmu_ak135(119) =   172.930000000000
+  Mak135_V%Qmu_ak135(120) =   170.820000000000
+  Mak135_V%Qmu_ak135(121) =   168.780000000000
+  Mak135_V%Qmu_ak135(122) =   166.800000000000
+  Mak135_V%Qmu_ak135(123) =   164.870000000000
+  Mak135_V%Qmu_ak135(124) =   162.500000000000
+  Mak135_V%Qmu_ak135(125) =   146.570000000000
+  Mak135_V%Qmu_ak135(126) =   142.760000000000
+  Mak135_V%Qmu_ak135(127) =   139.380000000000
+  Mak135_V%Qmu_ak135(128) =   136.380000000000
+  Mak135_V%Qmu_ak135(129) =   133.720000000000
+  Mak135_V%Qmu_ak135(130) =   79.4000000000000
+  Mak135_V%Qmu_ak135(131) =   76.5500000000000
+  Mak135_V%Qmu_ak135(132) =   76.0600000000000
+  Mak135_V%Qmu_ak135(133) =   75.6000000000000
+  Mak135_V%Qmu_ak135(134) =   417.590000000000
+  Mak135_V%Qmu_ak135(135) =   403.930000000000
+  Mak135_V%Qmu_ak135(136) =   394.620000000000
+  Mak135_V%Qmu_ak135(137) =   599.990000000000
+  Mak135_V%Qmu_ak135(138) =   599.990000000000
+  Mak135_V%Qmu_ak135(139) =   599.990000000000
+  Mak135_V%Qmu_ak135(140) =   599.990000000000
+  Mak135_V%Qmu_ak135(141) =   599.990000000000
+  Mak135_V%Qmu_ak135(142) =   599.990000000000
+  Mak135_V%Qmu_ak135(143) =   599.990000000000
+  Mak135_V%Qmu_ak135(144) =   599.990000000000
+
+! strip the crust and replace it by mantle
+  if(USE_EXTERNAL_CRUSTAL_MODEL) then
+    do i=NR_AK135-8,NR_AK135
+      Mak135_V%density_ak135(i) = Mak135_V%density_ak135(NR_AK135-9)
+      Mak135_V%vp_ak135(i) = Mak135_V%vp_ak135(NR_AK135-9)
+      Mak135_V%vs_ak135(i) = Mak135_V%vs_ak135(NR_AK135-9)
+      Mak135_V%Qkappa_ak135(i) = Mak135_V%Qkappa_ak135(NR_AK135-9)
+      Mak135_V%Qmu_ak135(i) = Mak135_V%Qmu_ak135(NR_AK135-9)
+    enddo
+  endif
+
+  end subroutine define_reference_1d_model
+

Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/crust2.0 (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/DATA/crust2.0)

Added: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/crust2.0/build.mk
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/crust2.0/build.mk	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/crust2.0/build.mk	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,7 @@
+
+crust_2_0_OBJECTS = \
+	$O/crustal_model.o \
+	$(EMPTY_MACRO)
+
+$O/crustal_model.o: constants.h $S/MODELS/crust2.0/crustal_model.f90
+	${MPIFCCOMPILE_CHECK} -c -o $O/crustal_model.o ${FCFLAGS_f90} $S/MODELS/crust2.0/crustal_model.f90

Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/crust2.0/crustal_model.f90 (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/crustal_model.f90)
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/crust2.0/crustal_model.f90	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/crust2.0/crustal_model.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,394 @@
+!=====================================================================
+!
+!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
+!          --------------------------------------------------
+!
+!          Main authors: Dimitri Komatitsch and Jeroen Tromp
+!    Seismological Laboratory, California Institute of Technology, USA
+!             and University of Pau / CNRS / INRIA, France
+! (c) California Institute of Technology and University of Pau / CNRS / INRIA
+!                            February 2008
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
+!
+! read and smooth crust2.0 model
+! based on software routines provided with the crust2.0 model by Bassin et al.
+!
+
+  module crustal_model_module
+
+  ! crustal model parameters for crust2.0
+  integer, parameter :: NKEYS_CRUST = 359
+  integer, parameter :: NLAYERS_CRUST = 8
+  integer, parameter :: NCAP_CRUST = 180
+
+  ! use sedimentary layers of crust 2.0
+  logical, parameter :: INCLUDE_SEDIMENTS_CRUST = .true.
+
+! crustal_model_variables
+  type crustal_model_variables
+    sequence
+    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: thlr
+    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocp
+    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocs
+    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: dens
+    character(len=2) abbreviation(NCAP_CRUST/2,NCAP_CRUST)
+    character(len=2) code(NKEYS_CRUST)
+  end type crustal_model_variables
+
+  type (crustal_model_variables) CM_V
+! crustal_model_variables
+
+  end module
+
+!---------------------------
+
+  subroutine read_crust_2_0(myrank)
+
+  use crustal_model_module
+  implicit none
+  include 'mpif.h'
+  include "constants.h"
+
+  integer myrank,ier
+
+! the variables read are declared and stored in structure CM_V
+  if(myrank == 0) call read_crustal_model()
+! broadcast the information read on the master to the nodes
+  call MPI_BCAST(CM_V%thlr,NKEYS_CRUST*NLAYERS_CRUST,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(CM_V%velocp,NKEYS_CRUST*NLAYERS_CRUST,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(CM_V%velocs,NKEYS_CRUST*NLAYERS_CRUST,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(CM_V%dens,NKEYS_CRUST*NLAYERS_CRUST,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(CM_V%abbreviation,NCAP_CRUST*NCAP_CRUST,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(CM_V%code,2*NKEYS_CRUST,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
+
+  end subroutine read_crust_2_0
+
+!---------------------------
+
+  subroutine crustal_model(lat,lon,x,vp,vs,rho,moho,found_crust)
+
+  use crustal_model_module
+  implicit none
+  include "constants.h"
+
+  double precision lat,lon,x,vp,vs,rho,moho
+  logical found_crust
+
+  double precision h_sed,h_uc
+  double precision x3,x4,x5,x6,x7,scaleval
+  double precision vps(NLAYERS_CRUST),vss(NLAYERS_CRUST),rhos(NLAYERS_CRUST),thicks(NLAYERS_CRUST)
+
+  call crust(lat,lon,vps,vss,rhos,thicks,CM_V%abbreviation,CM_V%code,CM_V%thlr,CM_V%velocp,CM_V%velocs,CM_V%dens)
+
+ x3 = (R_EARTH-thicks(3)*1000.0d0)/R_EARTH
+ h_sed = thicks(3) + thicks(4)
+ x4 = (R_EARTH-h_sed*1000.0d0)/R_EARTH
+ h_uc = h_sed + thicks(5)
+ x5 = (R_EARTH-h_uc*1000.0d0)/R_EARTH
+ x6 = (R_EARTH-(h_uc+thicks(6))*1000.0d0)/R_EARTH
+ x7 = (R_EARTH-(h_uc+thicks(6)+thicks(7))*1000.0d0)/R_EARTH
+
+ found_crust = .true.
+ if(x > x3 .and. INCLUDE_SEDIMENTS_CRUST) then
+   vp = vps(3)
+   vs = vss(3)
+   rho = rhos(3)
+ else if(x > x4 .and. INCLUDE_SEDIMENTS_CRUST) then
+   vp = vps(4)
+   vs = vss(4)
+   rho = rhos(4)
+ else if(x > x5) then
+   vp = vps(5)
+   vs = vss(5)
+   rho = rhos(5)
+ else if(x > x6) then
+   vp = vps(6)
+   vs = vss(6)
+   rho = rhos(6)
+ else if(x > x7) then
+   vp = vps(7)
+   vs = vss(7)
+   rho = rhos(7)
+ else
+   found_crust = .false.
+ endif
+
+ if (found_crust) then
+!   non-dimensionalize
+    scaleval = dsqrt(PI*GRAV*RHOAV)
+    vp = vp*1000.0d0/(R_EARTH*scaleval)
+    vs = vs*1000.0d0/(R_EARTH*scaleval)
+    rho = rho*1000.0d0/RHOAV
+    moho = (h_uc+thicks(6)+thicks(7))*1000.0d0/R_EARTH
+ endif
+
+ end subroutine crustal_model
+
+!---------------------------
+
+  subroutine read_crustal_model()
+
+  use crustal_model_module
+  implicit none
+  include "constants.h"
+
+! local variables
+  integer i
+  integer ila,icolat
+  integer ikey
+
+  double precision h_moho_min,h_moho_max
+
+  character(len=150) CNtype2, CNtype2_key_modif
+
+  call get_value_string(CNtype2, 'model.CNtype2', 'DATA/crust2.0/CNtype2.txt')
+  call get_value_string(CNtype2_key_modif, 'model.CNtype2_key_modif', 'DATA/crust2.0/CNtype2_key_modif.txt')
+
+  open(unit=1,file=CNtype2,status='old',action='read')
+  do ila=1,NCAP_CRUST/2
+    read(1,*) icolat,(CM_V%abbreviation(ila,i),i=1,NCAP_CRUST)
+  enddo
+  close(1)
+
+  open(unit=1,file=CNtype2_key_modif,status='old',action='read')
+  h_moho_min=HUGEVAL
+  h_moho_max=-HUGEVAL
+  do ikey=1,NKEYS_CRUST
+    read (1,"(a2)") CM_V%code(ikey)
+    read (1,*) (CM_V%velocp(ikey,i),i=1,NLAYERS_CRUST)
+    read (1,*) (CM_V%velocs(ikey,i),i=1,NLAYERS_CRUST)
+    read (1,*) (CM_V%dens(ikey,i),i=1,NLAYERS_CRUST)
+    read (1,*) (CM_V%thlr(ikey,i),i=1,NLAYERS_CRUST-1),CM_V%thlr(ikey,NLAYERS_CRUST)
+    if(CM_V%thlr(ikey,NLAYERS_CRUST) > h_moho_max) h_moho_max=CM_V%thlr(ikey,NLAYERS_CRUST)
+    if(CM_V%thlr(ikey,NLAYERS_CRUST) < h_moho_min) h_moho_min=CM_V%thlr(ikey,NLAYERS_CRUST)
+  enddo
+  close(1)
+
+  if(h_moho_min == HUGEVAL .or. h_moho_max == -HUGEVAL) &
+    stop 'incorrect moho depths in read_3D_crustal_model'
+
+  end subroutine read_crustal_model
+
+!---------------------------
+
+  subroutine crust(lat,lon,velp,vels,rho,thick,abbreviation,code,thlr,velocp,velocs,dens)
+
+! crustal vp and vs in km/s, layer thickness in km
+! crust2.0 is smoothed with a cap of size CAP using NTHETA points
+! in the theta direction and NPHI in the phi direction.
+! The cap is rotated to the North Pole.
+
+  use crustal_model_module
+  implicit none
+  include "constants.h"
+
+  integer, parameter :: NTHETA = 2
+  integer, parameter :: NPHI = 10
+  double precision, parameter :: CAP = 2.0d0*PI/180.0d0
+
+! argument variables
+  double precision lat,lon
+  double precision rho(NLAYERS_CRUST),thick(NLAYERS_CRUST),velp(NLAYERS_CRUST),vels(NLAYERS_CRUST)
+  double precision thlr(NKEYS_CRUST,NLAYERS_CRUST),velocp(NKEYS_CRUST,NLAYERS_CRUST)
+  double precision velocs(NKEYS_CRUST,NLAYERS_CRUST),dens(NKEYS_CRUST,NLAYERS_CRUST)
+  character(len=2) code(NKEYS_CRUST),abbreviation(NCAP_CRUST/2,NCAP_CRUST)
+
+! local variables
+  integer i,j,k,icolat,ilon,ierr
+  integer itheta,iphi,npoints
+  double precision theta,phi,sint,cost,sinp,cosp,dtheta,dphi,cap_area,wght,total
+  double precision r_rot,theta_rot,phi_rot
+  double precision rotation_matrix(3,3),x(3),xc(3)
+  double precision xlon(NTHETA*NPHI),xlat(NTHETA*NPHI),weight(NTHETA*NPHI)
+  double precision rhol(NLAYERS_CRUST),thickl(NLAYERS_CRUST),velpl(NLAYERS_CRUST),velsl(NLAYERS_CRUST)
+  character(len=2) crustaltype
+
+! get integer colatitude and longitude of crustal cap
+! -90<lat<90 -180<lon<180
+  if(lat > 90.0d0 .or. lat < -90.0d0 .or. lon > 180.0d0 .or. lon < -180.0d0) &
+    stop 'error in latitude/longitude range in crust'
+  if(lat==90.0d0) lat=89.9999d0
+  if(lat==-90.0d0) lat=-89.9999d0
+  if(lon==180.0d0) lon=179.9999d0
+  if(lon==-180.0d0) lon=-179.9999d0
+
+  call icolat_ilon(lat,lon,icolat,ilon)
+  crustaltype=abbreviation(icolat,ilon)
+  call get_crust_structure(crustaltype,velp,vels,rho,thick, &
+                    code,thlr,velocp,velocs,dens,ierr)
+
+!  uncomment the following line to use crust2.0 as is, without smoothing
+!
+!  return
+
+  theta = (90.0-lat)*PI/180.0
+  phi = lon*PI/180.0
+
+  sint = sin(theta)
+  cost = cos(theta)
+  sinp = sin(phi)
+  cosp = cos(phi)
+
+! set up rotation matrix to go from cap at North pole
+! to cap around point of interest
+  rotation_matrix(1,1) = cosp*cost
+  rotation_matrix(1,2) = -sinp
+  rotation_matrix(1,3) = cosp*sint
+  rotation_matrix(2,1) = sinp*cost
+  rotation_matrix(2,2) = cosp
+  rotation_matrix(2,3) = sinp*sint
+  rotation_matrix(3,1) = -sint
+  rotation_matrix(3,2) = 0.0
+  rotation_matrix(3,3) = cost
+
+  dtheta = CAP/dble(NTHETA)
+  dphi = 2.0*PI/dble(NPHI)
+  cap_area = 2.0*PI*(1.0-cos(CAP))
+
+! integrate over a cap at the North pole
+  i = 0
+  total = 0.0
+  do itheta = 1,NTHETA
+
+    theta = 0.5*dble(2*itheta-1)*CAP/dble(NTHETA)
+    cost = cos(theta)
+    sint = sin(theta)
+    wght = sint*dtheta*dphi/cap_area
+
+    do iphi = 1,NPHI
+
+      i = i+1
+!     get the weight associated with this integration point (same for all phi)
+      weight(i) = wght
+      total = total + weight(i)
+      phi = dble(2*iphi-1)*PI/dble(NPHI)
+      cosp = cos(phi)
+      sinp = sin(phi)
+!     x,y,z coordinates of integration point in cap at North pole
+      xc(1) = sint*cosp
+      xc(2) = sint*sinp
+      xc(3) = cost
+!     get x,y,z coordinates in cap around point of interest
+      do j=1,3
+        x(j) = 0.0
+        do k=1,3
+          x(j) = x(j)+rotation_matrix(j,k)*xc(k)
+        enddo
+      enddo
+!     get latitude and longitude (degrees) of integration point
+      call xyz_2_rthetaphi_dble(x(1),x(2),x(3),r_rot,theta_rot,phi_rot)
+      call reduce(theta_rot,phi_rot)
+      xlat(i) = (PI/2.0-theta_rot)*180.0/PI
+      xlon(i) = phi_rot*180.0/PI
+      if(xlon(i) > 180.0) xlon(i) = xlon(i)-360.0
+
+    enddo
+
+  enddo
+
+  if(abs(total-1.0) > 0.001) stop 'error in cap integration for crust2.0'
+
+  npoints = i
+
+  do j=1,NLAYERS_CRUST
+    rho(j)=0.0d0
+    thick(j)=0.0d0
+    velp(j)=0.0d0
+    vels(j)=0.0d0
+  enddo
+
+  do i=1,npoints
+    call icolat_ilon(xlat(i),xlon(i),icolat,ilon)
+    crustaltype=abbreviation(icolat,ilon)
+    call get_crust_structure(crustaltype,velpl,velsl,rhol,thickl, &
+                    code,thlr,velocp,velocs,dens,ierr)
+    if(ierr /= 0) stop 'error in routine get_crust_structure'
+    do j=1,NLAYERS_CRUST
+      rho(j)=rho(j)+weight(i)*rhol(j)
+      thick(j)=thick(j)+weight(i)*thickl(j)
+      velp(j)=velp(j)+weight(i)*velpl(j)
+      vels(j)=vels(j)+weight(i)*velsl(j)
+    enddo
+  enddo
+
+  end subroutine crust
+
+!------------------------------------------------------
+
+  subroutine icolat_ilon(xlat,xlon,icolat,ilon)
+
+  implicit none
+
+
+! argument variables
+  double precision xlat,xlon
+  integer icolat,ilon
+
+  if(xlat > 90.0d0 .or. xlat < -90.0d0 .or. xlon > 180.0d0 .or. xlon < -180.0d0) &
+    stop 'error in latitude/longitude range in icolat_ilon'
+  icolat=int(1+((90.d0-xlat)/2.d0))
+  if(icolat == 91) icolat=90
+  ilon=int(1+((180.d0+xlon)/2.d0))
+  if(ilon == 181) ilon=1
+
+  if(icolat>90 .or. icolat<1) stop 'error in routine icolat_ilon'
+  if(ilon<1 .or. ilon>180) stop 'error in routine icolat_ilon'
+
+  end subroutine icolat_ilon
+
+!---------------------------------------------------------------------
+
+  subroutine get_crust_structure(type,vptyp,vstyp,rhtyp,thtp, &
+               code,thlr,velocp,velocs,dens,ierr)
+
+  use crustal_model_module
+  implicit none
+  include "constants.h"
+
+
+! argument variables
+  integer ierr
+  double precision rhtyp(NLAYERS_CRUST),thtp(NLAYERS_CRUST)
+  double precision vptyp(NLAYERS_CRUST),vstyp(NLAYERS_CRUST)
+  character(len=2) type,code(NKEYS_CRUST)
+  double precision thlr(NKEYS_CRUST,NLAYERS_CRUST),velocp(NKEYS_CRUST,NLAYERS_CRUST)
+  double precision velocs(NKEYS_CRUST,NLAYERS_CRUST),dens(NKEYS_CRUST,NLAYERS_CRUST)
+
+! local variables
+  integer i,ikey
+
+  ierr=1
+  do ikey=1,NKEYS_CRUST
+  if (code(ikey) == type) then
+    do i=1,NLAYERS_CRUST
+      vptyp(i)=velocp(ikey,i)
+      vstyp(i)=velocs(ikey,i)
+      rhtyp(i)=dens(ikey,i)
+    enddo
+    do i=1,NLAYERS_CRUST-1
+      thtp(i)=thlr(ikey,i)
+    enddo
+!   get distance to Moho from the bottom of the ocean or the ice
+    thtp(NLAYERS_CRUST)=thlr(ikey,NLAYERS_CRUST)-thtp(1)-thtp(2)
+    ierr=0
+  endif
+  enddo
+
+  end subroutine get_crust_structure
+

Added: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/iasp91/build.mk
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/iasp91/build.mk	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/iasp91/build.mk	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,7 @@
+
+reference_1d_model_OBJECTS = \
+	$O/model_iasp91.o \
+	$(EMPTY_MACRO)
+
+$O/model_iasp91.o: constants.h $S/MODELS/iasp91/model_iasp91.f90
+	${MPIFCCOMPILE_CHECK} -c -o $O/model_iasp91.o ${FCFLAGS_f90} $S/MODELS/iasp91/model_iasp91.f90

Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/iasp91/model_iasp91.f90 (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/model_iasp91.f90)
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/iasp91/model_iasp91.f90	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/iasp91/model_iasp91.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,387 @@
+!=====================================================================
+!
+!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
+!          --------------------------------------------------
+!
+!          Main authors: Dimitri Komatitsch and Jeroen Tromp
+!    Seismological Laboratory, California Institute of Technology, USA
+!             and University of Pau / CNRS / INRIA, France
+! (c) California Institute of Technology and University of Pau / CNRS / INRIA
+!                            February 2008
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
+  subroutine get_reference_1d_model_radii(ROCEAN,RMIDDLE_CRUST,RMOHO, &
+     R80,R120,R220,R400,R600,R670,R771, &
+     RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC)
+
+  implicit none
+
+  include "constants.h"
+
+  double precision ROCEAN,RMIDDLE_CRUST,RMOHO, &
+       R80,R120,R220,R400,R600,R670,R771, &
+       RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC
+
+  ! IASP91
+  ROCEAN = 6371000.d0
+  RMIDDLE_CRUST = 6351000.d0
+  RMOHO = 6336000.d0
+  R80  = 6291000.d0
+  R120 = 6251000.d0
+  R220 = 6161000.d0
+  R400 = 5961000.d0
+  ! there is no d600 discontinuity in IASP91 therefore this value is useless
+  ! but it needs to be there for compatibility with other subroutines
+  R600 = R_EARTH - 600000.d0
+  R670 = 5711000.d0
+  R771 = 5611000.d0
+  RTOPDDOUBLEPRIME = 3631000.d0
+  RCMB = 3482000.d0
+  RICB = 1217000.d0
+
+  RHO_TOP_OC = 9900.2379 / RHOAV
+  RHO_BOTTOM_OC = 12168.6383 / RHOAV
+
+  end subroutine get_reference_1d_model_radii
+
+!-------------------
+
+  subroutine reference_1d_model_adjust_time_step(DT)
+
+  double precision DT
+
+  ! no-op
+
+  end subroutine reference_1d_model_adjust_time_step
+
+!-------------------
+
+  subroutine reference_1d_model_aniso_inner_core_model_setup(x,vp,vp0,vs,vs0,rho,rho0)
+
+  implicit none
+
+  double precision x,vp,vp0,vs,vs0,rho,rho0
+
+  vp=11.24094d0-4.09689d0*x*x
+  vs=3.56454d0-3.45241d0*x*x
+  rho=13.0885d0-8.8381d0*x*x
+
+! values at center
+  vp0=11.24094d0
+  vs0=3.56454d0
+  rho0=13.0885d0
+
+  end subroutine reference_1d_model_aniso_inner_core_model_setup
+
+!-------------------
+
+  subroutine define_reference_1d_model(USE_EXTERNAL_CRUSTAL_MODEL)
+
+  logical USE_EXTERNAL_CRUSTAL_MODEL
+
+  ! no-op
+
+  end subroutine define_reference_1d_model
+
+!-------------------
+
+  subroutine reference_1d_model_attenuation_model_setup(AM_V)
+
+  implicit none
+
+  include "constants.h"
+
+! attenuation_model_variables
+  type attenuation_model_variables
+    sequence
+    double precision min_period, max_period
+    double precision                          :: QT_c_source        ! Source Frequency
+    double precision, dimension(:), pointer   :: Qtau_s             ! tau_sigma
+    double precision, dimension(:), pointer   :: QrDisc             ! Discontinutitues Defined
+    double precision, dimension(:), pointer   :: Qr                 ! Radius
+    integer, dimension(:), pointer            :: interval_Q                 ! Steps
+    double precision, dimension(:), pointer   :: Qmu                ! Shear Attenuation
+    double precision, dimension(:,:), pointer :: Qtau_e             ! tau_epsilon
+    double precision, dimension(:), pointer   :: Qomsb, Qomsb2      ! one_minus_sum_beta
+    double precision, dimension(:,:), pointer :: Qfc, Qfc2          ! factor_common
+    double precision, dimension(:), pointer   :: Qsf, Qsf2          ! scale_factor
+    integer, dimension(:), pointer            :: Qrmin              ! Max and Mins of idoubling
+    integer, dimension(:), pointer            :: Qrmax              ! Max and Mins of idoubling
+    integer                                   :: Qn                 ! Number of points
+  end type attenuation_model_variables
+
+  type (attenuation_model_variables) AM_V
+! attenuation_model_variables
+
+  double precision ROCEAN,RMIDDLE_CRUST,RMOHO, &
+       R80,R120,R220,R400,R600,R670,R771, &
+       RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC
+
+  call get_reference_1d_model_radii(ROCEAN,RMIDDLE_CRUST,RMOHO, &
+       R80,R120,R220,R400,R600,R670,R771, &
+       RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC)
+
+  AM_V%Qn = 12
+
+  allocate(AM_V%Qr(AM_V%Qn))
+  allocate(AM_V%Qmu(AM_V%Qn))
+  allocate(AM_V%interval_Q(AM_V%Qn))
+  allocate(AM_V%Qtau_e(N_SLS,AM_V%Qn))
+
+  AM_V%Qr(:)     = (/    0.0d0,     RICB,  RICB,  RCMB,    RCMB,    R670,    R670,    R220,   R220,   R120,    R120, R_EARTH /)
+  AM_V%Qmu(:)    = (/   84.6d0,   84.6d0, 0.0d0, 0.0d0, 312.0d0, 312.0d0, 143.0d0, 143.0d0, 80.0d0, 80.0d0, 600.0d0, 600.0d0 /)
+
+  end subroutine reference_1d_model_attenuation_model_setup
+
+!-------------------
+
+  subroutine get_reference_1d_model(myrank,r_prem,rho,vpv,vph,vsv,vsh,eta_aniso, &
+       Qkappa,Qmu,idoubling,iregion_code,CRUSTAL,ONE_CRUST,TRANSVERSE_ISOTROPY, &
+       ISOTROPIC_3D_MANTLE)
+
+    implicit none
+
+    logical CRUSTAL,ONE_CRUST,TRANSVERSE_ISOTROPY,ISOTROPIC_3D_MANTLE
+    integer myrank,idoubling,iregion_code
+    double precision r_prem,rho,Qkappa,Qmu,vpv,vph,vsv,vsh,eta_aniso
+
+    double precision vp,vs
+
+    if(TRANSVERSE_ISOTROPY) then
+       stop 'reference Earth model iasp91 is not transversely isotropic'
+    endif
+
+    call model_iasp91(myrank,r_prem,rho,vp,vs,Qkappa,Qmu,idoubling, &
+         ONE_CRUST,.true.)
+
+    vpv = vp
+    vph = vp
+    vsv = vs
+    vsh = vs
+    eta_aniso = 1.d0
+
+  end subroutine get_reference_1d_model
+
+!-------------------
+
+  subroutine model_iasp91(myrank,x,rho,vp,vs,Qkappa,Qmu,idoubling,ONE_CRUST,check_doubling_flag)
+
+  implicit none
+
+  include "constants.h"
+
+! given a normalized radius x, gives the non-dimesionalized density rho,
+! speeds vp and vs, and the quality factors Qkappa and Qmu
+
+  logical check_doubling_flag
+
+  integer idoubling,myrank
+
+  double precision x,rho,vp,vs,Qkappa,Qmu,RICB,RCMB,RTOPDDOUBLEPRIME,R771,R670,R400,R220,R120,RMOHO,RMIDDLE_CRUST
+  double precision ROCEAN,R80,R600,RHO_TOP_OC,RHO_BOTTOM_OC
+
+  logical ONE_CRUST
+
+  double precision r,scaleval
+
+  double precision x1,x2
+
+  call get_reference_1d_model_radii(ROCEAN,RMIDDLE_CRUST,RMOHO, &
+       R80,R120,R220,R400,R600,R670,R771, &
+       RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC)
+
+! compute real physical radius in meters
+  r = x * R_EARTH
+
+  x1 = R120 / R_EARTH
+  x2 = RMOHO / R_EARTH
+
+! check flags to make sure we correctly honor the discontinuities
+! we use strict inequalities since r has been slighly changed in mesher
+
+  if(check_doubling_flag) then
+
+!
+!--- inner core
+!
+  if(r >= 0.d0 .and. r < RICB) then
+    if(idoubling /= IFLAG_INNER_CORE_NORMAL .and. &
+       idoubling /= IFLAG_MIDDLE_CENTRAL_CUBE .and. &
+       idoubling /= IFLAG_BOTTOM_CENTRAL_CUBE .and. &
+       idoubling /= IFLAG_TOP_CENTRAL_CUBE .and. &
+       idoubling /= IFLAG_IN_FICTITIOUS_CUBE) &
+         call exit_MPI(myrank,'wrong doubling flag for inner core point')
+!
+!--- outer core
+!
+  else if(r > RICB .and. r < RCMB) then
+    if(idoubling /= IFLAG_OUTER_CORE_NORMAL) &
+      call exit_MPI(myrank,'wrong doubling flag for outer core point')
+!
+!--- D" at the base of the mantle
+!
+  else if(r > RCMB .and. r < RTOPDDOUBLEPRIME) then
+    if(idoubling /= IFLAG_MANTLE_NORMAL) &
+      call exit_MPI(myrank,'wrong doubling flag for D" point')
+!
+!--- mantle: from top of D" to d670
+!
+  else if(r > RTOPDDOUBLEPRIME .and. r < R670) then
+    if(idoubling /= IFLAG_MANTLE_NORMAL) &
+      call exit_MPI(myrank,'wrong doubling flag for top D" -> d670 point')
+
+!
+!--- mantle: from d670 to d220
+!
+  else if(r > R670 .and. r < R220) then
+    if(idoubling /= IFLAG_670_220) &
+      call exit_MPI(myrank,'wrong doubling flag for d670 -> d220 point')
+
+!
+!--- mantle and crust: from d220 to MOHO and then to surface
+!
+  else if(r > R220) then
+    if(idoubling /= IFLAG_220_80 .and. idoubling /= IFLAG_80_MOHO .and. idoubling /= IFLAG_CRUST) &
+      call exit_MPI(myrank,'wrong doubling flag for d220 -> Moho -> surface point')
+
+  endif
+
+  endif
+
+!
+!--- inner core
+!
+  if(r >= 0.d0 .and. r <= RICB) then
+    rho=13.0885d0-8.8381d0*x*x
+    vp=11.24094-4.09689*x**2
+    vs=3.56454-3.45241*x**2
+    Qmu=84.6d0
+    Qkappa=1327.7d0
+!
+!--- outer core
+!
+  else if(r > RICB .and. r <= RCMB) then
+    rho=12.5815d0-1.2638d0*x-3.6426d0*x*x-5.5281d0*x*x*x
+    vp=10.03904+3.75665*x-13.67046*x**2
+    vs=0.0d0
+    Qmu=0.0d0
+    Qkappa=57827.0d0
+!
+!--- D" at the base of the mantle
+!
+  else if(r > RCMB .and. r <= RTOPDDOUBLEPRIME) then
+    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
+    vp=14.49470-1.47089*x
+    vs=8.16616-1.58206*x
+    Qmu=312.0d0
+    Qkappa=57827.0d0
+
+!
+!--- mantle: from top of D" to d670
+!
+  else if(r > RTOPDDOUBLEPRIME .and. r <= R771) then
+    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
+    vp=25.1486-41.1538*x+51.9932*x**2-26.6083*x**3
+    vs=12.9303-21.2590*x+27.8988*x**2-14.1080*x**3
+    Qmu=312.0d0
+    Qkappa=57827.0d0
+  else if(r > R771 .and. r <= R670) then
+    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
+    vp=25.96984-16.93412*x
+    vs=20.76890-16.53147*x
+    Qmu=312.0d0
+    Qkappa=57827.0d0
+!
+!--- mantle: above d670
+!
+  else if(r > R670 .and. r <= R400) then
+    rho=5.3197d0-1.4836d0*x
+    vp=29.38896-21.40656*x
+    vs=17.70732-13.50652*x
+    Qmu=143.0d0
+    Qkappa=57827.0d0
+  else if(r > R400 .and. r <= R220) then
+    rho=7.1089d0-3.8045d0*x
+    vp=30.78765-23.25415*x
+    vs=15.24213-11.08552*x
+    Qmu=143.0d0
+    Qkappa=57827.0d0
+
+! from Sebastien Chevrot: for the IASP91 model
+! Depth        R                Vp                    Vs
+! 0-20       6351-6371         5.80                  3.36
+! 20-35      6336-6351         6.50                  3.75
+! 35-120     6251-6336   8.78541-0.74953 x       6.706231-2.248585 x
+! with x = r / 6371
+
+  else if(r > R220 .and. r <= R120) then
+    rho=2.6910d0+0.6924d0*x
+    vp=25.41389-17.69722*x
+    vs=5.75020-1.27420*x
+    Qmu=80.0d0
+    Qkappa=57827.0d0
+
+  else if(r > R120 .and. r <= RMOHO) then
+      vp = 8.78541d0-0.74953d0*x
+      vs = 6.706231d0-2.248585d0*x
+      rho = 3.3713d0 + (3.3198d0-3.3713d0)*(x-x1)/(x2-x1)
+      if(rho < 3.30d0 .or. rho > 3.38d0) stop 'incorrect density computed for IASP91'
+      Qmu=600.0d0
+      Qkappa=57827.0d0
+
+  else if (SUPPRESS_CRUSTAL_MESH) then
+!! DK DK extend the Moho up to the surface instead of the crust
+          vp = 8.78541d0-0.74953d0*(RMOHO / R_EARTH)
+          vs = 6.706231d0-2.248585d0*(RMOHO / R_EARTH)
+          rho = 3.3198d0
+          Qmu=600.0d0
+          Qkappa=57827.0d0
+
+  else if(r > RMOHO .and. r <= RMIDDLE_CRUST) then
+      vp = 6.5d0
+      vs = 3.75d0
+      rho = 2.92d0
+      Qmu=600.0d0
+      Qkappa=57827.0d0
+
+! same properties everywhere in PREM crust if we decide to define only one layer in the crust
+      if(ONE_CRUST) then
+        vp = 5.8d0
+        vs = 3.36d0
+        rho = 2.72d0
+        Qmu=600.0d0
+        Qkappa=57827.0d0
+      endif
+
+  else
+      vp = 5.8d0
+      vs = 3.36d0
+      rho = 2.72d0
+      Qmu=600.0d0
+      Qkappa=57827.0d0
+  endif
+
+! non-dimensionalize
+! time scaling (s^{-1}) is done with scaleval
+  scaleval=dsqrt(PI*GRAV*RHOAV)
+  rho=rho*1000.0d0/RHOAV
+  vp=vp*1000.0d0/(R_EARTH*scaleval)
+  vs=vs*1000.0d0/(R_EARTH*scaleval)
+
+  end subroutine model_iasp91
+

Added: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/prem/build.mk
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/prem/build.mk	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/prem/build.mk	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,7 @@
+
+reference_1d_model_OBJECTS = \
+	$O/model_prem.o \
+	$(EMPTY_MACRO)
+
+$O/model_prem.o: constants.h $S/MODELS/prem/model_prem.f90
+	${FCCOMPILE_CHECK} -c -o $O/model_prem.o ${FCFLAGS_f90} $S/MODELS/prem/model_prem.f90

Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/prem/model_prem.f90 (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/model_prem.f90)
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/prem/model_prem.f90	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/prem/model_prem.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,445 @@
+!=====================================================================
+!
+!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
+!          --------------------------------------------------
+!
+!          Main authors: Dimitri Komatitsch and Jeroen Tromp
+!    Seismological Laboratory, California Institute of Technology, USA
+!             and University of Pau / CNRS / INRIA, France
+! (c) California Institute of Technology and University of Pau / CNRS / INRIA
+!                            February 2008
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
+  subroutine get_reference_1d_model_radii(ROCEAN,RMIDDLE_CRUST,RMOHO, &
+     R80,R120,R220,R400,R600,R670,R771, &
+     RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC)
+
+  implicit none
+
+  include "constants.h"
+
+  double precision ROCEAN,RMIDDLE_CRUST,RMOHO, &
+       R80,R120,R220,R400,R600,R670,R771, &
+       RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC
+
+  ! PREM
+  ROCEAN = 6368000.d0
+  RMIDDLE_CRUST = 6356000.d0
+  RMOHO = 6346600.d0
+  R80  = 6291000.d0
+  R220 = 6151000.d0
+  R400 = 5971000.d0
+  R600 = 5771000.d0
+  R670 = 5701000.d0
+  R771 = 5600000.d0
+  RTOPDDOUBLEPRIME = 3630000.d0
+  RCMB = 3480000.d0
+  RICB = 1221000.d0
+
+  RHO_TOP_OC = 9903.4384 / RHOAV
+  RHO_BOTTOM_OC = 12166.5885 / RHOAV
+
+  end subroutine get_reference_1d_model_radii
+
+!
+!=====================================================================
+!
+
+  subroutine reference_1d_model_adjust_time_step(DT)
+
+  double precision DT
+
+  ! no-op
+
+  end subroutine reference_1d_model_adjust_time_step
+
+!
+!=====================================================================
+!
+
+  subroutine reference_1d_model_aniso_inner_core_model_setup(x,vp,vp0,vs,vs0,rho,rho0)
+
+  implicit none
+
+  double precision x,vp,vp0,vs,vs0,rho,rho0
+
+  vp=11.2622d0-6.3640d0*x*x
+  vs=3.6678d0-4.4475d0*x*x
+  rho=13.0885d0-8.8381d0*x*x
+
+! values at center
+  vp0=11.2622d0
+  vs0=3.6678d0
+  rho0=13.0885d0
+
+  end subroutine reference_1d_model_aniso_inner_core_model_setup
+
+!
+!=====================================================================
+!
+
+  subroutine define_reference_1d_model(USE_EXTERNAL_CRUSTAL_MODEL)
+
+  logical USE_EXTERNAL_CRUSTAL_MODEL
+
+  ! no-op
+
+  end subroutine define_reference_1d_model
+
+!
+!=====================================================================
+!
+
+  subroutine reference_1d_model_attenuation_model_setup(AM_V)
+
+  implicit none
+
+  include "constants.h"
+
+! attenuation_model_variables
+  type attenuation_model_variables
+    sequence
+    double precision min_period, max_period
+    double precision                          :: QT_c_source        ! Source Frequency
+    double precision, dimension(:), pointer   :: Qtau_s             ! tau_sigma
+    double precision, dimension(:), pointer   :: QrDisc             ! Discontinutitues Defined
+    double precision, dimension(:), pointer   :: Qr                 ! Radius
+    integer, dimension(:), pointer            :: interval_Q                 ! Steps
+    double precision, dimension(:), pointer   :: Qmu                ! Shear Attenuation
+    double precision, dimension(:,:), pointer :: Qtau_e             ! tau_epsilon
+    double precision, dimension(:), pointer   :: Qomsb, Qomsb2      ! one_minus_sum_beta
+    double precision, dimension(:,:), pointer :: Qfc, Qfc2          ! factor_common
+    double precision, dimension(:), pointer   :: Qsf, Qsf2          ! scale_factor
+    integer, dimension(:), pointer            :: Qrmin              ! Max and Mins of idoubling
+    integer, dimension(:), pointer            :: Qrmax              ! Max and Mins of idoubling
+    integer                                   :: Qn                 ! Number of points
+  end type attenuation_model_variables
+
+  type (attenuation_model_variables) AM_V
+! attenuation_model_variables
+
+  double precision ROCEAN,RMIDDLE_CRUST,RMOHO, &
+       R80,R120,R220,R400,R600,R670,R771, &
+       RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC
+
+  call get_reference_1d_model_radii(ROCEAN,RMIDDLE_CRUST,RMOHO, &
+       R80,R120,R220,R400,R600,R670,R771, &
+       RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC)
+
+  AM_V%Qn = 12
+
+  allocate(AM_V%Qr(AM_V%Qn))
+  allocate(AM_V%Qmu(AM_V%Qn))
+  allocate(AM_V%interval_Q(AM_V%Qn))
+  allocate(AM_V%Qtau_e(N_SLS,AM_V%Qn))
+
+  AM_V%Qr(:)     = (/    0.0d0,     RICB,  RICB,  RCMB,    RCMB,    R670,    R670,   R220,    R220,    R80,     R80, R_EARTH /)
+  AM_V%Qmu(:)    = (/   84.6d0,   84.6d0, 0.0d0, 0.0d0, 312.0d0, 312.0d0, 143.0d0, 143.0d0, 80.0d0, 80.0d0, 600.0d0, 600.0d0 /)
+
+  end subroutine reference_1d_model_attenuation_model_setup
+
+!
+!=====================================================================
+!
+
+  subroutine get_reference_1d_model(myrank,r_prem,rho,vpv,vph,vsv,vsh,eta_aniso, &
+       Qkappa,Qmu,idoubling,iregion_code,CRUSTAL,ONE_CRUST,TRANSVERSE_ISOTROPY, &
+       ISOTROPIC_3D_MANTLE)
+
+    implicit none
+
+    logical CRUSTAL,ONE_CRUST,TRANSVERSE_ISOTROPY,ISOTROPIC_3D_MANTLE
+    integer myrank,idoubling,iregion_code
+    double precision r_prem,rho,Qkappa,Qmu,vpv,vph,vsv,vsh,eta_aniso
+
+    double precision drhodr,vp,vs
+
+    if(TRANSVERSE_ISOTROPY) then
+       call prem_aniso(myrank,r_prem,rho,vpv,vph,vsv,vsh,eta_aniso, &
+            Qkappa,Qmu,idoubling,CRUSTAL,ONE_CRUST)
+    else
+       ! The subroutine 'prem_iso' is built-in to the code (in
+       ! prem_common.f90), as it is used even when the reference model
+       ! is something other than PREM.
+       call prem_iso(myrank,r_prem,rho,drhodr,vp,vs,Qkappa,Qmu,idoubling,CRUSTAL, &
+            ONE_CRUST,.true.)
+       vpv = vp
+       vph = vp
+       vsv = vs
+       vsh = vs
+       eta_aniso = 1.d0
+    endif
+
+  end subroutine get_reference_1d_model
+
+!
+!=====================================================================
+!
+
+  subroutine prem_aniso(myrank,x,rho,vpv,vph,vsv,vsh,eta_aniso,Qkappa,Qmu, &
+      idoubling,CRUSTAL,ONE_CRUST)
+
+  implicit none
+
+  include "constants.h"
+
+! given a normalized radius x, gives the non-dimesionalized density rho,
+! speeds vp and vs, and the quality factors Qkappa and Qmu
+
+  logical CRUSTAL,ONE_CRUST
+
+  integer idoubling,myrank
+
+  double precision x,rho,Qkappa,Qmu,vpv,vph,vsv,vsh,eta_aniso,RICB,RCMB, &
+      RTOPDDOUBLEPRIME,R600,R670,R220,R771,R400,R80,RMOHO,RMIDDLE_CRUST,ROCEAN
+  double precision R120,RHO_TOP_OC,RHO_BOTTOM_OC
+
+  double precision r
+  double precision scaleval
+
+  call get_reference_1d_model_radii(ROCEAN,RMIDDLE_CRUST,RMOHO, &
+       R80,R120,R220,R400,R600,R670,R771, &
+       RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC)
+
+! compute real physical radius in meters
+  r = x * R_EARTH
+
+! check flags to make sure we correctly honor the discontinuities
+! we use strict inequalities since r has been slighly changed in mesher
+
+!
+!--- inner core
+!
+  if(r >= 0.d0 .and. r < RICB) then
+    if(idoubling /= IFLAG_INNER_CORE_NORMAL .and. &
+       idoubling /= IFLAG_MIDDLE_CENTRAL_CUBE .and. &
+       idoubling /= IFLAG_BOTTOM_CENTRAL_CUBE .and. &
+       idoubling /= IFLAG_TOP_CENTRAL_CUBE .and. &
+       idoubling /= IFLAG_IN_FICTITIOUS_CUBE) &
+         call exit_MPI(myrank,'wrong doubling flag for inner core point')
+!
+!--- outer core
+!
+  else if(r > RICB .and. r < RCMB) then
+    if(idoubling /= IFLAG_OUTER_CORE_NORMAL) &
+      call exit_MPI(myrank,'wrong doubling flag for outer core point')
+!
+!--- D" at the base of the mantle
+!
+  else if(r > RCMB .and. r < RTOPDDOUBLEPRIME) then
+    if(idoubling /= IFLAG_MANTLE_NORMAL) &
+      call exit_MPI(myrank,'wrong doubling flag for D" point')
+!
+!--- mantle: from top of D" to d670
+!
+  else if(r > RTOPDDOUBLEPRIME .and. r < R670) then
+    if(idoubling /= IFLAG_MANTLE_NORMAL) &
+      call exit_MPI(myrank,'wrong doubling flag for top D" -> d670 point')
+
+!
+!--- mantle: from d670 to d220
+!
+  else if(r > R670 .and. r < R220) then
+    if(idoubling /= IFLAG_670_220) &
+      call exit_MPI(myrank,'wrong doubling flag for d670 -> d220 point')
+
+!
+!--- mantle and crust: from d220 to MOHO and then to surface
+!
+  else if(r > R220) then
+    if(idoubling /= IFLAG_220_80 .and. idoubling /= IFLAG_80_MOHO .and. idoubling /= IFLAG_CRUST) &
+      call exit_MPI(myrank,'wrong doubling flag for d220 -> Moho -> surface point')
+
+  endif
+
+! no anisotropy by default
+  eta_aniso = 1.d0
+
+!
+!--- inner core
+!
+  if(r >= 0.d0 .and. r <= RICB) then
+    rho=13.0885d0-8.8381d0*x*x
+    vpv=11.2622d0-6.3640d0*x*x
+    vsv=3.6678d0-4.4475d0*x*x
+    vph=vpv
+    vsh=vsv
+    Qmu=84.6d0
+    Qkappa=1327.7d0
+!
+!--- outer core
+!
+  else if(r > RICB .and. r <= RCMB) then
+    rho=12.5815d0-1.2638d0*x-3.6426d0*x*x-5.5281d0*x*x*x
+    vpv=11.0487d0-4.0362d0*x+4.8023d0*x*x-13.5732d0*x*x*x
+    vsv=0.0d0
+    vph=vpv
+    vsh=vsv
+    Qmu=0.0d0
+    Qkappa=57827.0d0
+!
+!--- D" at the base of the mantle
+!
+  else if(r > RCMB .and. r <= RTOPDDOUBLEPRIME) then
+    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
+    vpv=15.3891d0-5.3181d0*x+5.5242d0*x*x-2.5514d0*x*x*x
+    vsv=6.9254d0+1.4672d0*x-2.0834d0*x*x+0.9783d0*x*x*x
+    vph=vpv
+    vsh=vsv
+    Qmu=312.0d0
+    Qkappa=57827.0d0
+!
+!--- mantle: from top of D" to d670
+!
+  else if(r > RTOPDDOUBLEPRIME .and. r <= R771) then
+    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
+    vpv=24.9520d0-40.4673d0*x+51.4832d0*x*x-26.6419d0*x*x*x
+    vsv=11.1671d0-13.7818d0*x+17.4575d0*x*x-9.2777d0*x*x*x
+    vph=vpv
+    vsh=vsv
+    Qmu=312.0d0
+    Qkappa=57827.0d0
+  else if(r > R771 .and. r <= R670) then
+    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
+    vpv=29.2766d0-23.6027d0*x+5.5242d0*x*x-2.5514d0*x*x*x
+    vsv=22.3459d0-17.2473d0*x-2.0834d0*x*x+0.9783d0*x*x*x
+    vph=vpv
+    vsh=vsv
+    Qmu=312.0d0
+    Qkappa=57827.0d0
+!
+!--- mantle: above d670
+!
+  else if(r > R670 .and. r <= R600) then
+    rho=5.3197d0-1.4836d0*x
+    vpv=19.0957d0-9.8672d0*x
+    vsv=9.9839d0-4.9324d0*x
+    vph=vpv
+    vsh=vsv
+    Qmu=143.0d0
+    Qkappa=57827.0d0
+  else if(r > R600 .and. r <= R400) then
+    rho=11.2494d0-8.0298d0*x
+    vpv=39.7027d0-32.6166d0*x
+    vsv=22.3512d0-18.5856d0*x
+    vph=vpv
+    vsh=vsv
+    Qmu=143.0d0
+    Qkappa=57827.0d0
+  else if(r > R400 .and. r <= R220) then
+    rho=7.1089d0-3.8045d0*x
+    vpv=20.3926d0-12.2569d0*x
+    vsv=8.9496d0-4.4597d0*x
+    vph=vpv
+    vsh=vsv
+    Qmu=143.0d0
+    Qkappa=57827.0d0
+  else if(r > R220 .and. r <= R80) then
+
+! anisotropy in PREM only above 220 km
+
+    rho=2.6910d0+0.6924d0*x
+    vpv=0.8317d0+7.2180d0*x
+    vph=3.5908d0+4.6172d0*x
+    vsv=5.8582d0-1.4678d0*x
+    vsh=-1.0839d0+5.7176d0*x
+    eta_aniso=3.3687d0-2.4778d0*x
+    Qmu=80.0d0
+    Qkappa=57827.0d0
+
+  else
+  if(CRUSTAL) then
+! fill with PREM mantle and later add CRUST2.0
+    if(r > R80) then
+      rho=2.6910d0+0.6924d0*x
+      vpv=0.8317d0+7.2180d0*x
+      vph=3.5908d0+4.6172d0*x
+      vsv=5.8582d0-1.4678d0*x
+      vsh=-1.0839d0+5.7176d0*x
+      eta_aniso=3.3687d0-2.4778d0*x
+      Qmu=600.0d0
+      Qkappa=57827.0d0
+    endif
+  else
+! use PREM crust
+    if(r > R80 .and. r <= RMOHO) then
+
+! anisotropy in PREM only above 220 km
+
+      rho=2.6910d0+0.6924d0*x
+      vpv=0.8317d0+7.2180d0*x
+      vph=3.5908d0+4.6172d0*x
+      vsv=5.8582d0-1.4678d0*x
+      vsh=-1.0839d0+5.7176d0*x
+      eta_aniso=3.3687d0-2.4778d0*x
+      Qmu=600.0d0
+      Qkappa=57827.0d0
+
+! no anisotropy in the crust in PREM
+
+    else if(r > RMOHO .and. r <= RMIDDLE_CRUST) then
+      rho=2.9d0
+      vpv=6.8d0
+      vsv=3.9d0
+      vph=vpv
+      vsh=vsv
+      Qmu=600.0d0
+      Qkappa=57827.0d0
+
+! same properties everywhere in PREM crust (only one layer in the crust)
+      if(ONE_CRUST) then
+        rho=2.6d0
+        vpv=5.8d0
+        vsv=3.2d0
+        vph=vpv
+        vsh=vsv
+        Qmu=600.0d0
+        Qkappa=57827.0d0
+      endif
+
+    else if(r > RMIDDLE_CRUST .and. r <= ROCEAN) then
+      rho=2.6d0
+      vpv=5.8d0
+      vsv=3.2d0
+      vph=vpv
+      vsh=vsv
+      Qmu=600.0d0
+      Qkappa=57827.0d0
+    else if(r > ROCEAN) then
+      rho=2.6d0
+      vpv=5.8d0
+      vsv=3.2d0
+      vph=vpv
+      vsh=vsv
+      Qmu=600.0d0
+      Qkappa=57827.0d0
+    endif
+  endif
+  endif
+
+! non-dimensionalize
+! time scaling (s^{-1}) is done with scaleval
+! do not scale anisotropy parameter eta_aniso, which is dimensionless
+  scaleval=dsqrt(PI*GRAV*RHOAV)
+  rho=rho*1000.0d0/RHOAV
+  vpv=vpv*1000.0d0/(R_EARTH*scaleval)
+  vsv=vsv*1000.0d0/(R_EARTH*scaleval)
+  vph=vph*1000.0d0/(R_EARTH*scaleval)
+  vsh=vsh*1000.0d0/(R_EARTH*scaleval)
+
+  end subroutine prem_aniso

Added: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ref/build.mk
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ref/build.mk	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ref/build.mk	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,7 @@
+
+reference_1d_model_OBJECTS = \
+	$O/model_ref.o \
+	$(EMPTY_MACRO)
+
+$O/model_ref.o: constants.h $S/MODELS/ref/model_ref.f90
+	${MPIFCCOMPILE_CHECK} -c -o $O/model_ref.o ${FCFLAGS_f90} $S/MODELS/ref/model_ref.f90

Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ref/model_ref.f90 (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/model_ref.f90)
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ref/model_ref.f90	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/ref/model_ref.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,7493 @@
+!=====================================================================
+!
+!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
+!          --------------------------------------------------
+!
+!          Main authors: Dimitri Komatitsch and Jeroen Tromp
+!    Seismological Laboratory, California Institute of Technology, USA
+!             and University of Pau / CNRS / INRIA, France
+! (c) California Institute of Technology and University of Pau / CNRS / INRIA
+!                            February 2008
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
+  module model_ref_module
+
+! number of layers in DATA/s362ani/REF
+  integer, parameter :: NR_REF = 750
+
+! model_ref_variables
+  type model_ref_variables
+    sequence
+    double precision, dimension(NR_REF) :: radius_ref
+    double precision, dimension(NR_REF) :: density_ref
+    double precision, dimension(NR_REF) :: vpv_ref
+    double precision, dimension(NR_REF) :: vph_ref
+    double precision, dimension(NR_REF) :: vsv_ref
+    double precision, dimension(NR_REF) :: vsh_ref
+    double precision, dimension(NR_REF) :: eta_ref
+    double precision, dimension(NR_REF) :: Qkappa_ref
+    double precision, dimension(NR_REF) :: Qmu_ref
+  end type model_ref_variables
+
+  type (model_ref_variables) Mref_V
+! model_ref_variables
+
+  end module
+
+!-------------------
+
+  subroutine get_reference_1d_model_radii(ROCEAN,RMIDDLE_CRUST,RMOHO, &
+     R80,R120,R220,R400,R600,R670,R771, &
+     RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC)
+
+  implicit none
+
+  include "constants.h"
+
+  double precision ROCEAN,RMIDDLE_CRUST,RMOHO, &
+       R80,R120,R220,R400,R600,R670,R771, &
+       RTOPDDOUBLEPRIME,RCMB,RICB,RHO_TOP_OC,RHO_BOTTOM_OC
+
+  ! REF
+  ROCEAN = 6368000.d0
+  RMIDDLE_CRUST = 6356000.d0
+  RMOHO = 6346600.d0
+  R80  = 6291000.d0
+  R220 = 6151000.d0
+  R400 = 5961000.d0
+  R600 = 5771000.d0
+  R670 = 5721000.d0
+  R771 = 5600000.d0
+  RTOPDDOUBLEPRIME = 3630000.d0
+  RCMB = 3479958.d0
+  RICB = 1221491.d0
+
+  RHO_TOP_OC = 9903.48 / RHOAV
+  RHO_BOTTOM_OC = 12166.35 / RHOAV
+
+  end subroutine get_reference_1d_model_radii
+
+!-------------------
+
+  subroutine reference_1d_model_adjust_time_step(DT)
+
+  double precision DT
+
+  ! no-op
+
+  end subroutine reference_1d_model_adjust_time_step
+
+!-------------------
+
+  subroutine reference_1d_model_aniso_inner_core_model_setup(x,vp,vp0,vs,vs0,rho,rho0)
+
+  double precision x,vp,vp0,vs,vs0,rho,rho0
+
+  stop 'anisotropic inner core not implemented for ref'
+
+  end subroutine reference_1d_model_aniso_inner_core_model_setup
+
+!-------------------
+
+  subroutine reference_1d_model_attenuation_model_setup(AM_V)
+
+  use model_ref_module
+  implicit none
+
+  include "constants.h"
+
+! attenuation_model_variables
+  type attenuation_model_variables
+    sequence
+    double precision min_period, max_period
+    double precision                          :: QT_c_source        ! Source Frequency
+    double precision, dimension(:), pointer   :: Qtau_s             ! tau_sigma
+    double precision, dimension(:), pointer   :: QrDisc             ! Discontinutitues Defined
+    double precision, dimension(:), pointer   :: Qr                 ! Radius
+    integer, dimension(:), pointer            :: interval_Q                 ! Steps
+    double precision, dimension(:), pointer   :: Qmu                ! Shear Attenuation
+    double precision, dimension(:,:), pointer :: Qtau_e             ! tau_epsilon
+    double precision, dimension(:), pointer   :: Qomsb, Qomsb2      ! one_minus_sum_beta
+    double precision, dimension(:,:), pointer :: Qfc, Qfc2          ! factor_common
+    double precision, dimension(:), pointer   :: Qsf, Qsf2          ! scale_factor
+    integer, dimension(:), pointer            :: Qrmin              ! Max and Mins of idoubling
+    integer, dimension(:), pointer            :: Qrmax              ! Max and Mins of idoubling
+    integer                                   :: Qn                 ! Number of points
+  end type attenuation_model_variables
+
+  type (attenuation_model_variables) AM_V
+! attenuation_model_variables
+
+  AM_V%Qn = NR_REF
+
+  allocate(AM_V%Qr(AM_V%Qn))
+  allocate(AM_V%Qmu(AM_V%Qn))
+  allocate(AM_V%interval_Q(AM_V%Qn))
+  allocate(AM_V%Qtau_e(N_SLS,AM_V%Qn))
+
+  AM_V%Qr(:)     = Mref_V%radius_ref(:)
+  AM_V%Qmu(:)    = Mref_V%Qmu_ref(:)
+
+  end subroutine reference_1d_model_attenuation_model_setup
+
+!-------------------
+
+  subroutine get_reference_1d_model(myrank,r_prem,rho,vpv,vph,vsv,vsh,eta_aniso, &
+       Qkappa,Qmu,idoubling,iregion_code,CRUSTAL,ONE_CRUST,TRANSVERSE_ISOTROPY, &
+       ISOTROPIC_3D_MANTLE)
+
+    implicit none
+
+    logical CRUSTAL,ONE_CRUST,TRANSVERSE_ISOTROPY,ISOTROPIC_3D_MANTLE
+    integer myrank,idoubling,iregion_code
+    double precision r_prem,rho,Qkappa,Qmu,vpv,vph,vsv,vsh,eta_aniso
+
+    double precision vp,vs
+
+    call model_ref(r_prem,rho,vpv,vph,vsv,vsh,eta_aniso,Qkappa,Qmu,iregion_code,CRUSTAL)
+
+    if(.not. TRANSVERSE_ISOTROPY) then
+       ! in the case of s362iso we want to save the anisotropic constants for the Voight average
+       if(.not. ISOTROPIC_3D_MANTLE) then
+          vp = sqrt(((8.d0+4.d0*eta_aniso)*vph*vph + 3.d0*vpv*vpv + (8.d0 - 8.d0*eta_aniso)*vsv*vsv)/15.d0)
+          vs = sqrt(((1.d0-2.d0*eta_aniso)*vph*vph + vpv*vpv + 5.d0*vsh*vsh + (6.d0+4.d0*eta_aniso)*vsv*vsv)/15.d0)
+          vpv = vp
+          vph = vp
+          vsv = vs
+          vsh = vs
+          eta_aniso = 1.d0
+       endif
+    endif
+
+  end subroutine get_reference_1d_model
+
+!-------------------
+
+  subroutine model_ref(x,rho,vpv,vph,vsv,vsh,eta,Qkappa,Qmu,iregion_code,CRUSTAL)
+
+  use model_ref_module
+  implicit none
+
+  include "constants.h"
+
+! input:
+! dimensionless radius x
+
+! output: non-dimensionalized
+! mass density rho
+! compressional wave speed vpv
+! compressional wave speed vph
+! shear wave speed vsv
+! shear wave speed vsh
+! dimensionless parameter eta
+! shear quality factor Qmu
+! bulk quality factor Qkappa
+
+  integer iregion_code
+
+  double precision x,rho,vpv,vph,vsv,vsh,eta,Qmu,Qkappa
+
+  integer i
+
+  double precision r,frac,scaleval
+  logical CRUSTAL
+
+! compute real physical radius in meters
+  r = x * R_EARTH
+
+  i = 1
+  do while(r >= Mref_V%radius_ref(i) .and. i /= NR_REF)
+    i = i + 1
+  enddo
+
+! make sure we stay in the right region
+  if(iregion_code == IREGION_INNER_CORE .and. i > 180) i = 180
+
+  if(iregion_code == IREGION_OUTER_CORE .and. i < 182) i = 182
+  if(iregion_code == IREGION_OUTER_CORE .and. i > 358) i = 358
+
+  if(iregion_code == IREGION_CRUST_MANTLE .and. i < 360) i = 360
+  if(CRUSTAL .and. i > 717) i = 717
+
+  if(i == 1) then
+    rho = Mref_V%density_ref(i)
+    vpv = Mref_V%vpv_ref(i)
+    vph = Mref_V%vph_ref(i)
+    vsv = Mref_V%vsv_ref(i)
+    vsh = Mref_V%vsh_ref(i)
+    eta = Mref_V%eta_ref(i)
+    Qkappa = Mref_V%Qkappa_ref(i)
+    Qmu = Mref_V%Qmu_ref(i)
+  else
+
+! interpolate from radius_ref(i-1) to r using the values at i-1 and i
+    frac = (r-Mref_V%radius_ref(i-1))/(Mref_V%radius_ref(i)-Mref_V%radius_ref(i-1))
+
+    rho = Mref_V%density_ref(i-1) + frac * (Mref_V%density_ref(i)-Mref_V%density_ref(i-1))
+    vpv = Mref_V%vpv_ref(i-1) + frac * (Mref_V%vpv_ref(i)-Mref_V%vpv_ref(i-1))
+    vph = Mref_V%vph_ref(i-1) + frac * (Mref_V%vph_ref(i)-Mref_V%vph_ref(i-1))
+    vsv = Mref_V%vsv_ref(i-1) + frac * (Mref_V%vsv_ref(i)-Mref_V%vsv_ref(i-1))
+    vsh = Mref_V%vsh_ref(i-1) + frac * (Mref_V%vsh_ref(i)-Mref_V%vsh_ref(i-1))
+    eta = Mref_V%eta_ref(i-1) + frac * (Mref_V%eta_ref(i)-Mref_V%eta_ref(i-1))
+    Qkappa = Mref_V%Qkappa_ref(i-1) + frac * (Mref_V%Qkappa_ref(i)-Mref_V%Qkappa_ref(i-1))
+    Qmu = Mref_V%Qmu_ref(i-1) + frac * (Mref_V%Qmu_ref(i)-Mref_V%Qmu_ref(i-1))
+
+  endif
+
+! make sure Vs is zero in the outer core even if roundoff errors on depth
+! also set fictitious attenuation to a very high value (attenuation is not used in the fluid)
+  if(iregion_code == IREGION_OUTER_CORE) then
+    vsv = 0.d0
+    vsh = 0.d0
+    Qkappa = 3000.d0
+    Qmu = 3000.d0
+  endif
+
+! non-dimensionalize
+! time scaling (s^{-1}) is done with scaleval
+  scaleval=dsqrt(PI*GRAV*RHOAV)
+  rho=rho/RHOAV
+  vpv=vpv/(R_EARTH*scaleval)
+  vph=vph/(R_EARTH*scaleval)
+  vsv=vsv/(R_EARTH*scaleval)
+  vsh=vsh/(R_EARTH*scaleval)
+
+  end subroutine model_ref
+
+!-------------------
+
+  subroutine define_reference_1d_model(USE_EXTERNAL_CRUSTAL_MODEL)
+
+  use model_ref_module
+  implicit none
+  include "constants.h"
+
+  logical USE_EXTERNAL_CRUSTAL_MODEL ! ignored
+
+! define the 1D REF model of Kustowski et al. (2007)
+
+ Mref_V%radius_ref( 1 : 30 ) = (/ &
+ 0.000000000000000E+000 , &
+ 6824.00000000000 , &
+ 13648.0000000000 , &
+ 20472.0000000000 , &
+ 27296.0000000000 , &
+ 34120.0000000000 , &
+ 40944.0000000000 , &
+ 47768.0000000000 , &
+ 54592.0000000000 , &
+ 61416.0000000000 , &
+ 68240.0000000000 , &
+ 75064.0000000000 , &
+ 81888.0000000000 , &
+ 88712.0000000000 , &
+ 95536.0000000000 , &
+ 102360.000000000 , &
+ 109184.000000000 , &
+ 116007.000000000 , &
+ 122831.000000000 , &
+ 129655.000000000 , &
+ 136479.000000000 , &
+ 143303.000000000 , &
+ 150127.000000000 , &
+ 156951.000000000 , &
+ 163775.000000000 , &
+ 170599.000000000 , &
+ 177423.000000000 , &
+ 184247.000000000 , &
+ 191071.000000000 , &
+ 197895.000000000 /)
+
+ Mref_V%radius_ref( 31 : 60 ) = (/ &
+ 204719.000000000 , &
+ 211543.000000000 , &
+ 218367.000000000 , &
+ 225191.000000000 , &
+ 232015.000000000 , &
+ 238839.000000000 , &
+ 245663.000000000 , &
+ 252487.000000000 , &
+ 259311.000000000 , &
+ 266135.000000000 , &
+ 272959.000000000 , &
+ 279783.000000000 , &
+ 286607.000000000 , &
+ 293431.000000000 , &
+ 300255.000000000 , &
+ 307079.000000000 , &
+ 313903.000000000 , &
+ 320727.000000000 , &
+ 327551.000000000 , &
+ 334375.000000000 , &
+ 341199.000000000 , &
+ 348022.000000000 , &
+ 354846.000000000 , &
+ 361670.000000000 , &
+ 368494.000000000 , &
+ 375318.000000000 , &
+ 382142.000000000 , &
+ 388966.000000000 , &
+ 395790.000000000 , &
+ 402614.000000000 /)
+
+ Mref_V%radius_ref( 61 : 90 ) = (/ &
+ 409438.000000000 , &
+ 416262.000000000 , &
+ 423086.000000000 , &
+ 429910.000000000 , &
+ 436734.000000000 , &
+ 443558.000000000 , &
+ 450382.000000000 , &
+ 457206.000000000 , &
+ 464030.000000000 , &
+ 470854.000000000 , &
+ 477678.000000000 , &
+ 484502.000000000 , &
+ 491326.000000000 , &
+ 498150.000000000 , &
+ 504974.000000000 , &
+ 511798.000000000 , &
+ 518622.000000000 , &
+ 525446.000000000 , &
+ 532270.000000000 , &
+ 539094.000000000 , &
+ 545918.000000000 , &
+ 552742.000000000 , &
+ 559566.000000000 , &
+ 566390.000000000 , &
+ 573214.000000000 , &
+ 580037.000000000 , &
+ 586861.000000000 , &
+ 593685.000000000 , &
+ 600509.000000000 , &
+ 607333.000000000 /)
+
+ Mref_V%radius_ref( 91 : 120 ) = (/ &
+ 614157.000000000 , &
+ 620981.000000000 , &
+ 627805.000000000 , &
+ 634629.000000000 , &
+ 641453.000000000 , &
+ 648277.000000000 , &
+ 655101.000000000 , &
+ 661925.000000000 , &
+ 668749.000000000 , &
+ 675573.000000000 , &
+ 682397.000000000 , &
+ 689221.000000000 , &
+ 696045.000000000 , &
+ 702869.000000000 , &
+ 709693.000000000 , &
+ 716517.000000000 , &
+ 723341.000000000 , &
+ 730165.000000000 , &
+ 736989.000000000 , &
+ 743813.000000000 , &
+ 750637.000000000 , &
+ 757461.000000000 , &
+ 764285.000000000 , &
+ 771109.000000000 , &
+ 777933.000000000 , &
+ 784757.000000000 , &
+ 791581.000000000 , &
+ 798405.000000000 , &
+ 805229.000000000 , &
+ 812052.000000000 /)
+
+ Mref_V%radius_ref( 121 : 150 ) = (/ &
+ 818876.000000000 , &
+ 825700.000000000 , &
+ 832524.000000000 , &
+ 839348.000000000 , &
+ 846172.000000000 , &
+ 852996.000000000 , &
+ 859820.000000000 , &
+ 866644.000000000 , &
+ 873468.000000000 , &
+ 880292.000000000 , &
+ 887116.000000000 , &
+ 893940.000000000 , &
+ 900764.000000000 , &
+ 907588.000000000 , &
+ 914412.000000000 , &
+ 921236.000000000 , &
+ 928060.000000000 , &
+ 934884.000000000 , &
+ 941708.000000000 , &
+ 948532.000000000 , &
+ 955356.000000000 , &
+ 962180.000000000 , &
+ 969004.000000000 , &
+ 975828.000000000 , &
+ 982652.000000000 , &
+ 989476.000000000 , &
+ 996300.000000000 , &
+ 1003124.00000000 , &
+ 1009948.00000000 , &
+ 1016772.00000000 /)
+
+ Mref_V%radius_ref( 151 : 180 ) = (/ &
+ 1023596.00000000 , &
+ 1030420.00000000 , &
+ 1037244.00000000 , &
+ 1044067.00000000 , &
+ 1050891.00000000 , &
+ 1057715.00000000 , &
+ 1064539.00000000 , &
+ 1071363.00000000 , &
+ 1078187.00000000 , &
+ 1085011.00000000 , &
+ 1091835.00000000 , &
+ 1098659.00000000 , &
+ 1105483.00000000 , &
+ 1112307.00000000 , &
+ 1119131.00000000 , &
+ 1125955.00000000 , &
+ 1132779.00000000 , &
+ 1139603.00000000 , &
+ 1146427.00000000 , &
+ 1153251.00000000 , &
+ 1160075.00000000 , &
+ 1166899.00000000 , &
+ 1173723.00000000 , &
+ 1180547.00000000 , &
+ 1187371.00000000 , &
+ 1194195.00000000 , &
+ 1201019.00000000 , &
+ 1207843.00000000 , &
+ 1214667.00000000 , &
+ 1221491.00000000 /)
+
+ Mref_V%radius_ref( 181 : 210 ) = (/ &
+ 1221491.00000000 , &
+ 1234250.00000000 , &
+ 1247010.00000000 , &
+ 1259770.00000000 , &
+ 1272530.00000000 , &
+ 1285289.00000000 , &
+ 1298049.00000000 , &
+ 1310809.00000000 , &
+ 1323568.00000000 , &
+ 1336328.00000000 , &
+ 1349088.00000000 , &
+ 1361847.00000000 , &
+ 1374607.00000000 , &
+ 1387367.00000000 , &
+ 1400127.00000000 , &
+ 1412886.00000000 , &
+ 1425646.00000000 , &
+ 1438406.00000000 , &
+ 1451165.00000000 , &
+ 1463925.00000000 , &
+ 1476685.00000000 , &
+ 1489444.00000000 , &
+ 1502204.00000000 , &
+ 1514964.00000000 , &
+ 1527724.00000000 , &
+ 1540483.00000000 , &
+ 1553243.00000000 , &
+ 1566003.00000000 , &
+ 1578762.00000000 , &
+ 1591522.00000000 /)
+
+ Mref_V%radius_ref( 211 : 240 ) = (/ &
+ 1604282.00000000 , &
+ 1617041.00000000 , &
+ 1629801.00000000 , &
+ 1642561.00000000 , &
+ 1655321.00000000 , &
+ 1668080.00000000 , &
+ 1680840.00000000 , &
+ 1693600.00000000 , &
+ 1706359.00000000 , &
+ 1719119.00000000 , &
+ 1731879.00000000 , &
+ 1744638.00000000 , &
+ 1757398.00000000 , &
+ 1770158.00000000 , &
+ 1782918.00000000 , &
+ 1795677.00000000 , &
+ 1808437.00000000 , &
+ 1821197.00000000 , &
+ 1833956.00000000 , &
+ 1846716.00000000 , &
+ 1859476.00000000 , &
+ 1872235.00000000 , &
+ 1884995.00000000 , &
+ 1897755.00000000 , &
+ 1910515.00000000 , &
+ 1923274.00000000 , &
+ 1936034.00000000 , &
+ 1948794.00000000 , &
+ 1961553.00000000 , &
+ 1974313.00000000 /)
+
+ Mref_V%radius_ref( 241 : 270 ) = (/ &
+ 1987073.00000000 , &
+ 1999832.00000000 , &
+ 2012592.00000000 , &
+ 2025352.00000000 , &
+ 2038112.00000000 , &
+ 2050871.00000000 , &
+ 2063631.00000000 , &
+ 2076391.00000000 , &
+ 2089150.00000000 , &
+ 2101910.00000000 , &
+ 2114670.00000000 , &
+ 2127429.00000000 , &
+ 2140189.00000000 , &
+ 2152949.00000000 , &
+ 2165709.00000000 , &
+ 2178468.00000000 , &
+ 2191228.00000000 , &
+ 2203988.00000000 , &
+ 2216747.00000000 , &
+ 2229507.00000000 , &
+ 2242267.00000000 , &
+ 2255026.00000000 , &
+ 2267786.00000000 , &
+ 2280546.00000000 , &
+ 2293306.00000000 , &
+ 2306065.00000000 , &
+ 2318825.00000000 , &
+ 2331585.00000000 , &
+ 2344344.00000000 , &
+ 2357104.00000000 /)
+
+ Mref_V%radius_ref( 271 : 300 ) = (/ &
+ 2369864.00000000 , &
+ 2382623.00000000 , &
+ 2395383.00000000 , &
+ 2408143.00000000 , &
+ 2420903.00000000 , &
+ 2433662.00000000 , &
+ 2446422.00000000 , &
+ 2459182.00000000 , &
+ 2471941.00000000 , &
+ 2484701.00000000 , &
+ 2497461.00000000 , &
+ 2510220.00000000 , &
+ 2522980.00000000 , &
+ 2535740.00000000 , &
+ 2548500.00000000 , &
+ 2561259.00000000 , &
+ 2574019.00000000 , &
+ 2586779.00000000 , &
+ 2599538.00000000 , &
+ 2612298.00000000 , &
+ 2625058.00000000 , &
+ 2637818.00000000 , &
+ 2650577.00000000 , &
+ 2663337.00000000 , &
+ 2676097.00000000 , &
+ 2688856.00000000 , &
+ 2701616.00000000 , &
+ 2714376.00000000 , &
+ 2727135.00000000 , &
+ 2739895.00000000 /)
+
+ Mref_V%radius_ref( 301 : 330 ) = (/ &
+ 2752655.00000000 , &
+ 2765415.00000000 , &
+ 2778174.00000000 , &
+ 2790934.00000000 , &
+ 2803694.00000000 , &
+ 2816453.00000000 , &
+ 2829213.00000000 , &
+ 2841973.00000000 , &
+ 2854732.00000000 , &
+ 2867492.00000000 , &
+ 2880252.00000000 , &
+ 2893012.00000000 , &
+ 2905771.00000000 , &
+ 2918531.00000000 , &
+ 2931291.00000000 , &
+ 2944050.00000000 , &
+ 2956810.00000000 , &
+ 2969570.00000000 , &
+ 2982329.00000000 , &
+ 2995089.00000000 , &
+ 3007849.00000000 , &
+ 3020609.00000000 , &
+ 3033368.00000000 , &
+ 3046128.00000000 , &
+ 3058888.00000000 , &
+ 3071647.00000000 , &
+ 3084407.00000000 , &
+ 3097167.00000000 , &
+ 3109926.00000000 , &
+ 3122686.00000000 /)
+
+ Mref_V%radius_ref( 331 : 360 ) = (/ &
+ 3135446.00000000 , &
+ 3148206.00000000 , &
+ 3160965.00000000 , &
+ 3173725.00000000 , &
+ 3186485.00000000 , &
+ 3199244.00000000 , &
+ 3212004.00000000 , &
+ 3224764.00000000 , &
+ 3237523.00000000 , &
+ 3250283.00000000 , &
+ 3263043.00000000 , &
+ 3275803.00000000 , &
+ 3288562.00000000 , &
+ 3301322.00000000 , &
+ 3314082.00000000 , &
+ 3326841.00000000 , &
+ 3339601.00000000 , &
+ 3352361.00000000 , &
+ 3365120.00000000 , &
+ 3377880.00000000 , &
+ 3390640.00000000 , &
+ 3403400.00000000 , &
+ 3416159.00000000 , &
+ 3428919.00000000 , &
+ 3441679.00000000 , &
+ 3454438.00000000 , &
+ 3467198.00000000 , &
+ 3479958.00000000 , &
+ 3479958.00000000 , &
+ 3489335.00000000 /)
+
+ Mref_V%radius_ref( 361 : 390 ) = (/ &
+ 3498713.00000000 , &
+ 3508091.00000000 , &
+ 3517468.00000000 , &
+ 3526846.00000000 , &
+ 3536224.00000000 , &
+ 3545601.00000000 , &
+ 3554979.00000000 , &
+ 3564357.00000000 , &
+ 3573734.00000000 , &
+ 3583112.00000000 , &
+ 3592489.00000000 , &
+ 3601867.00000000 , &
+ 3611245.00000000 , &
+ 3620622.00000000 , &
+ 3630000.00000000 , &
+ 3630000.00000000 , &
+ 3639471.00000000 , &
+ 3648942.00000000 , &
+ 3658413.00000000 , &
+ 3667885.00000000 , &
+ 3677356.00000000 , &
+ 3686827.00000000 , &
+ 3696298.00000000 , &
+ 3705769.00000000 , &
+ 3715240.00000000 , &
+ 3724712.00000000 , &
+ 3734183.00000000 , &
+ 3743654.00000000 , &
+ 3753125.00000000 , &
+ 3762596.00000000 /)
+
+ Mref_V%radius_ref( 391 : 420 ) = (/ &
+ 3772067.00000000 , &
+ 3781538.00000000 , &
+ 3791010.00000000 , &
+ 3800481.00000000 , &
+ 3809952.00000000 , &
+ 3819423.00000000 , &
+ 3828894.00000000 , &
+ 3838365.00000000 , &
+ 3847837.00000000 , &
+ 3857308.00000000 , &
+ 3866779.00000000 , &
+ 3876250.00000000 , &
+ 3885721.00000000 , &
+ 3895192.00000000 , &
+ 3904663.00000000 , &
+ 3914135.00000000 , &
+ 3923606.00000000 , &
+ 3933077.00000000 , &
+ 3942548.00000000 , &
+ 3952019.00000000 , &
+ 3961490.00000000 , &
+ 3970962.00000000 , &
+ 3980433.00000000 , &
+ 3989904.00000000 , &
+ 3999375.00000000 , &
+ 4008846.00000000 , &
+ 4018317.00000000 , &
+ 4027788.00000000 , &
+ 4037260.00000000 , &
+ 4046731.00000000 /)
+
+ Mref_V%radius_ref( 421 : 450 ) = (/ &
+ 4056202.00000000 , &
+ 4065673.00000000 , &
+ 4075144.00000000 , &
+ 4084615.00000000 , &
+ 4094087.00000000 , &
+ 4103558.00000000 , &
+ 4113029.00000000 , &
+ 4122500.00000000 , &
+ 4131971.00000000 , &
+ 4141442.00000000 , &
+ 4150913.00000000 , &
+ 4160385.00000000 , &
+ 4169856.00000000 , &
+ 4179327.00000000 , &
+ 4188798.00000000 , &
+ 4198269.00000000 , &
+ 4207740.00000000 , &
+ 4217212.00000000 , &
+ 4226683.00000000 , &
+ 4236154.00000000 , &
+ 4245625.00000000 , &
+ 4255096.00000000 , &
+ 4264567.00000000 , &
+ 4274038.00000000 , &
+ 4283510.00000000 , &
+ 4292981.00000000 , &
+ 4302452.00000000 , &
+ 4311923.00000000 , &
+ 4321394.00000000 , &
+ 4330865.00000000 /)
+
+ Mref_V%radius_ref( 451 : 480 ) = (/ &
+ 4340337.00000000 , &
+ 4349808.00000000 , &
+ 4359279.00000000 , &
+ 4368750.00000000 , &
+ 4378221.00000000 , &
+ 4387692.00000000 , &
+ 4397163.00000000 , &
+ 4406635.00000000 , &
+ 4416106.00000000 , &
+ 4425577.00000000 , &
+ 4435048.00000000 , &
+ 4444519.00000000 , &
+ 4453990.00000000 , &
+ 4463462.00000000 , &
+ 4472933.00000000 , &
+ 4482404.00000000 , &
+ 4491875.00000000 , &
+ 4501346.00000000 , &
+ 4510817.00000000 , &
+ 4520288.00000000 , &
+ 4529760.00000000 , &
+ 4539231.00000000 , &
+ 4548702.00000000 , &
+ 4558173.00000000 , &
+ 4567644.00000000 , &
+ 4577115.00000000 , &
+ 4586587.00000000 , &
+ 4596058.00000000 , &
+ 4605529.00000000 , &
+ 4615000.00000000 /)
+
+ Mref_V%radius_ref( 481 : 510 ) = (/ &
+ 4624471.00000000 , &
+ 4633942.00000000 , &
+ 4643413.00000000 , &
+ 4652885.00000000 , &
+ 4662356.00000000 , &
+ 4671827.00000000 , &
+ 4681298.00000000 , &
+ 4690769.00000000 , &
+ 4700240.00000000 , &
+ 4709712.00000000 , &
+ 4719183.00000000 , &
+ 4728654.00000000 , &
+ 4738125.00000000 , &
+ 4747596.00000000 , &
+ 4757067.00000000 , &
+ 4766538.00000000 , &
+ 4776010.00000000 , &
+ 4785481.00000000 , &
+ 4794952.00000000 , &
+ 4804423.00000000 , &
+ 4813894.00000000 , &
+ 4823365.00000000 , &
+ 4832837.00000000 , &
+ 4842308.00000000 , &
+ 4851779.00000000 , &
+ 4861250.00000000 , &
+ 4870721.00000000 , &
+ 4880192.00000000 , &
+ 4889663.00000000 , &
+ 4899135.00000000 /)
+
+ Mref_V%radius_ref( 511 : 540 ) = (/ &
+ 4908606.00000000 , &
+ 4918077.00000000 , &
+ 4927548.00000000 , &
+ 4937019.00000000 , &
+ 4946490.00000000 , &
+ 4955962.00000000 , &
+ 4965433.00000000 , &
+ 4974904.00000000 , &
+ 4984375.00000000 , &
+ 4993846.00000000 , &
+ 5003317.00000000 , &
+ 5012788.00000000 , &
+ 5022260.00000000 , &
+ 5031731.00000000 , &
+ 5041202.00000000 , &
+ 5050673.00000000 , &
+ 5060144.00000000 , &
+ 5069615.00000000 , &
+ 5079087.00000000 , &
+ 5088558.00000000 , &
+ 5098029.00000000 , &
+ 5107500.00000000 , &
+ 5116971.00000000 , &
+ 5126442.00000000 , &
+ 5135913.00000000 , &
+ 5145385.00000000 , &
+ 5154856.00000000 , &
+ 5164327.00000000 , &
+ 5173798.00000000 , &
+ 5183269.00000000 /)
+
+ Mref_V%radius_ref( 541 : 570 ) = (/ &
+ 5192740.00000000 , &
+ 5202212.00000000 , &
+ 5211683.00000000 , &
+ 5221154.00000000 , &
+ 5230625.00000000 , &
+ 5240096.00000000 , &
+ 5249567.00000000 , &
+ 5259038.00000000 , &
+ 5268510.00000000 , &
+ 5277981.00000000 , &
+ 5287452.00000000 , &
+ 5296923.00000000 , &
+ 5306394.00000000 , &
+ 5315865.00000000 , &
+ 5325337.00000000 , &
+ 5334808.00000000 , &
+ 5344279.00000000 , &
+ 5353750.00000000 , &
+ 5363221.00000000 , &
+ 5372692.00000000 , &
+ 5382163.00000000 , &
+ 5391635.00000000 , &
+ 5401106.00000000 , &
+ 5410577.00000000 , &
+ 5420048.00000000 , &
+ 5429519.00000000 , &
+ 5438990.00000000 , &
+ 5448462.00000000 , &
+ 5457933.00000000 , &
+ 5467404.00000000 /)
+
+ Mref_V%radius_ref( 571 : 600 ) = (/ &
+ 5476875.00000000 , &
+ 5486346.00000000 , &
+ 5495817.00000000 , &
+ 5505288.00000000 , &
+ 5514760.00000000 , &
+ 5524231.00000000 , &
+ 5533702.00000000 , &
+ 5543173.00000000 , &
+ 5552644.00000000 , &
+ 5562115.00000000 , &
+ 5571587.00000000 , &
+ 5581058.00000000 , &
+ 5590529.00000000 , &
+ 5600000.00000000 , &
+ 5600000.00000000 , &
+ 5607562.00000000 , &
+ 5615125.00000000 , &
+ 5622688.00000000 , &
+ 5630250.00000000 , &
+ 5637812.00000000 , &
+ 5645375.00000000 , &
+ 5652938.00000000 , &
+ 5660500.00000000 , &
+ 5668062.00000000 , &
+ 5675625.00000000 , &
+ 5683188.00000000 , &
+ 5690750.00000000 , &
+ 5698312.00000000 , &
+ 5705875.00000000 , &
+ 5713438.00000000 /)
+
+ Mref_V%radius_ref( 601 : 630 ) = (/ &
+ 5721000.00000000 , &
+ 5721000.00000000 , &
+ 5724572.00000000 , &
+ 5728143.00000000 , &
+ 5731714.00000000 , &
+ 5735286.00000000 , &
+ 5738857.00000000 , &
+ 5742428.00000000 , &
+ 5746000.00000000 , &
+ 5749572.00000000 , &
+ 5753143.00000000 , &
+ 5756714.00000000 , &
+ 5760286.00000000 , &
+ 5763857.00000000 , &
+ 5767428.00000000 , &
+ 5771000.00000000 , &
+ 5771000.00000000 , &
+ 5777334.00000000 , &
+ 5783666.00000000 , &
+ 5790000.00000000 , &
+ 5796334.00000000 , &
+ 5802666.00000000 , &
+ 5809000.00000000 , &
+ 5815334.00000000 , &
+ 5821666.00000000 , &
+ 5828000.00000000 , &
+ 5834334.00000000 , &
+ 5840666.00000000 , &
+ 5847000.00000000 , &
+ 5853334.00000000 /)
+
+ Mref_V%radius_ref( 631 : 660 ) = (/ &
+ 5859666.00000000 , &
+ 5866000.00000000 , &
+ 5872334.00000000 , &
+ 5878666.00000000 , &
+ 5885000.00000000 , &
+ 5891334.00000000 , &
+ 5897666.00000000 , &
+ 5904000.00000000 , &
+ 5910334.00000000 , &
+ 5916666.00000000 , &
+ 5923000.00000000 , &
+ 5929334.00000000 , &
+ 5935666.00000000 , &
+ 5942000.00000000 , &
+ 5948334.00000000 , &
+ 5954666.00000000 , &
+ 5961000.00000000 , &
+ 5961000.00000000 , &
+ 5967334.00000000 , &
+ 5973666.00000000 , &
+ 5980000.00000000 , &
+ 5986334.00000000 , &
+ 5992666.00000000 , &
+ 5999000.00000000 , &
+ 6005334.00000000 , &
+ 6011666.00000000 , &
+ 6018000.00000000 , &
+ 6024334.00000000 , &
+ 6030666.00000000 , &
+ 6037000.00000000 /)
+
+ Mref_V%radius_ref( 661 : 690 ) = (/ &
+ 6043334.00000000 , &
+ 6049666.00000000 , &
+ 6056000.00000000 , &
+ 6062334.00000000 , &
+ 6068666.00000000 , &
+ 6075000.00000000 , &
+ 6081334.00000000 , &
+ 6087666.00000000 , &
+ 6094000.00000000 , &
+ 6100334.00000000 , &
+ 6106666.00000000 , &
+ 6113000.00000000 , &
+ 6119334.00000000 , &
+ 6125666.00000000 , &
+ 6132000.00000000 , &
+ 6138334.00000000 , &
+ 6144666.00000000 , &
+ 6151000.00000000 , &
+ 6151000.00000000 , &
+ 6157087.00000000 , &
+ 6163174.00000000 , &
+ 6169261.00000000 , &
+ 6175348.00000000 , &
+ 6181435.00000000 , &
+ 6187522.00000000 , &
+ 6193609.00000000 , &
+ 6199696.00000000 , &
+ 6205783.00000000 , &
+ 6211870.00000000 , &
+ 6217957.00000000 /)
+
+ Mref_V%radius_ref( 691 : 720 ) = (/ &
+ 6224043.00000000 , &
+ 6230130.00000000 , &
+ 6236217.00000000 , &
+ 6242304.00000000 , &
+ 6248391.00000000 , &
+ 6254478.00000000 , &
+ 6260565.00000000 , &
+ 6266652.00000000 , &
+ 6272739.00000000 , &
+ 6278826.00000000 , &
+ 6284913.00000000 , &
+ 6291000.00000000 , &
+ 6291000.00000000 , &
+ 6294971.00000000 , &
+ 6298943.00000000 , &
+ 6302914.00000000 , &
+ 6306886.00000000 , &
+ 6310857.00000000 , &
+ 6314829.00000000 , &
+ 6318800.00000000 , &
+ 6322771.00000000 , &
+ 6326743.00000000 , &
+ 6330714.00000000 , &
+ 6334686.00000000 , &
+ 6338657.00000000 , &
+ 6342629.00000000 , &
+ 6346600.00000000 , &
+ 6346600.00000000 , &
+ 6347540.00000000 , &
+ 6348480.00000000 /)
+
+ Mref_V%radius_ref( 721 : 750 ) = (/ &
+ 6349420.00000000 , &
+ 6350360.00000000 , &
+ 6351300.00000000 , &
+ 6352240.00000000 , &
+ 6353180.00000000 , &
+ 6354120.00000000 , &
+ 6355060.00000000 , &
+ 6356000.00000000 , &
+ 6356000.00000000 , &
+ 6357200.00000000 , &
+ 6358400.00000000 , &
+ 6359600.00000000 , &
+ 6360800.00000000 , &
+ 6362000.00000000 , &
+ 6363200.00000000 , &
+ 6364400.00000000 , &
+ 6365600.00000000 , &
+ 6366800.00000000 , &
+ 6368000.00000000 , &
+ 6368000.00000000 , &
+ 6368300.00000000 , &
+ 6368600.00000000 , &
+ 6368900.00000000 , &
+ 6369200.00000000 , &
+ 6369500.00000000 , &
+ 6369800.00000000 , &
+ 6370100.00000000 , &
+ 6370400.00000000 , &
+ 6370700.00000000 , &
+ 6371000.00000000 /)
+
+ Mref_V%density_ref( 1 : 30 ) = (/ &
+ 13088.4800000000 , &
+ 13088.4700000000 , &
+ 13088.4400000000 , &
+ 13088.3900000000 , &
+ 13088.3200000000 , &
+ 13088.2200000000 , &
+ 13088.1100000000 , &
+ 13087.9800000000 , &
+ 13087.8300000000 , &
+ 13087.6600000000 , &
+ 13087.4600000000 , &
+ 13087.2500000000 , &
+ 13087.0200000000 , &
+ 13086.7600000000 , &
+ 13086.4900000000 , &
+ 13086.2000000000 , &
+ 13085.8800000000 , &
+ 13085.5500000000 , &
+ 13085.1900000000 , &
+ 13084.8200000000 , &
+ 13084.4200000000 , &
+ 13084.0100000000 , &
+ 13083.5700000000 , &
+ 13083.1100000000 , &
+ 13082.6400000000 , &
+ 13082.1400000000 , &
+ 13081.6200000000 , &
+ 13081.0900000000 , &
+ 13080.5300000000 , &
+ 13079.9500000000 /)
+
+ Mref_V%density_ref( 31 : 60 ) = (/ &
+ 13079.3500000000 , &
+ 13078.7300000000 , &
+ 13078.0900000000 , &
+ 13077.4400000000 , &
+ 13076.7600000000 , &
+ 13076.0600000000 , &
+ 13075.3400000000 , &
+ 13074.6000000000 , &
+ 13073.8400000000 , &
+ 13073.0600000000 , &
+ 13072.2500000000 , &
+ 13071.4300000000 , &
+ 13070.5900000000 , &
+ 13069.7300000000 , &
+ 13068.8500000000 , &
+ 13067.9500000000 , &
+ 13067.0200000000 , &
+ 13066.0800000000 , &
+ 13065.1200000000 , &
+ 13064.1300000000 , &
+ 13063.1300000000 , &
+ 13062.1000000000 , &
+ 13061.0600000000 , &
+ 13060.0000000000 , &
+ 13058.9100000000 , &
+ 13057.8100000000 , &
+ 13056.6800000000 , &
+ 13055.5300000000 , &
+ 13054.3700000000 , &
+ 13053.1800000000 /)
+
+ Mref_V%density_ref( 61 : 90 ) = (/ &
+ 13051.9800000000 , &
+ 13050.7500000000 , &
+ 13049.5000000000 , &
+ 13048.2300000000 , &
+ 13046.9500000000 , &
+ 13045.6400000000 , &
+ 13044.3100000000 , &
+ 13042.9600000000 , &
+ 13041.5900000000 , &
+ 13040.2000000000 , &
+ 13038.7900000000 , &
+ 13037.3600000000 , &
+ 13035.9100000000 , &
+ 13034.4400000000 , &
+ 13032.9500000000 , &
+ 13031.4400000000 , &
+ 13029.9100000000 , &
+ 13028.3600000000 , &
+ 13026.7900000000 , &
+ 13025.2000000000 , &
+ 13023.5800000000 , &
+ 13021.9500000000 , &
+ 13020.3000000000 , &
+ 13018.6300000000 , &
+ 13016.9300000000 , &
+ 13015.2200000000 , &
+ 13013.4900000000 , &
+ 13011.7300000000 , &
+ 13009.9600000000 , &
+ 13008.1600000000 /)
+
+ Mref_V%density_ref( 91 : 120 ) = (/ &
+ 13006.3500000000 , &
+ 13004.5100000000 , &
+ 13002.6600000000 , &
+ 13000.7800000000 , &
+ 12998.8800000000 , &
+ 12996.9700000000 , &
+ 12995.0300000000 , &
+ 12993.0700000000 , &
+ 12991.1000000000 , &
+ 12989.1000000000 , &
+ 12987.0800000000 , &
+ 12985.0400000000 , &
+ 12982.9900000000 , &
+ 12980.9100000000 , &
+ 12978.8100000000 , &
+ 12976.6900000000 , &
+ 12974.5500000000 , &
+ 12972.3900000000 , &
+ 12970.2100000000 , &
+ 12968.0100000000 , &
+ 12965.7900000000 , &
+ 12963.5500000000 , &
+ 12961.2900000000 , &
+ 12959.0100000000 , &
+ 12956.7000000000 , &
+ 12954.3800000000 , &
+ 12952.0400000000 , &
+ 12949.6800000000 , &
+ 12947.2900000000 , &
+ 12944.8900000000 /)
+
+ Mref_V%density_ref( 121 : 150 ) = (/ &
+ 12942.4700000000 , &
+ 12940.0200000000 , &
+ 12937.5600000000 , &
+ 12935.0800000000 , &
+ 12932.5700000000 , &
+ 12930.0500000000 , &
+ 12927.5000000000 , &
+ 12924.9400000000 , &
+ 12922.3500000000 , &
+ 12919.7500000000 , &
+ 12917.1200000000 , &
+ 12914.4700000000 , &
+ 12911.8100000000 , &
+ 12909.1200000000 , &
+ 12906.4100000000 , &
+ 12903.6800000000 , &
+ 12900.9400000000 , &
+ 12898.1700000000 , &
+ 12895.3800000000 , &
+ 12892.5700000000 , &
+ 12889.7400000000 , &
+ 12886.8900000000 , &
+ 12884.0200000000 , &
+ 12881.1300000000 , &
+ 12878.2200000000 , &
+ 12875.2900000000 , &
+ 12872.3400000000 , &
+ 12869.3700000000 , &
+ 12866.3800000000 , &
+ 12863.3700000000 /)
+
+ Mref_V%density_ref( 151 : 180 ) = (/ &
+ 12860.3400000000 , &
+ 12857.2900000000 , &
+ 12854.2100000000 , &
+ 12851.1200000000 , &
+ 12848.0100000000 , &
+ 12844.8800000000 , &
+ 12841.7200000000 , &
+ 12838.5500000000 , &
+ 12835.3500000000 , &
+ 12832.1400000000 , &
+ 12828.9100000000 , &
+ 12825.6500000000 , &
+ 12822.3800000000 , &
+ 12819.0800000000 , &
+ 12815.7600000000 , &
+ 12812.4300000000 , &
+ 12809.0700000000 , &
+ 12805.7000000000 , &
+ 12802.3000000000 , &
+ 12798.8800000000 , &
+ 12795.4400000000 , &
+ 12791.9900000000 , &
+ 12788.5100000000 , &
+ 12785.0100000000 , &
+ 12781.4900000000 , &
+ 12777.9500000000 , &
+ 12774.4000000000 , &
+ 12770.8200000000 , &
+ 12767.2200000000 , &
+ 12763.6000000000 /)
+
+ Mref_V%density_ref( 181 : 210 ) = (/ &
+ 12166.3500000000 , &
+ 12159.7700000000 , &
+ 12153.1400000000 , &
+ 12146.4500000000 , &
+ 12139.7100000000 , &
+ 12132.9100000000 , &
+ 12126.0500000000 , &
+ 12119.1400000000 , &
+ 12112.1800000000 , &
+ 12105.1500000000 , &
+ 12098.0700000000 , &
+ 12090.9300000000 , &
+ 12083.7300000000 , &
+ 12076.4800000000 , &
+ 12069.1700000000 , &
+ 12061.8000000000 , &
+ 12054.3700000000 , &
+ 12046.8800000000 , &
+ 12039.3300000000 , &
+ 12031.7200000000 , &
+ 12024.0500000000 , &
+ 12016.3300000000 , &
+ 12008.5400000000 , &
+ 12000.6900000000 , &
+ 11992.7800000000 , &
+ 11984.8100000000 , &
+ 11976.7800000000 , &
+ 11968.6800000000 , &
+ 11960.5300000000 , &
+ 11952.3100000000 /)
+
+ Mref_V%density_ref( 211 : 240 ) = (/ &
+ 11944.0300000000 , &
+ 11935.6900000000 , &
+ 11927.2800000000 , &
+ 11918.8100000000 , &
+ 11910.2800000000 , &
+ 11901.6800000000 , &
+ 11893.0200000000 , &
+ 11884.3000000000 , &
+ 11875.5100000000 , &
+ 11866.6600000000 , &
+ 11857.7400000000 , &
+ 11848.7500000000 , &
+ 11839.7000000000 , &
+ 11830.5800000000 , &
+ 11821.4000000000 , &
+ 11812.1500000000 , &
+ 11802.8400000000 , &
+ 11793.4500000000 , &
+ 11784.0100000000 , &
+ 11774.4900000000 , &
+ 11764.9000000000 , &
+ 11755.2500000000 , &
+ 11745.5300000000 , &
+ 11735.7400000000 , &
+ 11725.8800000000 , &
+ 11715.9500000000 , &
+ 11705.9500000000 , &
+ 11695.8900000000 , &
+ 11685.7500000000 , &
+ 11675.5400000000 /)
+
+ Mref_V%density_ref( 241 : 270 ) = (/ &
+ 11665.2600000000 , &
+ 11654.9200000000 , &
+ 11644.5000000000 , &
+ 11634.0100000000 , &
+ 11623.4400000000 , &
+ 11612.8100000000 , &
+ 11602.1000000000 , &
+ 11591.3200000000 , &
+ 11580.4700000000 , &
+ 11569.5500000000 , &
+ 11558.5500000000 , &
+ 11547.4800000000 , &
+ 11536.3400000000 , &
+ 11525.1200000000 , &
+ 11513.8300000000 , &
+ 11502.4600000000 , &
+ 11491.0200000000 , &
+ 11479.5100000000 , &
+ 11467.9100000000 , &
+ 11456.2500000000 , &
+ 11444.5000000000 , &
+ 11432.6900000000 , &
+ 11420.7900000000 , &
+ 11408.8200000000 , &
+ 11396.7700000000 , &
+ 11384.6400000000 , &
+ 11372.4400000000 , &
+ 11360.1600000000 , &
+ 11347.8000000000 , &
+ 11335.3700000000 /)
+
+ Mref_V%density_ref( 271 : 300 ) = (/ &
+ 11322.8500000000 , &
+ 11310.2600000000 , &
+ 11297.5800000000 , &
+ 11284.8300000000 , &
+ 11272.0000000000 , &
+ 11259.0900000000 , &
+ 11246.1000000000 , &
+ 11233.0300000000 , &
+ 11219.8700000000 , &
+ 11206.6400000000 , &
+ 11193.3300000000 , &
+ 11179.9300000000 , &
+ 11166.4500000000 , &
+ 11152.8900000000 , &
+ 11139.2500000000 , &
+ 11125.5300000000 , &
+ 11111.7200000000 , &
+ 11097.8300000000 , &
+ 11083.8600000000 , &
+ 11069.8000000000 , &
+ 11055.6600000000 , &
+ 11041.4400000000 , &
+ 11027.1300000000 , &
+ 11012.7400000000 , &
+ 10998.2600000000 , &
+ 10983.7000000000 , &
+ 10969.0500000000 , &
+ 10954.3200000000 , &
+ 10939.5000000000 , &
+ 10924.5900000000 /)
+
+ Mref_V%density_ref( 301 : 330 ) = (/ &
+ 10909.6000000000 , &
+ 10894.5200000000 , &
+ 10879.3500000000 , &
+ 10864.1000000000 , &
+ 10848.7600000000 , &
+ 10833.3300000000 , &
+ 10817.8100000000 , &
+ 10802.2100000000 , &
+ 10786.5100000000 , &
+ 10770.7300000000 , &
+ 10754.8600000000 , &
+ 10738.9000000000 , &
+ 10722.8500000000 , &
+ 10706.7100000000 , &
+ 10690.4800000000 , &
+ 10674.1600000000 , &
+ 10657.7500000000 , &
+ 10641.2400000000 , &
+ 10624.6500000000 , &
+ 10607.9600000000 , &
+ 10591.1900000000 , &
+ 10574.3200000000 , &
+ 10557.3600000000 , &
+ 10540.3000000000 , &
+ 10523.1600000000 , &
+ 10505.9200000000 , &
+ 10488.5800000000 , &
+ 10471.1500000000 , &
+ 10453.6300000000 , &
+ 10436.0200000000 /)
+
+ Mref_V%density_ref( 331 : 360 ) = (/ &
+ 10418.3100000000 , &
+ 10400.5100000000 , &
+ 10382.6100000000 , &
+ 10364.6100000000 , &
+ 10346.5200000000 , &
+ 10328.3400000000 , &
+ 10310.0500000000 , &
+ 10291.6800000000 , &
+ 10273.2000000000 , &
+ 10254.6300000000 , &
+ 10235.9600000000 , &
+ 10217.2000000000 , &
+ 10198.3300000000 , &
+ 10179.3700000000 , &
+ 10160.3100000000 , &
+ 10141.1500000000 , &
+ 10121.9000000000 , &
+ 10102.5400000000 , &
+ 10083.0900000000 , &
+ 10063.5300000000 , &
+ 10043.8800000000 , &
+ 10024.1200000000 , &
+ 10004.2700000000 , &
+ 9984.32000000000 , &
+ 9964.26000000000 , &
+ 9944.10000000000 , &
+ 9923.84000000000 , &
+ 9903.48000000000 , &
+ 5566.45000000000 , &
+ 5561.75000000000 /)
+
+ Mref_V%density_ref( 361 : 390 ) = (/ &
+ 5557.05000000000 , &
+ 5552.36000000000 , &
+ 5547.66000000000 , &
+ 5542.97000000000 , &
+ 5538.28000000000 , &
+ 5533.59000000000 , &
+ 5528.90000000000 , &
+ 5524.21000000000 , &
+ 5519.53000000000 , &
+ 5514.85000000000 , &
+ 5510.16000000000 , &
+ 5505.48000000000 , &
+ 5500.81000000000 , &
+ 5496.13000000000 , &
+ 5491.45000000000 , &
+ 5491.45000000000 , &
+ 5486.73000000000 , &
+ 5482.01000000000 , &
+ 5477.29000000000 , &
+ 5472.57000000000 , &
+ 5467.85000000000 , &
+ 5463.13000000000 , &
+ 5458.42000000000 , &
+ 5453.70000000000 , &
+ 5448.99000000000 , &
+ 5444.27000000000 , &
+ 5439.56000000000 , &
+ 5434.85000000000 , &
+ 5430.13000000000 , &
+ 5425.42000000000 /)
+
+ Mref_V%density_ref( 391 : 420 ) = (/ &
+ 5420.71000000000 , &
+ 5416.00000000000 , &
+ 5411.29000000000 , &
+ 5406.57000000000 , &
+ 5401.86000000000 , &
+ 5397.15000000000 , &
+ 5392.44000000000 , &
+ 5387.73000000000 , &
+ 5383.02000000000 , &
+ 5378.30000000000 , &
+ 5373.59000000000 , &
+ 5368.88000000000 , &
+ 5364.17000000000 , &
+ 5359.45000000000 , &
+ 5354.74000000000 , &
+ 5350.02000000000 , &
+ 5345.31000000000 , &
+ 5340.59000000000 , &
+ 5335.87000000000 , &
+ 5331.16000000000 , &
+ 5326.44000000000 , &
+ 5321.72000000000 , &
+ 5317.00000000000 , &
+ 5312.28000000000 , &
+ 5307.55000000000 , &
+ 5302.83000000000 , &
+ 5298.10000000000 , &
+ 5293.38000000000 , &
+ 5288.65000000000 , &
+ 5283.92000000000 /)
+
+ Mref_V%density_ref( 421 : 450 ) = (/ &
+ 5279.19000000000 , &
+ 5274.45000000000 , &
+ 5269.72000000000 , &
+ 5264.98000000000 , &
+ 5260.25000000000 , &
+ 5255.51000000000 , &
+ 5250.77000000000 , &
+ 5246.02000000000 , &
+ 5241.28000000000 , &
+ 5236.53000000000 , &
+ 5231.78000000000 , &
+ 5227.03000000000 , &
+ 5222.27000000000 , &
+ 5217.52000000000 , &
+ 5212.76000000000 , &
+ 5208.00000000000 , &
+ 5203.23000000000 , &
+ 5198.47000000000 , &
+ 5193.70000000000 , &
+ 5188.93000000000 , &
+ 5184.15000000000 , &
+ 5179.38000000000 , &
+ 5174.60000000000 , &
+ 5169.82000000000 , &
+ 5165.03000000000 , &
+ 5160.24000000000 , &
+ 5155.45000000000 , &
+ 5150.65000000000 , &
+ 5145.86000000000 , &
+ 5141.06000000000 /)
+
+ Mref_V%density_ref( 451 : 480 ) = (/ &
+ 5136.25000000000 , &
+ 5131.44000000000 , &
+ 5126.63000000000 , &
+ 5121.82000000000 , &
+ 5117.00000000000 , &
+ 5112.18000000000 , &
+ 5107.35000000000 , &
+ 5102.52000000000 , &
+ 5097.69000000000 , &
+ 5092.85000000000 , &
+ 5088.01000000000 , &
+ 5083.16000000000 , &
+ 5078.31000000000 , &
+ 5073.46000000000 , &
+ 5068.60000000000 , &
+ 5063.74000000000 , &
+ 5058.87000000000 , &
+ 5054.00000000000 , &
+ 5049.13000000000 , &
+ 5044.25000000000 , &
+ 5039.36000000000 , &
+ 5034.47000000000 , &
+ 5029.58000000000 , &
+ 5024.68000000000 , &
+ 5019.78000000000 , &
+ 5014.87000000000 , &
+ 5009.96000000000 , &
+ 5005.04000000000 , &
+ 5000.12000000000 , &
+ 4995.19000000000 /)
+
+ Mref_V%density_ref( 481 : 510 ) = (/ &
+ 4990.26000000000 , &
+ 4985.32000000000 , &
+ 4980.38000000000 , &
+ 4975.43000000000 , &
+ 4970.47000000000 , &
+ 4965.51000000000 , &
+ 4960.55000000000 , &
+ 4955.58000000000 , &
+ 4950.60000000000 , &
+ 4945.62000000000 , &
+ 4940.63000000000 , &
+ 4935.64000000000 , &
+ 4930.64000000000 , &
+ 4925.63000000000 , &
+ 4920.62000000000 , &
+ 4915.60000000000 , &
+ 4910.58000000000 , &
+ 4905.55000000000 , &
+ 4900.51000000000 , &
+ 4895.47000000000 , &
+ 4890.42000000000 , &
+ 4885.37000000000 , &
+ 4880.31000000000 , &
+ 4875.24000000000 , &
+ 4870.16000000000 , &
+ 4865.08000000000 , &
+ 4859.99000000000 , &
+ 4854.90000000000 , &
+ 4849.80000000000 , &
+ 4844.69000000000 /)
+
+ Mref_V%density_ref( 511 : 540 ) = (/ &
+ 4839.57000000000 , &
+ 4834.45000000000 , &
+ 4829.32000000000 , &
+ 4824.18000000000 , &
+ 4819.04000000000 , &
+ 4813.88000000000 , &
+ 4808.73000000000 , &
+ 4803.56000000000 , &
+ 4798.39000000000 , &
+ 4793.20000000000 , &
+ 4788.02000000000 , &
+ 4782.82000000000 , &
+ 4777.61000000000 , &
+ 4772.40000000000 , &
+ 4767.18000000000 , &
+ 4761.95000000000 , &
+ 4756.72000000000 , &
+ 4751.47000000000 , &
+ 4746.22000000000 , &
+ 4740.95000000000 , &
+ 4735.68000000000 , &
+ 4730.40000000000 , &
+ 4725.10000000000 , &
+ 4719.80000000000 , &
+ 4714.48000000000 , &
+ 4709.15000000000 , &
+ 4703.81000000000 , &
+ 4698.44000000000 , &
+ 4693.08000000000 , &
+ 4687.69000000000 /)
+
+ Mref_V%density_ref( 541 : 570 ) = (/ &
+ 4682.29000000000 , &
+ 4676.87000000000 , &
+ 4671.44000000000 , &
+ 4665.99000000000 , &
+ 4660.52000000000 , &
+ 4655.03000000000 , &
+ 4649.52000000000 , &
+ 4644.00000000000 , &
+ 4638.46000000000 , &
+ 4632.89000000000 , &
+ 4627.31000000000 , &
+ 4621.70000000000 , &
+ 4616.08000000000 , &
+ 4610.44000000000 , &
+ 4604.76000000000 , &
+ 4599.08000000000 , &
+ 4593.36000000000 , &
+ 4587.63000000000 , &
+ 4581.86000000000 , &
+ 4576.07000000000 , &
+ 4570.26000000000 , &
+ 4564.43000000000 , &
+ 4558.56000000000 , &
+ 4552.67000000000 , &
+ 4546.76000000000 , &
+ 4540.82000000000 , &
+ 4534.84000000000 , &
+ 4528.85000000000 , &
+ 4522.81000000000 , &
+ 4516.76000000000 /)
+
+ Mref_V%density_ref( 571 : 600 ) = (/ &
+ 4510.67000000000 , &
+ 4504.56000000000 , &
+ 4498.41000000000 , &
+ 4492.23000000000 , &
+ 4486.02000000000 , &
+ 4479.78000000000 , &
+ 4473.51000000000 , &
+ 4467.20000000000 , &
+ 4460.87000000000 , &
+ 4454.49000000000 , &
+ 4448.08000000000 , &
+ 4441.63000000000 , &
+ 4435.13000000000 , &
+ 4428.60000000000 , &
+ 4428.59000000000 , &
+ 4423.32000000000 , &
+ 4418.01000000000 , &
+ 4412.67000000000 , &
+ 4407.30000000000 , &
+ 4401.90000000000 , &
+ 4396.45000000000 , &
+ 4390.96000000000 , &
+ 4385.40000000000 , &
+ 4379.81000000000 , &
+ 4374.16000000000 , &
+ 4368.47000000000 , &
+ 4362.72000000000 , &
+ 4356.92000000000 , &
+ 4351.08000000000 , &
+ 4345.18000000000 /)
+
+ Mref_V%density_ref( 601 : 630 ) = (/ &
+ 4339.24000000000 , &
+ 4047.01000000000 , &
+ 4042.50000000000 , &
+ 4037.98000000000 , &
+ 4033.48000000000 , &
+ 4028.95000000000 , &
+ 4024.45000000000 , &
+ 4019.93000000000 , &
+ 4015.42000000000 , &
+ 4010.90000000000 , &
+ 4006.38000000000 , &
+ 4001.87000000000 , &
+ 3997.35000000000 , &
+ 3992.84000000000 , &
+ 3988.32000000000 , &
+ 3983.80000000000 , &
+ 3983.80000000000 , &
+ 3975.79000000000 , &
+ 3967.77000000000 , &
+ 3959.76000000000 , &
+ 3951.75000000000 , &
+ 3943.73000000000 , &
+ 3935.71000000000 , &
+ 3927.69000000000 , &
+ 3919.67000000000 , &
+ 3911.65000000000 , &
+ 3903.61000000000 , &
+ 3895.58000000000 , &
+ 3887.56000000000 , &
+ 3879.53000000000 /)
+
+ Mref_V%density_ref( 631 : 660 ) = (/ &
+ 3871.50000000000 , &
+ 3863.46000000000 , &
+ 3855.42000000000 , &
+ 3847.38000000000 , &
+ 3839.33000000000 , &
+ 3831.27000000000 , &
+ 3823.22000000000 , &
+ 3815.16000000000 , &
+ 3807.09000000000 , &
+ 3799.01000000000 , &
+ 3790.94000000000 , &
+ 3782.85000000000 , &
+ 3774.78000000000 , &
+ 3766.66000000000 , &
+ 3758.56000000000 , &
+ 3750.45000000000 , &
+ 3742.34000000000 , &
+ 3554.91000000000 , &
+ 3551.00000000000 , &
+ 3547.07000000000 , &
+ 3543.16000000000 , &
+ 3539.23000000000 , &
+ 3535.32000000000 , &
+ 3531.39000000000 , &
+ 3527.46000000000 , &
+ 3523.57000000000 , &
+ 3519.67000000000 , &
+ 3515.77000000000 , &
+ 3511.91000000000 , &
+ 3508.06000000000 /)
+
+ Mref_V%density_ref( 661 : 690 ) = (/ &
+ 3504.21000000000 , &
+ 3500.39000000000 , &
+ 3496.58000000000 , &
+ 3492.80000000000 , &
+ 3489.05000000000 , &
+ 3485.32000000000 , &
+ 3481.61000000000 , &
+ 3477.88000000000 , &
+ 3474.16000000000 , &
+ 3470.41000000000 , &
+ 3466.59000000000 , &
+ 3462.74000000000 , &
+ 3458.78000000000 , &
+ 3454.75000000000 , &
+ 3450.61000000000 , &
+ 3446.33000000000 , &
+ 3441.91000000000 , &
+ 3437.35000000000 , &
+ 3437.34000000000 , &
+ 3432.81000000000 , &
+ 3428.15000000000 , &
+ 3423.37000000000 , &
+ 3418.47000000000 , &
+ 3413.47000000000 , &
+ 3408.35000000000 , &
+ 3403.15000000000 , &
+ 3397.87000000000 , &
+ 3392.50000000000 , &
+ 3387.07000000000 , &
+ 3381.58000000000 /)
+
+ Mref_V%density_ref( 691 : 720 ) = (/ &
+ 3376.03000000000 , &
+ 3370.45000000000 , &
+ 3364.87000000000 , &
+ 3359.31000000000 , &
+ 3353.79000000000 , &
+ 3348.37000000000 , &
+ 3343.03000000000 , &
+ 3337.85000000000 , &
+ 3332.83000000000 , &
+ 3328.01000000000 , &
+ 3323.39000000000 , &
+ 3319.04000000000 , &
+ 3319.03000000000 , &
+ 3316.33000000000 , &
+ 3313.75000000000 , &
+ 3311.30000000000 , &
+ 3308.97000000000 , &
+ 3306.73000000000 , &
+ 3304.58000000000 , &
+ 3302.53000000000 , &
+ 3300.55000000000 , &
+ 3298.63000000000 , &
+ 3296.79000000000 , &
+ 3295.00000000000 , &
+ 3293.25000000000 , &
+ 3291.54000000000 , &
+ 3289.84000000000 , &
+ 2900.00000000000 , &
+ 2900.00000000000 , &
+ 2900.00000000000 /)
+
+ Mref_V%density_ref( 721 : 750 ) = (/ &
+ 2900.00000000000 , &
+ 2900.00000000000 , &
+ 2900.00000000000 , &
+ 2900.00000000000 , &
+ 2900.00000000000 , &
+ 2900.00000000000 , &
+ 2900.00000000000 , &
+ 2900.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 , &
+ 2600.00000000000 /)
+
+ Mref_V%vpv_ref( 1 : 30 ) = (/ &
+ 11262.2000000000 , &
+ 11262.2000000000 , &
+ 11262.1800000000 , &
+ 11262.1400000000 , &
+ 11262.0900000000 , &
+ 11262.0200000000 , &
+ 11261.9400000000 , &
+ 11261.8500000000 , &
+ 11261.7400000000 , &
+ 11261.6100000000 , &
+ 11261.4700000000 , &
+ 11261.3200000000 , &
+ 11261.1500000000 , &
+ 11260.9700000000 , &
+ 11260.7700000000 , &
+ 11260.5600000000 , &
+ 11260.3400000000 , &
+ 11260.0900000000 , &
+ 11259.8400000000 , &
+ 11259.5700000000 , &
+ 11259.2800000000 , &
+ 11258.9900000000 , &
+ 11258.6700000000 , &
+ 11258.3400000000 , &
+ 11258.0000000000 , &
+ 11257.6400000000 , &
+ 11257.2700000000 , &
+ 11256.8800000000 , &
+ 11256.4800000000 , &
+ 11256.0600000000 /)
+
+ Mref_V%vpv_ref( 31 : 60 ) = (/ &
+ 11255.6300000000 , &
+ 11255.1900000000 , &
+ 11254.7300000000 , &
+ 11254.2500000000 , &
+ 11253.7600000000 , &
+ 11253.2600000000 , &
+ 11252.7400000000 , &
+ 11252.2100000000 , &
+ 11251.6600000000 , &
+ 11251.1000000000 , &
+ 11250.5200000000 , &
+ 11249.9300000000 , &
+ 11249.3300000000 , &
+ 11248.7100000000 , &
+ 11248.0700000000 , &
+ 11247.4200000000 , &
+ 11246.7600000000 , &
+ 11246.0800000000 , &
+ 11245.3800000000 , &
+ 11244.6700000000 , &
+ 11243.9500000000 , &
+ 11243.2100000000 , &
+ 11242.4600000000 , &
+ 11241.7000000000 , &
+ 11240.9100000000 , &
+ 11240.1200000000 , &
+ 11239.3100000000 , &
+ 11238.4800000000 , &
+ 11237.6400000000 , &
+ 11236.7900000000 /)
+
+ Mref_V%vpv_ref( 61 : 90 ) = (/ &
+ 11235.9200000000 , &
+ 11235.0400000000 , &
+ 11234.1400000000 , &
+ 11233.2300000000 , &
+ 11232.3000000000 , &
+ 11231.3600000000 , &
+ 11230.4000000000 , &
+ 11229.4300000000 , &
+ 11228.4400000000 , &
+ 11227.4400000000 , &
+ 11226.4300000000 , &
+ 11225.4000000000 , &
+ 11224.3600000000 , &
+ 11223.3000000000 , &
+ 11222.2200000000 , &
+ 11221.1400000000 , &
+ 11220.0300000000 , &
+ 11218.9200000000 , &
+ 11217.7800000000 , &
+ 11216.6400000000 , &
+ 11215.4800000000 , &
+ 11214.3000000000 , &
+ 11213.1100000000 , &
+ 11211.9100000000 , &
+ 11210.6900000000 , &
+ 11209.4500000000 , &
+ 11208.2100000000 , &
+ 11206.9400000000 , &
+ 11205.6700000000 , &
+ 11204.3700000000 /)
+
+ Mref_V%vpv_ref( 91 : 120 ) = (/ &
+ 11203.0700000000 , &
+ 11201.7400000000 , &
+ 11200.4100000000 , &
+ 11199.0600000000 , &
+ 11197.6900000000 , &
+ 11196.3100000000 , &
+ 11194.9200000000 , &
+ 11193.5100000000 , &
+ 11192.0900000000 , &
+ 11190.6500000000 , &
+ 11189.1900000000 , &
+ 11187.7300000000 , &
+ 11186.2400000000 , &
+ 11184.7500000000 , &
+ 11183.2400000000 , &
+ 11181.7100000000 , &
+ 11180.1700000000 , &
+ 11178.6100000000 , &
+ 11177.0400000000 , &
+ 11175.4600000000 , &
+ 11173.8600000000 , &
+ 11172.2500000000 , &
+ 11170.6200000000 , &
+ 11168.9800000000 , &
+ 11167.3200000000 , &
+ 11165.6500000000 , &
+ 11163.9600000000 , &
+ 11162.2600000000 , &
+ 11160.5400000000 , &
+ 11158.8100000000 /)
+
+ Mref_V%vpv_ref( 121 : 150 ) = (/ &
+ 11157.0700000000 , &
+ 11155.3100000000 , &
+ 11153.5400000000 , &
+ 11151.7500000000 , &
+ 11149.9400000000 , &
+ 11148.1300000000 , &
+ 11146.2900000000 , &
+ 11144.4500000000 , &
+ 11142.5800000000 , &
+ 11140.7100000000 , &
+ 11138.8200000000 , &
+ 11136.9100000000 , &
+ 11134.9900000000 , &
+ 11133.0600000000 , &
+ 11131.1100000000 , &
+ 11129.1400000000 , &
+ 11127.1600000000 , &
+ 11125.1700000000 , &
+ 11123.1600000000 , &
+ 11121.1400000000 , &
+ 11119.1000000000 , &
+ 11117.0500000000 , &
+ 11114.9900000000 , &
+ 11112.9000000000 , &
+ 11110.8100000000 , &
+ 11108.7000000000 , &
+ 11106.5700000000 , &
+ 11104.4400000000 , &
+ 11102.2800000000 , &
+ 11100.1100000000 /)
+
+ Mref_V%vpv_ref( 151 : 180 ) = (/ &
+ 11097.9300000000 , &
+ 11095.7300000000 , &
+ 11093.5200000000 , &
+ 11091.2900000000 , &
+ 11089.0500000000 , &
+ 11086.8000000000 , &
+ 11084.5300000000 , &
+ 11082.2400000000 , &
+ 11079.9400000000 , &
+ 11077.6300000000 , &
+ 11075.3000000000 , &
+ 11072.9500000000 , &
+ 11070.5900000000 , &
+ 11068.2200000000 , &
+ 11065.8300000000 , &
+ 11063.4300000000 , &
+ 11061.0200000000 , &
+ 11058.5800000000 , &
+ 11056.1400000000 , &
+ 11053.6800000000 , &
+ 11051.2000000000 , &
+ 11048.7100000000 , &
+ 11046.2100000000 , &
+ 11043.6900000000 , &
+ 11041.1600000000 , &
+ 11038.6100000000 , &
+ 11036.0500000000 , &
+ 11033.4700000000 , &
+ 11030.8800000000 , &
+ 11028.2700000000 /)
+
+ Mref_V%vpv_ref( 181 : 210 ) = (/ &
+ 10355.6900000000 , &
+ 10348.2800000000 , &
+ 10340.8500000000 , &
+ 10333.3900000000 , &
+ 10325.9100000000 , &
+ 10318.4000000000 , &
+ 10310.8700000000 , &
+ 10303.3000000000 , &
+ 10295.7100000000 , &
+ 10288.0900000000 , &
+ 10280.4400000000 , &
+ 10272.7600000000 , &
+ 10265.0400000000 , &
+ 10257.3000000000 , &
+ 10249.5200000000 , &
+ 10241.7100000000 , &
+ 10233.8600000000 , &
+ 10225.9800000000 , &
+ 10218.0600000000 , &
+ 10210.1100000000 , &
+ 10202.1200000000 , &
+ 10194.1000000000 , &
+ 10186.0400000000 , &
+ 10177.9400000000 , &
+ 10169.7900000000 , &
+ 10161.6100000000 , &
+ 10153.3900000000 , &
+ 10145.1300000000 , &
+ 10136.8300000000 , &
+ 10128.4800000000 /)
+
+ Mref_V%vpv_ref( 211 : 240 ) = (/ &
+ 10120.0900000000 , &
+ 10111.6600000000 , &
+ 10103.1800000000 , &
+ 10094.6600000000 , &
+ 10086.0900000000 , &
+ 10077.4800000000 , &
+ 10068.8200000000 , &
+ 10060.1100000000 , &
+ 10051.3500000000 , &
+ 10042.5400000000 , &
+ 10033.6900000000 , &
+ 10024.7800000000 , &
+ 10015.8200000000 , &
+ 10006.8200000000 , &
+ 9997.75000000000 , &
+ 9988.64000000000 , &
+ 9979.47000000000 , &
+ 9970.25000000000 , &
+ 9960.97000000000 , &
+ 9951.64000000000 , &
+ 9942.25000000000 , &
+ 9932.81000000000 , &
+ 9923.31000000000 , &
+ 9913.75000000000 , &
+ 9904.13000000000 , &
+ 9894.45000000000 , &
+ 9884.71000000000 , &
+ 9874.91000000000 , &
+ 9865.05000000000 , &
+ 9855.13000000000 /)
+
+ Mref_V%vpv_ref( 241 : 270 ) = (/ &
+ 9845.14000000000 , &
+ 9835.09000000000 , &
+ 9824.98000000000 , &
+ 9814.80000000000 , &
+ 9804.56000000000 , &
+ 9794.25000000000 , &
+ 9783.87000000000 , &
+ 9773.43000000000 , &
+ 9762.92000000000 , &
+ 9752.34000000000 , &
+ 9741.69000000000 , &
+ 9730.97000000000 , &
+ 9720.18000000000 , &
+ 9709.32000000000 , &
+ 9698.39000000000 , &
+ 9687.38000000000 , &
+ 9676.31000000000 , &
+ 9665.15000000000 , &
+ 9653.93000000000 , &
+ 9642.63000000000 , &
+ 9631.25000000000 , &
+ 9619.80000000000 , &
+ 9608.27000000000 , &
+ 9596.66000000000 , &
+ 9584.97000000000 , &
+ 9573.20000000000 , &
+ 9561.36000000000 , &
+ 9549.43000000000 , &
+ 9537.43000000000 , &
+ 9525.34000000000 /)
+
+ Mref_V%vpv_ref( 271 : 300 ) = (/ &
+ 9513.17000000000 , &
+ 9500.91000000000 , &
+ 9488.57000000000 , &
+ 9476.15000000000 , &
+ 9463.64000000000 , &
+ 9451.05000000000 , &
+ 9438.37000000000 , &
+ 9425.61000000000 , &
+ 9412.75000000000 , &
+ 9399.81000000000 , &
+ 9386.78000000000 , &
+ 9373.66000000000 , &
+ 9360.45000000000 , &
+ 9347.15000000000 , &
+ 9333.76000000000 , &
+ 9320.27000000000 , &
+ 9306.70000000000 , &
+ 9293.03000000000 , &
+ 9279.26000000000 , &
+ 9265.40000000000 , &
+ 9251.45000000000 , &
+ 9237.40000000000 , &
+ 9223.25000000000 , &
+ 9209.00000000000 , &
+ 9194.66000000000 , &
+ 9180.22000000000 , &
+ 9165.68000000000 , &
+ 9151.03000000000 , &
+ 9136.29000000000 , &
+ 9121.45000000000 /)
+
+ Mref_V%vpv_ref( 301 : 330 ) = (/ &
+ 9106.50000000000 , &
+ 9091.46000000000 , &
+ 9076.30000000000 , &
+ 9061.05000000000 , &
+ 9045.69000000000 , &
+ 9030.23000000000 , &
+ 9014.65000000000 , &
+ 8998.98000000000 , &
+ 8983.19000000000 , &
+ 8967.30000000000 , &
+ 8951.30000000000 , &
+ 8935.19000000000 , &
+ 8918.97000000000 , &
+ 8902.64000000000 , &
+ 8886.20000000000 , &
+ 8869.64000000000 , &
+ 8852.98000000000 , &
+ 8836.20000000000 , &
+ 8819.31000000000 , &
+ 8802.30000000000 , &
+ 8785.18000000000 , &
+ 8767.94000000000 , &
+ 8750.59000000000 , &
+ 8733.12000000000 , &
+ 8715.53000000000 , &
+ 8697.82000000000 , &
+ 8680.00000000000 , &
+ 8662.05000000000 , &
+ 8643.99000000000 , &
+ 8625.80000000000 /)
+
+ Mref_V%vpv_ref( 331 : 360 ) = (/ &
+ 8607.49000000000 , &
+ 8589.06000000000 , &
+ 8570.51000000000 , &
+ 8551.83000000000 , &
+ 8533.03000000000 , &
+ 8514.10000000000 , &
+ 8495.05000000000 , &
+ 8475.87000000000 , &
+ 8456.57000000000 , &
+ 8437.14000000000 , &
+ 8417.58000000000 , &
+ 8397.89000000000 , &
+ 8378.07000000000 , &
+ 8358.12000000000 , &
+ 8338.04000000000 , &
+ 8317.83000000000 , &
+ 8297.49000000000 , &
+ 8277.01000000000 , &
+ 8256.41000000000 , &
+ 8235.66000000000 , &
+ 8214.79000000000 , &
+ 8193.77000000000 , &
+ 8172.62000000000 , &
+ 8151.34000000000 , &
+ 8129.92000000000 , &
+ 8108.36000000000 , &
+ 8086.66000000000 , &
+ 8064.82000000000 , &
+ 13716.6000000000 , &
+ 13714.2900000000 /)
+
+ Mref_V%vpv_ref( 361 : 390 ) = (/ &
+ 13712.0000000000 , &
+ 13709.7000000000 , &
+ 13707.4200000000 , &
+ 13705.1400000000 , &
+ 13702.8600000000 , &
+ 13700.5900000000 , &
+ 13698.3300000000 , &
+ 13696.0700000000 , &
+ 13693.8200000000 , &
+ 13691.5700000000 , &
+ 13689.3300000000 , &
+ 13687.0900000000 , &
+ 13684.8600000000 , &
+ 13682.6300000000 , &
+ 13680.4100000000 , &
+ 13680.4100000000 , &
+ 13668.9000000000 , &
+ 13657.4300000000 , &
+ 13645.9700000000 , &
+ 13634.5400000000 , &
+ 13623.1400000000 , &
+ 13611.7600000000 , &
+ 13600.4000000000 , &
+ 13589.0700000000 , &
+ 13577.7600000000 , &
+ 13566.4700000000 , &
+ 13555.2000000000 , &
+ 13543.9500000000 , &
+ 13532.7200000000 , &
+ 13521.5100000000 /)
+
+ Mref_V%vpv_ref( 391 : 420 ) = (/ &
+ 13510.3200000000 , &
+ 13499.1400000000 , &
+ 13487.9900000000 , &
+ 13476.8500000000 , &
+ 13465.7300000000 , &
+ 13454.6300000000 , &
+ 13443.5400000000 , &
+ 13432.4600000000 , &
+ 13421.4100000000 , &
+ 13410.3600000000 , &
+ 13399.3300000000 , &
+ 13388.3100000000 , &
+ 13377.3100000000 , &
+ 13366.3100000000 , &
+ 13355.3300000000 , &
+ 13344.3600000000 , &
+ 13333.4000000000 , &
+ 13322.4500000000 , &
+ 13311.5100000000 , &
+ 13300.5800000000 , &
+ 13289.6600000000 , &
+ 13278.7400000000 , &
+ 13267.8400000000 , &
+ 13256.9300000000 , &
+ 13246.0400000000 , &
+ 13235.1500000000 , &
+ 13224.2700000000 , &
+ 13213.3900000000 , &
+ 13202.5100000000 , &
+ 13191.6400000000 /)
+
+ Mref_V%vpv_ref( 421 : 450 ) = (/ &
+ 13180.7800000000 , &
+ 13169.9100000000 , &
+ 13159.0500000000 , &
+ 13148.1900000000 , &
+ 13137.3300000000 , &
+ 13126.4700000000 , &
+ 13115.6100000000 , &
+ 13104.7500000000 , &
+ 13093.8900000000 , &
+ 13083.0200000000 , &
+ 13072.1600000000 , &
+ 13061.2900000000 , &
+ 13050.4200000000 , &
+ 13039.5500000000 , &
+ 13028.6700000000 , &
+ 13017.7800000000 , &
+ 13006.9000000000 , &
+ 12996.0000000000 , &
+ 12985.1000000000 , &
+ 12974.1900000000 , &
+ 12963.2800000000 , &
+ 12952.3600000000 , &
+ 12941.4200000000 , &
+ 12930.4800000000 , &
+ 12919.5400000000 , &
+ 12908.5800000000 , &
+ 12897.6100000000 , &
+ 12886.6300000000 , &
+ 12875.6300000000 , &
+ 12864.6300000000 /)
+
+ Mref_V%vpv_ref( 451 : 480 ) = (/ &
+ 12853.6100000000 , &
+ 12842.5800000000 , &
+ 12831.5400000000 , &
+ 12820.4800000000 , &
+ 12809.4100000000 , &
+ 12798.3200000000 , &
+ 12787.2200000000 , &
+ 12776.1000000000 , &
+ 12764.9600000000 , &
+ 12753.8100000000 , &
+ 12742.6300000000 , &
+ 12731.4400000000 , &
+ 12720.2400000000 , &
+ 12709.0100000000 , &
+ 12697.7600000000 , &
+ 12686.4900000000 , &
+ 12675.2000000000 , &
+ 12663.8900000000 , &
+ 12652.5600000000 , &
+ 12641.2000000000 , &
+ 12629.8200000000 , &
+ 12618.4200000000 , &
+ 12606.9900000000 , &
+ 12595.5400000000 , &
+ 12584.0600000000 , &
+ 12572.5600000000 , &
+ 12561.0300000000 , &
+ 12549.4800000000 , &
+ 12537.8900000000 , &
+ 12526.2800000000 /)
+
+ Mref_V%vpv_ref( 481 : 510 ) = (/ &
+ 12514.6400000000 , &
+ 12502.9800000000 , &
+ 12491.2800000000 , &
+ 12479.5500000000 , &
+ 12467.7900000000 , &
+ 12456.0100000000 , &
+ 12444.1900000000 , &
+ 12432.3300000000 , &
+ 12420.4500000000 , &
+ 12408.5300000000 , &
+ 12396.5800000000 , &
+ 12384.6000000000 , &
+ 12372.5800000000 , &
+ 12360.5200000000 , &
+ 12348.4300000000 , &
+ 12336.3000000000 , &
+ 12324.1400000000 , &
+ 12311.9400000000 , &
+ 12299.7000000000 , &
+ 12287.4200000000 , &
+ 12275.1100000000 , &
+ 12262.7500000000 , &
+ 12250.3500000000 , &
+ 12237.9200000000 , &
+ 12225.4400000000 , &
+ 12212.9200000000 , &
+ 12200.3600000000 , &
+ 12187.7600000000 , &
+ 12175.1100000000 , &
+ 12162.4300000000 /)
+
+ Mref_V%vpv_ref( 511 : 540 ) = (/ &
+ 12149.6900000000 , &
+ 12136.9100000000 , &
+ 12124.0900000000 , &
+ 12111.2200000000 , &
+ 12098.3100000000 , &
+ 12085.3400000000 , &
+ 12072.3400000000 , &
+ 12059.2800000000 , &
+ 12046.1700000000 , &
+ 12033.0200000000 , &
+ 12019.8200000000 , &
+ 12006.5600000000 , &
+ 11993.2600000000 , &
+ 11979.9000000000 , &
+ 11966.5000000000 , &
+ 11953.0400000000 , &
+ 11939.5300000000 , &
+ 11925.9700000000 , &
+ 11912.3500000000 , &
+ 11898.6900000000 , &
+ 11884.9600000000 , &
+ 11871.1900000000 , &
+ 11857.3700000000 , &
+ 11843.4800000000 , &
+ 11829.5500000000 , &
+ 11815.5700000000 , &
+ 11801.5300000000 , &
+ 11787.4400000000 , &
+ 11773.3000000000 , &
+ 11759.1000000000 /)
+
+ Mref_V%vpv_ref( 541 : 570 ) = (/ &
+ 11744.8500000000 , &
+ 11730.5500000000 , &
+ 11716.1800000000 , &
+ 11701.7800000000 , &
+ 11687.3100000000 , &
+ 11672.8000000000 , &
+ 11658.2300000000 , &
+ 11643.6000000000 , &
+ 11628.9200000000 , &
+ 11614.1900000000 , &
+ 11599.4000000000 , &
+ 11584.5700000000 , &
+ 11569.6800000000 , &
+ 11554.7200000000 , &
+ 11539.7200000000 , &
+ 11524.6700000000 , &
+ 11509.5600000000 , &
+ 11494.3900000000 , &
+ 11479.1700000000 , &
+ 11463.8900000000 , &
+ 11448.5500000000 , &
+ 11433.1700000000 , &
+ 11417.7300000000 , &
+ 11402.2300000000 , &
+ 11386.6800000000 , &
+ 11371.0700000000 , &
+ 11355.4100000000 , &
+ 11339.6900000000 , &
+ 11323.9100000000 , &
+ 11308.0900000000 /)
+
+ Mref_V%vpv_ref( 571 : 600 ) = (/ &
+ 11292.2000000000 , &
+ 11276.2500000000 , &
+ 11260.2500000000 , &
+ 11244.1900000000 , &
+ 11228.0800000000 , &
+ 11211.9000000000 , &
+ 11195.6700000000 , &
+ 11179.3800000000 , &
+ 11163.0400000000 , &
+ 11146.6300000000 , &
+ 11130.1800000000 , &
+ 11113.6700000000 , &
+ 11097.1100000000 , &
+ 11080.5100000000 , &
+ 11080.5100000000 , &
+ 11063.0100000000 , &
+ 11045.2200000000 , &
+ 11026.8200000000 , &
+ 11008.4700000000 , &
+ 10989.0400000000 , &
+ 10969.6300000000 , &
+ 10948.7600000000 , &
+ 10928.0200000000 , &
+ 10907.4200000000 , &
+ 10886.9400000000 , &
+ 10866.6000000000 , &
+ 10846.4100000000 , &
+ 10826.3500000000 , &
+ 10806.4200000000 , &
+ 10786.6100000000 /)
+
+ Mref_V%vpv_ref( 601 : 630 ) = (/ &
+ 10766.9000000000 , &
+ 10278.8800000000 , &
+ 10261.8700000000 , &
+ 10244.8400000000 , &
+ 10227.8200000000 , &
+ 10210.8000000000 , &
+ 10193.7800000000 , &
+ 10176.7700000000 , &
+ 10159.7400000000 , &
+ 10142.7200000000 , &
+ 10125.7100000000 , &
+ 10108.7000000000 , &
+ 10091.6800000000 , &
+ 10074.6800000000 , &
+ 10057.6800000000 , &
+ 10040.6400000000 , &
+ 10040.6700000000 , &
+ 10010.5200000000 , &
+ 9980.51000000000 , &
+ 9950.64000000000 , &
+ 9920.91000000000 , &
+ 9891.35000000000 , &
+ 9861.96000000000 , &
+ 9832.79000000000 , &
+ 9803.79000000000 , &
+ 9774.98000000000 , &
+ 9746.41000000000 , &
+ 9718.08000000000 , &
+ 9689.96000000000 , &
+ 9662.10000000000 /)
+
+ Mref_V%vpv_ref( 631 : 660 ) = (/ &
+ 9634.47000000000 , &
+ 9607.11000000000 , &
+ 9579.97000000000 , &
+ 9553.08000000000 , &
+ 9526.38000000000 , &
+ 9499.78000000000 , &
+ 9473.25000000000 , &
+ 9446.74000000000 , &
+ 9420.19000000000 , &
+ 9393.55000000000 , &
+ 9366.75000000000 , &
+ 9339.76000000000 , &
+ 9312.50000000000 , &
+ 9284.96000000000 , &
+ 9257.04000000000 , &
+ 9228.73000000000 , &
+ 9199.94000000000 , &
+ 8940.94000000000 , &
+ 8930.61000000000 , &
+ 8920.22000000000 , &
+ 8909.68000000000 , &
+ 8898.47000000000 , &
+ 8886.28000000000 , &
+ 8873.03000000000 , &
+ 8858.58000000000 , &
+ 8842.82000000000 , &
+ 8825.64000000000 , &
+ 8806.94000000000 , &
+ 8786.67000000000 , &
+ 8764.85000000000 /)
+
+ Mref_V%vpv_ref( 661 : 690 ) = (/ &
+ 8741.49000000000 , &
+ 8716.63000000000 , &
+ 8690.30000000000 , &
+ 8662.50000000000 , &
+ 8633.28000000000 , &
+ 8602.66000000000 , &
+ 8570.81000000000 , &
+ 8538.06000000000 , &
+ 8504.66000000000 , &
+ 8470.92000000000 , &
+ 8437.13000000000 , &
+ 8403.52000000000 , &
+ 8370.42000000000 , &
+ 8338.11000000000 , &
+ 8306.25000000000 , &
+ 8275.42000000000 , &
+ 8241.77000000000 , &
+ 8207.37000000000 , &
+ 8207.01000000000 , &
+ 8174.32000000000 , &
+ 8141.99000000000 , &
+ 8110.40000000000 , &
+ 8079.71000000000 , &
+ 8050.15000000000 , &
+ 8021.89000000000 , &
+ 7995.08000000000 , &
+ 7969.97000000000 , &
+ 7946.70000000000 , &
+ 7925.45000000000 , &
+ 7906.44000000000 /)
+
+ Mref_V%vpv_ref( 691 : 720 ) = (/ &
+ 7889.80000000000 , &
+ 7875.56000000000 , &
+ 7863.64000000000 , &
+ 7853.87000000000 , &
+ 7846.17000000000 , &
+ 7840.38000000000 , &
+ 7836.39000000000 , &
+ 7834.11000000000 , &
+ 7833.38000000000 , &
+ 7834.11000000000 , &
+ 7836.11000000000 , &
+ 7839.12000000000 , &
+ 7839.37000000000 , &
+ 7841.82000000000 , &
+ 7844.77000000000 , &
+ 7848.07000000000 , &
+ 7851.72000000000 , &
+ 7855.75000000000 , &
+ 7860.14000000000 , &
+ 7864.89000000000 , &
+ 7870.01000000000 , &
+ 7875.49000000000 , &
+ 7881.33000000000 , &
+ 7887.54000000000 , &
+ 7894.13000000000 , &
+ 7901.10000000000 , &
+ 7908.24000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 /)
+
+ Mref_V%vpv_ref( 721 : 750 ) = (/ &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 /)
+
+ Mref_V%vsv_ref( 1 : 30 ) = (/ &
+ 3667.80000000000 , &
+ 3667.79000000000 , &
+ 3667.78000000000 , &
+ 3667.75000000000 , &
+ 3667.72000000000 , &
+ 3667.67000000000 , &
+ 3667.62000000000 , &
+ 3667.55000000000 , &
+ 3667.47000000000 , &
+ 3667.39000000000 , &
+ 3667.29000000000 , &
+ 3667.18000000000 , &
+ 3667.06000000000 , &
+ 3666.94000000000 , &
+ 3666.80000000000 , &
+ 3666.65000000000 , &
+ 3666.49000000000 , &
+ 3666.32000000000 , &
+ 3666.15000000000 , &
+ 3665.96000000000 , &
+ 3665.76000000000 , &
+ 3665.55000000000 , &
+ 3665.33000000000 , &
+ 3665.10000000000 , &
+ 3664.86000000000 , &
+ 3664.61000000000 , &
+ 3664.35000000000 , &
+ 3664.08000000000 , &
+ 3663.80000000000 , &
+ 3663.51000000000 /)
+
+ Mref_V%vsv_ref( 31 : 60 ) = (/ &
+ 3663.21000000000 , &
+ 3662.90000000000 , &
+ 3662.57000000000 , &
+ 3662.24000000000 , &
+ 3661.90000000000 , &
+ 3661.55000000000 , &
+ 3661.19000000000 , &
+ 3660.81000000000 , &
+ 3660.43000000000 , &
+ 3660.04000000000 , &
+ 3659.64000000000 , &
+ 3659.22000000000 , &
+ 3658.80000000000 , &
+ 3658.36000000000 , &
+ 3657.92000000000 , &
+ 3657.47000000000 , &
+ 3657.00000000000 , &
+ 3656.53000000000 , &
+ 3656.04000000000 , &
+ 3655.55000000000 , &
+ 3655.04000000000 , &
+ 3654.53000000000 , &
+ 3654.00000000000 , &
+ 3653.47000000000 , &
+ 3652.92000000000 , &
+ 3652.36000000000 , &
+ 3651.80000000000 , &
+ 3651.22000000000 , &
+ 3650.63000000000 , &
+ 3650.04000000000 /)
+
+ Mref_V%vsv_ref( 61 : 90 ) = (/ &
+ 3649.43000000000 , &
+ 3648.81000000000 , &
+ 3648.19000000000 , &
+ 3647.55000000000 , &
+ 3646.90000000000 , &
+ 3646.24000000000 , &
+ 3645.57000000000 , &
+ 3644.89000000000 , &
+ 3644.21000000000 , &
+ 3643.51000000000 , &
+ 3642.80000000000 , &
+ 3642.08000000000 , &
+ 3641.35000000000 , &
+ 3640.61000000000 , &
+ 3639.86000000000 , &
+ 3639.10000000000 , &
+ 3638.33000000000 , &
+ 3637.55000000000 , &
+ 3636.76000000000 , &
+ 3635.96000000000 , &
+ 3635.14000000000 , &
+ 3634.32000000000 , &
+ 3633.49000000000 , &
+ 3632.65000000000 , &
+ 3631.80000000000 , &
+ 3630.93000000000 , &
+ 3630.06000000000 , &
+ 3629.18000000000 , &
+ 3628.29000000000 , &
+ 3627.38000000000 /)
+
+ Mref_V%vsv_ref( 91 : 120 ) = (/ &
+ 3626.47000000000 , &
+ 3625.55000000000 , &
+ 3624.61000000000 , &
+ 3623.67000000000 , &
+ 3622.71000000000 , &
+ 3621.75000000000 , &
+ 3620.78000000000 , &
+ 3619.79000000000 , &
+ 3618.80000000000 , &
+ 3617.79000000000 , &
+ 3616.78000000000 , &
+ 3615.75000000000 , &
+ 3614.71000000000 , &
+ 3613.67000000000 , &
+ 3612.61000000000 , &
+ 3611.55000000000 , &
+ 3610.47000000000 , &
+ 3609.38000000000 , &
+ 3608.28000000000 , &
+ 3607.18000000000 , &
+ 3606.06000000000 , &
+ 3604.93000000000 , &
+ 3603.79000000000 , &
+ 3602.65000000000 , &
+ 3601.49000000000 , &
+ 3600.32000000000 , &
+ 3599.14000000000 , &
+ 3597.95000000000 , &
+ 3596.75000000000 , &
+ 3595.54000000000 /)
+
+ Mref_V%vsv_ref( 121 : 150 ) = (/ &
+ 3594.32000000000 , &
+ 3593.10000000000 , &
+ 3591.86000000000 , &
+ 3590.61000000000 , &
+ 3589.34000000000 , &
+ 3588.07000000000 , &
+ 3586.79000000000 , &
+ 3585.50000000000 , &
+ 3584.20000000000 , &
+ 3582.89000000000 , &
+ 3581.57000000000 , &
+ 3580.24000000000 , &
+ 3578.90000000000 , &
+ 3577.54000000000 , &
+ 3576.18000000000 , &
+ 3574.81000000000 , &
+ 3573.43000000000 , &
+ 3572.03000000000 , &
+ 3570.63000000000 , &
+ 3569.22000000000 , &
+ 3567.79000000000 , &
+ 3566.36000000000 , &
+ 3564.91000000000 , &
+ 3563.46000000000 , &
+ 3562.00000000000 , &
+ 3560.52000000000 , &
+ 3559.04000000000 , &
+ 3557.54000000000 , &
+ 3556.04000000000 , &
+ 3554.52000000000 /)
+
+ Mref_V%vsv_ref( 151 : 180 ) = (/ &
+ 3553.00000000000 , &
+ 3551.46000000000 , &
+ 3549.91000000000 , &
+ 3548.36000000000 , &
+ 3546.79000000000 , &
+ 3545.21000000000 , &
+ 3543.63000000000 , &
+ 3542.03000000000 , &
+ 3540.42000000000 , &
+ 3538.81000000000 , &
+ 3537.18000000000 , &
+ 3535.54000000000 , &
+ 3533.89000000000 , &
+ 3532.23000000000 , &
+ 3530.57000000000 , &
+ 3528.89000000000 , &
+ 3527.20000000000 , &
+ 3525.50000000000 , &
+ 3523.79000000000 , &
+ 3522.07000000000 , &
+ 3520.34000000000 , &
+ 3518.60000000000 , &
+ 3516.85000000000 , &
+ 3515.09000000000 , &
+ 3513.32000000000 , &
+ 3511.54000000000 , &
+ 3509.75000000000 , &
+ 3507.95000000000 , &
+ 3506.13000000000 , &
+ 3504.31000000000 /)
+
+ Mref_V%vsv_ref( 181 : 210 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%vsv_ref( 211 : 240 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%vsv_ref( 241 : 270 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%vsv_ref( 271 : 300 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%vsv_ref( 301 : 330 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%vsv_ref( 331 : 360 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 7264.66000000000 , &
+ 7264.75000000000 /)
+
+ Mref_V%vsv_ref( 361 : 390 ) = (/ &
+ 7264.85000000000 , &
+ 7264.94000000000 , &
+ 7265.03000000000 , &
+ 7265.12000000000 , &
+ 7265.21000000000 , &
+ 7265.29000000000 , &
+ 7265.38000000000 , &
+ 7265.46000000000 , &
+ 7265.54000000000 , &
+ 7265.62000000000 , &
+ 7265.69000000000 , &
+ 7265.76000000000 , &
+ 7265.84000000000 , &
+ 7265.91000000000 , &
+ 7265.97000000000 , &
+ 7265.97000000000 , &
+ 7261.63000000000 , &
+ 7257.29000000000 , &
+ 7252.97000000000 , &
+ 7248.64000000000 , &
+ 7244.33000000000 , &
+ 7240.01000000000 , &
+ 7235.71000000000 , &
+ 7231.41000000000 , &
+ 7227.12000000000 , &
+ 7222.83000000000 , &
+ 7218.55000000000 , &
+ 7214.27000000000 , &
+ 7210.00000000000 , &
+ 7205.73000000000 /)
+
+ Mref_V%vsv_ref( 391 : 420 ) = (/ &
+ 7201.47000000000 , &
+ 7197.21000000000 , &
+ 7192.95000000000 , &
+ 7188.70000000000 , &
+ 7184.45000000000 , &
+ 7180.21000000000 , &
+ 7175.97000000000 , &
+ 7171.73000000000 , &
+ 7167.50000000000 , &
+ 7163.27000000000 , &
+ 7159.04000000000 , &
+ 7154.81000000000 , &
+ 7150.59000000000 , &
+ 7146.37000000000 , &
+ 7142.15000000000 , &
+ 7137.93000000000 , &
+ 7133.71000000000 , &
+ 7129.50000000000 , &
+ 7125.29000000000 , &
+ 7121.07000000000 , &
+ 7116.86000000000 , &
+ 7112.65000000000 , &
+ 7108.44000000000 , &
+ 7104.23000000000 , &
+ 7100.02000000000 , &
+ 7095.81000000000 , &
+ 7091.60000000000 , &
+ 7087.39000000000 , &
+ 7083.18000000000 , &
+ 7078.96000000000 /)
+
+ Mref_V%vsv_ref( 421 : 450 ) = (/ &
+ 7074.75000000000 , &
+ 7070.54000000000 , &
+ 7066.32000000000 , &
+ 7062.10000000000 , &
+ 7057.88000000000 , &
+ 7053.66000000000 , &
+ 7049.44000000000 , &
+ 7045.22000000000 , &
+ 7040.99000000000 , &
+ 7036.76000000000 , &
+ 7032.52000000000 , &
+ 7028.29000000000 , &
+ 7024.05000000000 , &
+ 7019.81000000000 , &
+ 7015.56000000000 , &
+ 7011.31000000000 , &
+ 7007.06000000000 , &
+ 7002.80000000000 , &
+ 6998.54000000000 , &
+ 6994.27000000000 , &
+ 6990.00000000000 , &
+ 6985.72000000000 , &
+ 6981.44000000000 , &
+ 6977.15000000000 , &
+ 6972.86000000000 , &
+ 6968.57000000000 , &
+ 6964.26000000000 , &
+ 6959.95000000000 , &
+ 6955.64000000000 , &
+ 6951.32000000000 /)
+
+ Mref_V%vsv_ref( 451 : 480 ) = (/ &
+ 6946.99000000000 , &
+ 6942.66000000000 , &
+ 6938.31000000000 , &
+ 6933.97000000000 , &
+ 6929.61000000000 , &
+ 6925.25000000000 , &
+ 6920.88000000000 , &
+ 6916.50000000000 , &
+ 6912.11000000000 , &
+ 6907.72000000000 , &
+ 6903.32000000000 , &
+ 6898.91000000000 , &
+ 6894.49000000000 , &
+ 6890.06000000000 , &
+ 6885.62000000000 , &
+ 6881.17000000000 , &
+ 6876.72000000000 , &
+ 6872.25000000000 , &
+ 6867.78000000000 , &
+ 6863.29000000000 , &
+ 6858.80000000000 , &
+ 6854.29000000000 , &
+ 6849.78000000000 , &
+ 6845.25000000000 , &
+ 6840.71000000000 , &
+ 6836.16000000000 , &
+ 6831.60000000000 , &
+ 6827.03000000000 , &
+ 6822.45000000000 , &
+ 6817.85000000000 /)
+
+ Mref_V%vsv_ref( 481 : 510 ) = (/ &
+ 6813.25000000000 , &
+ 6808.63000000000 , &
+ 6804.00000000000 , &
+ 6799.35000000000 , &
+ 6794.70000000000 , &
+ 6790.03000000000 , &
+ 6785.34000000000 , &
+ 6780.65000000000 , &
+ 6775.94000000000 , &
+ 6771.22000000000 , &
+ 6766.48000000000 , &
+ 6761.73000000000 , &
+ 6756.97000000000 , &
+ 6752.19000000000 , &
+ 6747.40000000000 , &
+ 6742.59000000000 , &
+ 6737.76000000000 , &
+ 6732.93000000000 , &
+ 6728.07000000000 , &
+ 6723.21000000000 , &
+ 6718.32000000000 , &
+ 6713.42000000000 , &
+ 6708.51000000000 , &
+ 6703.57000000000 , &
+ 6698.62000000000 , &
+ 6693.66000000000 , &
+ 6688.68000000000 , &
+ 6683.68000000000 , &
+ 6678.66000000000 , &
+ 6673.63000000000 /)
+
+ Mref_V%vsv_ref( 511 : 540 ) = (/ &
+ 6668.58000000000 , &
+ 6663.51000000000 , &
+ 6658.43000000000 , &
+ 6653.32000000000 , &
+ 6648.20000000000 , &
+ 6643.06000000000 , &
+ 6637.90000000000 , &
+ 6632.73000000000 , &
+ 6627.53000000000 , &
+ 6622.31000000000 , &
+ 6617.08000000000 , &
+ 6611.82000000000 , &
+ 6606.55000000000 , &
+ 6601.26000000000 , &
+ 6595.94000000000 , &
+ 6590.61000000000 , &
+ 6584.91000000000 , &
+ 6579.51000000000 , &
+ 6574.11000000000 , &
+ 6568.67000000000 , &
+ 6563.22000000000 , &
+ 6557.74000000000 , &
+ 6552.24000000000 , &
+ 6546.73000000000 , &
+ 6541.19000000000 , &
+ 6535.63000000000 , &
+ 6530.05000000000 , &
+ 6524.44000000000 , &
+ 6518.82000000000 , &
+ 6513.17000000000 /)
+
+ Mref_V%vsv_ref( 541 : 570 ) = (/ &
+ 6507.50000000000 , &
+ 6501.80000000000 , &
+ 6496.09000000000 , &
+ 6490.35000000000 , &
+ 6484.59000000000 , &
+ 6478.80000000000 , &
+ 6472.99000000000 , &
+ 6467.16000000000 , &
+ 6461.30000000000 , &
+ 6455.42000000000 , &
+ 6449.51000000000 , &
+ 6443.58000000000 , &
+ 6437.63000000000 , &
+ 6431.65000000000 , &
+ 6425.65000000000 , &
+ 6419.61000000000 , &
+ 6413.56000000000 , &
+ 6407.48000000000 , &
+ 6401.37000000000 , &
+ 6395.25000000000 , &
+ 6389.09000000000 , &
+ 6382.91000000000 , &
+ 6376.70000000000 , &
+ 6370.46000000000 , &
+ 6364.20000000000 , &
+ 6357.91000000000 , &
+ 6351.59000000000 , &
+ 6345.25000000000 , &
+ 6338.88000000000 , &
+ 6332.49000000000 /)
+
+ Mref_V%vsv_ref( 571 : 600 ) = (/ &
+ 6326.05000000000 , &
+ 6319.60000000000 , &
+ 6313.13000000000 , &
+ 6306.62000000000 , &
+ 6300.08000000000 , &
+ 6293.52000000000 , &
+ 6286.92000000000 , &
+ 6280.29000000000 , &
+ 6273.64000000000 , &
+ 6266.96000000000 , &
+ 6260.25000000000 , &
+ 6253.51000000000 , &
+ 6246.75000000000 , &
+ 6239.95000000000 , &
+ 6239.95000000000 , &
+ 6219.68000000000 , &
+ 6200.29000000000 , &
+ 6181.16000000000 , &
+ 6162.04000000000 , &
+ 6143.01000000000 , &
+ 6123.98000000000 , &
+ 6103.71000000000 , &
+ 6083.53000000000 , &
+ 6063.45000000000 , &
+ 6043.44000000000 , &
+ 6023.52000000000 , &
+ 6003.73000000000 , &
+ 5984.03000000000 , &
+ 5964.38000000000 , &
+ 5944.81000000000 /)
+
+ Mref_V%vsv_ref( 601 : 630 ) = (/ &
+ 5925.27000000000 , &
+ 5550.32000000000 , &
+ 5541.20000000000 , &
+ 5532.08000000000 , &
+ 5522.96000000000 , &
+ 5513.83000000000 , &
+ 5504.71000000000 , &
+ 5495.59000000000 , &
+ 5486.47000000000 , &
+ 5477.35000000000 , &
+ 5468.22000000000 , &
+ 5459.10000000000 , &
+ 5449.97000000000 , &
+ 5440.84000000000 , &
+ 5431.71000000000 , &
+ 5422.57000000000 , &
+ 5422.59000000000 , &
+ 5406.39000000000 , &
+ 5390.30000000000 , &
+ 5374.34000000000 , &
+ 5358.52000000000 , &
+ 5342.83000000000 , &
+ 5327.31000000000 , &
+ 5311.92000000000 , &
+ 5296.73000000000 , &
+ 5281.71000000000 , &
+ 5266.86000000000 , &
+ 5252.21000000000 , &
+ 5237.78000000000 , &
+ 5223.55000000000 /)
+
+ Mref_V%vsv_ref( 631 : 660 ) = (/ &
+ 5209.54000000000 , &
+ 5195.72000000000 , &
+ 5182.10000000000 , &
+ 5168.69000000000 , &
+ 5155.42000000000 , &
+ 5142.22000000000 , &
+ 5129.05000000000 , &
+ 5115.84000000000 , &
+ 5102.55000000000 , &
+ 5089.14000000000 , &
+ 5075.50000000000 , &
+ 5061.63000000000 , &
+ 5047.46000000000 , &
+ 5032.93000000000 , &
+ 5018.03000000000 , &
+ 5002.66000000000 , &
+ 4986.77000000000 , &
+ 4802.15000000000 , &
+ 4798.23000000000 , &
+ 4794.28000000000 , &
+ 4790.38000000000 , &
+ 4785.95000000000 , &
+ 4780.83000000000 , &
+ 4775.01000000000 , &
+ 4768.45000000000 , &
+ 4761.12000000000 , &
+ 4752.97000000000 , &
+ 4744.01000000000 , &
+ 4734.25000000000 , &
+ 4723.77000000000 /)
+
+ Mref_V%vsv_ref( 661 : 690 ) = (/ &
+ 4712.70000000000 , &
+ 4701.12000000000 , &
+ 4689.11000000000 , &
+ 4676.77000000000 , &
+ 4664.20000000000 , &
+ 4651.49000000000 , &
+ 4638.69000000000 , &
+ 4625.88000000000 , &
+ 4613.07000000000 , &
+ 4600.31000000000 , &
+ 4587.67000000000 , &
+ 4575.18000000000 , &
+ 4562.88000000000 , &
+ 4550.85000000000 , &
+ 4539.08000000000 , &
+ 4527.67000000000 , &
+ 4516.65000000000 , &
+ 4506.09000000000 , &
+ 4506.00000000000 , &
+ 4496.29000000000 , &
+ 4487.00000000000 , &
+ 4478.17000000000 , &
+ 4469.83000000000 , &
+ 4462.00000000000 , &
+ 4454.69000000000 , &
+ 4447.94000000000 , &
+ 4441.76000000000 , &
+ 4436.18000000000 , &
+ 4431.20000000000 , &
+ 4426.83000000000 /)
+
+ Mref_V%vsv_ref( 691 : 720 ) = (/ &
+ 4423.12000000000 , &
+ 4420.09000000000 , &
+ 4417.81000000000 , &
+ 4416.30000000000 , &
+ 4415.67000000000 , &
+ 4415.93000000000 , &
+ 4417.15000000000 , &
+ 4419.42000000000 , &
+ 4422.78000000000 , &
+ 4427.25000000000 , &
+ 4432.88000000000 , &
+ 4439.57000000000 , &
+ 4439.74000000000 , &
+ 4444.71000000000 , &
+ 4450.28000000000 , &
+ 4456.35000000000 , &
+ 4462.89000000000 , &
+ 4469.94000000000 , &
+ 4477.40000000000 , &
+ 4485.33000000000 , &
+ 4493.69000000000 , &
+ 4502.48000000000 , &
+ 4511.66000000000 , &
+ 4521.24000000000 , &
+ 4531.23000000000 , &
+ 4541.57000000000 , &
+ 4552.08000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 /)
+
+ Mref_V%vsv_ref( 721 : 750 ) = (/ &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 /)
+
+ Mref_V%Qkappa_ref( 1 : 30 ) = (/ &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 /)
+
+ Mref_V%Qkappa_ref( 31 : 60 ) = (/ &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 /)
+
+ Mref_V%Qkappa_ref( 61 : 90 ) = (/ &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 /)
+
+ Mref_V%Qkappa_ref( 91 : 120 ) = (/ &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 /)
+
+ Mref_V%Qkappa_ref( 121 : 150 ) = (/ &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 /)
+
+ Mref_V%Qkappa_ref( 151 : 180 ) = (/ &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 , &
+ 1327.60000000000 /)
+
+ Mref_V%Qkappa_ref( 181 : 210 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 211 : 240 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 241 : 270 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 271 : 300 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 301 : 330 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 331 : 360 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 361 : 390 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 391 : 420 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 421 : 450 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 451 : 480 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 481 : 510 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 511 : 540 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 541 : 570 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 571 : 600 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 601 : 630 ) = (/ &
+ 57822.5000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 /)
+
+ Mref_V%Qkappa_ref( 631 : 660 ) = (/ &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 /)
+
+ Mref_V%Qkappa_ref( 661 : 690 ) = (/ &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 /)
+
+ Mref_V%Qkappa_ref( 691 : 720 ) = (/ &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 943.000000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qkappa_ref( 721 : 750 ) = (/ &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 , &
+ 57822.5000000000 /)
+
+ Mref_V%Qmu_ref( 1 : 30 ) = (/ &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 /)
+
+ Mref_V%Qmu_ref( 31 : 60 ) = (/ &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 /)
+
+ Mref_V%Qmu_ref( 61 : 90 ) = (/ &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 /)
+
+ Mref_V%Qmu_ref( 91 : 120 ) = (/ &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 /)
+
+ Mref_V%Qmu_ref( 121 : 150 ) = (/ &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 /)
+
+ Mref_V%Qmu_ref( 151 : 180 ) = (/ &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 , &
+ 104.000000000000 /)
+
+ Mref_V%Qmu_ref( 181 : 210 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%Qmu_ref( 211 : 240 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%Qmu_ref( 241 : 270 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%Qmu_ref( 271 : 300 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%Qmu_ref( 301 : 330 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%Qmu_ref( 331 : 360 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 355.000000000000 , &
+ 355.000000000000 /)
+
+ Mref_V%Qmu_ref( 361 : 390 ) = (/ &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 /)
+
+ Mref_V%Qmu_ref( 391 : 420 ) = (/ &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 /)
+
+ Mref_V%Qmu_ref( 421 : 450 ) = (/ &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 /)
+
+ Mref_V%Qmu_ref( 451 : 480 ) = (/ &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 /)
+
+ Mref_V%Qmu_ref( 481 : 510 ) = (/ &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 /)
+
+ Mref_V%Qmu_ref( 511 : 540 ) = (/ &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 /)
+
+ Mref_V%Qmu_ref( 541 : 570 ) = (/ &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 /)
+
+ Mref_V%Qmu_ref( 571 : 600 ) = (/ &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 , &
+ 355.000000000000 /)
+
+ Mref_V%Qmu_ref( 601 : 630 ) = (/ &
+ 355.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 /)
+
+ Mref_V%Qmu_ref( 631 : 660 ) = (/ &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 /)
+
+ Mref_V%Qmu_ref( 661 : 690 ) = (/ &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 165.000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 /)
+
+ Mref_V%Qmu_ref( 691 : 720 ) = (/ &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 70.0000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 191.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 /)
+
+ Mref_V%Qmu_ref( 721 : 750 ) = (/ &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 , &
+ 300.000000000000 /)
+
+ Mref_V%vph_ref( 1 : 30 ) = (/ &
+ 11262.2000000000 , &
+ 11262.2000000000 , &
+ 11262.1800000000 , &
+ 11262.1400000000 , &
+ 11262.0900000000 , &
+ 11262.0200000000 , &
+ 11261.9400000000 , &
+ 11261.8500000000 , &
+ 11261.7400000000 , &
+ 11261.6100000000 , &
+ 11261.4700000000 , &
+ 11261.3200000000 , &
+ 11261.1500000000 , &
+ 11260.9700000000 , &
+ 11260.7700000000 , &
+ 11260.5600000000 , &
+ 11260.3400000000 , &
+ 11260.0900000000 , &
+ 11259.8400000000 , &
+ 11259.5700000000 , &
+ 11259.2800000000 , &
+ 11258.9900000000 , &
+ 11258.6700000000 , &
+ 11258.3400000000 , &
+ 11258.0000000000 , &
+ 11257.6400000000 , &
+ 11257.2700000000 , &
+ 11256.8800000000 , &
+ 11256.4800000000 , &
+ 11256.0600000000 /)
+
+ Mref_V%vph_ref( 31 : 60 ) = (/ &
+ 11255.6300000000 , &
+ 11255.1900000000 , &
+ 11254.7300000000 , &
+ 11254.2500000000 , &
+ 11253.7600000000 , &
+ 11253.2600000000 , &
+ 11252.7400000000 , &
+ 11252.2100000000 , &
+ 11251.6600000000 , &
+ 11251.1000000000 , &
+ 11250.5200000000 , &
+ 11249.9300000000 , &
+ 11249.3300000000 , &
+ 11248.7100000000 , &
+ 11248.0700000000 , &
+ 11247.4200000000 , &
+ 11246.7600000000 , &
+ 11246.0800000000 , &
+ 11245.3800000000 , &
+ 11244.6700000000 , &
+ 11243.9500000000 , &
+ 11243.2100000000 , &
+ 11242.4600000000 , &
+ 11241.7000000000 , &
+ 11240.9100000000 , &
+ 11240.1200000000 , &
+ 11239.3100000000 , &
+ 11238.4800000000 , &
+ 11237.6400000000 , &
+ 11236.7900000000 /)
+
+ Mref_V%vph_ref( 61 : 90 ) = (/ &
+ 11235.9200000000 , &
+ 11235.0400000000 , &
+ 11234.1400000000 , &
+ 11233.2300000000 , &
+ 11232.3000000000 , &
+ 11231.3600000000 , &
+ 11230.4000000000 , &
+ 11229.4300000000 , &
+ 11228.4400000000 , &
+ 11227.4400000000 , &
+ 11226.4300000000 , &
+ 11225.4000000000 , &
+ 11224.3600000000 , &
+ 11223.3000000000 , &
+ 11222.2200000000 , &
+ 11221.1400000000 , &
+ 11220.0300000000 , &
+ 11218.9200000000 , &
+ 11217.7800000000 , &
+ 11216.6400000000 , &
+ 11215.4800000000 , &
+ 11214.3000000000 , &
+ 11213.1100000000 , &
+ 11211.9100000000 , &
+ 11210.6900000000 , &
+ 11209.4500000000 , &
+ 11208.2100000000 , &
+ 11206.9400000000 , &
+ 11205.6700000000 , &
+ 11204.3700000000 /)
+
+ Mref_V%vph_ref( 91 : 120 ) = (/ &
+ 11203.0700000000 , &
+ 11201.7400000000 , &
+ 11200.4100000000 , &
+ 11199.0600000000 , &
+ 11197.6900000000 , &
+ 11196.3100000000 , &
+ 11194.9200000000 , &
+ 11193.5100000000 , &
+ 11192.0900000000 , &
+ 11190.6500000000 , &
+ 11189.1900000000 , &
+ 11187.7300000000 , &
+ 11186.2400000000 , &
+ 11184.7500000000 , &
+ 11183.2400000000 , &
+ 11181.7100000000 , &
+ 11180.1700000000 , &
+ 11178.6100000000 , &
+ 11177.0400000000 , &
+ 11175.4600000000 , &
+ 11173.8600000000 , &
+ 11172.2500000000 , &
+ 11170.6200000000 , &
+ 11168.9800000000 , &
+ 11167.3200000000 , &
+ 11165.6500000000 , &
+ 11163.9600000000 , &
+ 11162.2600000000 , &
+ 11160.5400000000 , &
+ 11158.8100000000 /)
+
+ Mref_V%vph_ref( 121 : 150 ) = (/ &
+ 11157.0700000000 , &
+ 11155.3100000000 , &
+ 11153.5400000000 , &
+ 11151.7500000000 , &
+ 11149.9400000000 , &
+ 11148.1300000000 , &
+ 11146.2900000000 , &
+ 11144.4500000000 , &
+ 11142.5800000000 , &
+ 11140.7100000000 , &
+ 11138.8200000000 , &
+ 11136.9100000000 , &
+ 11134.9900000000 , &
+ 11133.0600000000 , &
+ 11131.1100000000 , &
+ 11129.1400000000 , &
+ 11127.1600000000 , &
+ 11125.1700000000 , &
+ 11123.1600000000 , &
+ 11121.1400000000 , &
+ 11119.1000000000 , &
+ 11117.0500000000 , &
+ 11114.9900000000 , &
+ 11112.9000000000 , &
+ 11110.8100000000 , &
+ 11108.7000000000 , &
+ 11106.5700000000 , &
+ 11104.4400000000 , &
+ 11102.2800000000 , &
+ 11100.1100000000 /)
+
+ Mref_V%vph_ref( 151 : 180 ) = (/ &
+ 11097.9300000000 , &
+ 11095.7300000000 , &
+ 11093.5200000000 , &
+ 11091.2900000000 , &
+ 11089.0500000000 , &
+ 11086.8000000000 , &
+ 11084.5300000000 , &
+ 11082.2400000000 , &
+ 11079.9400000000 , &
+ 11077.6300000000 , &
+ 11075.3000000000 , &
+ 11072.9500000000 , &
+ 11070.5900000000 , &
+ 11068.2200000000 , &
+ 11065.8300000000 , &
+ 11063.4300000000 , &
+ 11061.0200000000 , &
+ 11058.5800000000 , &
+ 11056.1400000000 , &
+ 11053.6800000000 , &
+ 11051.2000000000 , &
+ 11048.7100000000 , &
+ 11046.2100000000 , &
+ 11043.6900000000 , &
+ 11041.1600000000 , &
+ 11038.6100000000 , &
+ 11036.0500000000 , &
+ 11033.4700000000 , &
+ 11030.8800000000 , &
+ 11028.2700000000 /)
+
+ Mref_V%vph_ref( 181 : 210 ) = (/ &
+ 10355.6900000000 , &
+ 10348.2800000000 , &
+ 10340.8500000000 , &
+ 10333.3900000000 , &
+ 10325.9100000000 , &
+ 10318.4000000000 , &
+ 10310.8700000000 , &
+ 10303.3000000000 , &
+ 10295.7100000000 , &
+ 10288.0900000000 , &
+ 10280.4400000000 , &
+ 10272.7600000000 , &
+ 10265.0400000000 , &
+ 10257.3000000000 , &
+ 10249.5200000000 , &
+ 10241.7100000000 , &
+ 10233.8600000000 , &
+ 10225.9800000000 , &
+ 10218.0600000000 , &
+ 10210.1100000000 , &
+ 10202.1200000000 , &
+ 10194.1000000000 , &
+ 10186.0400000000 , &
+ 10177.9400000000 , &
+ 10169.7900000000 , &
+ 10161.6100000000 , &
+ 10153.3900000000 , &
+ 10145.1300000000 , &
+ 10136.8300000000 , &
+ 10128.4800000000 /)
+
+ Mref_V%vph_ref( 211 : 240 ) = (/ &
+ 10120.0900000000 , &
+ 10111.6600000000 , &
+ 10103.1800000000 , &
+ 10094.6600000000 , &
+ 10086.0900000000 , &
+ 10077.4800000000 , &
+ 10068.8200000000 , &
+ 10060.1100000000 , &
+ 10051.3500000000 , &
+ 10042.5400000000 , &
+ 10033.6900000000 , &
+ 10024.7800000000 , &
+ 10015.8200000000 , &
+ 10006.8200000000 , &
+ 9997.75000000000 , &
+ 9988.64000000000 , &
+ 9979.47000000000 , &
+ 9970.25000000000 , &
+ 9960.97000000000 , &
+ 9951.64000000000 , &
+ 9942.25000000000 , &
+ 9932.81000000000 , &
+ 9923.31000000000 , &
+ 9913.75000000000 , &
+ 9904.13000000000 , &
+ 9894.45000000000 , &
+ 9884.71000000000 , &
+ 9874.91000000000 , &
+ 9865.05000000000 , &
+ 9855.13000000000 /)
+
+ Mref_V%vph_ref( 241 : 270 ) = (/ &
+ 9845.14000000000 , &
+ 9835.09000000000 , &
+ 9824.98000000000 , &
+ 9814.80000000000 , &
+ 9804.56000000000 , &
+ 9794.25000000000 , &
+ 9783.87000000000 , &
+ 9773.43000000000 , &
+ 9762.92000000000 , &
+ 9752.34000000000 , &
+ 9741.69000000000 , &
+ 9730.97000000000 , &
+ 9720.18000000000 , &
+ 9709.32000000000 , &
+ 9698.39000000000 , &
+ 9687.38000000000 , &
+ 9676.31000000000 , &
+ 9665.15000000000 , &
+ 9653.93000000000 , &
+ 9642.63000000000 , &
+ 9631.25000000000 , &
+ 9619.80000000000 , &
+ 9608.27000000000 , &
+ 9596.66000000000 , &
+ 9584.97000000000 , &
+ 9573.20000000000 , &
+ 9561.36000000000 , &
+ 9549.43000000000 , &
+ 9537.43000000000 , &
+ 9525.34000000000 /)
+
+ Mref_V%vph_ref( 271 : 300 ) = (/ &
+ 9513.17000000000 , &
+ 9500.91000000000 , &
+ 9488.57000000000 , &
+ 9476.15000000000 , &
+ 9463.64000000000 , &
+ 9451.05000000000 , &
+ 9438.37000000000 , &
+ 9425.61000000000 , &
+ 9412.75000000000 , &
+ 9399.81000000000 , &
+ 9386.78000000000 , &
+ 9373.66000000000 , &
+ 9360.45000000000 , &
+ 9347.15000000000 , &
+ 9333.76000000000 , &
+ 9320.27000000000 , &
+ 9306.70000000000 , &
+ 9293.03000000000 , &
+ 9279.26000000000 , &
+ 9265.40000000000 , &
+ 9251.45000000000 , &
+ 9237.40000000000 , &
+ 9223.25000000000 , &
+ 9209.00000000000 , &
+ 9194.66000000000 , &
+ 9180.22000000000 , &
+ 9165.68000000000 , &
+ 9151.03000000000 , &
+ 9136.29000000000 , &
+ 9121.45000000000 /)
+
+ Mref_V%vph_ref( 301 : 330 ) = (/ &
+ 9106.50000000000 , &
+ 9091.46000000000 , &
+ 9076.30000000000 , &
+ 9061.05000000000 , &
+ 9045.69000000000 , &
+ 9030.23000000000 , &
+ 9014.65000000000 , &
+ 8998.98000000000 , &
+ 8983.19000000000 , &
+ 8967.30000000000 , &
+ 8951.30000000000 , &
+ 8935.19000000000 , &
+ 8918.97000000000 , &
+ 8902.64000000000 , &
+ 8886.20000000000 , &
+ 8869.64000000000 , &
+ 8852.98000000000 , &
+ 8836.20000000000 , &
+ 8819.31000000000 , &
+ 8802.30000000000 , &
+ 8785.18000000000 , &
+ 8767.94000000000 , &
+ 8750.59000000000 , &
+ 8733.12000000000 , &
+ 8715.53000000000 , &
+ 8697.82000000000 , &
+ 8680.00000000000 , &
+ 8662.05000000000 , &
+ 8643.99000000000 , &
+ 8625.80000000000 /)
+
+ Mref_V%vph_ref( 331 : 360 ) = (/ &
+ 8607.49000000000 , &
+ 8589.06000000000 , &
+ 8570.51000000000 , &
+ 8551.83000000000 , &
+ 8533.03000000000 , &
+ 8514.10000000000 , &
+ 8495.05000000000 , &
+ 8475.87000000000 , &
+ 8456.57000000000 , &
+ 8437.14000000000 , &
+ 8417.58000000000 , &
+ 8397.89000000000 , &
+ 8378.07000000000 , &
+ 8358.12000000000 , &
+ 8338.04000000000 , &
+ 8317.83000000000 , &
+ 8297.49000000000 , &
+ 8277.01000000000 , &
+ 8256.41000000000 , &
+ 8235.66000000000 , &
+ 8214.79000000000 , &
+ 8193.77000000000 , &
+ 8172.62000000000 , &
+ 8151.34000000000 , &
+ 8129.92000000000 , &
+ 8108.36000000000 , &
+ 8086.66000000000 , &
+ 8064.82000000000 , &
+ 13716.6000000000 , &
+ 13714.2900000000 /)
+
+ Mref_V%vph_ref( 361 : 390 ) = (/ &
+ 13712.0000000000 , &
+ 13709.7000000000 , &
+ 13707.4200000000 , &
+ 13705.1400000000 , &
+ 13702.8600000000 , &
+ 13700.5900000000 , &
+ 13698.3300000000 , &
+ 13696.0700000000 , &
+ 13693.8200000000 , &
+ 13691.5700000000 , &
+ 13689.3300000000 , &
+ 13687.0900000000 , &
+ 13684.8600000000 , &
+ 13682.6300000000 , &
+ 13680.4100000000 , &
+ 13680.4100000000 , &
+ 13668.9000000000 , &
+ 13657.4300000000 , &
+ 13645.9700000000 , &
+ 13634.5400000000 , &
+ 13623.1400000000 , &
+ 13611.7600000000 , &
+ 13600.4000000000 , &
+ 13589.0700000000 , &
+ 13577.7600000000 , &
+ 13566.4700000000 , &
+ 13555.2000000000 , &
+ 13543.9500000000 , &
+ 13532.7200000000 , &
+ 13521.5100000000 /)
+
+ Mref_V%vph_ref( 391 : 420 ) = (/ &
+ 13510.3200000000 , &
+ 13499.1400000000 , &
+ 13487.9900000000 , &
+ 13476.8500000000 , &
+ 13465.7300000000 , &
+ 13454.6300000000 , &
+ 13443.5400000000 , &
+ 13432.4600000000 , &
+ 13421.4100000000 , &
+ 13410.3600000000 , &
+ 13399.3300000000 , &
+ 13388.3100000000 , &
+ 13377.3100000000 , &
+ 13366.3100000000 , &
+ 13355.3300000000 , &
+ 13344.3600000000 , &
+ 13333.4000000000 , &
+ 13322.4500000000 , &
+ 13311.5100000000 , &
+ 13300.5800000000 , &
+ 13289.6600000000 , &
+ 13278.7400000000 , &
+ 13267.8400000000 , &
+ 13256.9300000000 , &
+ 13246.0400000000 , &
+ 13235.1500000000 , &
+ 13224.2700000000 , &
+ 13213.3900000000 , &
+ 13202.5100000000 , &
+ 13191.6400000000 /)
+
+ Mref_V%vph_ref( 421 : 450 ) = (/ &
+ 13180.7800000000 , &
+ 13169.9100000000 , &
+ 13159.0500000000 , &
+ 13148.1900000000 , &
+ 13137.3300000000 , &
+ 13126.4700000000 , &
+ 13115.6100000000 , &
+ 13104.7500000000 , &
+ 13093.8900000000 , &
+ 13083.0200000000 , &
+ 13072.1600000000 , &
+ 13061.2900000000 , &
+ 13050.4200000000 , &
+ 13039.5500000000 , &
+ 13028.6700000000 , &
+ 13017.7800000000 , &
+ 13006.9000000000 , &
+ 12996.0000000000 , &
+ 12985.1000000000 , &
+ 12974.1900000000 , &
+ 12963.2800000000 , &
+ 12952.3600000000 , &
+ 12941.4200000000 , &
+ 12930.4800000000 , &
+ 12919.5400000000 , &
+ 12908.5800000000 , &
+ 12897.6100000000 , &
+ 12886.6300000000 , &
+ 12875.6300000000 , &
+ 12864.6300000000 /)
+
+ Mref_V%vph_ref( 451 : 480 ) = (/ &
+ 12853.6100000000 , &
+ 12842.5800000000 , &
+ 12831.5400000000 , &
+ 12820.4800000000 , &
+ 12809.4100000000 , &
+ 12798.3200000000 , &
+ 12787.2200000000 , &
+ 12776.1000000000 , &
+ 12764.9600000000 , &
+ 12753.8100000000 , &
+ 12742.6300000000 , &
+ 12731.4400000000 , &
+ 12720.2400000000 , &
+ 12709.0100000000 , &
+ 12697.7600000000 , &
+ 12686.4900000000 , &
+ 12675.2000000000 , &
+ 12663.8900000000 , &
+ 12652.5600000000 , &
+ 12641.2000000000 , &
+ 12629.8200000000 , &
+ 12618.4200000000 , &
+ 12606.9900000000 , &
+ 12595.5400000000 , &
+ 12584.0600000000 , &
+ 12572.5600000000 , &
+ 12561.0300000000 , &
+ 12549.4800000000 , &
+ 12537.8900000000 , &
+ 12526.2800000000 /)
+
+ Mref_V%vph_ref( 481 : 510 ) = (/ &
+ 12514.6400000000 , &
+ 12502.9800000000 , &
+ 12491.2800000000 , &
+ 12479.5500000000 , &
+ 12467.7900000000 , &
+ 12456.0100000000 , &
+ 12444.1900000000 , &
+ 12432.3300000000 , &
+ 12420.4500000000 , &
+ 12408.5300000000 , &
+ 12396.5800000000 , &
+ 12384.6000000000 , &
+ 12372.5800000000 , &
+ 12360.5200000000 , &
+ 12348.4300000000 , &
+ 12336.3000000000 , &
+ 12324.1400000000 , &
+ 12311.9400000000 , &
+ 12299.7000000000 , &
+ 12287.4200000000 , &
+ 12275.1100000000 , &
+ 12262.7500000000 , &
+ 12250.3500000000 , &
+ 12237.9200000000 , &
+ 12225.4400000000 , &
+ 12212.9200000000 , &
+ 12200.3600000000 , &
+ 12187.7600000000 , &
+ 12175.1100000000 , &
+ 12162.4300000000 /)
+
+ Mref_V%vph_ref( 511 : 540 ) = (/ &
+ 12149.6900000000 , &
+ 12136.9100000000 , &
+ 12124.0900000000 , &
+ 12111.2200000000 , &
+ 12098.3100000000 , &
+ 12085.3400000000 , &
+ 12072.3400000000 , &
+ 12059.2800000000 , &
+ 12046.1700000000 , &
+ 12033.0200000000 , &
+ 12019.8200000000 , &
+ 12006.5600000000 , &
+ 11993.2600000000 , &
+ 11979.9000000000 , &
+ 11966.5000000000 , &
+ 11953.0400000000 , &
+ 11939.5300000000 , &
+ 11925.9700000000 , &
+ 11912.3500000000 , &
+ 11898.6900000000 , &
+ 11884.9600000000 , &
+ 11871.1900000000 , &
+ 11857.3700000000 , &
+ 11843.4800000000 , &
+ 11829.5500000000 , &
+ 11815.5700000000 , &
+ 11801.5300000000 , &
+ 11787.4400000000 , &
+ 11773.3000000000 , &
+ 11759.1000000000 /)
+
+ Mref_V%vph_ref( 541 : 570 ) = (/ &
+ 11744.8500000000 , &
+ 11730.5500000000 , &
+ 11716.1800000000 , &
+ 11701.7800000000 , &
+ 11687.3100000000 , &
+ 11672.8000000000 , &
+ 11658.2300000000 , &
+ 11643.6000000000 , &
+ 11628.9200000000 , &
+ 11614.1900000000 , &
+ 11599.4000000000 , &
+ 11584.5700000000 , &
+ 11569.6800000000 , &
+ 11554.7200000000 , &
+ 11539.7200000000 , &
+ 11524.6700000000 , &
+ 11509.5600000000 , &
+ 11494.3900000000 , &
+ 11479.1700000000 , &
+ 11463.8900000000 , &
+ 11448.5500000000 , &
+ 11433.1700000000 , &
+ 11417.7300000000 , &
+ 11402.2300000000 , &
+ 11386.6800000000 , &
+ 11371.0700000000 , &
+ 11355.4100000000 , &
+ 11339.6900000000 , &
+ 11323.9100000000 , &
+ 11308.0900000000 /)
+
+ Mref_V%vph_ref( 571 : 600 ) = (/ &
+ 11292.2000000000 , &
+ 11276.2500000000 , &
+ 11260.2500000000 , &
+ 11244.1900000000 , &
+ 11228.0800000000 , &
+ 11211.9000000000 , &
+ 11195.6700000000 , &
+ 11179.3800000000 , &
+ 11163.0400000000 , &
+ 11146.6300000000 , &
+ 11130.1800000000 , &
+ 11113.6700000000 , &
+ 11097.1100000000 , &
+ 11080.5100000000 , &
+ 11080.5100000000 , &
+ 11063.0100000000 , &
+ 11045.2200000000 , &
+ 11026.8200000000 , &
+ 11008.4700000000 , &
+ 10989.0400000000 , &
+ 10969.6300000000 , &
+ 10948.7600000000 , &
+ 10928.0200000000 , &
+ 10907.4200000000 , &
+ 10886.9400000000 , &
+ 10866.6000000000 , &
+ 10846.4100000000 , &
+ 10826.3500000000 , &
+ 10806.4200000000 , &
+ 10786.6100000000 /)
+
+ Mref_V%vph_ref( 601 : 630 ) = (/ &
+ 10766.9000000000 , &
+ 10278.8800000000 , &
+ 10261.8700000000 , &
+ 10244.8400000000 , &
+ 10227.8200000000 , &
+ 10210.8000000000 , &
+ 10193.7800000000 , &
+ 10176.7700000000 , &
+ 10159.7400000000 , &
+ 10142.7200000000 , &
+ 10125.7100000000 , &
+ 10108.7000000000 , &
+ 10091.6800000000 , &
+ 10074.6800000000 , &
+ 10057.6800000000 , &
+ 10040.6400000000 , &
+ 10040.6700000000 , &
+ 10010.5200000000 , &
+ 9980.51000000000 , &
+ 9950.64000000000 , &
+ 9920.91000000000 , &
+ 9891.35000000000 , &
+ 9861.96000000000 , &
+ 9832.79000000000 , &
+ 9803.79000000000 , &
+ 9774.98000000000 , &
+ 9746.41000000000 , &
+ 9718.08000000000 , &
+ 9689.96000000000 , &
+ 9662.10000000000 /)
+
+ Mref_V%vph_ref( 631 : 660 ) = (/ &
+ 9634.47000000000 , &
+ 9607.11000000000 , &
+ 9579.97000000000 , &
+ 9553.08000000000 , &
+ 9526.38000000000 , &
+ 9499.78000000000 , &
+ 9473.25000000000 , &
+ 9446.74000000000 , &
+ 9420.19000000000 , &
+ 9393.55000000000 , &
+ 9366.75000000000 , &
+ 9339.76000000000 , &
+ 9312.50000000000 , &
+ 9284.96000000000 , &
+ 9257.04000000000 , &
+ 9228.73000000000 , &
+ 9199.94000000000 , &
+ 8940.94000000000 , &
+ 8930.61000000000 , &
+ 8920.22000000000 , &
+ 8909.68000000000 , &
+ 8898.47000000000 , &
+ 8886.28000000000 , &
+ 8873.03000000000 , &
+ 8858.58000000000 , &
+ 8842.82000000000 , &
+ 8825.64000000000 , &
+ 8806.94000000000 , &
+ 8786.67000000000 , &
+ 8764.85000000000 /)
+
+ Mref_V%vph_ref( 661 : 690 ) = (/ &
+ 8741.49000000000 , &
+ 8716.63000000000 , &
+ 8690.30000000000 , &
+ 8662.50000000000 , &
+ 8633.28000000000 , &
+ 8602.66000000000 , &
+ 8570.81000000000 , &
+ 8538.06000000000 , &
+ 8504.66000000000 , &
+ 8470.92000000000 , &
+ 8437.13000000000 , &
+ 8403.52000000000 , &
+ 8370.42000000000 , &
+ 8338.11000000000 , &
+ 8307.42000000000 , &
+ 8278.36000000000 , &
+ 8255.33000000000 , &
+ 8236.90000000000 , &
+ 8236.81000000000 , &
+ 8222.27000000000 , &
+ 8210.47000000000 , &
+ 8201.14000000000 , &
+ 8193.99000000000 , &
+ 8188.67000000000 , &
+ 8184.92000000000 , &
+ 8182.39000000000 , &
+ 8180.79000000000 , &
+ 8179.83000000000 , &
+ 8179.17000000000 , &
+ 8178.54000000000 /)
+
+ Mref_V%vph_ref( 691 : 720 ) = (/ &
+ 8177.64000000000 , &
+ 8176.30000000000 , &
+ 8174.55000000000 , &
+ 8172.42000000000 , &
+ 8169.91000000000 , &
+ 8167.05000000000 , &
+ 8163.88000000000 , &
+ 8160.37000000000 , &
+ 8156.58000000000 , &
+ 8152.57000000000 , &
+ 8148.41000000000 , &
+ 8144.20000000000 , &
+ 8144.32000000000 , &
+ 8141.60000000000 , &
+ 8139.01000000000 , &
+ 8136.50000000000 , &
+ 8134.11000000000 , &
+ 8131.82000000000 , &
+ 8129.66000000000 , &
+ 8127.60000000000 , &
+ 8125.65000000000 , &
+ 8123.87000000000 , &
+ 8122.23000000000 , &
+ 8120.74000000000 , &
+ 8119.38000000000 , &
+ 8118.22000000000 , &
+ 8117.13000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 /)
+
+ Mref_V%vph_ref( 721 : 750 ) = (/ &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 6800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 , &
+ 5800.00000000000 /)
+
+ Mref_V%vsh_ref( 1 : 30 ) = (/ &
+ 3667.80000000000 , &
+ 3667.79000000000 , &
+ 3667.78000000000 , &
+ 3667.75000000000 , &
+ 3667.72000000000 , &
+ 3667.67000000000 , &
+ 3667.62000000000 , &
+ 3667.55000000000 , &
+ 3667.47000000000 , &
+ 3667.39000000000 , &
+ 3667.29000000000 , &
+ 3667.18000000000 , &
+ 3667.06000000000 , &
+ 3666.94000000000 , &
+ 3666.80000000000 , &
+ 3666.65000000000 , &
+ 3666.49000000000 , &
+ 3666.32000000000 , &
+ 3666.15000000000 , &
+ 3665.96000000000 , &
+ 3665.76000000000 , &
+ 3665.55000000000 , &
+ 3665.33000000000 , &
+ 3665.10000000000 , &
+ 3664.86000000000 , &
+ 3664.61000000000 , &
+ 3664.35000000000 , &
+ 3664.08000000000 , &
+ 3663.80000000000 , &
+ 3663.51000000000 /)
+
+ Mref_V%vsh_ref( 31 : 60 ) = (/ &
+ 3663.21000000000 , &
+ 3662.90000000000 , &
+ 3662.57000000000 , &
+ 3662.24000000000 , &
+ 3661.90000000000 , &
+ 3661.55000000000 , &
+ 3661.19000000000 , &
+ 3660.81000000000 , &
+ 3660.43000000000 , &
+ 3660.04000000000 , &
+ 3659.64000000000 , &
+ 3659.22000000000 , &
+ 3658.80000000000 , &
+ 3658.36000000000 , &
+ 3657.92000000000 , &
+ 3657.47000000000 , &
+ 3657.00000000000 , &
+ 3656.53000000000 , &
+ 3656.04000000000 , &
+ 3655.55000000000 , &
+ 3655.04000000000 , &
+ 3654.53000000000 , &
+ 3654.00000000000 , &
+ 3653.47000000000 , &
+ 3652.92000000000 , &
+ 3652.36000000000 , &
+ 3651.80000000000 , &
+ 3651.22000000000 , &
+ 3650.63000000000 , &
+ 3650.04000000000 /)
+
+ Mref_V%vsh_ref( 61 : 90 ) = (/ &
+ 3649.43000000000 , &
+ 3648.81000000000 , &
+ 3648.19000000000 , &
+ 3647.55000000000 , &
+ 3646.90000000000 , &
+ 3646.24000000000 , &
+ 3645.57000000000 , &
+ 3644.89000000000 , &
+ 3644.21000000000 , &
+ 3643.51000000000 , &
+ 3642.80000000000 , &
+ 3642.08000000000 , &
+ 3641.35000000000 , &
+ 3640.61000000000 , &
+ 3639.86000000000 , &
+ 3639.10000000000 , &
+ 3638.33000000000 , &
+ 3637.55000000000 , &
+ 3636.76000000000 , &
+ 3635.96000000000 , &
+ 3635.14000000000 , &
+ 3634.32000000000 , &
+ 3633.49000000000 , &
+ 3632.65000000000 , &
+ 3631.80000000000 , &
+ 3630.93000000000 , &
+ 3630.06000000000 , &
+ 3629.18000000000 , &
+ 3628.29000000000 , &
+ 3627.38000000000 /)
+
+ Mref_V%vsh_ref( 91 : 120 ) = (/ &
+ 3626.47000000000 , &
+ 3625.55000000000 , &
+ 3624.61000000000 , &
+ 3623.67000000000 , &
+ 3622.71000000000 , &
+ 3621.75000000000 , &
+ 3620.78000000000 , &
+ 3619.79000000000 , &
+ 3618.80000000000 , &
+ 3617.79000000000 , &
+ 3616.78000000000 , &
+ 3615.75000000000 , &
+ 3614.71000000000 , &
+ 3613.67000000000 , &
+ 3612.61000000000 , &
+ 3611.55000000000 , &
+ 3610.47000000000 , &
+ 3609.38000000000 , &
+ 3608.28000000000 , &
+ 3607.18000000000 , &
+ 3606.06000000000 , &
+ 3604.93000000000 , &
+ 3603.79000000000 , &
+ 3602.65000000000 , &
+ 3601.49000000000 , &
+ 3600.32000000000 , &
+ 3599.14000000000 , &
+ 3597.95000000000 , &
+ 3596.75000000000 , &
+ 3595.54000000000 /)
+
+ Mref_V%vsh_ref( 121 : 150 ) = (/ &
+ 3594.32000000000 , &
+ 3593.10000000000 , &
+ 3591.86000000000 , &
+ 3590.61000000000 , &
+ 3589.34000000000 , &
+ 3588.07000000000 , &
+ 3586.79000000000 , &
+ 3585.50000000000 , &
+ 3584.20000000000 , &
+ 3582.89000000000 , &
+ 3581.57000000000 , &
+ 3580.24000000000 , &
+ 3578.90000000000 , &
+ 3577.54000000000 , &
+ 3576.18000000000 , &
+ 3574.81000000000 , &
+ 3573.43000000000 , &
+ 3572.03000000000 , &
+ 3570.63000000000 , &
+ 3569.22000000000 , &
+ 3567.79000000000 , &
+ 3566.36000000000 , &
+ 3564.91000000000 , &
+ 3563.46000000000 , &
+ 3562.00000000000 , &
+ 3560.52000000000 , &
+ 3559.04000000000 , &
+ 3557.54000000000 , &
+ 3556.04000000000 , &
+ 3554.52000000000 /)
+
+ Mref_V%vsh_ref( 151 : 180 ) = (/ &
+ 3553.00000000000 , &
+ 3551.46000000000 , &
+ 3549.91000000000 , &
+ 3548.36000000000 , &
+ 3546.79000000000 , &
+ 3545.21000000000 , &
+ 3543.63000000000 , &
+ 3542.03000000000 , &
+ 3540.42000000000 , &
+ 3538.81000000000 , &
+ 3537.18000000000 , &
+ 3535.54000000000 , &
+ 3533.89000000000 , &
+ 3532.23000000000 , &
+ 3530.57000000000 , &
+ 3528.89000000000 , &
+ 3527.20000000000 , &
+ 3525.50000000000 , &
+ 3523.79000000000 , &
+ 3522.07000000000 , &
+ 3520.34000000000 , &
+ 3518.60000000000 , &
+ 3516.85000000000 , &
+ 3515.09000000000 , &
+ 3513.32000000000 , &
+ 3511.54000000000 , &
+ 3509.75000000000 , &
+ 3507.95000000000 , &
+ 3506.13000000000 , &
+ 3504.31000000000 /)
+
+ Mref_V%vsh_ref( 181 : 210 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%vsh_ref( 211 : 240 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%vsh_ref( 241 : 270 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%vsh_ref( 271 : 300 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%vsh_ref( 301 : 330 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 /)
+
+ Mref_V%vsh_ref( 331 : 360 ) = (/ &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 0.000000000000000E+000 , &
+ 7264.66000000000 , &
+ 7264.75000000000 /)
+
+ Mref_V%vsh_ref( 361 : 390 ) = (/ &
+ 7264.85000000000 , &
+ 7264.94000000000 , &
+ 7265.03000000000 , &
+ 7265.12000000000 , &
+ 7265.21000000000 , &
+ 7265.29000000000 , &
+ 7265.38000000000 , &
+ 7265.46000000000 , &
+ 7265.54000000000 , &
+ 7265.62000000000 , &
+ 7265.69000000000 , &
+ 7265.76000000000 , &
+ 7265.84000000000 , &
+ 7265.91000000000 , &
+ 7265.97000000000 , &
+ 7265.97000000000 , &
+ 7261.63000000000 , &
+ 7257.29000000000 , &
+ 7252.97000000000 , &
+ 7248.64000000000 , &
+ 7244.33000000000 , &
+ 7240.01000000000 , &
+ 7235.71000000000 , &
+ 7231.41000000000 , &
+ 7227.12000000000 , &
+ 7222.83000000000 , &
+ 7218.55000000000 , &
+ 7214.27000000000 , &
+ 7210.00000000000 , &
+ 7205.73000000000 /)
+
+ Mref_V%vsh_ref( 391 : 420 ) = (/ &
+ 7201.47000000000 , &
+ 7197.21000000000 , &
+ 7192.95000000000 , &
+ 7188.70000000000 , &
+ 7184.45000000000 , &
+ 7180.21000000000 , &
+ 7175.97000000000 , &
+ 7171.73000000000 , &
+ 7167.50000000000 , &
+ 7163.27000000000 , &
+ 7159.04000000000 , &
+ 7154.81000000000 , &
+ 7150.59000000000 , &
+ 7146.37000000000 , &
+ 7142.15000000000 , &
+ 7137.93000000000 , &
+ 7133.71000000000 , &
+ 7129.50000000000 , &
+ 7125.29000000000 , &
+ 7121.07000000000 , &
+ 7116.86000000000 , &
+ 7112.65000000000 , &
+ 7108.44000000000 , &
+ 7104.23000000000 , &
+ 7100.02000000000 , &
+ 7095.81000000000 , &
+ 7091.60000000000 , &
+ 7087.39000000000 , &
+ 7083.18000000000 , &
+ 7078.96000000000 /)
+
+ Mref_V%vsh_ref( 421 : 450 ) = (/ &
+ 7074.75000000000 , &
+ 7070.54000000000 , &
+ 7066.32000000000 , &
+ 7062.10000000000 , &
+ 7057.88000000000 , &
+ 7053.66000000000 , &
+ 7049.44000000000 , &
+ 7045.22000000000 , &
+ 7040.99000000000 , &
+ 7036.76000000000 , &
+ 7032.52000000000 , &
+ 7028.29000000000 , &
+ 7024.05000000000 , &
+ 7019.81000000000 , &
+ 7015.56000000000 , &
+ 7011.31000000000 , &
+ 7007.06000000000 , &
+ 7002.80000000000 , &
+ 6998.54000000000 , &
+ 6994.27000000000 , &
+ 6990.00000000000 , &
+ 6985.72000000000 , &
+ 6981.44000000000 , &
+ 6977.15000000000 , &
+ 6972.86000000000 , &
+ 6968.57000000000 , &
+ 6964.26000000000 , &
+ 6959.95000000000 , &
+ 6955.64000000000 , &
+ 6951.32000000000 /)
+
+ Mref_V%vsh_ref( 451 : 480 ) = (/ &
+ 6946.99000000000 , &
+ 6942.66000000000 , &
+ 6938.31000000000 , &
+ 6933.97000000000 , &
+ 6929.61000000000 , &
+ 6925.25000000000 , &
+ 6920.88000000000 , &
+ 6916.50000000000 , &
+ 6912.11000000000 , &
+ 6907.72000000000 , &
+ 6903.32000000000 , &
+ 6898.91000000000 , &
+ 6894.49000000000 , &
+ 6890.06000000000 , &
+ 6885.62000000000 , &
+ 6881.17000000000 , &
+ 6876.72000000000 , &
+ 6872.25000000000 , &
+ 6867.78000000000 , &
+ 6863.29000000000 , &
+ 6858.80000000000 , &
+ 6854.29000000000 , &
+ 6849.78000000000 , &
+ 6845.25000000000 , &
+ 6840.71000000000 , &
+ 6836.16000000000 , &
+ 6831.60000000000 , &
+ 6827.03000000000 , &
+ 6822.45000000000 , &
+ 6817.85000000000 /)
+
+ Mref_V%vsh_ref( 481 : 510 ) = (/ &
+ 6813.25000000000 , &
+ 6808.63000000000 , &
+ 6804.00000000000 , &
+ 6799.35000000000 , &
+ 6794.70000000000 , &
+ 6790.03000000000 , &
+ 6785.34000000000 , &
+ 6780.65000000000 , &
+ 6775.94000000000 , &
+ 6771.22000000000 , &
+ 6766.48000000000 , &
+ 6761.73000000000 , &
+ 6756.97000000000 , &
+ 6752.19000000000 , &
+ 6747.40000000000 , &
+ 6742.59000000000 , &
+ 6737.76000000000 , &
+ 6732.93000000000 , &
+ 6728.07000000000 , &
+ 6723.21000000000 , &
+ 6718.32000000000 , &
+ 6713.42000000000 , &
+ 6708.51000000000 , &
+ 6703.57000000000 , &
+ 6698.62000000000 , &
+ 6693.66000000000 , &
+ 6688.68000000000 , &
+ 6683.68000000000 , &
+ 6678.66000000000 , &
+ 6673.63000000000 /)
+
+ Mref_V%vsh_ref( 511 : 540 ) = (/ &
+ 6668.58000000000 , &
+ 6663.51000000000 , &
+ 6658.43000000000 , &
+ 6653.32000000000 , &
+ 6648.20000000000 , &
+ 6643.06000000000 , &
+ 6637.90000000000 , &
+ 6632.73000000000 , &
+ 6627.53000000000 , &
+ 6622.31000000000 , &
+ 6617.08000000000 , &
+ 6611.82000000000 , &
+ 6606.55000000000 , &
+ 6601.26000000000 , &
+ 6595.94000000000 , &
+ 6590.61000000000 , &
+ 6584.91000000000 , &
+ 6579.51000000000 , &
+ 6574.11000000000 , &
+ 6568.67000000000 , &
+ 6563.22000000000 , &
+ 6557.74000000000 , &
+ 6552.24000000000 , &
+ 6546.73000000000 , &
+ 6541.19000000000 , &
+ 6535.63000000000 , &
+ 6530.05000000000 , &
+ 6524.44000000000 , &
+ 6518.82000000000 , &
+ 6513.17000000000 /)
+
+ Mref_V%vsh_ref( 541 : 570 ) = (/ &
+ 6507.50000000000 , &
+ 6501.80000000000 , &
+ 6496.09000000000 , &
+ 6490.35000000000 , &
+ 6484.59000000000 , &
+ 6478.80000000000 , &
+ 6472.99000000000 , &
+ 6467.16000000000 , &
+ 6461.30000000000 , &
+ 6455.42000000000 , &
+ 6449.51000000000 , &
+ 6443.58000000000 , &
+ 6437.63000000000 , &
+ 6431.65000000000 , &
+ 6425.65000000000 , &
+ 6419.61000000000 , &
+ 6413.56000000000 , &
+ 6407.48000000000 , &
+ 6401.37000000000 , &
+ 6395.25000000000 , &
+ 6389.09000000000 , &
+ 6382.91000000000 , &
+ 6376.70000000000 , &
+ 6370.46000000000 , &
+ 6364.20000000000 , &
+ 6357.91000000000 , &
+ 6351.59000000000 , &
+ 6345.25000000000 , &
+ 6338.88000000000 , &
+ 6332.49000000000 /)
+
+ Mref_V%vsh_ref( 571 : 600 ) = (/ &
+ 6326.05000000000 , &
+ 6319.60000000000 , &
+ 6313.13000000000 , &
+ 6306.62000000000 , &
+ 6300.08000000000 , &
+ 6293.52000000000 , &
+ 6286.92000000000 , &
+ 6280.29000000000 , &
+ 6273.64000000000 , &
+ 6266.96000000000 , &
+ 6260.25000000000 , &
+ 6253.51000000000 , &
+ 6246.75000000000 , &
+ 6239.95000000000 , &
+ 6239.95000000000 , &
+ 6219.68000000000 , &
+ 6200.29000000000 , &
+ 6181.16000000000 , &
+ 6162.04000000000 , &
+ 6143.01000000000 , &
+ 6123.98000000000 , &
+ 6103.71000000000 , &
+ 6083.53000000000 , &
+ 6063.45000000000 , &
+ 6043.44000000000 , &
+ 6023.52000000000 , &
+ 6003.73000000000 , &
+ 5984.03000000000 , &
+ 5964.38000000000 , &
+ 5944.81000000000 /)
+
+ Mref_V%vsh_ref( 601 : 630 ) = (/ &
+ 5925.27000000000 , &
+ 5550.32000000000 , &
+ 5541.20000000000 , &
+ 5532.08000000000 , &
+ 5522.96000000000 , &
+ 5513.83000000000 , &
+ 5504.71000000000 , &
+ 5495.59000000000 , &
+ 5486.47000000000 , &
+ 5477.35000000000 , &
+ 5468.22000000000 , &
+ 5459.10000000000 , &
+ 5449.97000000000 , &
+ 5440.84000000000 , &
+ 5431.71000000000 , &
+ 5422.57000000000 , &
+ 5422.59000000000 , &
+ 5406.39000000000 , &
+ 5390.30000000000 , &
+ 5374.34000000000 , &
+ 5358.52000000000 , &
+ 5342.83000000000 , &
+ 5327.31000000000 , &
+ 5311.92000000000 , &
+ 5296.73000000000 , &
+ 5281.71000000000 , &
+ 5266.86000000000 , &
+ 5252.21000000000 , &
+ 5237.78000000000 , &
+ 5223.55000000000 /)
+
+ Mref_V%vsh_ref( 631 : 660 ) = (/ &
+ 5209.54000000000 , &
+ 5195.72000000000 , &
+ 5182.10000000000 , &
+ 5168.69000000000 , &
+ 5155.42000000000 , &
+ 5142.22000000000 , &
+ 5129.05000000000 , &
+ 5115.84000000000 , &
+ 5102.55000000000 , &
+ 5089.14000000000 , &
+ 5075.50000000000 , &
+ 5061.63000000000 , &
+ 5047.46000000000 , &
+ 5032.93000000000 , &
+ 5018.03000000000 , &
+ 5002.66000000000 , &
+ 4986.77000000000 , &
+ 4803.78000000000 , &
+ 4800.54000000000 , &
+ 4797.28000000000 , &
+ 4793.96000000000 , &
+ 4790.18000000000 , &
+ 4785.78000000000 , &
+ 4780.71000000000 , &
+ 4775.00000000000 , &
+ 4768.58000000000 , &
+ 4761.41000000000 , &
+ 4753.51000000000 , &
+ 4744.86000000000 , &
+ 4735.64000000000 /)
+
+ Mref_V%vsh_ref( 661 : 690 ) = (/ &
+ 4725.88000000000 , &
+ 4715.76000000000 , &
+ 4705.34000000000 , &
+ 4694.74000000000 , &
+ 4684.08000000000 , &
+ 4673.46000000000 , &
+ 4662.94000000000 , &
+ 4652.61000000000 , &
+ 4642.55000000000 , &
+ 4632.81000000000 , &
+ 4623.51000000000 , &
+ 4614.68000000000 , &
+ 4606.39000000000 , &
+ 4598.73000000000 , &
+ 4591.76000000000 , &
+ 4585.56000000000 , &
+ 4580.21000000000 , &
+ 4575.75000000000 , &
+ 4575.74000000000 , &
+ 4572.27000000000 , &
+ 4569.53000000000 , &
+ 4567.46000000000 , &
+ 4566.02000000000 , &
+ 4565.10000000000 , &
+ 4564.66000000000 , &
+ 4564.65000000000 , &
+ 4564.99000000000 , &
+ 4565.62000000000 , &
+ 4566.47000000000 , &
+ 4567.46000000000 /)
+
+ Mref_V%vsh_ref( 691 : 720 ) = (/ &
+ 4568.58000000000 , &
+ 4569.70000000000 , &
+ 4570.85000000000 , &
+ 4571.91000000000 , &
+ 4572.83000000000 , &
+ 4573.60000000000 , &
+ 4574.16000000000 , &
+ 4574.44000000000 , &
+ 4574.42000000000 , &
+ 4574.04000000000 , &
+ 4573.36000000000 , &
+ 4572.41000000000 , &
+ 4572.46000000000 , &
+ 4571.71000000000 , &
+ 4570.93000000000 , &
+ 4570.06000000000 , &
+ 4569.16000000000 , &
+ 4568.21000000000 , &
+ 4567.22000000000 , &
+ 4566.21000000000 , &
+ 4565.16000000000 , &
+ 4564.11000000000 , &
+ 4563.05000000000 , &
+ 4562.00000000000 , &
+ 4560.94000000000 , &
+ 4559.94000000000 , &
+ 4558.94000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 /)
+
+ Mref_V%vsh_ref( 721 : 750 ) = (/ &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3900.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 , &
+ 3200.00000000000 /)
+
+ Mref_V%eta_ref( 1 : 30 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 31 : 60 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 61 : 90 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 91 : 120 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 121 : 150 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 151 : 180 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 181 : 210 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 211 : 240 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 241 : 270 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 271 : 300 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 301 : 330 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 331 : 360 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 361 : 390 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 391 : 420 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 421 : 450 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 451 : 480 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 481 : 510 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 511 : 540 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 541 : 570 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 571 : 600 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 601 : 630 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 631 : 660 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 0.999990000000000 , &
+ 0.999970000000000 , &
+ 0.999950000000000 , &
+ 0.999940000000000 , &
+ 0.999900000000000 , &
+ 0.999860000000000 , &
+ 0.999800000000000 , &
+ 0.999740000000000 , &
+ 0.999660000000000 /)
+
+ Mref_V%eta_ref( 661 : 690 ) = (/ &
+ 0.999570000000000 , &
+ 0.999470000000000 , &
+ 0.999340000000000 , &
+ 0.999200000000000 , &
+ 0.999040000000000 , &
+ 0.998860000000000 , &
+ 0.998640000000000 , &
+ 0.998320000000000 , &
+ 0.997900000000000 , &
+ 0.997320000000000 , &
+ 0.996540000000000 , &
+ 0.995530000000000 , &
+ 0.994260000000000 , &
+ 0.992680000000000 , &
+ 0.990750000000000 , &
+ 0.988430000000000 , &
+ 0.985710000000000 , &
+ 0.982550000000000 , &
+ 0.982500000000000 , &
+ 0.979070000000000 , &
+ 0.975310000000000 , &
+ 0.971280000000000 , &
+ 0.967040000000000 , &
+ 0.962680000000000 , &
+ 0.958230000000000 , &
+ 0.953780000000000 , &
+ 0.949380000000000 , &
+ 0.945090000000000 , &
+ 0.940980000000000 , &
+ 0.937120000000000 /)
+
+ Mref_V%eta_ref( 691 : 720 ) = (/ &
+ 0.933560000000000 , &
+ 0.930340000000000 , &
+ 0.927430000000000 , &
+ 0.924830000000000 , &
+ 0.922510000000000 , &
+ 0.920460000000000 , &
+ 0.918670000000000 , &
+ 0.917110000000000 , &
+ 0.915770000000000 , &
+ 0.914650000000000 , &
+ 0.913710000000000 , &
+ 0.912960000000000 , &
+ 0.912940000000000 , &
+ 0.912540000000000 , &
+ 0.912210000000000 , &
+ 0.911930000000000 , &
+ 0.911710000000000 , &
+ 0.911550000000000 , &
+ 0.911420000000000 , &
+ 0.911340000000000 , &
+ 0.911300000000000 , &
+ 0.911290000000000 , &
+ 0.911300000000000 , &
+ 0.911350000000000 , &
+ 0.911400000000000 , &
+ 0.911470000000000 , &
+ 0.911550000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+ Mref_V%eta_ref( 721 : 750 ) = (/ &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 , &
+ 1.00000000000000 /)
+
+  if (SUPPRESS_CRUSTAL_MESH) then
+    Mref_V%density_ref(718:750) = Mref_V%density_ref(717)
+    Mref_V%vpv_ref(718:750) = Mref_V%vpv_ref(717)
+    Mref_V%vph_ref(718:750) = Mref_V%vph_ref(717)
+    Mref_V%vsv_ref(718:750) = Mref_V%vsv_ref(717)
+    Mref_V%vsh_ref(718:750) = Mref_V%vsh_ref(717)
+  endif
+
+  end subroutine define_reference_1d_model
+

Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s20rts (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/DATA/s20rts)

Added: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s20rts/build.mk
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s20rts/build.mk	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s20rts/build.mk	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,7 @@
+
+s20rts_OBJECTS = \
+	$O/mantle_model.o \
+	$(EMPTY_MACRO)
+
+$O/mantle_model.o: constants.h $S/MODELS/s20rts/mantle_model.f90
+	${MPIFCCOMPILE_CHECK} -c -o $O/mantle_model.o ${FCFLAGS_f90} $S/MODELS/s20rts/mantle_model.f90

Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s20rts/mantle_model.f90 (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/mantle_model.f90)
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s20rts/mantle_model.f90	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s20rts/mantle_model.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,485 @@
+!=====================================================================
+!
+!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
+!          --------------------------------------------------
+!
+!          Main authors: Dimitri Komatitsch and Jeroen Tromp
+!    Seismological Laboratory, California Institute of Technology, USA
+!             and University of Pau / CNRS / INRIA, France
+! (c) California Institute of Technology and University of Pau / CNRS / INRIA
+!                            February 2008
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
+  module mantle_model_module
+
+  integer, parameter :: NK = 20,NS = 20,ND = 1
+
+! three_d_mantle_model_variables
+  type three_d_mantle_model_variables
+    sequence
+    double precision dvs_a(0:NK,0:NS,0:NS)
+    double precision dvs_b(0:NK,0:NS,0:NS)
+    double precision dvp_a(0:NK,0:NS,0:NS)
+    double precision dvp_b(0:NK,0:NS,0:NS)
+    double precision spknt(NK+1)
+    double precision qq0(NK+1,NK+1)
+    double precision qq(3,NK+1,NK+1)
+  end type three_d_mantle_model_variables
+
+  type (three_d_mantle_model_variables) D3MM_V
+! three_d_mantle_model_variables
+
+  end module
+
+!---------------------------
+
+  subroutine read_s20rts(myrank)
+
+  use mantle_model_module
+  implicit none
+  include 'mpif.h'
+  include "constants.h"
+
+  integer myrank,ier
+
+! the variables read are declared and stored in structure D3MM_V
+  if(myrank == 0) call read_mantle_model()
+! broadcast the information read on the master to the nodes
+  call MPI_BCAST(D3MM_V%dvs_a,(NK+1)*(NS+1)*(NS+1),MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(D3MM_V%dvs_b,(NK+1)*(NS+1)*(NS+1),MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(D3MM_V%dvp_a,(NK+1)*(NS+1)*(NS+1),MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(D3MM_V%dvp_b,(NK+1)*(NS+1)*(NS+1),MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(D3MM_V%spknt,NK+1,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(D3MM_V%qq0,(NK+1)*(NK+1),MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(D3MM_V%qq,3*(NK+1)*(NK+1),MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
+
+  end subroutine read_s20rts
+
+!---------------------------
+
+  subroutine read_mantle_model()
+
+  use mantle_model_module
+  implicit none
+
+  include "constants.h"
+
+  integer k,l,m
+
+  character(len=150) S20RTS, P12
+
+  call get_value_string(S20RTS, 'model.S20RTS', 'DATA/s20rts/S20RTS.dat')
+  call get_value_string(P12, 'model.P12', 'DATA/s20rts/P12.dat')
+
+! S20RTS degree 20 S model from Ritsema
+  open(unit=10,file=S20RTS,status='old',action='read')
+  do k=0,NK
+    do l=0,NS
+      read(10,*) D3MM_V%dvs_a(k,l,0),(D3MM_V%dvs_a(k,l,m),D3MM_V%dvs_b(k,l,m),m=1,l)
+    enddo
+  enddo
+  close(10)
+
+! P12 degree 12 P model from Ritsema
+  open(unit=10,file=P12,status='old',action='read')
+  do k=0,NK
+    do l=0,12
+      read(10,*) D3MM_V%dvp_a(k,l,0),(D3MM_V%dvp_a(k,l,m),D3MM_V%dvp_b(k,l,m),m=1,l)
+    enddo
+    do l=13,NS
+      D3MM_V%dvp_a(k,l,0) = 0.0d0
+      do m=1,l
+        D3MM_V%dvp_a(k,l,m) = 0.0d0
+        D3MM_V%dvp_b(k,l,m) = 0.0d0
+      enddo
+    enddo
+  enddo
+  close(10)
+
+! set up the splines used as radial basis functions by Ritsema
+  call splhsetup()
+
+  end subroutine read_mantle_model
+
+!---------------------------
+
+  subroutine get_model_s20rts(radius,theta,phi, &
+    vpv,vph,vsv,vsh,rho,eta_aniso)
+
+    implicit none
+    include "constants.h"
+
+    double precision radius,theta,phi
+    double precision vpv,vph,vsv,vsh,rho,eta_aniso
+
+    double precision dvp,dvs,drho
+
+    dvs = ZERO
+    dvp = ZERO
+    drho = ZERO
+    call mantle_model(radius,theta,phi,dvs,dvp,drho)
+    vpv=vpv*(1.0d0+dvp)
+    vph=vph*(1.0d0+dvp)
+    vsv=vsv*(1.0d0+dvs)
+    vsh=vsh*(1.0d0+dvs)
+    rho=rho*(1.0d0+drho)
+  end subroutine get_model_s20rts
+
+!---------------------------
+
+  subroutine mantle_model(radius,theta,phi,dvs,dvp,drho)
+
+  use mantle_model_module
+  implicit none
+
+  include "constants.h"
+
+! factor to convert perturbations in shear speed to perturbations in density
+  double precision, parameter :: SCALE_RHO = 0.40d0
+
+  double precision radius,theta,phi,dvs,dvp,drho
+
+  double precision, parameter :: RMOHO_ = 6346600.d0
+  double precision, parameter :: RCMB_ = 3480000.d0
+  double precision, parameter :: R_EARTH_ = 6371000.d0
+  double precision, parameter :: ZERO_ = 0.d0
+
+  integer l,m,k
+  double precision r_moho,r_cmb,xr
+  double precision dvs_alm,dvs_blm
+  double precision dvp_alm,dvp_blm
+  double precision rsple,radial_basis(0:NK)
+  double precision sint,cost,x(2*NS+1),dx(2*NS+1)
+
+  dvs = ZERO_
+  dvp = ZERO_
+  drho = ZERO_
+
+  r_moho = RMOHO_ / R_EARTH_
+  r_cmb = RCMB_ / R_EARTH_
+  if(radius>=r_moho .or. radius <= r_cmb) return
+
+  xr=-1.0d0+2.0d0*(radius-r_cmb)/(r_moho-r_cmb)
+  do k=0,NK
+    radial_basis(k)=rsple(1,NK+1,D3MM_V%spknt(1),D3MM_V%qq0(1,NK+1-k),D3MM_V%qq(1,1,NK+1-k),xr)
+  enddo
+
+  do l=0,NS
+    sint=dsin(theta)
+    cost=dcos(theta)
+    call lgndr(l,cost,sint,x,dx)
+    dvs_alm=0.0d0
+    dvp_alm=0.0d0
+    do k=0,NK
+      dvs_alm=dvs_alm+radial_basis(k)*D3MM_V%dvs_a(k,l,0)
+      dvp_alm=dvp_alm+radial_basis(k)*D3MM_V%dvp_a(k,l,0)
+    enddo
+    dvs=dvs+dvs_alm*x(1)
+    dvp=dvp+dvp_alm*x(1)
+    do m=1,l
+      dvs_alm=0.0d0
+      dvp_alm=0.0d0
+      dvs_blm=0.0d0
+      dvp_blm=0.0d0
+      do k=0,NK
+        dvs_alm=dvs_alm+radial_basis(k)*D3MM_V%dvs_a(k,l,m)
+        dvp_alm=dvp_alm+radial_basis(k)*D3MM_V%dvp_a(k,l,m)
+        dvs_blm=dvs_blm+radial_basis(k)*D3MM_V%dvs_b(k,l,m)
+        dvp_blm=dvp_blm+radial_basis(k)*D3MM_V%dvp_b(k,l,m)
+      enddo
+      dvs=dvs+(dvs_alm*dcos(dble(m)*phi)+dvs_blm*dsin(dble(m)*phi))*x(m+1)
+      dvp=dvp+(dvp_alm*dcos(dble(m)*phi)+dvp_blm*dsin(dble(m)*phi))*x(m+1)
+    enddo
+  enddo
+
+  drho = SCALE_RHO*dvs
+
+  end subroutine mantle_model
+
+!----------------------------------
+
+  subroutine splhsetup()!!!!!!!!!!!!!!(spknt,qq0,qq)
+
+  use mantle_model_module
+  implicit none
+  include "constants.h"
+
+!!!!!!!!!!!!!!!!!!!  double precision spknt(NK+1),qq0(NK+1,NK+1),qq(3,NK+1,NK+1)
+
+  integer i,j
+  double precision qqwk(3,NK+1)
+
+  D3MM_V%spknt(1) = -1.00000d0
+  D3MM_V%spknt(2) = -0.78631d0
+  D3MM_V%spknt(3) = -0.59207d0
+  D3MM_V%spknt(4) = -0.41550d0
+  D3MM_V%spknt(5) = -0.25499d0
+  D3MM_V%spknt(6) = -0.10909d0
+  D3MM_V%spknt(7) = 0.02353d0
+  D3MM_V%spknt(8) = 0.14409d0
+  D3MM_V%spknt(9) = 0.25367d0
+  D3MM_V%spknt(10) = 0.35329d0
+  D3MM_V%spknt(11) = 0.44384d0
+  D3MM_V%spknt(12) = 0.52615d0
+  D3MM_V%spknt(13) = 0.60097d0
+  D3MM_V%spknt(14) = 0.66899d0
+  D3MM_V%spknt(15) = 0.73081d0
+  D3MM_V%spknt(16) = 0.78701d0
+  D3MM_V%spknt(17) = 0.83810d0
+  D3MM_V%spknt(18) = 0.88454d0
+  D3MM_V%spknt(19) = 0.92675d0
+  D3MM_V%spknt(20) = 0.96512d0
+  D3MM_V%spknt(21) = 1.00000d0
+
+  do i=1,NK+1
+    do j=1,NK+1
+      if(i == j) then
+        D3MM_V%qq0(j,i)=1.0d0
+      else
+        D3MM_V%qq0(j,i)=0.0d0
+      endif
+    enddo
+  enddo
+  do i=1,NK+1
+    call rspln(1,NK+1,D3MM_V%spknt(1),D3MM_V%qq0(1,i),D3MM_V%qq(1,1,i),qqwk(1,1))
+  enddo
+
+  end subroutine splhsetup
+
+!----------------------------------
+
+! changed the obsolecent f77 features in the two routines below
+! now still awful Fortran, but at least conforms to f90 standard
+
+  double precision function rsple(I1,I2,X,Y,Q,S)
+
+  implicit none
+
+! rsple returns the value of the function y(x) evaluated at point S
+! using the cubic spline coefficients computed by rspln and saved in Q.
+! If S is outside the interval (x(i1),x(i2)) rsple extrapolates
+! using the first or last interpolation polynomial. The arrays must
+! be dimensioned at least - x(i2), y(i2), and q(3,i2).
+
+      integer i1,i2
+      double precision  X(*),Y(*),Q(3,*),s
+
+      integer i,ii
+      double precision h
+
+      i = 1
+      II=I2-1
+
+!   GUARANTEE I WITHIN BOUNDS.
+      I=MAX0(I,I1)
+      I=MIN0(I,II)
+
+!   SEE IF X IS INCREASING OR DECREASING.
+      IF(X(I2)-X(I1) <  0) goto 1
+      IF(X(I2)-X(I1) >= 0) goto 2
+
+!   X IS DECREASING.  CHANGE I AS NECESSARY.
+ 1    IF(S-X(I) <= 0) goto 3
+      IF(S-X(I) >  0) goto 4
+
+ 4    I=I-1
+
+      IF(I-I1 <  0) goto 11
+      IF(I-I1 == 0) goto 6
+      IF(I-I1 >  0) goto 1
+
+ 3    IF(S-X(I+1) <  0) goto 5
+      IF(S-X(I+1) >= 0) goto 6
+
+ 5    I=I+1
+
+      IF(I-II <  0) goto 3
+      IF(I-II == 0) goto 6
+      IF(I-II >  0) goto 7
+
+!   X IS INCREASING.  CHANGE I AS NECESSARY.
+ 2    IF(S-X(I+1) <= 0) goto 8
+      IF(S-X(I+1) >  0) goto 9
+
+ 9    I=I+1
+
+      IF(I-II <  0) goto 2
+      IF(I-II == 0) goto 6
+      IF(I-II >  0) goto 7
+
+ 8    IF(S-X(I) <  0) goto 10
+      IF(S-X(I) >= 0) goto 6
+
+ 10   I=I-1
+      IF(I-I1 <  0) goto 11
+      IF(I-I1 == 0) goto 6
+      IF(I-I1 >  0) goto 8
+
+ 7    I=II
+      GOTO 6
+ 11   I=I1
+
+!   CALCULATE RSPLE USING SPLINE COEFFICIENTS IN Y AND Q.
+ 6    H=S-X(I)
+      RSPLE=Y(I)+H*(Q(1,I)+H*(Q(2,I)+H*Q(3,I)))
+
+      end function rsple
+
+!----------------------------------
+
+  subroutine rspln(I1,I2,X,Y,Q,F)
+
+  implicit none
+
+! Subroutine rspln computes cubic spline interpolation coefficients
+! for y(x) between grid points i1 and i2 saving them in q.The
+! interpolation is continuous with continuous first and second
+! derivatives. It agrees exactly with y at grid points and with the
+! three point first derivatives at both end points (i1 and i2).
+! X must be monotonic but if two successive values of x are equal
+! a discontinuity is assumed and separate interpolation is done on
+! each strictly monotonic segment. The arrays must be dimensioned at
+! least - x(i2), y(i2), q(3,i2), and f(3,i2).
+! F is working storage for rspln.
+
+      integer i1,i2
+      double precision X(*),Y(*),Q(3,*),F(3,*)
+
+      integer i,j,k,j1,j2
+      double precision y0,a0,b0,b1,h,h2,ha,h2a,h3a,h2b
+      double precision YY(3),small
+      equivalence (YY(1),Y0)
+      data SMALL/1.0d-08/,YY/0.0d0,0.0d0,0.0d0/
+
+      J1=I1+1
+      Y0=0.0d0
+
+!   BAIL OUT IF THERE ARE LESS THAN TWO POINTS TOTAL
+      IF(I2-I1  < 0) return
+      IF(I2-I1 == 0) goto 17
+      IF(I2-I1  > 0) goto 8
+
+ 8    A0=X(J1-1)
+!   SEARCH FOR DISCONTINUITIES.
+      DO 3 I=J1,I2
+      B0=A0
+      A0=X(I)
+      IF(DABS((A0-B0)/DMAX1(A0,B0)) < SMALL) GOTO 4
+ 3    CONTINUE
+ 17   J1=J1-1
+      J2=I2-2
+      GOTO 5
+ 4    J1=J1-1
+      J2=I-3
+!   SEE IF THERE ARE ENOUGH POINTS TO INTERPOLATE (AT LEAST THREE).
+ 5    IF(J2+1-J1 <  0) goto 9
+      IF(J2+1-J1 == 0) goto 10
+      IF(J2+1-J1 >  0) goto 11
+
+!   ONLY TWO POINTS.  USE LINEAR INTERPOLATION.
+ 10   J2=J2+2
+      Y0=(Y(J2)-Y(J1))/(X(J2)-X(J1))
+      DO J=1,3
+        Q(J,J1)=YY(J)
+        Q(J,J2)=YY(J)
+      enddo
+      GOTO 12
+
+!   MORE THAN TWO POINTS.  DO SPLINE INTERPOLATION.
+ 11   A0=0.
+      H=X(J1+1)-X(J1)
+      H2=X(J1+2)-X(J1)
+      Y0=H*H2*(H2-H)
+      H=H*H
+      H2=H2*H2
+!   CALCULATE DERIVITIVE AT NEAR END.
+      B0=(Y(J1)*(H-H2)+Y(J1+1)*H2-Y(J1+2)*H)/Y0
+      B1=B0
+
+!   EXPLICITLY REDUCE BANDED MATRIX TO AN UPPER BANDED MATRIX.
+      DO I=J1,J2
+        H=X(I+1)-X(I)
+        Y0=Y(I+1)-Y(I)
+        H2=H*H
+        HA=H-A0
+        H2A=H-2.0d0*A0
+        H3A=2.0d0*H-3.0d0*A0
+        H2B=H2*B0
+        Q(1,I)=H2/HA
+        Q(2,I)=-HA/(H2A*H2)
+        Q(3,I)=-H*H2A/H3A
+        F(1,I)=(Y0-H*B0)/(H*HA)
+        F(2,I)=(H2B-Y0*(2.0d0*H-A0))/(H*H2*H2A)
+        F(3,I)=-(H2B-3.0d0*Y0*HA)/(H*H3A)
+        A0=Q(3,I)
+        B0=F(3,I)
+      enddo
+
+!   TAKE CARE OF LAST TWO ROWS.
+      I=J2+1
+      H=X(I+1)-X(I)
+      Y0=Y(I+1)-Y(I)
+      H2=H*H
+      HA=H-A0
+      H2A=H*HA
+      H2B=H2*B0-Y0*(2.0d0*H-A0)
+      Q(1,I)=H2/HA
+      F(1,I)=(Y0-H*B0)/H2A
+      HA=X(J2)-X(I+1)
+      Y0=-H*HA*(HA+H)
+      HA=HA*HA
+
+!   CALCULATE DERIVATIVE AT FAR END.
+      Y0=(Y(I+1)*(H2-HA)+Y(I)*HA-Y(J2)*H2)/Y0
+      Q(3,I)=(Y0*H2A+H2B)/(H*H2*(H-2.0d0*A0))
+      Q(2,I)=F(1,I)-Q(1,I)*Q(3,I)
+
+!   SOLVE UPPER BANDED MATRIX BY REVERSE ITERATION.
+      DO J=J1,J2
+        K=I-1
+        Q(1,I)=F(3,K)-Q(3,K)*Q(2,I)
+        Q(3,K)=F(2,K)-Q(2,K)*Q(1,I)
+        Q(2,K)=F(1,K)-Q(1,K)*Q(3,K)
+        I=K
+      enddo
+      Q(1,I)=B1
+!   FILL IN THE LAST POINT WITH A LINEAR EXTRAPOLATION.
+ 9    J2=J2+2
+      DO J=1,3
+        Q(J,J2)=YY(J)
+      enddo
+
+!   SEE IF THIS DISCONTINUITY IS THE LAST.
+ 12   IF(J2-I2 < 0) then
+        goto 6
+      else
+        return
+      endif
+
+!   NO.  GO BACK FOR MORE.
+ 6    J1=J2+2
+      IF(J1-I2 <= 0) goto 8
+      IF(J1-I2 >  0) goto 7
+
+!   THERE IS ONLY ONE POINT LEFT AFTER THE LATEST DISCONTINUITY.
+ 7    DO J=1,3
+        Q(J,I2)=YY(J)
+      enddo
+
+      end subroutine rspln
+

Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/S362ANI (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/DATA/s362ani/S362ANI)
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/S362ANI	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/S362ANI	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,2830 @@
+#ATAFILE:/scr/kustowsk/ATA/ALL.ata
+#DAMP1WEIGHT:     1.0000    
+REFERENCE MODEL: PREM222
+KERNEL SET: WDC+I3D_650
+RADIAL STRUCTURE KERNELS: 100
+DESC   1: CR (SH+SV)*0.5, W&D 1984
+DESC   2: UM (SH+SV)*0.5, variable splines,  1
+DESC   3: UM (SH+SV)*0.5, variable splines,  2
+DESC   4: UM (SH+SV)*0.5, variable splines,  3
+DESC   5: UM (SH+SV)*0.5, variable splines,  4
+DESC   6: UM (SH+SV)*0.5, variable splines,  5
+DESC   7: UM (SH+SV)*0.5, variable splines,  6
+DESC   8: UM (SH+SV)*0.5, variable splines,  7
+DESC   9: UM (SH+SV)*0.5, variable splines,  8
+DESC  10: LM (SH+SV)*0.5, variable splines,  1
+DESC  11: LM (SH+SV)*0.5, variable splines,  2
+DESC  12: LM (SH+SV)*0.5, variable splines,  3
+DESC  13: LM (SH+SV)*0.5, variable splines,  4
+DESC  14: LM (SH+SV)*0.5, variable splines,  5
+DESC  15: LM (SH+SV)*0.5, variable splines,  6
+DESC  16: LM (SH+SV)*0.5, variable splines,  7
+DESC  17: LM (SH+SV)*0.5, variable splines,  8
+DESC  18: UM SH-SV, variable splines,  1
+DESC  19: UM SH-SV, variable splines,  2
+DESC  20: UM SH-SV, variable splines,  3
+DESC  21: UM SH-SV, variable splines,  4
+DESC  22: UM SH-SV, variable splines,  5
+DESC  23: UM SH-SV, variable splines,  6
+DESC  24: UM SH-SV, variable splines,  7
+DESC  25: UM SH-SV, variable splines,  8
+DESC  26: LM SH-SV, variable splines,  1
+DESC  27: LM SH-SV, variable splines,  2
+DESC  28: LM SH-SV, variable splines,  3
+DESC  29: LM SH-SV, variable splines,  4
+DESC  30: LM SH-SV, variable splines,  5
+DESC  31: LM SH-SV, variable splines,  6
+DESC  32: LM SH-SV, variable splines,  7
+DESC  33: LM SH-SV, variable splines,  8
+DESC  34: Topo 400,  1
+DESC  35: Topo 670,  1
+DESC  36: Topo CMB,  1
+DESC  37: UM (PH+PV)*0.5, variable splines,  1
+DESC  38: UM (PH+PV)*0.5, variable splines,  2
+DESC  39: UM (PH+PV)*0.5, variable splines,  3
+DESC  40: UM (PH+PV)*0.5, variable splines,  4
+DESC  41: UM (PH+PV)*0.5, variable splines,  5
+DESC  42: UM (PH+PV)*0.5, variable splines,  6
+DESC  43: UM (PH+PV)*0.5, variable splines,  7
+DESC  44: UM (PH+PV)*0.5, variable splines,  8
+DESC  45: LM (PH+PV)*0.5, variable splines,  1
+DESC  46: LM (PH+PV)*0.5, variable splines,  2
+DESC  47: LM (PH+PV)*0.5, variable splines,  3
+DESC  48: LM (PH+PV)*0.5, variable splines,  4
+DESC  49: LM (PH+PV)*0.5, variable splines,  5
+DESC  50: LM (PH+PV)*0.5, variable splines,  6
+DESC  51: LM (PH+PV)*0.5, variable splines,  7
+DESC  52: LM (PH+PV)*0.5, variable splines,  8
+DESC  53: UM PH-PV, variable splines,  1
+DESC  54: UM PH-PV, variable splines,  2
+DESC  55: UM PH-PV, variable splines,  3
+DESC  56: UM PH-PV, variable splines,  4
+DESC  57: UM PH-PV, variable splines,  5
+DESC  58: UM PH-PV, variable splines,  6
+DESC  59: UM PH-PV, variable splines,  7
+DESC  60: UM PH-PV, variable splines,  8
+DESC  61: LM PH-PV, variable splines,  1
+DESC  62: LM PH-PV, variable splines,  2
+DESC  63: LM PH-PV, variable splines,  3
+DESC  64: LM PH-PV, variable splines,  4
+DESC  65: LM PH-PV, variable splines,  5
+DESC  66: LM PH-PV, variable splines,  6
+DESC  67: LM PH-PV, variable splines,  7
+DESC  68: LM PH-PV, variable splines,  8
+DESC  69: UM dETA/ETA, variable splines,  1
+DESC  70: UM dETA/ETA, variable splines,  2
+DESC  71: UM dETA/ETA, variable splines,  3
+DESC  72: UM dETA/ETA, variable splines,  4
+DESC  73: UM dETA/ETA, variable splines,  5
+DESC  74: UM dETA/ETA, variable splines,  6
+DESC  75: UM dETA/ETA, variable splines,  7
+DESC  76: UM dETA/ETA, variable splines,  8
+DESC  77: LM dETA/ETA, variable splines,  1
+DESC  78: LM dETA/ETA, variable splines,  2
+DESC  79: LM dETA/ETA, variable splines,  3
+DESC  80: LM dETA/ETA, variable splines,  4
+DESC  81: LM dETA/ETA, variable splines,  5
+DESC  82: LM dETA/ETA, variable splines,  6
+DESC  83: LM dETA/ETA, variable splines,  7
+DESC  84: LM dETA/ETA, variable splines,  8
+DESC  85: UM dRHO/RHO, variable splines,  1
+DESC  86: UM dRHO/RHO, variable splines,  2
+DESC  87: UM dRHO/RHO, variable splines,  3
+DESC  88: UM dRHO/RHO, variable splines,  4
+DESC  89: UM dRHO/RHO, variable splines,  5
+DESC  90: UM dRHO/RHO, variable splines,  6
+DESC  91: UM dRHO/RHO, variable splines,  7
+DESC  92: UM dRHO/RHO, variable splines,  8
+DESC  93: LM dRHO/RHO, variable splines,  1
+DESC  94: LM dRHO/RHO, variable splines,  2
+DESC  95: LM dRHO/RHO, variable splines,  3
+DESC  96: LM dRHO/RHO, variable splines,  4
+DESC  97: LM dRHO/RHO, variable splines,  5
+DESC  98: LM dRHO/RHO, variable splines,  6
+DESC  99: LM dRHO/RHO, variable splines,  7
+DESC 100: LM dRHO/RHO, variable splines,  8
+HORIZONTAL PARAMETERIZATIONS: 2
+HPAR   1: SPHERICAL SPLINES, M362,   362
+  1   -87.138   -71.558    11.515
+  1   -82.290   108.442    11.515
+  1   -79.862    22.756    11.515
+  1   -79.862  -165.872    11.515
+  1   -76.565   -71.558    11.515
+  1   -75.765  -116.764    11.515
+  1   -75.765   -26.352    11.515
+  1   -73.281    70.255    11.515
+  1   -73.281   146.629    11.515
+  1   -71.717   108.442    11.515
+  1   -68.915  -144.042    11.515
+  1   -68.915     0.926    11.515
+  1   -68.397  -177.728    11.515
+  1   -68.397    34.612    11.515
+  1   -67.166   -87.694    11.515
+  1   -67.166   -55.422    11.515
+  1   -65.069   -29.201    11.515
+  1   -65.069  -113.915    11.515
+  1   -63.847    84.681    11.515
+  1   -63.847   132.203    11.515
+  1   -62.256   156.892    11.515
+  1   -62.256    59.992    11.515
+  1   -61.145   108.442    11.515
+  1   -59.896  -157.027    11.515
+  1   -59.896    13.911    11.515
+  1   -59.190   -71.558    11.515
+  1   -58.569  -133.983    11.515
+  1   -57.929    -7.919    11.515
+  1   -57.700   179.503    11.515
+  1   -57.700    37.381    11.515
+  1   -57.071   -94.515    11.515
+  1   -57.071   -48.601    11.515
+  1   -53.659  -113.416    11.515
+  1   -53.219   -28.399    11.515
+  1   -53.158   144.446    11.515
+  1   -53.158    72.438    11.515
+  1   -52.990    91.488    11.515
+  1   -52.990   125.396    11.515
+  1   -50.886   161.552    11.515
+  1   -50.886    55.332    11.515
+  1   -50.572   108.442    11.515
+  1   -50.370  -146.009    11.515
+  1   -50.158    21.159    11.515
+  1   -50.158  -164.275    11.515
+  1   -49.633     3.707    11.515
+  1   -49.200   -81.079    11.515
+  1   -49.200   -62.037    11.515
+  1   -47.802  -128.615    11.515
+  1   -46.765   -98.374    11.515
+  1   -46.765   -44.742    11.515
+  1   -46.621   -12.538    11.515
+  1   -45.858   178.539    11.515
+  1   -45.858    38.345    11.515
+  1   -43.228   136.531    11.515
+  1   -43.228    80.353    11.515
+  1   -42.918  -113.523    11.515
+  1   -42.478   122.128    11.515
+  1   -42.478    94.756    11.515
+  1   -42.451   -28.539    11.515
+  1   -42.163   150.861    11.515
+  1   -42.163    66.023    11.515
+  1   -40.216   -71.558    11.515
+  1   -40.124  -169.022    11.515
+  1   -40.124    25.906    11.515
+  1   -40.000   108.442    11.515
+  1   -39.795    11.892    11.515
+  1   -39.795  -155.008    11.515
+  1   -39.404   164.358    11.515
+  1   -39.404    52.526    11.515
+  1   -39.225   -86.666    11.515
+  1   -39.225   -56.450    11.515
+  1   -38.752  -139.733    11.515
+  1   -38.083    -2.632    11.515
+  1   -36.372  -100.978    11.515
+  1   -36.372   -42.138    11.515
+  1   -35.766  -126.719    11.515
+  1   -35.224    40.300    11.515
+  1   -35.224   176.584    11.515
+  1   -35.193   -15.537    11.515
+  1   -32.872   128.206    11.515
+  1   -32.872    88.678    11.515
+  1   -32.787   141.797    11.515
+  1   -32.787    75.087    11.515
+  1   -31.209   101.198    11.515
+  1   -31.209   115.686    11.515
+  1   -31.114   154.309    11.515
+  1   -31.114    62.575    11.515
+  1   -30.606   -29.169    11.515
+  1   -30.606  -113.947    11.515
+  1   -29.978  -160.321    11.515
+  1   -29.978    17.205    11.515
+  1   -29.947  -172.530    11.515
+  1   -29.947    29.414    11.515
+  1   -29.202   -77.729    11.515
+  1   -29.202   -65.387    11.515
+  1   -28.893     5.124    11.515
+  1   -28.893  -148.240    11.515
+  1   -27.507   167.827    11.515
+  1   -27.507    49.057    11.515
+  1   -27.464   -91.061    11.515
+  1   -27.464   -52.055    11.515
+  1   -26.761    -6.591    11.515
+  1   -26.761  -136.525    11.515
+  1   -25.936  -102.961    11.515
+  1   -25.936   -40.155    11.515
+  1   -23.708   -17.787    11.515
+  1   -23.708  -125.329    11.515
+  1   -22.966   178.589    11.515
+  1   -22.966    38.295    11.515
+  1   -22.625   108.442    11.515
+  1   -22.584   133.800    11.515
+  1   -22.584    83.084    11.515
+  1   -22.173   145.938    11.515
+  1   -22.173    70.946    11.515
+  1   -22.083    95.215    11.515
+  1   -22.083   121.669    11.515
+  1   -20.030  -168.476    11.515
+  1   -20.030    25.360    11.515
+  1   -19.892   -28.411    11.515
+  1   -19.892  -114.705    11.515
+  1   -19.654  -157.067    11.515
+  1   -19.654    13.951    11.515
+  1   -19.270   158.522    11.515
+  1   -19.270    58.362    11.515
+  1   -18.283   -71.558    11.515
+  1   -18.031  -145.128    11.515
+  1   -18.031     2.012    11.515
+  1   -17.961   -82.679    11.515
+  1   -17.961   -60.437    11.515
+  1   -17.013   -93.721    11.515
+  1   -17.013   -49.395    11.515
+  1   -15.581    -8.915    11.515
+  1   -15.581  -134.201    11.515
+  1   -15.541   170.609    11.515
+  1   -15.541    46.275    11.515
+  1   -15.477  -104.618    11.515
+  1   -15.477   -38.498    11.515
+  1   -13.074  -177.014    11.515
+  1   -13.074    33.898    11.515
+  1   -12.950   102.074    11.515
+  1   -12.950   114.810    11.515
+  1   -12.858   138.593    11.515
+  1   -12.858    78.291    11.515
+  1   -12.766    89.970    11.515
+  1   -12.766   126.914    11.515
+  1   -11.854   -21.003    11.515
+  1   -11.854  -122.113    11.515
+  1   -11.145   151.190    11.515
+  1   -11.145    65.694    11.515
+  1   -10.033  -164.909    11.515
+  1   -10.033    21.793    11.515
+  1    -8.745  -153.602    11.515
+  1    -8.745    10.486    11.515
+  1    -7.970   -76.524    11.515
+  1    -7.958   -65.678    11.515
+  1    -7.849   163.195    11.515
+  1    -7.849    53.689    11.515
+  1    -7.784  -112.028    11.515
+  1    -7.784   -31.088    11.515
+  1    -7.345   -88.936    11.515
+  1    -7.345   -54.180    11.515
+  1    -7.126  -142.383    11.515
+  1    -7.126    -0.733    11.515
+  1    -6.084   -43.444    11.515
+  1    -6.084   -99.672    11.515
+  1    -5.071   174.739    11.515
+  1    -4.414    42.768    11.515
+  1    -3.651   108.442    11.515
+  1    -3.620   -12.386    11.515
+  1    -3.620  -130.730    11.515
+  1    -3.576    96.770    11.515
+  1    -3.576   120.114    11.515
+  1    -3.353    85.102    11.515
+  1    -3.353   131.782    11.515
+  1    -2.328  -173.131    11.515
+  1    -1.732   143.928    11.515
+  1    -1.732    72.956    11.515
+  1    -1.672    30.617    11.515
+  1    -0.033   156.053    11.515
+  1    -0.033    60.831    11.515
+  1     0.000  -161.558    11.515
+  1     0.000    18.442    11.515
+  1     0.033  -119.169    11.515
+  1     0.033   -23.947    11.515
+  1     1.468  -150.264    11.515
+  1     1.468     7.148    11.515
+  1     1.732   -36.072    11.515
+  1     1.732  -107.044    11.515
+  1     2.108   -70.667    11.515
+  1     2.749   167.369    11.515
+  1     2.784   -59.448    11.515
+  1     2.793   -82.776    11.515
+  1     3.353   -48.218    11.515
+  1     3.353   -94.898    11.515
+  1     3.408    50.136    11.515
+  1     4.219  -138.118    11.515
+  1     4.219    -4.998    11.515
+  1     5.424   178.737    11.515
+  1     6.084    80.328    11.515
+  1     6.084   136.556    11.515
+  1     6.729    39.366    11.515
+  1     7.189   103.015    11.515
+  1     7.189   113.869    11.515
+  1     7.345    91.064    11.515
+  1     7.345   125.820    11.515
+  1     7.784   148.912    11.515
+  1     7.784    67.972    11.515
+  1     7.849  -126.311    11.515
+  1     7.849   -16.805    11.515
+  1     7.886  -169.799    11.515
+  1     8.570    27.281    11.515
+  1    10.033  -158.207    11.515
+  1    10.033    15.091    11.515
+  1    10.310  -114.620    11.515
+  1    10.999   -27.900    11.515
+  1    11.854    57.887    11.515
+  1    11.854   158.997    11.515
+  1    12.034  -102.092    11.515
+  1    12.164   -64.732    11.515
+  1    12.185   -77.458    11.515
+  1    12.753   -40.485    11.515
+  1    12.766   -53.086    11.515
+  1    12.766   -90.030    11.515
+  1    13.074  -146.102    11.515
+  1    13.074     2.986    11.515
+  1    14.712   170.823    11.515
+  1    15.349    46.706    11.515
+  1    15.477    75.382    11.515
+  1    15.477   141.502    11.515
+  1    15.541  -133.725    11.515
+  1    15.541    -9.391    11.515
+  1    17.013    86.279    11.515
+  1    17.013   130.605    11.515
+  1    17.183  -178.275    11.515
+  1    17.848    35.803    11.515
+  1    17.961    97.321    11.515
+  1    17.961   119.563    11.515
+  1    18.283   108.442    11.515
+  1    18.404  -121.916    11.515
+  1    19.075   -20.558    11.515
+  1    19.654    22.933    11.515
+  1    19.654  -166.049    11.515
+  1    19.892    65.295    11.515
+  1    19.892   151.589    11.515
+  1    20.030  -154.640    11.515
+  1    20.030    11.524    11.515
+  1    20.519  -109.763    11.515
+  1    21.769   -97.342    11.515
+  1    21.911   -32.161    11.515
+  1    22.083   -58.331    11.515
+  1    22.083   -84.785    11.515
+  1    22.525   -45.238    11.515
+  1    22.625   -71.558    11.515
+  1    22.966  -141.705    11.515
+  1    22.966    -1.411    11.515
+  1    23.708    54.671    11.515
+  1    23.708   162.213    11.515
+  1    25.936   139.845    11.515
+  1    25.936    77.039    11.515
+  1    26.761    43.475    11.515
+  1    26.761   173.409    11.515
+  1    27.464    88.939    11.515
+  1    27.464   127.945    11.515
+  1    27.507  -130.943    11.515
+  1    27.507   -12.173    11.515
+  1    28.405   115.065    11.515
+  1    28.451   102.846    11.515
+  1    28.893    31.760    11.515
+  1    28.893  -174.876    11.515
+  1    29.947     7.470    11.515
+  1    29.947  -150.586    11.515
+  1    29.978    19.679    11.515
+  1    29.978  -162.795    11.515
+  1    30.257  -117.762    11.515
+  1    30.606   150.831    11.515
+  1    30.606    66.053    11.515
+  1    30.918   -24.660    11.515
+  1    31.209   -64.314    11.515
+  1    31.209   -78.802    11.515
+  1    31.972  -105.338    11.515
+  1    32.694   -37.133    11.515
+  1    32.872   -51.794    11.515
+  1    32.872   -91.322    11.515
+  1    34.888   163.422    11.515
+  1    34.888    53.462    11.515
+  1    35.224    -3.416    11.515
+  1    35.224  -139.700    11.515
+  1    36.372   137.862    11.515
+  1    36.372    79.022    11.515
+  1    37.895    40.639    11.515
+  1    37.895   176.245    11.515
+  1    38.374   123.944    11.515
+  1    38.520    94.062    11.515
+  1    38.668   109.583    11.515
+  1    39.404   -15.642    11.515
+  1    39.404  -127.474    11.515
+  1    39.795    24.992    11.515
+  1    39.795  -168.108    11.515
+  1    40.000   -71.558    11.515
+  1    40.124    10.978    11.515
+  1    40.124  -154.094    11.515
+  1    42.013   150.414    11.515
+  1    42.013    66.470    11.515
+  1    42.163   -29.139    11.515
+  1    42.163  -113.977    11.515
+  1    42.478   -57.872    11.515
+  1    42.478   -85.244    11.515
+  1    43.228   -43.469    11.515
+  1    43.228   -99.647    11.515
+  1    45.858    -1.461    11.515
+  1    45.858  -141.655    11.515
+  1    46.051    51.866    11.515
+  1    46.051   165.018    11.515
+  1    46.765   135.258    11.515
+  1    46.765    81.626    11.515
+  1    48.372   118.514    11.515
+  1    48.483    99.723    11.515
+  1    49.538    34.543    11.515
+  1    49.538  -177.659    11.515
+  1    50.158    15.725    11.515
+  1    50.158  -158.841    11.515
+  1    50.572   -71.558    11.515
+  1    50.586  -126.016    11.515
+  1    51.464   -17.338    11.515
+  1    52.754   150.311    11.515
+  1    52.754    66.573    11.515
+  1    52.990   -54.604    11.515
+  1    52.990   -88.512    11.515
+  1    53.064  -109.061    11.515
+  1    53.886   -34.692    11.515
+  1    57.071   131.399    11.515
+  1    57.071    85.485    11.515
+  1    57.181  -143.965    11.515
+  1    57.708    46.450    11.515
+  1    57.708   170.434    11.515
+  1    58.080     1.048    11.515
+  1    59.190   108.442    11.515
+  1    59.896    22.973    11.515
+  1    59.896  -166.089    11.515
+  1    61.145   -71.558    11.515
+  1    61.738  -123.638    11.515
+  1    63.481   -20.273    11.515
+  1    63.940   -97.332    11.515
+  1    64.680   -46.984    11.515
+  1    65.069    66.085    11.515
+  1    65.069   150.799    11.515
+  1    67.166   124.578    11.515
+  1    67.166    92.306    11.515
+  1    67.818  -147.254    11.515
+  1    68.710     4.553    11.515
+  1    68.915    35.958    11.515
+  1    68.915  -179.074    11.515
+  1    71.717   -71.558    11.515
+  1    73.177  -112.860    11.515
+  1    74.003   -31.437    11.515
+  1    75.765    63.236    11.515
+  1    75.765   153.648    11.515
+  1    76.565   108.442    11.515
+  1    79.862    14.128    11.515
+  1    79.862  -157.244    11.515
+  1    82.290   -71.558    11.515
+  1    87.138   108.442    11.515
+HPAR   2: SPHERICAL HARMONICS,  0
+STRU   1:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU   2:  1
+  1.3553E-02 -1.3836E-02 -1.7430E-02 -1.4383E-02  2.8553E-02 -4.9061E-02
+  1.1657E-02  5.4677E-02  2.6425E-02  1.6032E-03  3.7064E-02  2.1536E-02
+ -3.2900E-02  2.1689E-02 -3.3315E-02 -4.0317E-03 -2.7240E-02  5.4915E-02
+ -2.5748E-03  2.9004E-02 -1.5031E-02  5.6438E-03  2.3476E-02 -5.3267E-02
+  1.7701E-02 -5.9067E-03 -5.0497E-02 -1.7629E-02 -1.9090E-02  9.3190E-03
+  3.4615E-02 -2.2056E-02 -5.9802E-02  2.4867E-02 -4.7285E-02  2.9474E-02
+ -1.3254E-02 -3.8324E-02  1.8277E-02 -3.2600E-03 -8.0984E-03  1.2492E-03
+ -2.4334E-02  3.4675E-02 -9.6517E-03 -4.8955E-02  4.4167E-02  1.0489E-02
+  6.4070E-03  4.7180E-03 -3.2729E-02  3.8654E-02 -1.6738E-03 -1.4920E-02
+ -5.0206E-02 -1.4283E-02  1.8606E-03 -2.8420E-02  2.2504E-02  2.1981E-02
+  2.9259E-02 -2.3750E-02 -1.3873E-02  3.1147E-02 -1.9658E-02 -3.9852E-03
+  8.2445E-03 -2.8456E-02 -3.5624E-02 -9.5288E-03  3.3757E-02 -6.6595E-03
+  4.7374E-02 -2.0585E-02 -5.4455E-03 -2.0028E-03 -6.3722E-03 -3.2196E-02
+ -5.5966E-02 -2.0142E-02  1.2636E-03  4.4057E-02 -1.9796E-02  2.3456E-02
+  3.5235E-02 -1.5904E-02 -2.2549E-03  1.3029E-02 -3.4248E-02  9.2215E-03
+  4.1310E-02  4.1481E-02  6.5786E-03  2.2074E-02  1.4730E-02 -2.9899E-02
+  2.1487E-02  2.1594E-02  1.0216E-02 -3.4118E-02  4.8667E-02 -7.1941E-03
+ -2.7498E-02 -1.4282E-02  1.2067E-02  6.0533E-03  1.0673E-03 -5.0075E-02
+  3.1029E-02 -7.5194E-03 -3.2146E-02  4.6752E-03 -7.6241E-03 -5.2893E-02
+  8.4606E-03  7.3921E-02  3.3804E-02  1.9925E-02 -1.8189E-02 -5.4388E-02
+ -3.9753E-02 -6.5602E-03  1.2776E-02  2.0487E-02 -4.0849E-02  1.9039E-02
+  4.7625E-02 -3.5354E-03 -2.6161E-02  1.4533E-02  3.3015E-02 -3.5327E-02
+ -1.4225E-02 -3.5427E-02  1.6672E-02  7.5901E-03 -1.6624E-03 -2.3691E-02
+ -7.9750E-03  3.1006E-02  1.7523E-02  5.3667E-02  4.9749E-02 -4.1303E-02
+ -1.8802E-02  8.9019E-03  6.0754E-03 -2.8587E-02 -1.5138E-02  8.9029E-03
+  1.5586E-02  2.6536E-02  1.3044E-02  3.0863E-02  2.1080E-02 -1.5129E-02
+  5.3871E-04 -5.4791E-02  3.4070E-02 -2.3452E-02 -6.4325E-03 -3.4934E-03
+ -3.8835E-03  3.0133E-02 -2.1254E-02  3.7065E-02  1.9397E-02 -3.0354E-02
+ -2.9636E-02 -3.9596E-03  3.1659E-02 -1.1577E-02  5.7900E-03 -3.6420E-02
+  1.2746E-02 -5.2680E-02 -3.8393E-02  7.7071E-03 -2.9828E-02 -4.1864E-02
+ -4.7584E-03  2.6506E-02 -5.8318E-04 -1.3742E-02  2.0114E-03  1.1033E-02
+ -4.4103E-02 -2.4251E-03  6.1046E-03  4.0630E-02 -1.9374E-03 -3.8468E-02
+  3.1700E-02 -2.9575E-02  8.3895E-02  1.5140E-03  2.4757E-02 -2.6897E-02
+  7.3841E-02  2.8528E-02 -4.6880E-02 -2.2279E-02  7.5570E-03 -6.3145E-02
+ -5.3929E-02  6.7608E-02  3.4711E-02 -1.5317E-02  3.3352E-02  3.0320E-02
+  3.1597E-02  9.2913E-03 -6.2358E-03  2.6122E-02  8.9416E-03 -4.5471E-02
+ -6.0213E-03 -5.9707E-02 -3.8276E-03  5.5399E-03  1.6087E-03 -1.0592E-02
+  9.5186E-03 -5.2347E-03  3.0556E-02 -1.4272E-02 -3.6360E-02 -8.6656E-02
+ -1.4197E-01  2.1695E-02  1.2780E-02  8.6927E-02  1.0585E-01  3.3508E-02
+ -3.5885E-02  3.0706E-02 -8.3111E-02  3.9272E-02  2.2043E-04 -4.4882E-03
+  1.3946E-02 -2.6581E-02  4.0091E-02  5.8757E-02  2.0848E-02 -2.3639E-02
+ -5.7424E-02  1.0768E-02  2.5885E-02  2.0840E-02  7.1706E-03 -4.3827E-02
+ -4.2344E-04  1.2959E-02  1.5657E-02  1.0248E-02 -1.1523E-02 -2.6506E-03
+  1.1416E-01  1.1083E-02  5.2527E-02 -1.2364E-01 -4.0830E-02 -1.8291E-02
+  3.5209E-02  4.5280E-02 -4.9338E-02  3.0879E-04 -3.0887E-02  4.1165E-02
+ -3.5241E-02  1.7012E-02  4.9455E-02  4.2678E-03  2.5798E-02 -1.0551E-01
+ -1.9797E-03  1.0891E-03  9.6896E-03 -7.8611E-03 -1.3319E-02  1.3614E-02
+  2.7799E-02 -4.9010E-03  1.2533E-02 -4.5839E-02  2.9842E-02 -3.3939E-02
+ -2.9123E-02 -5.5448E-02  2.4012E-02 -1.1314E-02  3.6933E-02 -1.1328E-02
+  3.6656E-02  8.8334E-03  1.1041E-02 -1.6693E-02  5.4753E-02 -3.0764E-02
+  9.8596E-03  2.9830E-02  2.5068E-02 -6.4797E-02 -5.9780E-02 -4.4752E-03
+ -3.8255E-02  5.0036E-02  5.3718E-02  5.3431E-02 -3.0920E-03 -3.5422E-03
+ -8.1899E-04 -2.4956E-02 -1.9304E-02  2.6376E-02 -8.5394E-02  3.5406E-02
+  1.5837E-02 -3.0820E-02  3.6048E-02  4.2633E-02 -4.4935E-02  2.6208E-03
+ -1.0949E-02  1.6698E-04 -1.0047E-02  7.5014E-03  8.4523E-02 -6.2775E-03
+ -5.8450E-03  1.2793E-02 -4.3143E-02  1.1371E-02 -7.5037E-03  5.6551E-02
+  1.4294E-02  1.3437E-02 -1.4431E-02  2.5796E-02  3.5566E-02 -4.2236E-02
+ -3.6134E-02  6.0594E-03 -4.6589E-03 -4.0288E-02  2.0912E-02  7.9294E-03
+ -9.1313E-04 -2.2591E-02  1.0356E-02 -4.5214E-03  6.9285E-02  4.2126E-02
+  5.0241E-03 -1.5251E-02  1.7895E-02  1.1641E-02  5.6291E-02  2.4886E-02
+ -2.2122E-02 -5.3432E-02
+STRU   3:  1
+  2.5711E-02  8.5605E-04 -8.7147E-03 -2.9358E-02  3.9295E-03 -3.4756E-02
+  2.3447E-02  4.1279E-02  4.5353E-02  4.1036E-03  3.7578E-02  9.9680E-03
+ -3.4742E-02  2.0671E-02 -2.3677E-02  9.6274E-03 -3.1006E-02  3.7227E-02
+ -2.1158E-04  1.3800E-02 -2.7887E-02  1.1665E-02  1.8075E-02 -5.0272E-02
+  1.6101E-02 -1.8742E-02 -4.5007E-02 -1.0845E-02 -5.3787E-03  6.2425E-03
+  2.2933E-02 -2.7541E-02 -4.7232E-02  1.8746E-02 -3.7259E-02  1.9066E-02
+ -1.3812E-02 -1.5246E-02  1.3428E-02 -6.2763E-03 -2.7023E-02  1.0582E-03
+ -1.6438E-02  2.3578E-02 -2.2721E-02 -3.4540E-02  3.6911E-02  3.7116E-04
+  7.1789E-03  1.5207E-02 -1.9613E-02  2.2072E-02  1.7344E-03 -3.0715E-02
+ -5.4010E-02 -2.5397E-02 -7.2707E-04 -9.5038E-03  1.1517E-02  7.5493E-03
+  3.0119E-02 -2.2190E-02 -1.2220E-02  1.6864E-02 -2.3653E-02  1.6287E-03
+  1.0480E-02 -1.4684E-02 -4.3226E-02 -1.9787E-02  1.5115E-02 -5.7086E-03
+  3.9720E-02 -1.6911E-02 -7.9864E-04 -2.0788E-03  1.7317E-03 -2.9115E-02
+ -6.2646E-02 -1.1056E-02 -7.2106E-03  5.3850E-02 -1.7059E-02  1.1415E-02
+  4.3351E-02 -2.4184E-02 -2.7517E-03  1.8905E-02 -3.6380E-02  2.2943E-03
+  3.5219E-02  4.3470E-02  1.0815E-02  2.5815E-03  1.9463E-02 -2.4076E-02
+  1.0662E-02  1.6159E-02  1.6062E-02 -2.0672E-02  3.7896E-02 -5.5657E-03
+ -2.3877E-02 -2.0245E-02  6.9980E-03  9.1719E-03 -7.0944E-03 -5.9411E-02
+  1.0009E-02 -8.2013E-03  2.9354E-03  3.6222E-03 -2.2186E-02 -4.1842E-02
+  1.6290E-02  5.1414E-02  3.2023E-02  2.3399E-02 -2.2473E-02 -4.2158E-02
+ -3.7029E-02 -2.3142E-03  1.3707E-02  3.1959E-04 -2.7333E-02  1.2845E-02
+  3.4344E-02 -1.4233E-02 -1.3566E-02  1.0508E-02  2.1115E-02 -3.9041E-02
+ -1.4498E-02 -2.8779E-02  9.3631E-03 -4.3936E-03  5.1451E-03 -2.6292E-02
+  7.8900E-03  2.9150E-02  1.8345E-02  5.8311E-02  3.9418E-02 -4.4943E-02
+ -6.8653E-03  7.0091E-03 -4.3304E-03 -3.4241E-02 -1.4988E-02  5.7782E-03
+  1.4061E-02  1.9676E-02  7.8429E-03  3.6530E-02  2.0062E-02 -2.2850E-02
+  5.4671E-03 -5.3211E-02  3.4924E-02 -3.2997E-02  1.4331E-02 -1.7243E-03
+  4.5762E-03  2.3506E-02 -1.2645E-02  3.6353E-02  9.0179E-03 -2.8169E-02
+ -2.6117E-02 -7.1355E-03  2.5703E-02 -1.6770E-02  1.4456E-02 -8.3300E-03
+  1.2365E-02 -5.6741E-02 -3.4878E-02  6.4213E-03  1.4931E-02 -3.9316E-02
+  1.2520E-03  4.0668E-02  2.9622E-03 -2.6286E-02 -5.0425E-03 -5.7500E-04
+ -3.4978E-02 -1.2597E-02  1.5108E-02  2.5220E-02  6.2350E-03 -3.5466E-02
+  2.5456E-02 -3.4623E-02  6.1256E-02  2.9863E-03  1.4508E-02 -1.7719E-02
+  4.8349E-02  1.8493E-02 -3.1747E-02 -1.3261E-02 -5.1669E-03 -4.9404E-02
+ -4.3331E-02  4.7265E-02  3.5509E-02 -2.0856E-02  2.5416E-02  2.5868E-02
+  2.4019E-02  3.2191E-03 -1.0090E-02  1.5440E-02  1.6222E-02 -3.8291E-02
+ -1.4479E-02 -5.2175E-02  5.0171E-03 -5.4583E-03 -1.8470E-02 -2.1441E-03
+  2.3758E-03  7.9779E-04  2.8779E-02 -2.5243E-03 -3.3416E-02 -6.4259E-02
+ -8.5598E-02  1.1744E-02  2.2392E-02  8.1450E-02  6.7027E-02  2.5731E-02
+ -4.5024E-02  8.8836E-03 -4.2642E-02 -4.1286E-03  5.7110E-03 -1.2690E-02
+  1.3469E-02 -1.1523E-02  1.7611E-02  4.6462E-02  1.6958E-02 -2.9027E-02
+ -6.1251E-02  9.8994E-03  2.1703E-02  1.7958E-03  1.7720E-02 -2.3123E-02
+  8.9396E-04  7.6082E-03  2.2743E-02  2.5007E-02 -1.0429E-03 -4.0620E-03
+  9.0110E-02  1.7982E-02  4.0620E-02 -7.3861E-02 -3.3327E-02 -1.3799E-02
+  2.0693E-02  2.6578E-02 -1.4847E-02  1.7220E-03 -2.1080E-02  2.9340E-02
+ -2.9312E-02  1.5697E-02  3.2093E-02 -1.2317E-02  2.4090E-02 -6.2940E-02
+  1.2886E-02  1.1403E-02  5.2265E-03 -1.4864E-02 -2.8195E-02  4.9110E-03
+  3.7137E-02 -1.0905E-02  3.2233E-03 -3.2089E-02  3.4922E-02 -1.1246E-02
+  5.7325E-04 -4.9581E-02  1.9913E-02 -2.3648E-02  3.4226E-02  4.7360E-03
+  1.6257E-02  7.3722E-04  8.8025E-03 -6.0952E-03  4.0860E-02 -2.8329E-02
+  8.1644E-03  2.8495E-02  2.7531E-02 -5.8760E-02 -5.9457E-02  9.9988E-04
+ -2.5844E-02  4.7622E-02  6.0066E-02  3.4061E-02 -2.0564E-02  2.3207E-02
+  3.8174E-03 -3.1523E-02 -6.0823E-03  2.7494E-02 -5.7379E-02  3.6263E-02
+  7.5553E-04 -1.6080E-02  2.3713E-02  4.1918E-02 -3.5430E-02  1.6250E-02
+ -1.8511E-02  1.1025E-02 -6.5318E-03  2.0821E-02  7.0405E-02 -9.2951E-03
+  4.5142E-03  2.6116E-02 -3.5226E-02  1.7821E-02 -8.0189E-03  3.4231E-02
+  2.3917E-02  3.5448E-02 -2.2592E-02  2.7738E-02  4.1435E-02 -5.1352E-02
+ -1.0631E-02  3.0821E-03  1.5569E-02 -3.0237E-02  3.9584E-02  1.6482E-02
+  7.0175E-03 -2.1913E-02  2.7785E-02  2.3429E-03  5.1215E-02  3.6300E-02
+  1.8028E-02  1.8378E-02 -5.2949E-05  8.2760E-03  1.5676E-02  2.3137E-02
+ -2.4513E-03 -3.7391E-02
+STRU   4:  1
+  3.6026E-02  3.4322E-02  2.4982E-02 -3.5983E-02 -4.1962E-02  2.5037E-02
+  2.8207E-02  9.3004E-03  5.9882E-02  2.1098E-02 -4.3571E-03 -2.0043E-03
+ -2.6066E-02  9.4570E-03 -6.2854E-03  3.6972E-02 -1.8405E-02 -2.7334E-02
+  9.3982E-03 -7.0123E-03 -3.8629E-02  1.2631E-02 -2.0202E-02 -5.7458E-03
+ -6.3940E-04 -3.0661E-02 -1.1464E-02 -3.0601E-04 -2.1427E-03  2.2757E-03
+ -1.0472E-02 -2.7258E-02  1.2649E-03 -1.8096E-03 -2.5640E-03 -1.2640E-02
+ -2.0811E-02  6.1146E-03 -1.1220E-02 -1.4328E-02 -1.6289E-02 -8.1394E-03
+  1.6104E-03 -1.3912E-02 -2.6647E-02  3.1391E-03  1.6223E-02 -2.1406E-02
+ -9.5803E-03  1.4104E-02  4.5214E-03 -2.9179E-04  5.3893E-03 -1.0538E-02
+ -2.4553E-02 -3.4179E-02 -1.3175E-02  2.1616E-02 -2.0632E-02 -3.6829E-02
+  3.6501E-03 -1.1339E-02 -6.5795E-03 -1.7274E-02 -2.4396E-02  4.0561E-04
+ -6.7067E-03  9.0455E-04 -2.7584E-02 -2.4049E-02 -1.4955E-02  9.8423E-03
+ -5.6855E-03 -4.6276E-03  5.3907E-03 -6.9348E-03  2.2127E-03  3.3681E-03
+ -2.5380E-02  1.2070E-02 -1.4880E-02  3.4496E-02 -1.2288E-02 -2.1852E-02
+  4.8505E-02 -9.5536E-03 -1.4882E-04  1.0314E-03 -1.0410E-02  7.7024E-03
+  5.4954E-03 -1.1391E-02  1.5978E-02 -3.8521E-02  2.4033E-02 -1.7634E-03
+ -2.4885E-02 -2.6690E-02  9.5933E-03  1.2890E-02 -2.5889E-03 -9.8431E-03
+ -9.2071E-03 -2.5784E-02 -9.4398E-04  1.3109E-03 -2.7029E-02 -1.6331E-02
+ -1.9526E-02 -8.2469E-03  7.9423E-02 -1.2407E-02 -2.7979E-02  7.0917E-03
+  1.5800E-02 -2.5108E-03  8.7313E-03  2.4193E-02 -1.1696E-02  6.1147E-04
+ -2.2566E-02  5.8330E-03 -1.5288E-02 -4.4849E-02  1.7485E-02 -9.8480E-03
+ -8.0020E-03 -3.2048E-02  1.6872E-02  5.9473E-03 -3.8198E-03 -1.3556E-02
+ -1.2269E-02  4.6830E-03  6.1963E-03 -2.1043E-02  1.7765E-02 -3.4440E-03
+  2.5690E-02 -2.2816E-04  1.9106E-03  1.9640E-02 -5.6869E-03 -1.6868E-02
+  2.8156E-02 -9.0664E-03 -1.3458E-02 -2.0088E-02 -9.7334E-03 -1.9963E-02
+  8.0076E-03 -9.5789E-03  4.2495E-03  2.1549E-02  1.3880E-02 -7.8703E-03
+ -6.9546E-03 -2.8460E-02  1.5010E-02 -1.6522E-02  4.5700E-02 -7.1108E-03
+  4.3246E-03  9.5798E-03 -6.7364E-03 -1.7851E-02 -2.4470E-02  6.1220E-03
+ -1.0731E-02 -1.3191E-02 -1.4953E-02 -2.8346E-03  1.2793E-02  3.9377E-02
+  2.1784E-03  4.3751E-03 -8.6859E-03  6.9109E-03  2.1174E-02 -2.4272E-02
+  4.9018E-03  4.7450E-02 -1.3056E-02 -3.0057E-02 -1.3930E-02 -1.2891E-02
+ -2.4985E-03 -3.4383E-03  1.7746E-02 -1.4096E-02  2.8925E-02 -1.3435E-02
+  6.4612E-03 -2.0033E-02  6.0741E-03 -8.9126E-03 -4.5278E-03  3.3701E-03
+ -2.1154E-02 -4.0413E-02 -9.0678E-04  1.7674E-02 -4.1733E-02  1.4131E-03
+  3.1881E-02 -3.6575E-02  2.8928E-03 -1.3393E-02 -2.8546E-03 -5.9251E-03
+ -1.0548E-04 -1.3131E-02 -6.2794E-03 -1.6030E-02  1.6835E-03 -1.4367E-02
+ -4.9643E-03 -3.6059E-02  1.9141E-02 -5.1598E-03 -3.5851E-02  2.8673E-03
+ -1.7156E-03 -2.7593E-03  1.6332E-02  3.5851E-03 -2.0251E-02  2.5530E-02
+  6.6317E-02 -2.1507E-02  5.5145E-02 -6.4781E-04 -6.0819E-02 -6.3106E-03
+ -3.8276E-02 -1.4992E-02  4.7310E-02 -6.1316E-02 -1.9659E-03 -2.6216E-02
+  9.7456E-03  2.8671E-04 -4.3336E-02 -7.5521E-03 -6.1946E-03 -1.9561E-02
+ -2.2230E-02  2.3387E-02  2.7504E-03 -1.1352E-02 -1.3802E-02  1.0216E-02
+  8.0168E-03 -4.9169E-04  2.6060E-02  6.4860E-02  9.8143E-03 -2.3201E-02
+  8.7793E-03  7.4105E-03 -2.8176E-03  5.8066E-02  1.0972E-02 -2.2667E-02
+ -1.0532E-02 -2.4628E-02  6.4006E-02  6.2699E-03  2.2799E-04 -6.3177E-03
+ -1.6118E-02  1.1855E-02 -1.7934E-02 -2.7450E-02  6.6512E-03  2.9398E-02
+  1.7146E-02  4.1581E-04  1.0685E-02 -2.0312E-02 -3.1544E-02 -1.6761E-02
+  3.0652E-02 -1.4012E-02 -8.9525E-03  1.8795E-02  1.8928E-02  3.9610E-02
+  6.5972E-02 -1.2055E-02  1.5780E-03 -3.5593E-02  1.5366E-02  2.8399E-02
+ -3.6815E-02 -3.8467E-02  2.7231E-03 -1.2766E-04 -6.6195E-03 -6.9593E-03
+  2.6112E-03 -9.6472E-03  1.6989E-02 -8.9141E-03  7.3296E-03  2.4660E-02
+  2.6883E-02  6.2460E-03  1.8818E-02 -1.1026E-02 -4.8641E-02  5.6618E-02
+  7.6235E-04 -6.8797E-03  9.3647E-03  4.8654E-03  1.1274E-02  3.4061E-02
+ -2.4410E-02  1.1934E-02 -1.6801E-02  6.3709E-03  2.2302E-02  1.7421E-02
+ -5.8204E-03  2.4389E-02  1.3274E-02  5.3592E-02 -3.5089E-03 -1.6897E-02
+ -1.9378E-03  4.3045E-02 -8.9140E-03  3.7551E-02 -4.5997E-03 -1.9755E-03
+  2.9782E-02  5.8454E-02 -5.3458E-03  2.8980E-02  2.3422E-02 -4.2001E-02
+  4.8467E-02  4.1775E-03  2.2545E-02  3.4137E-03  5.0217E-02  1.7594E-02
+  3.0750E-02 -1.0532E-02  4.3038E-02 -6.4383E-03 -4.1361E-03  2.5761E-02
+  3.4485E-02  7.0037E-02 -1.7393E-02  5.2536E-04 -4.4859E-02 -1.1917E-02
+  4.2280E-02 -8.9437E-03
+STRU   5:  1
+  2.4113E-02  1.5182E-02  2.4648E-02 -1.7399E-02 -3.5751E-02  4.4221E-02
+  9.6857E-03  1.8580E-03  2.4463E-02  3.8149E-02 -3.2548E-02  1.0311E-02
+ -2.5048E-03  3.5139E-05 -9.7323E-03  4.6837E-02 -5.0566E-03 -3.3611E-02
+  1.3863E-03 -1.4884E-02 -2.8089E-02  6.3319E-03 -3.1000E-02  7.3334E-03
+ -3.8161E-03 -1.7659E-02  1.0958E-02  3.0683E-04 -1.7096E-02 -9.7257E-04
+ -1.2261E-02 -2.6404E-02  3.7243E-03  9.0157E-04  4.7476E-03 -1.2916E-02
+ -9.0517E-03  1.2803E-02 -1.2315E-02 -7.0312E-03  9.8462E-04 -1.7891E-03
+  1.0034E-02 -1.7151E-02 -7.2113E-03  4.9864E-03  1.8179E-02 -1.1003E-02
+ -1.1875E-02  1.3498E-02  6.8774E-03  5.5928E-03  2.0290E-02  2.9145E-03
+ -6.5579E-03 -1.8540E-02 -1.5086E-02  8.9510E-03 -2.1598E-02 -1.1162E-02
+ -5.5416E-03  4.9890E-03 -8.7900E-03 -3.0286E-02  5.5772E-03  1.0831E-03
+ -7.9704E-03 -1.8600E-02  1.0870E-03 -5.4299E-03 -1.1565E-02  1.7672E-02
+ -1.8461E-02  2.7451E-04  2.4690E-03  1.0133E-02 -5.8077E-03  1.9212E-02
+  4.6214E-03  9.4522E-03 -2.4854E-03 -2.0426E-03  1.2988E-03 -2.9782E-02
+  2.6245E-02  1.0762E-02 -1.2328E-03 -3.0477E-03 -2.7452E-03  1.7572E-02
+  1.3638E-03 -1.4031E-02  1.8256E-02 -1.5180E-02  1.6758E-02  9.2456E-03
+ -2.3005E-02 -2.1516E-02 -3.6185E-03  1.6520E-02  5.4538E-03 -2.3773E-03
+ -3.0884E-03 -9.8693E-03 -4.6742E-03 -6.4237E-03 -1.7222E-02  8.4175E-03
+ -9.6387E-03 -7.4664E-03  4.4882E-02 -2.4174E-02  3.3093E-03  2.1241E-02
+  2.0020E-02 -6.9423E-03  1.3849E-03  3.6677E-03 -3.7637E-03  2.6468E-03
+ -1.2935E-02  1.2166E-02 -1.1968E-02 -2.8901E-02  2.0712E-02  2.0070E-03
+ -1.9890E-02 -1.8588E-02  7.3077E-03  3.8970E-03 -1.8349E-02  9.3608E-03
+ -6.9212E-03  5.9602E-03  8.8943E-03 -3.5659E-03  2.4097E-02  2.5111E-03
+  1.4686E-02 -1.5468E-02  1.1513E-03 -8.1290E-03 -5.4892E-03  2.2911E-03
+  2.3031E-02  6.3828E-04  5.1259E-03 -4.5171E-03 -9.0337E-03 -9.2229E-03
+  4.8943E-03 -6.4110E-03  1.3501E-02  5.7939E-03  7.1558E-03  5.9055E-03
+ -1.7335E-02 -1.6823E-02 -4.3015E-04  6.9651E-03  3.3597E-02 -1.1686E-02
+  4.3686E-03 -5.2552E-03  3.1169E-04 -9.8558E-03 -2.0914E-02  1.7223E-02
+ -7.0021E-03 -6.9462E-03 -1.0941E-02 -1.4897E-03 -2.9388E-03  5.4502E-03
+  6.4454E-03  2.6282E-02 -5.0416E-03 -1.4780E-04  1.2229E-02  3.6511E-03
+ -4.1113E-03  1.8646E-02 -3.2635E-03 -8.4180E-03  1.6546E-03 -7.1667E-03
+  9.7135E-04  3.3098E-03  1.4606E-02 -3.5992E-02 -3.0585E-04 -1.6955E-03
+  8.7042E-03 -1.2055E-02  6.2380E-03 -9.0326E-03 -2.1641E-03  2.5121E-06
+ -1.1146E-02 -3.2375E-02 -1.1197E-02  1.1305E-02 -2.3659E-02  1.5763E-02
+  3.5429E-02 -4.6418E-02 -2.8415E-02  5.3818E-03 -1.7775E-02 -1.2556E-02
+ -5.4793E-03 -9.7780E-03  7.7053E-03 -1.6865E-02  5.4833E-03 -1.0565E-02
+  1.4194E-02 -1.1214E-02  1.1951E-02 -1.5583E-02 -1.3581E-02  2.0080E-05
+  8.0945E-03 -1.1749E-03  1.8424E-02  1.8158E-02 -1.4002E-02  2.7985E-02
+  4.8633E-02 -1.3138E-02  4.3424E-02 -3.4101E-02 -5.1611E-02 -1.1115E-02
+ -1.9562E-02 -5.9775E-03  2.9503E-02 -3.5916E-02 -1.5443E-02 -1.3693E-02
+  9.6517E-03  1.0308E-03 -3.2852E-02 -1.6944E-02 -7.1899E-03  9.2165E-04
+  1.7183E-02 -1.1918E-02 -4.7582E-03  1.5649E-03 -2.2227E-02  1.0266E-02
+  3.3256E-03 -9.5537E-04 -9.2901E-03  6.0897E-02  1.9368E-03 -1.6569E-02
+ -4.4393E-03 -9.9997E-04 -1.0343E-02  2.9529E-02  7.9150E-03 -1.0775E-02
+  7.2546E-03 -2.8425E-02  2.5238E-02  1.3195E-02  1.1042E-02  1.3094E-02
+  7.6203E-03  4.1907E-03 -1.6956E-02  6.1198E-03  1.5549E-02  3.1382E-03
+  1.3520E-03 -1.6531E-03 -6.6797E-03 -2.7941E-02 -1.0061E-02 -1.9719E-02
+  3.6755E-02  2.8392E-03 -2.7004E-02  1.2075E-02 -7.7241E-03 -2.9154E-03
+  1.3867E-02 -4.5078E-03  3.2899E-03 -1.3954E-02 -2.1428E-02  1.9306E-02
+ -3.7440E-02 -2.4180E-03 -6.4571E-03 -1.7397E-04 -1.1495E-02 -1.4214E-02
+ -2.7024E-03 -3.8108E-03  1.4098E-02  1.1120E-02  1.1314E-02  3.0229E-02
+  1.4323E-02 -7.8708E-03 -7.2641E-03 -7.8909E-04 -1.0407E-02  8.4183E-03
+  5.7796E-03  1.5604E-02  8.3049E-03 -3.4926E-02  1.1570E-02  1.6062E-02
+ -6.0199E-04  8.9581E-03 -4.9123E-03 -1.5320E-02  3.6319E-03  5.0390E-03
+  1.1096E-02  1.8243E-03  1.6336E-02  2.9276E-02 -3.3385E-03 -1.2452E-02
+ -1.7232E-02  8.8161E-03  3.1294E-03  2.0196E-02  4.5427E-04 -1.2191E-02
+  3.3503E-03  1.3717E-02  1.9334E-02  7.0213E-03 -1.0015E-04 -1.4992E-02
+  3.1490E-02  5.6150E-03  7.3599E-04  1.1212E-02  1.0942E-02  1.6926E-02
+ -2.1164E-03 -2.6124E-03  2.0402E-02 -2.4628E-02 -3.9189E-03  9.5547E-03
+  9.3106E-03  5.9439E-03 -1.2118E-02 -1.7887E-03 -1.2635E-02 -6.8694E-03
+  6.7314E-03 -2.2031E-03
+STRU   6:  1
+  1.1805E-03 -1.5104E-03  3.2037E-02 -5.2565E-03 -1.3497E-02  4.0304E-02
+ -1.4843E-02 -4.8305E-03 -1.2338E-02  3.4810E-02 -4.7609E-02  8.7044E-03
+  2.0675E-02 -1.7647E-03 -9.2842E-03  2.8524E-02  3.4557E-03 -3.3092E-02
+  4.5939E-03 -6.7017E-03 -1.1039E-02 -2.6901E-03 -3.3990E-02  5.8185E-03
+ -1.3421E-02 -1.2835E-02  2.4643E-02  3.6852E-03 -2.6540E-02 -3.2142E-03
+ -1.3077E-02 -7.7440E-03  1.3858E-03 -2.1390E-05  8.7278E-03 -1.5097E-02
+ -2.4053E-05  1.3238E-02 -1.6227E-02 -2.2358E-03  1.7434E-03 -8.4883E-03
+  1.4260E-02 -1.8040E-02  9.5057E-03 -7.7641E-03  1.9139E-02 -1.0100E-02
+ -1.1067E-02  7.3463E-03  2.2152E-03 -5.6535E-03  2.3320E-02  8.9392E-03
+  5.2808E-03 -1.2185E-02 -1.6350E-02 -1.5560E-02 -2.1863E-02  1.2033E-02
+  1.5078E-03  2.5211E-02 -7.3623E-03 -2.7809E-02  1.7636E-02 -7.4436E-03
+ -4.3740E-03 -2.3299E-02  1.0474E-02 -6.7380E-03 -2.1623E-02  5.9952E-03
+ -1.9571E-02  2.4128E-04  5.2622E-03  1.5144E-02 -4.5762E-03  1.6567E-02
+  2.0137E-02  1.7106E-02  9.7047E-03 -2.5074E-02  8.1070E-03 -2.4402E-02
+ -7.6194E-03 -1.8174E-03 -5.8798E-03 -7.7076E-03 -1.1104E-02  1.2477E-02
+  6.0211E-03 -1.3039E-02  1.3333E-02 -4.1304E-03  7.0654E-03  1.2435E-02
+ -2.1323E-02 -1.4356E-02 -1.1738E-02  1.4339E-02  9.9641E-03  4.5910E-03
+ -1.4797E-04 -5.6321E-03 -1.3320E-02 -1.3869E-02 -1.5762E-02  2.3617E-02
+ -1.0292E-03 -1.3152E-02 -1.3712E-02 -3.6100E-02  3.0086E-02  2.2893E-02
+  1.6792E-02  9.1809E-03 -1.5113E-02 -7.3683E-04  9.7365E-03  1.1307E-02
+ -4.2500E-03  7.6275E-03 -3.5774E-03 -6.7878E-03  8.7796E-03  4.4957E-03
+ -2.3113E-02 -1.1129E-02 -4.1205E-03  1.8735E-03 -1.4039E-02  1.3677E-02
+ -6.5623E-03 -2.0199E-02  8.7422E-03 -1.2737E-02  1.1557E-02  8.0332E-03
+ -4.5262E-04 -2.5614E-02 -3.1414E-03 -2.1317E-02 -1.0355E-02  2.4357E-02
+  2.6191E-03  9.5910E-03  5.2324E-03  3.7750E-03  7.5564E-03 -5.8026E-03
+  6.9161E-04 -2.8975E-03  2.2242E-02  4.2549E-03  9.4666E-03  2.4380E-02
+ -2.4379E-02 -9.7622E-03 -1.6759E-02 -2.1821E-03 -2.8160E-03 -1.0118E-02
+  6.5482E-04  7.5481E-04  1.3965E-02 -1.1611E-02 -6.0897E-03  1.6881E-02
+ -3.9390E-03 -6.4525E-03 -4.8814E-03  4.6866E-03 -1.9754E-02 -9.6970E-03
+ -1.8672E-03  4.3402E-02  2.4946E-04 -1.1253E-02 -1.1897E-02  2.7686E-02
+ -1.6115E-03 -2.9256E-03 -4.0209E-03  1.2417E-02 -1.6041E-03 -2.1425E-03
+  1.5122E-03  4.8748E-03  2.5849E-03 -3.2541E-02 -9.4044E-03 -2.1778E-04
+ -5.9740E-03 -1.4061E-02 -2.1802E-02 -2.5964E-03  3.6865E-03  7.7406E-03
+ -2.4730E-03 -3.2342E-02 -2.4535E-03  1.0521E-02 -4.5304E-03  2.8855E-02
+  3.8354E-02 -5.5151E-02 -4.4177E-02  1.9253E-02 -1.7517E-02 -1.8605E-02
+ -9.6826E-03 -5.2892E-03  1.6021E-02 -2.4236E-02 -1.3080E-03  1.0837E-02
+  2.5609E-02 -5.7974E-03  7.4353E-03  8.7446E-03  8.9940E-03 -4.8969E-04
+  8.3337E-03 -3.2734E-03  1.1782E-02  1.4467E-02  9.5331E-03  4.3917E-02
+  5.5801E-02 -1.3952E-02  1.9443E-02 -6.2096E-02 -5.5442E-02 -1.1202E-02
+ -1.8253E-02  2.7990E-03  4.8147E-03 -1.5178E-02 -1.0949E-02  1.1941E-02
+  6.6573E-03  5.8731E-03 -2.6392E-02 -2.6583E-02 -5.8408E-03  1.4866E-02
+  9.6517E-03 -6.5418E-03 -1.1165E-02  1.5462E-02 -7.5269E-03 -5.1259E-03
+ -1.5325E-02 -1.0447E-02 -3.3192E-02  2.6860E-02 -8.8794E-03 -7.8513E-04
+ -2.5915E-02 -1.5974E-02 -1.9628E-02  6.3947E-02  2.3487E-02 -6.2468E-04
+  2.6048E-02 -1.8963E-02  1.4373E-02  1.3438E-02  1.9077E-02  1.8999E-02
+  1.9932E-02 -1.1773E-02 -2.2064E-02 -1.2437E-03 -4.0446E-03  3.0572E-02
+ -2.3527E-02 -1.8977E-02  9.0049E-03 -9.8366E-03  2.0579E-02 -1.0136E-02
+  3.7901E-03  2.1867E-02 -2.8825E-03  1.1851E-02 -2.1622E-02 -1.5546E-02
+ -5.1251E-03  2.9080E-02 -9.1896E-03  5.8673E-03 -4.7964E-02  1.2473E-02
+ -2.3290E-02  1.0256E-03 -1.1425E-03 -2.6985E-03 -6.0435E-03  1.3211E-02
+  1.6343E-03 -1.6251E-02 -6.2581E-03  2.9176E-02  4.4698E-03  1.2079E-02
+ -6.3428E-03 -2.0613E-02  6.1085E-03 -1.2105E-02  3.6606E-04 -2.0391E-02
+ -6.0609E-04  1.3658E-02  2.7323E-02 -2.4316E-02  2.9071E-02  1.3968E-02
+  1.0522E-02  3.4820E-03 -3.6429E-03 -8.8846E-03 -1.9105E-02  4.2887E-03
+  2.2256E-02  4.0810E-04  1.1003E-02 -9.1739E-04  7.5592E-04 -2.2551E-02
+ -2.7378E-03 -8.0713E-03 -1.3949E-04  7.3308E-03 -7.5358E-03 -3.8310E-03
+ -9.7096E-03 -1.4372E-02  4.4613E-03 -1.5939E-02 -5.9394E-03 -1.1624E-03
+  2.1790E-02  1.4084E-02  2.9016E-03  1.5032E-02 -5.8088E-03  8.5655E-03
+ -6.1192E-03  1.4619E-03  1.1535E-03  7.5610E-03 -4.1399E-03 -2.1292E-02
+ -1.5888E-02 -1.9088E-02 -1.6291E-02  1.4861E-02  9.3874E-03  5.0975E-04
+ -1.2811E-02  2.5666E-04
+STRU   7:  1
+ -9.4320E-03 -8.2873E-03  1.4894E-02 -3.3801E-03  2.7959E-03  1.0029E-02
+ -1.9303E-02 -5.5490E-05 -4.3715E-04  2.2709E-03 -1.9860E-02  5.6340E-03
+  7.7819E-03 -2.1673E-04 -2.0115E-03 -2.1622E-03  2.9053E-03 -1.2942E-02
+  2.5877E-03  4.6356E-03 -2.9964E-03 -6.5122E-03 -1.3918E-02 -4.3870E-03
+ -1.5415E-02 -5.8315E-03  9.8551E-03 -2.6746E-03 -9.2020E-03  1.4461E-03
+ -7.2692E-03  7.0187E-03  3.6933E-03  6.6440E-03  2.1379E-02 -6.8451E-03
+ -1.0484E-03 -3.5186E-04 -1.5258E-02 -5.3526E-03  1.8169E-03 -4.1467E-03
+ -4.6813E-04 -8.3757E-03  1.3550E-02 -6.7264E-03  1.3176E-02  1.3831E-03
+ -2.6633E-03 -3.5609E-03  2.1341E-03 -9.0103E-03  1.2649E-02 -8.1317E-03
+  2.3150E-03 -1.0046E-02  1.3633E-03 -5.9601E-03 -1.2781E-02  1.1639E-02
+  7.3859E-03  2.0479E-02 -2.6966E-03 -6.7652E-03  5.7980E-03 -1.1037E-02
+  1.5069E-03 -4.5967E-03  8.1728E-03 -1.0224E-02 -1.2249E-02 -9.4623E-03
+ -7.0458E-03  1.0372E-02  4.2540E-03  1.0939E-03 -4.1138E-03  1.0176E-02
+  1.8289E-02  3.3932E-03  3.1747E-03  3.8699E-03  7.7270E-03 -1.8507E-02
+  6.3990E-03 -6.0655E-03 -1.3841E-02  4.0630E-04 -3.2776E-03 -4.7807E-03
+  1.1892E-02 -4.4309E-03  1.1126E-02  9.2758E-03  3.1875E-03  1.5043E-04
+ -8.1587E-03 -4.1703E-03 -2.0462E-03 -4.0814E-03  1.0381E-02  7.4014E-03
+  1.7795E-03 -6.5512E-03 -1.4219E-02 -7.8013E-03 -1.0909E-02  1.9239E-02
+  8.7769E-04  6.9702E-04 -1.3554E-02 -1.5122E-02  1.8579E-02  7.5072E-03
+  7.7934E-03 -1.0378E-03 -1.0641E-03  2.0531E-04  1.8995E-02  9.0873E-03
+ -3.6016E-03 -2.5284E-03  7.6919E-04  8.4550E-03 -4.6337E-03  8.3994E-03
+ -4.6118E-03  8.5022E-03  4.7448E-03 -2.2466E-03 -1.4763E-04  4.3439E-03
+ -2.2771E-03 -9.6456E-03  1.1457E-03 -1.2801E-02  4.3010E-03 -6.7392E-05
+  1.3835E-03 -1.3859E-02  3.6362E-03  6.1218E-03 -3.5747E-03  9.6778E-03
+  1.8395E-02  4.4138E-03 -7.0895E-03  1.4208E-02  9.6593E-03  1.0692E-03
+  3.3297E-03  8.5498E-04  1.3053E-02 -2.3479E-03  6.5111E-03  2.3100E-02
+ -7.4703E-03  3.7835E-04 -1.1917E-02 -4.2598E-03 -1.4782E-02 -3.7335E-03
+ -2.1312E-03  9.9403E-03  8.3285E-03 -7.8278E-03 -1.3197E-04  1.6883E-02
+  5.3543E-03  1.9948E-03  7.0881E-03 -5.4131E-04 -9.4218E-03 -9.5993E-04
+ -3.0641E-03  2.2176E-02 -1.4806E-03 -9.5263E-03 -1.4005E-02  1.2963E-02
+ -2.1006E-03 -3.5684E-03 -6.0249E-03  2.1814E-02  5.4963E-04  6.3221E-03
+  6.7700E-03 -1.2163E-03 -5.4504E-03  6.0576E-03  8.4722E-03 -6.3142E-03
+ -8.2771E-03 -3.2058E-03 -9.7695E-03  3.7028E-03  1.1712E-02  4.1104E-03
+  8.2338E-03 -3.5000E-03  5.0797E-03  1.9397E-02 -2.0653E-03 -3.6555E-03
+  7.5470E-03 -4.0053E-03 -1.2036E-02  1.0991E-02  1.5188E-03 -4.4997E-03
+ -5.7610E-04  6.5157E-03  9.4585E-03 -1.6272E-02 -1.1062E-02  6.4494E-03
+ -4.9404E-03  5.4615E-03  4.7028E-03  2.8660E-02  1.3361E-02 -4.3124E-03
+  4.9472E-03  1.9377E-03 -3.9227E-03 -3.6406E-03  2.2249E-02  1.2375E-02
+  2.6190E-02 -3.8367E-03  4.6674E-03 -2.0319E-02 -1.1609E-02 -1.8344E-03
+ -1.3411E-02  2.0025E-02  9.5095E-03  4.6110E-03  2.6900E-04  5.1771E-03
+ -4.8266E-03  4.2838E-04 -9.9445E-04  5.2806E-03  2.2274E-03  8.3084E-03
+ -2.4706E-03  7.1546E-03  1.6309E-04  1.4351E-02 -3.8007E-03 -1.6699E-02
+ -2.3394E-03 -3.8403E-03 -1.6302E-02 -1.0478E-02  4.8491E-03 -2.7689E-04
+ -8.8897E-03 -9.7609E-03 -1.2025E-02  2.8313E-02  1.8813E-02  1.1207E-03
+  1.9458E-02  1.9297E-02 -8.8778E-03  1.4108E-02  7.0818E-03  1.1115E-02
+  1.0732E-02 -1.3433E-02 -9.5372E-03 -6.2866E-03 -1.8586E-02  4.0255E-03
+ -1.4642E-02 -1.6468E-02  3.1520E-02  5.6114E-03  2.0059E-02 -4.6992E-04
+ -2.0275E-02  5.0182E-03  1.7812E-02  4.2421E-03 -2.2284E-02  8.2180E-03
+  2.5448E-03  1.6381E-02 -6.9230E-03  1.0648E-02 -1.2011E-02 -1.8978E-03
+ -5.7846E-03  1.1979E-02  1.2533E-02 -3.4922E-03  2.1629E-03  2.5137E-02
+  1.9250E-02 -5.5746E-03 -2.0754E-03  1.3388E-02  1.5144E-02  2.1109E-03
+  4.1056E-03 -9.2524E-03  9.4705E-05  5.0529E-03  2.8826E-03  6.8968E-03
+ -1.4928E-02  1.0437E-02  1.8742E-03  1.4694E-03  1.4915E-02  1.4539E-04
+  5.8269E-03  2.5886E-04 -3.3568E-03  7.2657E-03 -1.2040E-02  1.1360E-02
+  1.7951E-02  3.8730E-03  8.7530E-04 -9.8005E-03  5.6246E-03  2.2858E-03
+  1.4213E-03  4.3399E-03 -3.1562E-03  1.5958E-02  3.0569E-03  1.7147E-02
+  1.5825E-03 -1.9787E-03 -6.6628E-04 -3.7154E-03 -5.8208E-03 -5.3426E-03
+  8.2497E-03  3.1275E-03 -5.4116E-03 -5.8195E-05  1.3569E-02  3.7049E-03
+  1.3933E-02  8.9122E-03  6.6529E-03  1.3213E-02  3.3773E-03 -2.0741E-02
+ -3.2580E-03  1.1530E-02  9.1645E-03 -4.4750E-03 -1.9243E-03  3.6332E-03
+  1.2291E-03  7.5314E-03
+STRU   8:  1
+ -1.0226E-02 -5.0079E-03  8.4192E-03 -3.4789E-03  2.8213E-03  2.8218E-03
+ -1.7331E-02 -6.7753E-03 -1.2802E-02  2.9785E-03 -1.2197E-02  2.4176E-03
+  1.2447E-03  2.7981E-03 -3.1424E-03 -5.0516E-03 -9.9245E-04 -7.4669E-03
+  7.1595E-05  5.9721E-03 -5.3168E-03 -4.0279E-03 -1.1023E-02 -7.2037E-03
+ -1.2510E-02 -1.3201E-04  3.6760E-03 -1.1775E-03 -5.8873E-03  2.3369E-04
+ -2.8201E-03  3.9368E-03  4.2218E-03  6.3807E-03  4.6022E-03 -3.5950E-03
+  1.5688E-03  2.6187E-03 -8.7521E-03 -4.9632E-03  1.4266E-03 -9.9403E-04
+ -4.1446E-03 -4.4212E-03  1.7873E-03 -6.2620E-03  1.2271E-02  2.3186E-03
+ -2.7721E-03 -4.4127E-03  7.8560E-04 -1.0669E-02  6.7528E-03 -7.2059E-03
+ -2.4090E-04 -1.1169E-02  4.3488E-03 -2.7722E-03 -8.9916E-03  6.5332E-03
+ -1.4126E-03  1.3921E-02 -1.4783E-03 -3.1648E-03  1.2983E-03 -1.2272E-02
+ -3.3773E-03 -4.0472E-03  9.4753E-03 -5.9931E-03 -6.3105E-03 -8.9969E-03
+  2.5862E-03  1.0179E-02  1.5077E-03 -2.9430E-03 -5.6042E-03  6.7118E-03
+  4.1204E-03 -2.0825E-03  1.5427E-03  6.5604E-03  6.1400E-03 -1.5880E-02
+  9.7507E-03 -5.4121E-03 -1.4538E-02  3.4060E-03  4.7123E-04 -1.7869E-03
+  7.3350E-03 -5.1728E-03  1.2560E-02  5.7747E-03  9.7982E-03 -4.9461E-04
+ -5.6639E-03 -9.9837E-04  2.1761E-03 -5.5419E-03  6.8298E-03  6.3574E-03
+  1.4842E-04 -5.9966E-03 -7.0866E-03 -2.4672E-03 -1.0095E-02  1.0974E-02
+  1.2817E-03  2.2237E-03  2.3753E-03 -1.1524E-02  1.3947E-02  4.3397E-03
+  7.5082E-03 -7.0622E-03 -3.2056E-04 -4.0117E-03  4.6759E-03  7.9524E-03
+ -6.6743E-03  3.4978E-03 -1.0009E-02  5.5282E-03  1.3425E-03  6.8319E-03
+ -4.8309E-03  8.2834E-03  7.1577E-03 -9.3240E-04  4.0494E-04  5.8713E-04
+ -3.6309E-03  8.6783E-03  1.3671E-03 -1.1759E-02  6.7275E-03  1.0389E-02
+ -4.7739E-04 -9.9427E-03  5.0206E-03  8.0845E-03 -6.8910E-04  7.3051E-03
+  1.6907E-02  7.1882E-03 -8.6202E-03  7.1829E-03 -9.2382E-04  2.7244E-03
+  1.9366E-03  5.2302E-04  6.9279E-03  1.3824E-03  3.3653E-03  2.3890E-02
+ -2.4949E-03  6.4906E-04 -1.6739E-02 -6.2559E-03 -3.5604E-03 -1.2125E-03
+  4.8080E-03  8.7259E-03  4.2625E-03 -8.6045E-03 -5.6163E-03  1.5921E-02
+  4.0517E-03  2.5025E-03  3.3739E-03  2.5347E-03 -8.9301E-03  7.8876E-03
+ -7.7336E-03  8.4689E-03  4.6324E-03 -5.3298E-03 -7.3730E-04  3.4661E-03
+ -3.5561E-03  1.4899E-04 -6.7251E-03  1.5477E-02 -1.7454E-03  1.5028E-03
+  1.3148E-02 -3.3018E-03 -1.1351E-03  3.1745E-03  2.9025E-03  1.4052E-03
+ -4.2849E-03 -1.4909E-03  4.0955E-03  2.6920E-03  4.8158E-03  8.7178E-03
+  2.8299E-03 -1.5561E-03 -1.5365E-03  1.2241E-02 -4.5468E-03  1.0058E-03
+  1.6881E-02  1.8122E-03 -8.5774E-03  3.5315E-03  4.3019E-03 -1.9747E-03
+ -3.3869E-03  9.6402E-03  3.9179E-03 -1.0633E-02 -8.5137E-03 -6.5526E-04
+ -5.1740E-03  3.7150E-03  4.8646E-03  6.5859E-03  8.0020E-03 -1.9077E-03
+  3.5959E-03  5.8118E-03 -9.1831E-04 -2.5283E-03  7.0920E-03  6.8244E-03
+  1.5911E-02 -3.7707E-03  1.2814E-03 -1.7499E-02 -1.5006E-03 -2.7373E-03
+ -3.8965E-03  4.7835E-03  1.1569E-02  9.0405E-03  2.1215E-03 -1.0340E-03
+ -7.8638E-04 -8.2561E-04 -5.9886E-03  2.9701E-03 -5.4863E-04  8.1613E-04
+ -1.3458E-02  6.6972E-03  3.7739E-03  2.9522E-03 -1.4264E-02 -9.6204E-03
+  4.3080E-03 -2.9713E-04 -1.1696E-02 -1.2544E-03  2.6270E-03  8.8965E-03
+ -1.0750E-02 -6.7314E-03 -9.2727E-03  1.5043E-02  1.5057E-02 -1.8309E-03
+  1.2951E-02  1.2970E-02 -3.8356E-03  1.7979E-03  4.5573E-03  6.7613E-03
+  4.7879E-03 -1.3012E-02 -3.1419E-03  2.7407E-03 -3.9031E-03 -4.8162E-03
+ -5.7970E-03 -1.2986E-02  1.5939E-02  5.9714E-03  8.3380E-03 -1.6850E-03
+ -1.7005E-02 -5.3468E-03 -8.5558E-03 -4.6008E-04 -1.5615E-02  9.6880E-03
+  4.5614E-03  9.5285E-03 -1.1074E-02  2.2217E-03  6.0926E-03 -4.0011E-03
+ -1.9491E-03  8.5395E-03  5.1780E-03 -1.2175E-02 -4.2516E-03  1.7423E-02
+  1.7684E-02  2.7083E-03 -6.5086E-03  7.3983E-03  4.6734E-03  3.2912E-03
+  1.0644E-02 -4.2846E-03 -7.5083E-03  2.8841E-03 -7.2435E-03  7.8125E-03
+ -1.2948E-02  6.1626E-03  2.1830E-03  5.5661E-03 -3.0536E-03 -1.0346E-02
+  1.2899E-02  4.7961E-05 -8.1023E-03  9.4964E-03 -9.8056E-03  1.7036E-03
+  9.6949E-03 -3.0686E-03 -6.7101E-03 -6.3356E-03 -5.4268E-03  1.9780E-03
+  1.5463E-03  6.1512E-03 -4.4370E-03  1.1077E-02 -8.1660E-03  5.5859E-03
+  7.8710E-03 -7.9349E-03 -2.1541E-03 -5.6076E-03 -8.1467E-03 -1.0344E-02
+  4.0461E-03  7.6258E-03 -1.1596E-02  1.9494E-04  6.7956E-03  8.5348E-04
+  6.5365E-03  7.8150E-03  3.8330E-03  1.3852E-02 -5.5950E-03 -1.5815E-02
+ -7.7852E-03  8.1228E-03  1.0418E-02 -2.5798E-03 -7.2880E-03 -8.0780E-03
+  5.9315E-03  2.1436E-03
+STRU   9:  1
+ -1.2389E-02 -3.8365E-03  9.8859E-03 -2.5677E-03  5.2813E-03  7.9306E-04
+ -1.8378E-02 -8.5621E-03 -1.8063E-02  3.7916E-03 -1.2100E-02  1.7481E-03
+  7.9588E-04  3.3711E-03 -1.7983E-03 -8.9034E-03  1.9972E-04 -7.5870E-03
+  6.5734E-05  8.6509E-03 -3.9321E-03 -4.2471E-03 -1.0016E-02 -7.4465E-03
+ -1.2876E-02  1.8981E-03  4.3981E-03 -1.2997E-03 -6.3827E-03  1.2045E-03
+ -2.2348E-03  5.3523E-03  5.9769E-03  7.2382E-03  3.1220E-04 -2.7235E-03
+  2.5923E-03  4.4489E-03 -9.0850E-03 -4.9636E-03  1.2324E-03 -1.1532E-03
+ -5.6890E-03 -3.2224E-03  1.8096E-03 -7.4666E-03  1.2178E-02  2.1810E-03
+ -2.6815E-03 -5.5324E-03  3.2096E-05 -9.4159E-03  5.3875E-03 -7.9496E-03
+ -4.7718E-04 -1.2797E-02  5.7157E-03 -2.6229E-03 -8.3586E-03  9.3480E-03
+ -2.4768E-03  1.4893E-02 -2.5997E-03 -2.6831E-03  1.1998E-05 -1.4373E-02
+ -3.3269E-03 -3.9247E-03  1.0560E-02 -6.6587E-03 -6.4660E-03 -9.8023E-03
+  3.3466E-03  1.2165E-02  9.0944E-04 -3.3108E-03 -6.9166E-03  6.0425E-03
+  2.8292E-03 -4.6388E-04  1.8497E-03  5.7346E-03  5.7297E-03 -1.5689E-02
+  9.2547E-03 -9.6142E-03 -1.4831E-02  4.7038E-03  9.9290E-04 -1.8557E-03
+  7.1778E-03 -1.9990E-03  1.5512E-02  5.7756E-03  1.1970E-02 -1.9184E-04
+ -5.0560E-03  3.7886E-03  3.2632E-03 -7.8056E-03  7.7298E-03  6.5655E-03
+  4.5149E-04 -5.2294E-03 -6.8342E-03 -1.0790E-03 -1.1155E-02  3.6972E-03
+  8.4184E-04  2.9185E-03  1.0533E-03 -1.0286E-02  1.7862E-02  4.3909E-03
+  7.8619E-03 -6.1481E-03 -1.3853E-03 -5.4578E-03  1.0327E-03  8.1401E-03
+ -5.5438E-03  5.1848E-03 -1.3602E-02  4.4540E-03  6.4897E-04  7.4374E-03
+ -4.6142E-03  9.7970E-03  8.4324E-03  1.0544E-04  7.8203E-05 -2.4686E-03
+ -4.1064E-03  1.2988E-02  2.0546E-03 -1.2015E-02  8.6171E-03  1.3403E-02
+ -7.3992E-04 -9.6397E-03  3.9104E-03  6.7478E-03 -1.9365E-03  7.4831E-03
+  2.0589E-02  1.0123E-02 -8.1657E-03  4.3861E-03 -1.2936E-03  3.4719E-03
+  4.0430E-03 -2.0260E-05  3.5275E-03  4.8053E-05  3.1825E-03  2.7684E-02
+ -2.1251E-03  1.0055E-03 -2.0979E-02 -7.0972E-03 -3.3175E-03 -7.8915E-04
+  6.8788E-03  1.0723E-02  2.4630E-03 -1.2761E-02 -5.8280E-03  1.7058E-02
+  4.8428E-03  4.0447E-03  1.6185E-03  4.8589E-03 -7.8960E-03  4.9420E-03
+ -9.3211E-03  1.1420E-02  5.9167E-03 -6.0519E-03 -2.2447E-03  2.2148E-03
+ -4.7648E-03 -1.1780E-04 -8.8554E-03  1.4574E-02 -1.2332E-03  2.9707E-03
+  1.6668E-02 -9.6029E-04  1.8032E-03  4.0685E-03  9.4807E-04 -1.0893E-03
+ -6.2981E-03  2.2964E-03  4.3893E-03  2.2857E-03  2.2773E-03  1.2040E-02
+  1.5202E-03 -5.3874E-04 -9.1721E-04  1.3087E-02 -6.4912E-03  2.8690E-04
+  1.7511E-02  4.9438E-03 -8.1625E-03  4.0960E-03  6.8549E-03 -1.8759E-03
+ -7.5647E-04  1.0818E-02  1.8635E-03 -1.0473E-02 -1.1174E-02 -6.7960E-04
+ -8.0151E-03 -1.0297E-03  5.1437E-03  4.8564E-03  5.0879E-03  1.7576E-03
+ -5.8325E-04  7.9040E-03  1.0919E-03 -1.4918E-03  7.4792E-03  6.6328E-03
+  1.2623E-02 -5.2602E-03  3.3427E-03 -1.6621E-02 -2.7079E-03 -5.4786E-03
+ -3.8538E-03  6.3342E-03  1.6966E-02  7.3033E-03  2.4352E-03 -3.0719E-03
+  1.2086E-03  1.7189E-03 -8.8580E-03  7.0454E-03 -1.8304E-03  1.2308E-03
+ -1.5044E-02  1.1552E-02  6.1896E-03 -9.9209E-04 -1.0418E-02 -8.7826E-03
+ -2.6318E-03  2.8631E-05 -1.3923E-02 -1.9722E-03  1.7680E-03  1.1132E-02
+ -8.5586E-03 -7.1564E-03 -9.9472E-03  1.3174E-02  1.2080E-02 -1.0505E-03
+  1.4535E-02  1.5877E-02 -5.9627E-03  2.0749E-03  6.6621E-03  1.1083E-02
+  4.1737E-03 -1.5391E-02 -5.0474E-03  3.1381E-03 -5.2150E-03 -1.4931E-03
+ -6.5196E-03 -8.4051E-03  1.0668E-02  1.5460E-03  6.7402E-03 -5.2871E-03
+ -1.5965E-02 -8.8279E-04 -1.0664E-02 -2.3226E-03 -1.8191E-02  1.0337E-02
+  4.3915E-03  9.9982E-03 -1.1329E-02  1.0118E-03  9.0612E-03 -3.5521E-04
+ -2.4578E-03  9.7047E-03  7.4667E-03 -1.4500E-02 -9.4706E-03  1.1937E-02
+  2.4591E-02 -1.4942E-03 -6.2425E-03  6.1136E-03  6.9218E-03  5.0087E-03
+  1.6106E-02 -3.0078E-03 -6.1465E-03  4.8396E-03 -1.1351E-02  5.8512E-03
+ -1.9411E-02  1.1279E-02  7.3526E-04  6.0727E-03 -2.5936E-03 -7.5534E-03
+  1.5798E-02  4.7956E-03 -1.4731E-02  1.3369E-02 -1.0089E-02 -1.0778E-03
+  1.1119E-02  2.0112E-03 -9.8193E-03 -1.0123E-02 -8.3956E-04  4.4592E-03
+  5.6596E-04  4.9535E-03 -1.8310E-04  9.5210E-03 -6.8469E-03  7.7356E-03
+  9.2064E-03 -1.0642E-02 -1.1535E-03 -6.4929E-03 -1.1776E-02 -9.8974E-03
+  8.2688E-03  8.1679E-03 -8.9534E-03 -2.4971E-04  8.1680E-03  2.2171E-03
+  4.4430E-03  7.1635E-03  7.5604E-03  1.5929E-02 -2.9152E-03 -1.3627E-02
+ -5.7356E-03  8.5994E-03  1.4329E-02 -2.2612E-03 -7.2590E-03 -1.0783E-02
+  9.3125E-03  1.6698E-03
+STRU  10:  1
+ -7.7478E-04  8.1895E-04  6.3315E-03 -6.6061E-03  1.0680E-02  1.2178E-03
+ -7.8319E-03 -9.8588E-03 -1.3129E-02  8.7709E-03 -6.3584E-03  2.5355E-03
+ -9.5397E-03 -1.4994E-03 -8.4888E-03 -7.3201E-04  3.8587E-03  1.6231E-03
+ -5.6240E-04 -4.6243E-04  4.1473E-03  1.7576E-03 -4.5715E-03  5.0466E-04
+ -1.3736E-02  5.4933E-03 -1.7254E-03 -4.1743E-03 -2.4692E-03  6.7802E-04
+ -1.3215E-03  2.6564E-03  6.6233E-03  8.7917E-03 -5.7510E-03 -3.6157E-03
+  3.3643E-03  1.0120E-02 -5.0670E-03 -6.6358E-03  2.5119E-03 -1.2869E-04
+ -6.8978E-03 -3.0624E-03 -6.2599E-03 -6.0405E-03  1.0479E-02  2.7340E-03
+  3.8963E-03 -4.8824E-04  6.4901E-03  1.1553E-02  1.5803E-03 -1.2256E-02
+ -5.9373E-04 -7.3085E-03  4.2691E-03  4.4568E-03 -1.5942E-03  9.8126E-03
+ -3.1144E-03  1.7129E-03 -7.8327E-03 -7.4380E-03 -7.0570E-03 -1.3415E-02
+  5.1961E-04 -4.7820E-04  2.5231E-03 -7.0507E-03 -6.4037E-03 -6.2471E-03
+  2.8435E-03  7.3109E-03 -3.6714E-03 -1.3812E-03 -8.9674E-03 -1.6664E-03
+ -3.4171E-03  4.4944E-03 -3.2119E-04  3.6242E-03  3.5821E-03 -6.8873E-03
+  7.3073E-03 -1.5879E-02 -1.8597E-03  6.8436E-03  1.1233E-03 -1.1327E-03
+ -5.2251E-03  5.7018E-03  1.5693E-02 -3.1532E-04  7.9392E-03  6.7668E-04
+ -1.0079E-03  1.5102E-02  2.1645E-04 -9.5858E-03  1.0053E-02  3.9240E-03
+  2.4887E-03  3.7281E-03 -6.0221E-03 -1.3333E-03 -6.4654E-03 -1.3110E-03
+ -1.1613E-02  9.5128E-04  1.7208E-03 -2.2002E-03  1.5140E-02  2.6009E-03
+  8.3662E-03  1.4474E-03 -2.6254E-03 -7.5048E-03 -8.4673E-03  1.1330E-02
+ -4.8782E-03  6.2317E-03 -4.4560E-03 -1.1962E-02  8.8032E-03  6.6439E-03
+ -3.3540E-03  3.9584E-03  1.2527E-02  2.2083E-03 -5.5213E-03 -7.0482E-03
+ -5.9243E-03  1.5104E-02  3.2226E-03 -4.0156E-03  1.0873E-02  9.6357E-03
+ -1.1223E-03 -8.8370E-03 -1.3956E-03 -1.5536E-03  3.5010E-03  4.5994E-04
+  1.8261E-03  4.8578E-03  1.1748E-04 -1.1780E-02 -3.2158E-03  5.4251E-03
+ -6.9875E-04 -4.3936E-03 -9.1462E-03 -7.7571E-03  7.9401E-03  1.3235E-02
+ -5.4484E-03  4.7878E-03 -2.0310E-02 -1.9422E-03  2.6190E-05 -1.6454E-04
+ -2.3986E-04  9.1346E-03 -1.3443E-03 -7.2373E-03 -6.5184E-03  1.1659E-02
+ -8.1193E-03  3.6726E-03  3.6729E-04  1.9910E-03 -2.3297E-03  6.1263E-03
+ -1.3666E-02  1.1934E-02  2.8245E-03 -1.2260E-02  6.0895E-03  3.0057E-04
+  1.0860E-03  1.3172E-02 -8.6954E-03  3.1051E-03 -2.7297E-03 -6.4534E-03
+  5.3169E-03  7.0264E-03  7.5851E-03 -8.1965E-03 -1.8240E-03 -7.2204E-03
+ -2.8911E-03  2.0074E-03  1.1028E-03 -2.4056E-03 -1.9421E-03  1.1656E-02
+  3.3412E-03  5.8785E-03 -6.3593E-03  5.4303E-03 -9.7853E-03 -4.9008E-03
+  4.5480E-03  3.7478E-04 -5.5749E-03  3.7130E-03 -2.9375E-03 -3.6833E-03
+  8.5571E-03  4.9613E-03 -2.1349E-03 -4.2332E-03 -6.2659E-03 -6.2123E-03
+ -5.8317E-03 -1.3249E-02  3.1328E-04  5.0231E-03 -4.5997E-03  1.5592E-04
+ -6.2777E-03  1.1276E-02  4.9177E-03  1.3633E-03  2.8709E-04  1.2358E-03
+ -1.1499E-03 -9.6301E-03  5.7904E-03 -5.5890E-03 -8.2524E-03 -8.2368E-03
+ -4.5343E-04  1.3178E-03  1.2348E-02 -6.5344E-03 -1.6730E-03 -1.1543E-02
+ -6.7774E-04  3.1488E-04 -1.2600E-02  1.5927E-02 -1.3304E-02  4.0899E-03
+ -1.2662E-02  1.0414E-02  1.5980E-03 -9.4495E-03 -8.0596E-03  1.2724E-03
+ -4.3529E-04  2.9143E-03 -1.2694E-02  6.7752E-03  5.5346E-05  1.9666E-02
+  2.9907E-03 -2.5324E-03 -3.7714E-03  3.3230E-03 -3.5641E-03  5.5812E-03
+  3.1737E-03  1.7630E-03 -1.5714E-03 -1.0261E-04  4.5364E-03  4.7471E-03
+  7.1554E-04 -1.0726E-02 -2.3433E-03  2.7093E-03 -7.6782E-03  6.1419E-03
+ -3.9451E-03  6.2282E-03 -1.2670E-02 -1.1346E-02 -9.6471E-03 -1.8035E-03
+  1.0833E-02 -1.1868E-03 -1.2898E-02 -7.2390E-03 -1.1232E-02 -6.6445E-03
+ -1.7652E-03  4.1450E-03 -4.9805E-03  5.3273E-03  9.8873E-03  8.1213E-03
+ -8.0589E-03 -7.2422E-03  6.2901E-03 -6.8760E-03 -1.2348E-02  2.6239E-03
+  9.4375E-03  3.2155E-03 -7.8683E-03 -5.0921E-03  9.3626E-03  6.0263E-03
+  7.4750E-03  1.1703E-02  2.3867E-03  8.1457E-03 -5.1914E-03 -1.1889E-02
+ -8.2734E-03  1.6619E-02 -5.4905E-03 -7.2291E-03 -1.1873E-02 -3.2766E-04
+  1.2340E-02  8.5837E-03 -1.3047E-02  7.2742E-03 -9.1594E-03 -9.3829E-04
+  9.5043E-03  2.9787E-03 -1.2520E-02 -8.1343E-03  3.8275E-04  5.0385E-03
+  1.2804E-03 -5.8238E-04  1.1065E-02 -9.6467E-03  3.1764E-03  5.0820E-03
+  8.7103E-03 -1.5270E-02  8.0430E-04 -8.9829E-03 -1.2790E-02 -9.5042E-03
+  7.4301E-03  1.0162E-02 -4.2230E-03 -1.1560E-02  9.2476E-03 -8.9801E-03
+ -7.0766E-03  1.6248E-03  8.5937E-03  7.1332E-03 -2.8949E-03 -1.0805E-03
+ -3.5672E-04 -2.2917E-03  6.0573E-03 -2.1598E-03 -3.0980E-03 -1.1815E-02
+  8.0388E-03 -1.0128E-02
+STRU  11:  1
+ -6.6134E-03  6.7163E-03 -6.0837E-04 -1.7814E-02 -4.1014E-03  1.5175E-02
+  7.2906E-03 -1.4970E-03  2.0815E-03 -6.4713E-03  1.6627E-03 -8.0146E-04
+  2.0022E-03  1.3748E-04 -2.7545E-03  9.2130E-03 -8.9371E-03 -1.2481E-02
+  5.3432E-03  3.2788E-03 -8.8214E-03 -8.4168E-03 -1.8327E-03 -8.0306E-03
+ -1.5673E-02 -1.1804E-02  2.2618E-03 -2.4210E-03 -1.2425E-03  9.2738E-03
+  6.3522E-03  5.6776E-03  1.3249E-03  6.9162E-03 -6.6800E-04 -6.1132E-03
+  1.3177E-03  8.4561E-03  1.2924E-02 -1.1080E-03 -3.0411E-03  1.1820E-03
+ -1.0592E-02 -1.1269E-04 -1.7352E-03  1.5001E-02  5.7630E-03 -2.0668E-03
+ -8.7462E-03 -1.4993E-03  3.8414E-03 -1.9552E-04 -8.8482E-03 -1.1173E-02
+  1.8864E-03 -2.6407E-03  1.3498E-03  3.2190E-03 -1.1013E-03 -1.2012E-02
+ -3.2660E-03 -1.3839E-02 -8.3652E-03  3.1544E-03 -2.9956E-03 -8.0113E-03
+ -7.5972E-03  7.7388E-04 -5.3780E-03 -7.9513E-03  8.7534E-04 -5.1634E-04
+  4.8747E-03  4.3828E-03 -1.2291E-03  3.6401E-03  3.4245E-03  1.1925E-02
+  1.2783E-03  7.7939E-03  2.3146E-03  1.7655E-03 -4.6367E-03 -3.4636E-03
+ -6.5502E-03  3.6646E-03  2.9924E-03  6.6799E-03 -1.5144E-03  7.4942E-03
+ -1.0398E-02 -1.3929E-02  1.8769E-03  1.5594E-02  1.5780E-03 -4.8873E-03
+ -1.6213E-04  1.0098E-02 -4.0491E-03 -1.8949E-02  1.0023E-02  2.3066E-03
+ -7.7828E-03  4.2785E-03 -8.4928E-03  2.1528E-03 -1.6814E-03  5.6664E-03
+ -5.0505E-03  6.0627E-03 -7.5545E-03 -3.6124E-03  3.0339E-03  9.3055E-03
+  2.9538E-03  9.2444E-03  1.7944E-03 -1.0090E-02 -9.1734E-03  8.0374E-03
+ -1.8313E-02  7.3963E-03 -1.5590E-03 -7.8296E-03 -5.2021E-03  1.1637E-02
+ -5.3880E-03  3.3328E-03  6.5109E-03  1.2222E-02 -4.2709E-03 -4.0529E-03
+ -5.8376E-03  6.4152E-04  5.4305E-03 -3.4157E-03  1.2178E-02  1.3852E-03
+ -2.8427E-03 -9.1142E-03 -2.2578E-02  1.0092E-02  9.5290E-04  1.6929E-04
+  4.7134E-04 -3.8312E-03  1.3480E-03 -7.8193E-03 -4.8522E-03  1.0294E-02
+ -3.5373E-03 -5.7857E-03 -4.5118E-03 -2.3613E-03  2.6062E-02  1.1587E-02
+ -2.1158E-03  3.4193E-03 -1.4674E-02 -1.4316E-02 -3.3124E-03 -6.1662E-03
+  3.0342E-03  3.1172E-03 -6.6278E-03 -1.0763E-02 -8.3685E-03  2.5300E-02
+ -4.2321E-03 -6.0043E-04 -3.7955E-03  2.2024E-02  2.6658E-04 -1.5525E-02
+  2.7633E-04  1.1481E-02  3.5844E-03 -8.2033E-03 -9.8952E-03  1.2287E-03
+ -8.1972E-04  8.5852E-03 -6.0304E-03 -2.5459E-03  7.7835E-03 -7.6391E-03
+  2.1551E-03  1.1095E-02  2.8398E-03  6.6229E-03 -5.4255E-03  4.7322E-03
+  8.6729E-03  3.2792E-03  1.2162E-03 -5.7237E-03 -7.6233E-03  5.5639E-03
+ -1.9993E-03 -1.5035E-02  1.2598E-03 -2.3883E-03 -1.5581E-02  8.0480E-03
+  1.3285E-02  8.3512E-04 -2.6390E-03  7.4195E-03  4.7381E-05 -7.2456E-03
+  3.0204E-03 -1.0456E-03  3.3006E-03 -6.1439E-03 -1.9746E-03  5.5093E-03
+  4.1644E-03 -2.5986E-03  1.0766E-02 -1.6625E-03 -1.8566E-03 -7.3397E-03
+ -7.0026E-03 -3.0982E-03  3.6829E-03 -9.7787E-03 -2.0633E-02  7.8114E-03
+  1.8164E-02 -7.4562E-03  7.5990E-03 -9.2723E-03 -1.1022E-02  7.5131E-04
+  9.6346E-03  9.7654E-04  9.5021E-04 -2.2567E-04 -2.4325E-03 -1.6236E-02
+  4.2458E-03  9.0680E-04 -1.3406E-02 -9.2981E-03 -8.2248E-03  2.8022E-03
+  6.9938E-03  3.4877E-03  6.5450E-03  7.2601E-03  1.3125E-02  3.0281E-03
+ -1.0346E-02 -2.7379E-03 -5.0674E-03  1.8562E-02  8.1488E-04 -4.9181E-03
+  7.5926E-03  1.6389E-03 -1.1837E-03  5.1060E-03  2.5091E-03  3.5464E-03
+ -1.9937E-03  3.5164E-03 -4.9491E-03 -2.3425E-03  4.4300E-04 -6.3739E-05
+  1.1997E-02 -3.2604E-03 -1.3001E-02  2.0935E-03  8.2625E-03  1.6710E-03
+ -5.1334E-03 -8.1512E-03  3.4776E-03 -2.2912E-03 -3.0053E-03 -7.3438E-03
+  9.5971E-04 -5.8409E-03 -8.3376E-03 -5.5933E-03 -1.1422E-03  2.3333E-03
+ -5.3457E-03  2.4769E-03 -2.9037E-03  3.5602E-03  3.7648E-03 -4.8995E-03
+ -2.5414E-03 -5.4305E-03  4.4600E-03  5.9001E-03 -3.8810E-04  1.1045E-03
+ -1.7695E-03 -1.3692E-02  8.1351E-03 -8.6582E-03 -9.6208E-04 -2.8529E-03
+ -5.1044E-03  8.5285E-05  5.8335E-03  6.8066E-04 -1.5816E-02 -6.2690E-03
+  3.8357E-03  1.3519E-03 -3.0852E-03  3.4240E-03 -2.1963E-03 -8.4072E-04
+ -9.9640E-04 -7.6697E-05  1.6276E-02  6.5407E-06  4.6152E-03 -2.8590E-03
+  1.0084E-02  1.2462E-03 -6.5520E-03 -3.5470E-03 -1.0100E-03  2.1023E-03
+ -7.6216E-03  2.1491E-03  1.7705E-02  4.3803E-03 -6.9212E-03 -5.1529E-03
+ -3.7087E-03 -6.5258E-03 -3.2179E-03 -7.1696E-03 -6.5283E-04  1.7621E-03
+ -2.7549E-04 -1.9907E-03 -2.1948E-02  2.6635E-03  1.5846E-03  5.4254E-03
+ -5.6102E-03 -3.6958E-03  1.6397E-03  2.7672E-03  2.8616E-03  5.2543E-03
+  2.4084E-03  9.3133E-03  6.6809E-04 -5.0403E-03 -2.7570E-03 -6.7874E-04
+ -1.0476E-03 -1.1152E-02
+STRU  12:  1
+  1.3695E-03  2.5268E-03 -3.2144E-03  7.0095E-03  4.6906E-03 -4.8584E-03
+ -9.7418E-03 -5.2677E-03 -1.7856E-02  4.5037E-03 -8.9660E-03  1.5043E-03
+ -1.1361E-03 -5.8670E-04 -5.6123E-03 -3.2104E-03  6.4036E-03  2.1377E-03
+ -6.1676E-03  3.2278E-03  1.2991E-02  2.1362E-03 -5.8095E-03  5.6507E-04
+ -5.7817E-03  2.1324E-03 -3.9549E-03 -9.3519E-03 -3.7362E-03 -1.2361E-03
+ -1.0379E-02  2.2833E-03 -4.5666E-04  6.2960E-03  1.3675E-04 -7.9031E-03
+  5.5825E-03 -4.3523E-03 -5.8558E-03  2.9915E-03 -5.0577E-03 -4.7149E-03
+ -1.2439E-02  3.6364E-03  1.2060E-02 -9.1066E-03  3.2905E-03  4.5606E-04
+  5.7700E-03 -1.1019E-02 -1.4926E-03 -3.0689E-03  1.0573E-02  7.2065E-03
+ -6.2859E-03 -6.6868E-03  4.8613E-04 -9.0394E-03 -3.6587E-03  8.8730E-04
+  4.8048E-03  4.8328E-03 -2.9414E-03  3.1507E-03  7.2149E-03 -1.0536E-03
+ -2.0507E-03  9.7739E-03  1.9851E-03  2.9344E-03  2.2662E-03  1.8040E-05
+ -4.1300E-03 -1.8997E-03  1.1001E-02  9.0839E-05 -1.2654E-02  9.0343E-03
+  4.2072E-03 -1.8323E-02  6.4768E-04  2.0048E-03  3.2300E-03 -4.2557E-03
+  4.2901E-03  2.5212E-03 -1.3784E-04 -6.5171E-03  3.3763E-03  2.8823E-03
+ -2.4482E-03  1.2988E-02 -9.6476E-03 -1.2571E-02  1.2946E-02  8.6143E-04
+  2.0770E-03  2.8602E-03 -2.2241E-04  4.1060E-03 -1.7170E-02 -2.0805E-03
+ -8.1589E-03 -1.5809E-03  3.2851E-04  1.7309E-03 -6.4419E-03 -9.7823E-03
+  6.8000E-03 -6.8986E-03  6.4151E-03 -6.2469E-03 -2.2243E-03  6.3850E-04
+ -5.0279E-03  9.7608E-03 -1.1867E-02  1.5989E-03 -2.8617E-04 -3.5443E-03
+ -3.1205E-03  1.0756E-03 -1.3392E-02 -1.2973E-03 -7.7360E-03 -3.1840E-03
+  2.0109E-03  4.7713E-03  9.4042E-04 -1.3020E-03  1.5189E-02  1.9940E-03
+  6.7832E-03  2.0283E-02 -1.4423E-03 -2.3268E-04 -6.9365E-03 -4.3311E-03
+ -1.4192E-02  5.2668E-03 -3.8470E-03  1.8342E-03  1.8652E-03 -4.3591E-03
+ -1.4206E-02 -6.6771E-03 -1.6137E-03  1.6211E-04  3.3005E-03  1.5781E-03
+  4.0924E-03 -6.2897E-04 -4.3410E-03  1.3243E-03  2.2128E-04 -6.8354E-03
+  1.2488E-03  3.2240E-03  3.4302E-03 -6.6625E-03  6.3416E-03 -4.3233E-03
+ -2.6616E-03 -6.4966E-03  3.8760E-03 -1.2093E-02 -5.0269E-04 -1.6645E-02
+  3.2696E-03 -3.1156E-03  5.8780E-03  3.5373E-03 -5.5622E-03  1.0681E-02
+  1.1830E-02  5.5904E-03  3.9875E-03  9.9989E-04  1.3020E-02  2.5030E-03
+ -1.2770E-02  5.0269E-03  8.0613E-03 -9.4745E-03 -1.6271E-04 -1.3830E-02
+  4.3145E-03 -1.0855E-02  8.5516E-03 -1.1564E-02  6.2367E-03  9.3398E-03
+ -2.1603E-03 -3.1888E-03 -5.8320E-03  2.6288E-03 -5.1473E-03  1.0755E-02
+ -8.7463E-03 -1.3746E-03 -6.0523E-04  8.7043E-03  1.6657E-02  5.5642E-03
+ -2.0196E-02 -1.4053E-02  8.4127E-04 -9.3942E-03  4.4855E-03  2.3391E-03
+ -4.3176E-03  7.7052E-03  1.3923E-03  8.1566E-03 -1.0061E-02 -1.2575E-02
+ -9.3344E-03  6.5050E-03  6.7609E-03  3.8922E-03  7.2804E-04 -2.2896E-03
+ -3.8067E-03 -2.6204E-05  3.8475E-03  9.4357E-03  1.1085E-02  5.6262E-03
+ -1.5539E-02 -1.5260E-04  7.0174E-03  6.3580E-03  1.6020E-02 -7.5447E-03
+  6.0098E-03  7.1041E-03  6.5691E-03 -1.9212E-02  6.2359E-03 -5.2138E-03
+ -7.9569E-03 -6.7985E-04  1.1359E-02  1.3684E-02  2.0107E-03  1.2726E-04
+ -2.0167E-02  1.1473E-02 -1.9212E-03  1.3454E-02  3.2458E-03 -5.4377E-03
+ -1.9251E-02 -1.6400E-02 -6.7096E-03 -4.8969E-03 -9.2069E-03  1.4030E-02
+  8.4458E-04 -9.5901E-04  6.3295E-04  4.3383E-04 -1.6363E-02  2.5304E-03
+ -4.1582E-03  1.3750E-02 -4.5309E-03 -5.1381E-03  3.0188E-03 -6.4710E-03
+  1.1734E-02  1.2801E-02 -9.4813E-03  5.5689E-03 -3.7071E-03 -6.3479E-03
+ -5.3481E-03 -9.8232E-03  2.1749E-02  1.3428E-02  3.1464E-03 -8.4411E-03
+ -2.3359E-02  4.7447E-03  1.3634E-02 -7.9675E-04 -8.8136E-03 -7.6205E-03
+  8.9924E-03  3.4716E-03 -3.0385E-03  5.0217E-03  6.7851E-03 -1.6256E-02
+  1.1506E-02  1.0478E-02 -1.2778E-02  5.2628E-03 -5.6032E-03  1.2805E-02
+  3.4474E-03  5.0004E-03 -2.0677E-03 -1.0682E-02 -2.2872E-02  1.0102E-02
+  1.5596E-02 -5.3951E-03  2.2859E-03 -1.2738E-02  1.4020E-02 -6.9007E-03
+  8.7141E-03 -8.3008E-03 -6.0064E-03  6.6219E-03  1.0182E-02  5.0666E-03
+ -2.5271E-03 -4.4581E-03 -1.6282E-02  7.5172E-03 -4.3943E-03 -3.9579E-03
+ -7.9674E-03  8.3545E-03 -8.5692E-03 -1.6237E-02  1.4736E-02  3.0272E-03
+  1.4574E-02  1.1426E-03 -3.0787E-03  1.1170E-03 -5.5649E-03 -7.1810E-03
+ -1.2611E-02 -9.6393E-04  7.3744E-03  1.5321E-03 -9.5084E-03 -9.4893E-03
+  6.3190E-03 -6.2143E-03 -7.2734E-03  8.7694E-03 -9.1072E-03  1.0209E-02
+  4.5682E-03  3.5326E-03 -7.2586E-03 -3.5967E-04 -6.2781E-03 -4.4809E-03
+ -3.3657E-03 -8.1528E-03  8.2878E-03  3.3684E-03 -5.6220E-03  4.5137E-03
+  2.6846E-03 -9.5496E-03
+STRU  13:  1
+ -1.2115E-03 -2.8545E-03  4.5370E-04  2.2211E-03 -1.1189E-02  3.5698E-04
+  7.1960E-03  3.6416E-03  1.5757E-02 -4.6591E-03  5.0830E-03 -6.1622E-03
+ -4.6416E-03 -7.2905E-06  1.1165E-02  9.3597E-03 -8.7743E-03 -7.4873E-03
+ -2.5805E-03  1.5774E-03 -3.4038E-04 -6.9967E-03  2.5020E-03  3.2119E-03
+ -1.1349E-02  5.7185E-04 -3.3062E-03  1.0071E-02  5.6275E-03  7.5614E-03
+ -2.3878E-03 -5.5017E-03  1.4538E-02  1.1350E-02 -1.0085E-03  1.3092E-03
+  1.7284E-05  1.1723E-02  9.6686E-03 -6.7938E-03 -7.5918E-04  2.6762E-03
+  8.1419E-03  9.5991E-04 -1.8286E-02  1.1632E-02  1.3742E-04  1.0750E-03
+ -4.8271E-03  6.0716E-03 -7.9931E-04 -1.0797E-02 -1.5061E-02 -1.2386E-02
+ -7.2385E-04 -1.1589E-04 -5.7194E-03  4.2998E-03 -6.4316E-03 -3.4638E-03
+ -3.2893E-03 -6.0739E-04  1.6121E-02 -9.3984E-03  4.4044E-03 -7.9689E-03
+ -1.3793E-02 -8.5287E-03  7.2303E-04 -1.3861E-02 -8.1751E-03  2.4594E-03
+  5.7966E-03  1.0935E-02 -1.5583E-03 -3.7647E-03  1.1197E-03  7.9108E-03
+ -3.7061E-04  1.1083E-02  5.5145E-03  1.3013E-02 -1.6985E-03 -6.7406E-03
+ -7.0476E-03 -1.3313E-03 -3.4871E-03  1.0513E-02  9.3397E-03  8.0167E-03
+ -7.2273E-03 -3.4813E-02 -4.5548E-03  3.0264E-03 -2.2914E-03  9.7189E-03
+  4.9870E-03  3.6798E-03 -2.9859E-03 -3.2853E-03  1.0411E-02 -4.4778E-03
+ -3.3771E-03 -9.2943E-03 -9.8180E-03 -4.8250E-03 -3.5097E-03  2.3650E-02
+ -1.0038E-02  1.1252E-02 -7.0245E-03  1.6760E-03  4.7219E-03  6.3825E-03
+  3.4361E-03 -8.1684E-03  2.1582E-02 -1.1817E-02 -4.8914E-03  3.3585E-03
+ -2.3311E-02  2.9791E-03  7.2346E-03 -5.5959E-03  3.7809E-03 -5.1109E-05
+ -6.1671E-03  1.0643E-03 -8.5087E-03  2.0447E-03  1.0809E-02  5.5905E-03
+ -1.6881E-03 -2.6900E-02 -1.3885E-03 -4.3232E-04  7.9336E-03 -5.9395E-03
+ -7.4608E-03 -4.2716E-04 -6.0622E-03 -5.7143E-03  4.8674E-03 -3.7669E-03
+  7.9369E-03 -8.0104E-03  1.1390E-02 -8.9782E-03 -2.3443E-03 -1.5432E-02
+ -1.0826E-02  7.7266E-03 -3.7443E-04  7.6143E-03  3.7378E-03  2.3093E-02
+ -2.2328E-03  3.7382E-03 -6.2790E-03  4.2030E-03  9.9907E-04  3.3978E-03
+ -1.0944E-02 -2.5710E-03 -3.4885E-03  1.7733E-03  9.3856E-03  4.6723E-03
+ -3.7272E-04 -5.6592E-03 -1.7468E-03  8.0240E-03  8.1927E-03 -1.2112E-02
+  6.9941E-03  2.0958E-02  2.9305E-03 -8.5741E-03 -2.7729E-02  2.3314E-04
+  6.6769E-03  1.8376E-03 -1.4116E-02  5.1351E-03 -6.6498E-03  3.3365E-03
+  5.5953E-03  1.6305E-02 -3.8085E-03  1.1317E-02 -5.5193E-03  1.8382E-03
+  9.5012E-03 -6.2109E-03 -9.7198E-04 -2.4057E-03  4.7123E-03 -7.4995E-03
+  2.5050E-04 -1.2999E-02 -1.7260E-02  1.9462E-03 -1.8710E-02  1.8500E-03
+  1.4978E-02  1.3747E-02  1.9649E-03  1.5932E-02 -2.5225E-03  5.0946E-04
+  3.7240E-03  1.7249E-03 -2.3075E-03 -6.1724E-03  6.5924E-03  4.9456E-03
+  4.9356E-04 -1.4344E-02  3.0284E-03 -7.8363E-03 -3.6021E-03 -5.2736E-03
+  1.1215E-02  9.8280E-03 -1.1545E-02 -1.4132E-03  7.6882E-03  2.2971E-03
+  1.0908E-02 -1.0496E-02 -3.6661E-03  5.2734E-03 -3.0732E-03  4.5453E-03
+ -1.6260E-03 -3.8600E-03  9.1974E-03  7.2879E-04 -1.6961E-02 -7.8201E-03
+ -8.6611E-05 -9.3252E-03 -9.3749E-03 -4.4833E-03  2.9575E-03  6.1449E-03
+  2.5333E-02 -1.8934E-02 -3.4431E-03 -1.4180E-03  6.7244E-03  4.3467E-03
+  8.7584E-04 -6.6605E-03  5.5042E-03  6.3289E-03  1.6333E-02 -4.2980E-03
+  1.1184E-02 -7.4898E-03 -2.3765E-02 -5.4649E-03 -1.0515E-02  2.4955E-02
+ -3.4809E-03 -5.5829E-03  1.2508E-02  4.0357E-03  2.4802E-02 -5.7488E-03
+ -1.6183E-03 -1.1670E-02 -6.5102E-03 -1.0565E-02 -1.0895E-02  1.4448E-02
+ -3.3303E-04  1.2968E-03  3.9703E-04 -3.0508E-03  2.6294E-03  1.1648E-03
+  6.6890E-03  1.5124E-03  1.7716E-03  5.4083E-03  1.1449E-03  4.6417E-03
+ -1.4681E-02  1.5723E-03  9.9261E-03  1.3266E-02  4.8417E-03  4.8534E-05
+ -4.4974E-04  8.8448E-04 -2.6396E-03 -1.1294E-02  5.8809E-03  1.6043E-02
+  1.1410E-02  1.9789E-03  7.7809E-03  4.4743E-03  7.8771E-03 -5.2716E-03
+ -6.0431E-03  2.3136E-03  3.7889E-04 -3.5421E-03 -1.3116E-02 -1.1728E-02
+ -4.3399E-03 -9.4391E-03  1.6483E-02  2.7646E-03 -8.2152E-04  1.0826E-02
+  1.0237E-02 -8.6938E-03  7.6142E-03  8.7554E-03  6.1166E-03 -5.1984E-03
+  7.1817E-03 -8.7276E-03 -8.8830E-03  1.0207E-02 -1.3921E-02  1.1672E-03
+  4.3348E-03 -9.9078E-04 -2.7753E-05 -1.0924E-04 -5.0634E-03  2.0146E-02
+ -2.9811E-04 -2.0342E-02  1.2269E-03 -1.9240E-02  1.8467E-02 -1.2148E-02
+  1.0169E-02  2.2036E-02 -2.8135E-04 -3.2487E-03 -2.3245E-03  1.1645E-03
+ -9.5848E-03 -1.2620E-02  9.3486E-03  7.4295E-03  7.1622E-03 -4.9452E-03
+ -6.1871E-03  8.6054E-04 -3.1660E-03  5.3240E-03  5.2853E-03 -1.9743E-03
+  2.0489E-03 -5.6414E-03
+STRU  14:  1
+ -1.8083E-03  6.3015E-04  4.3932E-03  5.5089E-03  7.3025E-03  2.7589E-04
+  1.2269E-04  6.7407E-04  8.2120E-03  2.7606E-03  3.2401E-03 -4.6607E-03
+  2.7922E-04  3.2044E-03 -3.2105E-03 -6.7569E-04  1.6253E-03 -9.8674E-04
+  7.6891E-04 -1.3974E-02  8.6798E-03 -3.6564E-03 -4.3836E-04  8.4327E-03
+ -2.1834E-03  1.4303E-03  5.6694E-04  7.9707E-03  1.3449E-02 -8.3032E-03
+  1.4858E-03  1.0323E-02  4.5654E-03  6.5679E-03  2.3389E-02 -2.1404E-04
+ -5.2445E-03 -8.3035E-03 -1.2229E-02 -1.5867E-03  3.8212E-03 -4.7626E-04
+  6.1020E-03 -7.2200E-03 -4.4755E-03 -8.3586E-03 -4.2986E-03  2.4782E-04
+  6.3650E-03 -4.3455E-03 -4.6491E-03  2.3950E-03  1.2380E-02 -5.3155E-03
+  2.3591E-03  2.8896E-03 -9.9424E-04  1.2286E-03 -1.7750E-03 -2.3584E-03
+ -2.5114E-03  1.3598E-02  6.0879E-03 -1.2871E-02 -8.9611E-04  3.6725E-04
+  1.4396E-02  2.4204E-02 -1.1564E-02 -5.3683E-03  9.2919E-03 -6.5769E-03
+  3.2010E-03 -4.9198E-03  1.2645E-02 -3.5065E-04 -1.5331E-02  5.5638E-03
+  6.1455E-03  4.2177E-03 -6.2350E-03 -5.9160E-03 -8.2454E-03 -9.7334E-04
+  1.1497E-02 -4.5146E-03  5.5037E-03 -1.0353E-02  1.6241E-03 -3.2761E-02
+ -5.7656E-03  2.0621E-02  4.5248E-03  1.9802E-03  1.0096E-03  3.9059E-03
+ -1.4866E-03 -9.2668E-03 -3.1580E-03  2.6831E-03 -1.1884E-02 -8.1804E-03
+  8.0092E-03  6.2369E-03  4.5423E-03 -4.6231E-03 -6.1828E-03 -5.9020E-03
+  4.5504E-03 -1.5384E-02  1.1993E-02  8.5089E-03  1.6995E-02 -8.3996E-03
+  6.9400E-03 -7.0486E-03  2.5766E-03  1.9506E-03  1.0546E-02  1.1540E-02
+  2.1237E-02 -9.2971E-03 -4.6118E-03  3.4824E-03  1.7517E-02 -1.5918E-02
+  3.2004E-03 -1.3526E-02 -1.0600E-02  3.0990E-03  2.9408E-02  6.9356E-04
+  1.1072E-02  2.1278E-02 -5.2170E-03 -1.3614E-02 -1.2924E-02 -1.7954E-02
+ -6.3890E-03  1.0181E-02  1.2471E-02 -1.6036E-02  6.0237E-04 -1.1725E-02
+  7.8740E-03 -8.4935E-03 -8.7757E-03  4.9510E-04  1.9852E-05 -1.7315E-02
+ -6.4126E-03 -1.4552E-02 -1.4476E-02 -1.0158E-03 -9.6667E-03 -1.7128E-02
+ -5.0583E-03  7.1279E-03  6.6143E-04  5.4112E-03 -3.8550E-03  3.6066E-03
+ -2.5253E-03  1.7732E-03  3.6952E-03  7.2051E-03  5.0478E-03 -1.5340E-02
+ -2.5463E-03  1.7033E-03  9.5367E-03 -2.2035E-02  7.7815E-03  1.8954E-02
+  1.6411E-02  2.5595E-03 -5.7939E-03 -7.1113E-03  3.4264E-02  5.6905E-03
+  6.5573E-03  6.9787E-03  1.6773E-02  3.6971E-03  3.5468E-03 -4.7799E-03
+  1.0183E-03 -9.4182E-03  5.2110E-03 -3.3074E-02 -2.7900E-04  8.3946E-03
+ -6.3389E-03 -1.3506E-02 -8.1854E-03  1.9632E-04 -1.9742E-03  6.1770E-03
+  1.4491E-02 -1.3266E-02  3.3727E-03  5.5527E-03  1.2605E-02 -1.0711E-02
+ -3.8229E-03 -5.5969E-04 -8.4142E-03 -5.6495E-03 -1.3252E-02 -2.5842E-03
+  5.6389E-03 -1.4932E-02 -5.0769E-03 -1.9487E-02 -6.4808E-03  4.1344E-03
+ -1.3267E-02  7.1249E-03 -4.3312E-03 -3.3572E-03  6.6580E-03  3.2647E-03
+  1.6413E-02 -9.0955E-03 -1.6496E-03  1.6617E-02  5.8265E-03 -1.2713E-03
+ -1.8000E-02  7.8600E-03  1.8128E-02 -4.0216E-03  2.0815E-02 -1.2809E-02
+  4.0171E-03  5.7459E-03 -2.0823E-03 -6.0534E-03  2.1093E-02 -8.1524E-03
+ -1.7747E-02  1.7773E-02  1.1944E-02  9.1508E-03 -8.6481E-04  6.0449E-03
+  1.6769E-02 -1.9719E-02  8.6224E-03  5.0341E-03 -1.8775E-03 -6.7450E-03
+  2.3699E-03  9.0760E-03 -2.2747E-02 -1.2765E-02 -1.1512E-02  7.2789E-03
+ -5.2516E-03 -6.0824E-03  1.3562E-02  1.6459E-02 -1.0999E-02 -1.1042E-02
+ -1.0043E-02  1.9129E-02  3.8584E-03  2.0733E-02 -7.6436E-03  1.3639E-02
+  4.7688E-04 -1.2208E-02 -1.0752E-02 -9.1722E-03 -1.3404E-02 -8.3604E-04
+ -1.1669E-02 -4.6171E-03 -5.3953E-03  3.8318E-03 -4.4204E-03  1.1141E-03
+  2.1665E-02  1.5766E-02  2.0116E-02  3.6599E-03  6.0512E-04  1.4971E-02
+ -1.5396E-03 -5.7958E-03 -2.5894E-03  6.8206E-03  2.3541E-03 -5.7960E-04
+  1.0909E-02  5.9783E-03 -7.5069E-03  1.5484E-02  1.5856E-02  3.6593E-03
+  6.1393E-03  1.0837E-02  5.5476E-03  4.3576E-03  6.1703E-04  1.9650E-03
+ -1.8537E-02 -3.4761E-03  3.2530E-03 -3.1504E-02  1.2190E-02 -1.6001E-02
+  4.7001E-03 -4.3082E-03  3.3392E-03  9.3441E-03  3.0680E-03 -3.8504E-03
+ -1.4298E-03  7.7851E-03 -8.1330E-03 -1.1036E-02 -2.6784E-03  1.6343E-03
+ -3.5179E-03  1.3273E-03  6.1467E-03 -2.5831E-03 -1.5630E-03 -8.9355E-03
+  6.7432E-03  5.5837E-03 -1.1066E-02  4.9988E-03  7.3033E-03  7.5171E-03
+ -1.2009E-02  4.8538E-03  1.3141E-02  1.1324E-02  8.6019E-03  6.3118E-03
+ -1.5558E-03 -1.6752E-02  9.8904E-04  7.4490E-03 -3.4783E-03  1.5433E-02
+  1.3530E-02 -1.1648E-02  4.1098E-04 -1.2270E-02  1.0228E-02 -1.1454E-02
+  6.9504E-03 -9.6649E-03  2.1164E-04 -1.0381E-02  5.4115E-03 -6.8940E-04
+ -1.9203E-02  1.7182E-02
+STRU  15:  1
+  2.2884E-03  1.0620E-02 -4.6805E-03  3.9755E-03  8.9696E-05  4.1713E-03
+ -1.6173E-03  5.7752E-03 -2.2740E-03 -6.4338E-03 -1.5361E-03 -4.1046E-05
+  3.8569E-03  1.2270E-03 -2.1631E-03 -1.2935E-03  2.7907E-03 -3.6838E-03
+ -8.9536E-03  1.1109E-02  6.7356E-03 -6.8781E-04 -2.2759E-03 -4.0332E-03
+ -1.0471E-02 -2.3050E-03  8.5007E-03  6.9344E-03 -2.2474E-03  6.9237E-04
+  5.8972E-03  5.8346E-03 -4.0321E-03  5.4385E-03 -3.1810E-03 -2.6393E-03
+  5.8855E-03  1.0572E-03  1.2829E-02 -8.8041E-04 -1.8988E-03 -8.0310E-03
+  1.2070E-02  6.9827E-03 -1.1142E-02  3.4185E-04 -2.4082E-03 -1.8226E-03
+ -6.3494E-03 -4.8550E-03  8.4829E-03  3.3885E-03  5.8074E-04  8.9913E-03
+ -3.5711E-03  8.0298E-03 -8.9253E-03  5.5203E-04 -8.2438E-04  1.0197E-02
+ -8.5478E-03 -5.7069E-03 -1.1870E-02 -1.8456E-02  7.7509E-03 -3.0483E-03
+  9.1496E-03 -9.6827E-03 -5.6068E-03  7.8464E-03  1.2590E-02 -7.0843E-03
+ -1.4035E-02 -5.0929E-03 -2.1671E-03  2.9510E-03 -1.1456E-02  2.6582E-04
+ -1.3240E-06  1.6611E-02 -6.3824E-03 -2.8986E-02 -4.7879E-04 -2.4953E-04
+  3.9658E-03  1.5955E-02  1.6239E-03 -4.6133E-03  5.9658E-03 -6.2537E-03
+ -7.0785E-03  7.1955E-03 -7.1842E-03  8.2081E-03  1.3182E-02 -6.8541E-03
+ -1.1967E-02 -9.1813E-03 -9.7416E-03 -6.2319E-03 -1.5304E-02  5.7047E-03
+  3.1563E-04  1.3137E-02  1.2429E-02 -1.1923E-02  1.6487E-03  1.5337E-02
+  1.0261E-02  3.5604E-03  8.3179E-03 -2.2289E-03  1.0507E-02 -1.8970E-03
+  1.4176E-02 -1.7277E-02 -2.8079E-03 -1.3395E-03  1.0344E-02 -1.9512E-03
+ -1.3613E-02 -8.3954E-03 -1.2568E-03  5.8695E-03 -5.8464E-03 -1.8600E-02
+ -1.7590E-02  7.4708E-03 -8.9622E-03 -2.0210E-02  2.6555E-02 -8.5684E-03
+ -2.0105E-03 -1.3688E-02 -3.4697E-04 -1.9747E-02 -1.7702E-02 -2.5595E-03
+ -5.2199E-03 -2.3984E-02  2.9493E-02 -1.7841E-02  1.2585E-02  1.0106E-02
+  1.1805E-02 -1.5031E-02 -7.3946E-03 -2.0932E-02  4.9748E-03 -1.4389E-02
+ -5.4177E-03  1.0656E-02 -1.6699E-03 -1.2857E-02  1.2579E-02  2.5599E-02
+  1.2038E-03  2.4449E-02  8.2779E-03  1.5850E-02 -2.3547E-02 -3.1292E-03
+ -6.2873E-03  8.5880E-03 -4.1227E-03 -1.3863E-02  7.2167E-03  1.3267E-02
+  6.0802E-03  1.1275E-02  1.2356E-02 -1.9791E-02 -5.9623E-03  3.5250E-03
+  6.6495E-03  2.8068E-02  2.6525E-03 -1.0983E-02 -2.7710E-02  2.3545E-03
+ -2.4728E-02 -4.1810E-04 -2.4257E-03 -3.8678E-03 -1.4154E-02 -3.0789E-03
+ -1.3270E-02 -5.4105E-03 -3.3898E-03 -5.0837E-03 -4.6231E-03  4.5999E-03
+  1.5448E-02  2.8215E-03  1.7315E-04 -7.5932E-03 -1.4465E-03 -1.3086E-03
+  1.4296E-02 -2.3749E-02  2.8402E-03 -3.6720E-03 -4.1994E-03 -2.5361E-03
+  2.3919E-02 -1.6059E-02  1.7674E-04  4.9975E-03 -9.0407E-03 -9.3606E-03
+ -9.1645E-04  3.0685E-02  2.4705E-03  9.8734E-03  1.6420E-02  4.7616E-03
+  1.0223E-02  3.6133E-03 -5.7311E-03  1.3592E-02 -3.8689E-04 -7.9765E-03
+ -8.7604E-03 -6.1379E-03  1.2509E-03 -6.5933E-03 -3.2353E-03  4.5482E-03
+  2.9450E-02 -4.1978E-03 -1.0070E-02  3.2609E-03 -1.4949E-02  9.5375E-03
+  3.4521E-03  1.8673E-02 -8.8877E-03  5.8794E-03  4.3655E-03 -4.8778E-03
+  7.9862E-03 -2.3765E-03 -1.3459E-02 -9.3531E-03 -9.9873E-03 -1.1292E-02
+ -1.3007E-02  2.8248E-02 -1.5519E-02  1.4707E-02 -4.9122E-03  9.1302E-03
+ -1.7225E-03  3.6909E-03  6.3006E-03 -2.1996E-03 -4.2622E-03 -1.1557E-02
+ -6.5840E-03  3.5134E-03  7.4307E-03 -1.4060E-02  1.3177E-02  4.6689E-03
+ -3.0465E-03  1.3137E-03 -5.1392E-03 -1.3472E-02 -8.5744E-04  2.4850E-03
+  4.5776E-03 -1.1418E-02  8.4063E-03  1.4264E-02  3.0604E-02  1.0516E-02
+  4.8763E-03 -6.4188E-03  9.2701E-03  9.8992E-03  5.9569E-03 -6.2600E-03
+ -2.0012E-02  2.4022E-03 -3.0846E-03  5.0418E-03  1.2904E-02 -4.4343E-03
+ -3.0102E-03  1.2750E-03 -5.3398E-03 -1.0384E-02  2.1787E-02 -1.1740E-02
+ -1.5057E-02 -5.5773E-03  6.5224E-03  3.4424E-03 -6.1613E-03 -3.2194E-03
+ -7.2036E-03 -2.7758E-02 -1.6940E-03 -2.6790E-03 -1.0500E-02  8.5356E-03
+  1.3466E-02  1.9085E-03  2.2641E-02 -5.1651E-03 -1.1246E-02  1.5587E-02
+  1.5532E-02  1.9139E-02  1.3492E-02  2.1477E-03 -3.7871E-03  4.1358E-03
+ -6.1522E-03 -1.5815E-03  1.8003E-02  3.2208E-03  1.4004E-02  6.0359E-03
+  7.5009E-03 -1.6750E-02  6.4178E-04 -1.7443E-02 -4.1154E-03 -5.2866E-03
+ -4.0717E-03  8.1713E-03 -8.5941E-03 -1.6528E-02 -2.2458E-03  1.1123E-02
+  1.3689E-02 -1.5831E-02  3.7434E-03  2.4239E-03  1.6710E-03 -4.4524E-03
+  2.0416E-03  1.0555E-02  4.2526E-03 -2.9745E-03 -7.5612E-03  6.7878E-03
+ -4.0877E-03 -5.0917E-03  3.0178E-02  1.7051E-02 -1.0776E-02  1.3717E-02
+ -3.5790E-03 -1.6221E-02  2.5614E-03  7.9388E-03  1.1401E-04 -6.0256E-03
+  1.1325E-02 -1.1544E-02
+STRU  16:  1
+ -3.8688E-03  1.0321E-02 -1.2683E-03  1.1217E-02  8.1442E-03  6.4427E-03
+ -1.8523E-03  9.1444E-04  7.7270E-04  5.8849E-03  3.9158E-04  3.4045E-04
+  2.3957E-03  6.1742E-03 -4.1766E-03 -5.1844E-03  8.4567E-03  5.8305E-03
+ -6.4689E-03  4.7053E-03  1.5413E-02  9.5428E-04  4.5633E-03 -1.0989E-02
+ -6.4667E-03 -2.9177E-04  1.2692E-02  9.2350E-03 -1.1295E-02  4.0020E-03
+  3.9398E-03  7.0359E-03 -1.8983E-03 -4.8169E-03  1.6438E-03 -2.2447E-03
+  1.5974E-03 -4.8132E-03  7.6445E-03 -1.8536E-03  5.8469E-04  1.4196E-03
+  5.0123E-03  1.4537E-02 -1.2794E-02  8.5053E-03 -7.7967E-03 -7.1909E-03
+  2.2929E-03  3.3616E-03  1.7351E-02  4.9042E-03  3.3796E-03  5.1700E-03
+ -9.2830E-03 -5.9008E-03  8.2105E-03 -2.2693E-03  1.1667E-02  3.8984E-03
+  9.5714E-05  1.1260E-02 -2.0616E-02 -1.2245E-02  4.7156E-03  1.4930E-03
+ -2.2348E-03 -2.4892E-03 -8.2497E-03 -1.3760E-02  1.4782E-02 -3.5510E-03
+ -2.0930E-02  1.0006E-03 -8.3073E-03  5.9006E-03 -1.3969E-02  6.4944E-03
+ -7.8319E-03  2.5259E-04 -2.1183E-03 -1.6623E-04 -4.4758E-04  4.2966E-04
+ -3.3282E-03  1.0575E-02 -5.7525E-03  1.9144E-03  4.5288E-03 -1.0500E-02
+ -8.1398E-03  2.0669E-02 -1.3108E-02  7.1589E-03 -2.7926E-04 -1.4159E-02
+ -1.5981E-02 -2.3250E-03 -5.6337E-03  1.0273E-02 -3.4699E-03 -1.2852E-04
+  7.4324E-03 -1.1667E-02  7.1847E-03  2.4761E-03 -1.2019E-02 -3.1193E-02
+  1.0641E-02  8.4941E-03  6.1489E-03  1.8696E-03  1.2719E-02  6.2064E-03
+  9.4060E-04  1.0250E-02 -1.0621E-02 -6.7867E-03 -9.9801E-03 -2.1753E-03
+  1.1052E-02 -1.0477E-02 -2.2315E-02  8.2594E-03  7.7423E-03 -1.9904E-02
+ -1.3178E-02 -1.0068E-02  3.4520E-04 -1.9002E-04  1.2724E-02 -1.5896E-02
+  9.4571E-04  1.6966E-02 -1.3348E-02 -4.4975E-03 -7.0523E-03  1.9163E-02
+  1.2730E-03  7.9077E-03 -1.2358E-02 -1.6523E-02  2.2789E-03  4.3090E-03
+  6.5472E-03 -8.1301E-04 -1.2370E-02  4.4632E-03 -4.9654E-04 -2.6651E-02
+ -3.6910E-03 -1.6769E-02 -1.2563E-02  5.6853E-03 -1.7784E-03 -1.5682E-02
+  1.5762E-02  3.1441E-03  7.9422E-03  2.4219E-02 -3.6734E-03 -1.9212E-03
+  3.1810E-04  4.3417E-04 -3.1733E-02 -1.4672E-02  3.4188E-03  1.1252E-02
+ -1.4063E-04  9.1551E-04 -8.4889E-04  2.4653E-03  3.0133E-03  2.5730E-03
+ -7.1511E-03 -2.0731E-02  8.8946E-03 -1.3407E-02 -7.0866E-04  8.6001E-03
+ -5.7165E-03  2.2954E-04  1.6977E-03 -9.1197E-03 -2.0597E-02 -2.0174E-03
+ -4.2122E-04 -4.8762E-03  7.1650E-03  4.3705E-03 -5.1119E-03 -1.3959E-02
+  1.2798E-02  8.8113E-03 -5.0008E-03 -1.9976E-02 -6.4316E-03 -2.1824E-02
+ -5.0943E-03 -6.4891E-04  3.5978E-03 -9.0965E-03  2.1487E-03  1.3513E-02
+  8.0247E-03  1.1773E-02 -1.2509E-02  7.2123E-03  1.7247E-03 -3.5386E-03
+ -1.8126E-03 -9.7183E-03 -1.3358E-02  1.9564E-03  7.8531E-03  5.9683E-03
+ -3.0046E-02 -1.0256E-03  5.5772E-03  9.7410E-03  4.0444E-03  2.8569E-03
+  1.5237E-02  2.4577E-02  2.9330E-03  4.4227E-03  3.6452E-03  2.2235E-02
+ -2.9545E-02 -1.4970E-02 -1.0557E-02 -7.3979E-03  5.1970E-03  1.1128E-02
+  7.4280E-03  1.2642E-02 -5.2112E-03  1.0024E-02  4.1985E-04 -2.1714E-02
+ -1.0661E-03 -9.4437E-03  8.5958E-04 -1.1603E-03 -2.6196E-02  1.1050E-02
+  3.3838E-03  1.0914E-02  2.0596E-03 -3.7756E-03 -3.2817E-03  1.2791E-02
+ -1.8625E-03 -4.7967E-03 -1.2436E-02 -8.6129E-03  1.8378E-02  3.3440E-02
+ -1.0943E-02 -5.5138E-03 -1.3169E-04  6.8692E-03 -1.6050E-02  2.2887E-02
+  1.0961E-02  2.7700E-02 -1.6132E-02  5.1209E-04 -2.2334E-02 -3.4968E-03
+  1.9925E-02  8.2238E-03  1.9202E-02 -9.2990E-03 -1.2869E-02  5.6367E-03
+ -9.5778E-03  1.0874E-02  1.4787E-02  1.3719E-02  1.2057E-02  8.0853E-03
+  4.3738E-03 -5.3914E-03  3.3613E-03 -5.1325E-03 -1.0137E-02 -6.3579E-03
+  7.7673E-03  1.6014E-02  1.4153E-02  1.0749E-02  1.7105E-02 -4.9643E-03
+ -6.5140E-04 -1.5974E-02  3.0782E-03  2.8644E-03 -6.5232E-03  3.2530E-03
+ -8.3961E-03  2.5252E-02  6.4681E-03 -5.7274E-03  1.0763E-02  2.8522E-03
+  7.4797E-03 -7.3544E-03  1.0620E-03 -1.2873E-03  1.8943E-02 -1.2006E-02
+ -1.6103E-02  1.5360E-03 -4.0198E-03  5.3592E-03  3.3771E-03  5.2616E-03
+  1.1509E-03 -2.8345E-04  3.2387E-03  1.2205E-02  2.0784E-03 -6.9351E-03
+ -1.1035E-03 -3.1687E-03  3.0725E-03  2.0917E-02 -3.4816E-03  1.3415E-02
+ -1.8096E-03  9.2679E-03 -2.9343E-03 -4.7752E-03 -5.6162E-03  1.2060E-02
+  7.5309E-03 -7.1462E-03  1.1021E-02 -1.2473E-02  3.4081E-03 -8.9997E-03
+  3.7712E-03 -8.6856E-03  2.8924E-03  1.3897E-02  1.5445E-03 -2.4002E-03
+  8.4167E-03 -3.0931E-03  1.6132E-02  3.3073E-05  1.3678E-02  4.2827E-03
+  1.5805E-02 -7.6322E-03 -1.2576E-02  1.9693E-02  1.0419E-03  9.4944E-03
+ -6.3061E-03  6.6962E-03
+STRU  17:  1
+  4.2766E-03  5.2526E-03 -2.5541E-03  1.1464E-02  9.8682E-03  3.2901E-04
+ -2.2550E-03  6.0847E-03  2.5309E-03  1.0905E-02  5.9565E-03  1.0953E-02
+ -1.8546E-03  2.2026E-03 -6.0928E-03 -8.1767E-04  4.5079E-03  9.3385E-03
+ -4.0595E-03  1.4357E-02  4.4841E-03 -1.3554E-03  1.1337E-03 -5.8560E-03
+ -7.0997E-03 -4.3818E-03  1.0173E-02  6.8992E-03 -6.1350E-03  6.7925E-03
+  1.1856E-02  9.6344E-03 -2.9645E-03  9.7049E-04  9.1190E-03 -2.0624E-03
+ -4.1294E-03 -1.2492E-02  5.3039E-03 -8.6579E-03  9.9170E-03 -1.2717E-03
+  4.3522E-03  3.8064E-03 -1.1974E-02  9.6660E-03 -3.9302E-03 -2.0065E-03
+ -1.0233E-02  6.0238E-04  1.1069E-02  1.2311E-03  7.6052E-05  2.3595E-04
+ -6.3297E-03  6.4672E-03  8.7029E-03  8.6748E-04  1.2617E-02  2.4584E-03
+  2.5094E-03  8.8724E-03 -1.3489E-02 -9.5679E-03 -1.3184E-02 -2.0924E-03
+  1.3166E-03 -7.2136E-04 -4.5326E-03 -6.1135E-03  1.1387E-02 -6.8171E-03
+ -2.0839E-02 -2.3972E-03 -3.5673E-03 -5.8762E-03 -1.8685E-02  7.9691E-03
+ -1.3602E-02 -2.9799E-03 -7.4753E-03  9.4838E-03 -2.1123E-04  1.2140E-02
+  7.3016E-03  8.0248E-03 -5.3360E-03  4.1166E-03 -1.0468E-02 -8.0977E-03
+ -9.0168E-03  1.7559E-02 -1.0212E-02  3.7948E-03  2.5923E-03 -1.0469E-02
+ -2.1369E-02 -4.8638E-03  2.9694E-04  1.9966E-03  1.0704E-03 -6.2170E-03
+  1.0533E-02  5.2527E-04 -5.9378E-03  2.9127E-03 -2.2709E-03 -2.3006E-02
+  7.7296E-03 -7.1001E-03  4.1722E-03 -3.7474E-04  8.4166E-03  1.1351E-02
+ -2.2602E-04  8.3085E-03 -1.7443E-02 -7.8458E-03 -7.5374E-03  1.3277E-03
+  1.1608E-02 -1.3804E-02 -1.6927E-02  9.7740E-04  4.2767E-03 -8.6531E-03
+ -7.2164E-03 -8.6981E-03  3.1579E-03  2.3530E-03  1.2602E-03 -1.8094E-02
+ -1.8512E-03  1.8432E-02 -1.3705E-02 -7.6710E-03  6.2809E-03  8.3277E-03
+ -2.8482E-04  1.0873E-02  9.8311E-03 -8.6491E-03  2.5319E-03  1.4639E-02
+  2.6615E-03  3.9319E-03 -1.5436E-02 -2.0560E-03  6.6401E-04 -1.3781E-02
+ -2.8881E-03 -2.5368E-02 -1.8713E-02  8.1969E-03 -5.1864E-03 -1.8686E-02
+  2.1360E-02  7.0070E-03 -5.8375E-03  2.0399E-02  1.0330E-02 -1.0395E-02
+  2.1430E-03  2.4179E-03 -1.9934E-02 -5.7666E-03 -1.0566E-03  5.0452E-03
+ -4.8053E-03 -8.0443E-03 -6.0301E-03 -4.1300E-03  1.0935E-03  1.3828E-03
+ -2.5635E-03 -1.7957E-02  1.2053E-02 -1.5026E-02  2.0112E-04  1.8268E-03
+ -1.4032E-02 -3.6665E-03 -4.3176E-03 -7.4330E-03  6.4210E-03 -3.8398E-03
+  2.6022E-04 -1.6207E-03  7.6294E-03 -8.2410E-03 -4.8378E-03 -9.9048E-03
+  1.0758E-02  1.0432E-03 -1.2118E-02  4.9134E-03 -8.4508E-03 -1.6802E-02
+ -8.7375E-04 -6.3161E-03  1.3108E-02  4.8417E-05  1.7254E-03  1.0689E-02
+  2.0376E-02  1.4803E-02 -2.6993E-03  2.7193E-02  1.0050E-02 -1.6602E-02
+ -6.1960E-03  1.6389E-03 -2.0661E-03  5.1813E-05 -1.0967E-02  9.9912E-03
+ -1.9972E-02 -1.1355E-03  9.5371E-03  2.5504E-03  1.4434E-02 -1.1510E-02
+  2.2554E-02  7.6751E-05 -3.4088E-03 -5.9829E-03  7.0393E-04  6.9299E-03
+ -2.0905E-02 -3.1534E-02 -2.2441E-02 -1.5602E-03  1.1773E-02  1.4013E-02
+ -5.8773E-03  5.6447E-03 -2.3135E-02  9.5287E-03  1.3943E-04 -9.0693E-03
+  3.2088E-03 -3.2937E-03 -6.4553E-03  1.1022E-02 -4.3340E-03  3.4644E-03
+  6.5354E-03  5.1703E-03  4.1407E-03  8.2362E-03 -1.5562E-03  4.3998E-03
+  6.0485E-03  4.1830E-03  2.2243E-03  4.8201E-04  4.0313E-03  1.9902E-02
+  4.0098E-03  1.0269E-02 -5.7241E-04  8.5130E-03 -1.9805E-02  1.8326E-02
+  9.0661E-03  2.5631E-02 -8.9129E-03 -1.6807E-02 -3.2333E-03 -6.5309E-03
+ -2.9888E-04  5.0055E-03 -1.1346E-04 -1.6976E-02 -1.5164E-02  1.6308E-02
+ -1.6677E-02  6.6620E-03  2.3485E-03  1.1583E-02  2.0391E-02  1.8513E-03
+  7.4229E-03  2.1116E-02 -2.8839E-03 -1.2207E-02 -1.0189E-02  4.8201E-03
+ -4.6521E-03 -1.1852E-02 -1.1541E-02  4.1301E-03  1.8789E-02  4.0350E-03
+ -9.9912E-05 -3.0012E-03  2.1244E-02  2.1843E-02 -3.5959E-03  5.2915E-03
+ -2.3976E-03  8.1383E-03 -2.5826E-03  2.8660E-03  9.0363E-03  2.2158E-02
+  1.3615E-02 -7.2626E-03 -8.5705E-03 -1.1226E-02  2.2999E-02  1.2623E-02
+ -2.8158E-03  9.4484E-03  4.2726E-03  4.7906E-03  5.2380E-03  5.2073E-03
+  1.0204E-02 -1.2323E-02 -7.4421E-03  8.1452E-04 -6.8367E-03  5.7253E-03
+  5.1757E-03 -1.3559E-02 -1.1693E-02  1.2143E-02  9.4807E-03 -1.2141E-03
+ -6.4629E-04  1.6174E-02 -2.2817E-03 -1.6481E-02 -8.0306E-03  4.8744E-03
+  2.4669E-03  1.4346E-02  8.5248E-03 -7.7548E-04  1.2030E-02 -9.1475E-03
+ -4.9472E-05  6.7604E-03  1.9547E-02  7.6345E-03  8.5568E-03 -1.1977E-02
+  9.0727E-03 -7.8801E-05  6.8570E-03 -6.6622E-03  1.7715E-02 -2.2513E-03
+ -9.8572E-03 -6.7056E-03 -6.3646E-03  1.0151E-02  2.1521E-02  1.9392E-02
+ -1.3739E-02 -1.1256E-03
+STRU  18:  1
+  7.9687E-03 -5.1020E-03 -8.5247E-03 -7.1266E-05 -2.3968E-03  1.5689E-02
+ -1.1342E-02  2.1386E-02 -1.9899E-02  8.8629E-03 -2.8866E-03  7.1494E-03
+  1.9485E-02  1.8609E-02 -1.8859E-02  5.5242E-03  3.7647E-03 -4.5015E-03
+ -1.9499E-03  1.1592E-02  2.3582E-02 -1.3715E-02 -9.9550E-03  2.2922E-03
+ -1.5670E-02  4.2569E-03 -1.5221E-02 -6.6213E-03 -2.3921E-02 -1.2057E-02
+  5.1186E-03  1.0328E-02  6.3316E-03 -6.6214E-03  3.4024E-04  1.2765E-02
+ -5.6586E-03 -3.2663E-02  9.0415E-03 -8.8455E-03  4.1329E-02 -7.3764E-03
+ -9.2403E-03  1.6131E-02  4.6247E-03 -1.3106E-02  1.1629E-02  5.9745E-03
+ -3.2469E-02 -1.6039E-02  3.1063E-04  5.7471E-03  1.8843E-02  3.9800E-02
+  2.4646E-02  1.2533E-02 -7.2095E-04 -5.4639E-03 -6.4239E-03 -2.1651E-02
+ -2.8511E-03 -1.7888E-04 -1.1766E-02  4.0071E-03 -1.6452E-02 -3.0815E-03
+ -2.2687E-02 -1.1760E-02 -9.3374E-03 -7.2854E-03  1.6039E-02  1.1419E-02
+ -1.8058E-02  5.5578E-03 -4.9372E-03 -1.0892E-02 -3.1332E-04  2.2389E-02
+  3.3423E-02 -1.8301E-02  7.1318E-03 -5.9542E-04 -1.3316E-02  9.6298E-03
+  1.4888E-03  5.5217E-03  5.7849E-03 -1.3041E-02  1.3150E-02  1.1259E-02
+ -2.5419E-02 -2.2684E-02 -1.2222E-02  8.9686E-03 -3.8013E-03  4.7170E-04
+ -1.1925E-02 -2.1227E-02 -9.5415E-03  8.6837E-03  1.0484E-03  1.2743E-02
+ -6.7329E-03 -2.0156E-02  5.8809E-03 -2.0563E-02  1.2451E-02  1.9826E-02
+  1.4277E-02  4.6569E-03 -2.0834E-02 -2.0778E-03  1.3813E-02 -2.6201E-03
+ -8.6339E-03  2.8714E-02 -3.2252E-02  1.3229E-02  9.5182E-04  6.4541E-03
+ -6.3989E-03  1.1043E-03  4.3108E-04  5.4401E-03 -5.8781E-03 -2.5811E-03
+ -4.4705E-03  1.5609E-02 -7.4835E-03 -4.6572E-03 -1.6116E-03  1.3778E-02
+ -1.2480E-02  7.4411E-03  8.6191E-03  2.3942E-02  7.1240E-03  2.0380E-02
+ -1.9542E-02 -1.0985E-02 -1.9769E-02 -2.1222E-03  1.3295E-02  9.3091E-04
+ -1.2277E-02  1.6363E-03  9.9268E-03  1.3826E-03  1.3675E-02 -1.0488E-02
+ -8.9883E-03 -5.7824E-03 -1.4954E-03 -1.1274E-02 -1.1158E-02 -7.4970E-03
+ -1.3423E-02  2.4923E-03 -7.0945E-03  3.3750E-02  3.1768E-03  1.9718E-04
+ -1.8881E-02 -8.7075E-04 -4.0122E-02 -1.1729E-02  1.2562E-03  1.5654E-02
+ -4.1453E-03 -5.2779E-03 -4.0152E-03  2.4935E-02 -2.6787E-03 -3.1708E-04
+ -2.0478E-02  2.1166E-02 -6.8074E-03  1.9809E-02 -3.4558E-02  4.0373E-03
+ -1.4972E-02 -4.0030E-03 -2.2429E-02  3.8637E-03  1.2979E-02  1.4791E-03
+  6.6143E-04  2.5932E-02 -1.8639E-03  2.8906E-06 -2.6041E-02  3.2059E-03
+ -4.8486E-03  3.6615E-02  2.9761E-02 -2.0376E-02 -7.4343E-03 -1.6723E-02
+  1.6923E-02 -1.3192E-02 -8.6108E-03  8.3292E-03  1.4089E-03 -6.9821E-03
+ -7.7249E-04 -4.5557E-04  1.7193E-02  8.0612E-03  5.9560E-03 -2.1815E-03
+ -1.1298E-03  1.1711E-03  5.5988E-03  1.0380E-02  5.4808E-03 -2.8119E-02
+  2.3903E-03 -3.4278E-02  1.7759E-02 -4.0540E-04  2.8404E-03 -4.0845E-03
+ -9.7146E-04 -1.6939E-02  1.0148E-02 -1.5847E-02  1.8181E-02 -1.4932E-02
+ -3.7958E-03 -1.1231E-02  4.5516E-03 -5.3603E-03 -6.9049E-05 -6.2325E-03
+  1.1788E-02  6.7282E-03 -1.4311E-02  4.0269E-02 -5.2791E-03 -2.7131E-02
+  6.0688E-03 -2.4283E-02  2.1507E-02 -8.3792E-03 -7.7980E-04  8.9047E-03
+  3.5447E-03  3.3844E-02  9.0820E-03 -1.0091E-02 -1.1046E-02 -1.7022E-02
+ -9.6456E-03 -1.0874E-02 -2.8702E-02  7.0785E-03 -2.2650E-02  1.2900E-03
+  2.9548E-02 -1.7608E-02 -8.2327E-03 -9.1356E-03  3.7310E-02 -3.1209E-02
+  2.8415E-02 -2.9739E-03 -3.1053E-03  3.1697E-03 -1.1744E-02  1.5611E-02
+ -3.2780E-02 -1.7163E-02  1.4981E-02  1.2786E-02  1.1268E-03 -2.8321E-02
+ -8.6728E-03 -1.4203E-02  1.1227E-02 -9.3307E-03  4.8598E-03 -5.0533E-05
+ -1.4039E-02  4.2477E-03 -1.0436E-02 -3.4238E-03  2.3427E-02 -1.0353E-02
+ -2.1198E-02  2.1313E-02  6.8295E-03 -1.1496E-02  1.8126E-02  2.3653E-03
+ -1.1755E-02 -4.2962E-02  6.7975E-03 -2.9387E-02  1.2390E-02  5.4230E-03
+  2.6876E-03 -2.4061E-02  1.4527E-02  1.2697E-02  2.8081E-02 -8.9894E-03
+ -7.8945E-03  1.9846E-03 -1.8044E-02  1.9124E-02 -2.8247E-02 -1.5308E-02
+ -8.5242E-03  3.1498E-02 -2.4926E-02  2.0067E-02 -1.5474E-02 -1.7960E-02
+ -1.2854E-02  1.2276E-02  4.1969E-03 -2.0152E-03  2.4200E-02 -9.4925E-03
+  1.5103E-02 -2.3499E-03 -2.5331E-03  4.5171E-03 -2.7230E-02 -2.0678E-03
+ -3.6134E-03  1.9001E-02  1.0705E-02  1.4058E-02  7.8756E-03  2.1744E-02
+  4.4171E-04 -1.8148E-02  6.9789E-03 -5.8472E-03 -8.9497E-03 -9.6004E-03
+  5.1908E-03  1.8703E-02 -1.8028E-02  9.3477E-03 -1.9152E-02 -3.4997E-02
+  7.9942E-03  2.6779E-03 -4.9819E-03  6.4719E-03  1.0790E-02 -3.8626E-03
+ -3.2402E-03 -1.9839E-02  1.1087E-02  3.5763E-02  4.1787E-02  9.5643E-03
+ -1.1137E-02 -4.0570E-02
+STRU  19:  1
+  5.4404E-03 -1.9415E-03 -5.1697E-03 -1.0304E-03 -9.4065E-03  2.7406E-02
+ -9.9792E-03  1.4907E-02 -2.3657E-02  1.1985E-02 -1.3058E-02  3.5936E-03
+  2.4753E-02  1.6428E-02 -1.5020E-02  9.4137E-03  1.7271E-03 -1.1533E-02
+ -2.3271E-03  9.1916E-03  2.2099E-02 -1.3357E-02 -1.1981E-02  7.2045E-03
+ -1.5416E-02  4.0707E-03 -7.2465E-03 -2.9012E-03 -2.3533E-02 -1.7633E-02
+  5.9520E-04  1.1351E-02  1.5689E-02 -5.2062E-03  2.6563E-03  1.1082E-02
+ -3.0346E-03 -2.6796E-02  6.5896E-03 -6.7244E-03  3.7388E-02 -2.2232E-03
+ -4.9700E-03  1.3672E-02  7.1468E-03 -7.0481E-03  3.9161E-03  8.0593E-03
+ -3.0844E-02 -1.1977E-02  4.5690E-05  8.9276E-03  2.5214E-02  3.2955E-02
+  2.3863E-02  9.0247E-03  4.1166E-03 -2.4041E-03 -1.0561E-02 -1.5232E-02
+ -3.7533E-03  6.6586E-03 -1.1815E-02 -3.9766E-03 -2.6025E-02  2.0276E-03
+ -1.4616E-02 -6.7553E-03 -7.5286E-03 -7.3572E-03  1.2548E-02  1.1508E-02
+ -2.4496E-02  9.5872E-03 -5.0419E-03 -4.0634E-03  4.2397E-04  1.9225E-02
+  4.0772E-02 -1.9985E-02  3.8692E-03  1.5443E-03 -8.8040E-03  8.9756E-03
+  2.8585E-03  6.2461E-04  3.4447E-03 -1.3289E-02  1.4612E-02  6.2750E-03
+ -2.5238E-02 -1.2080E-03 -1.2233E-02  9.4436E-03 -4.2777E-03  6.4460E-03
+ -1.0803E-02 -9.6587E-03 -1.1314E-02  1.3071E-02  1.5610E-03  1.3539E-02
+ -4.5962E-03 -1.8998E-02  5.6430E-03 -2.4104E-02  1.0509E-02  8.5519E-03
+  1.3000E-02  5.2927E-03 -1.1744E-02 -1.1130E-03  1.3882E-02 -5.1751E-04
+ -8.2977E-03  1.6230E-02 -3.1991E-02  1.1496E-02  2.0218E-03  1.0612E-02
+  7.9642E-03  4.0245E-03 -2.3903E-03  7.0874E-03  1.4154E-03  1.1987E-03
+ -9.8039E-03  1.3343E-02 -2.5450E-03 -4.3953E-03 -5.8294E-03  1.8301E-02
+ -8.5911E-03  1.1432E-02  7.6901E-03  1.6565E-02  5.9697E-03  2.4924E-02
+ -1.9593E-02 -9.5577E-03 -1.9877E-02 -4.7190E-03  5.6159E-03  6.1954E-03
+ -4.0438E-03  3.1280E-03  1.1790E-02 -2.5787E-03  1.5428E-02 -4.9017E-04
+ -8.9502E-03 -5.0247E-03  2.2551E-03 -1.1842E-02 -9.9009E-03  4.9277E-03
+ -1.5286E-02  7.3581E-03 -1.2697E-02  3.1756E-02  6.2067E-03  2.0352E-03
+ -1.5496E-02  2.7592E-03 -3.6000E-02 -9.8709E-03  3.2523E-03  1.4771E-02
+  3.9655E-04  1.3119E-03 -7.6060E-03  2.0916E-02  2.9125E-03 -4.9326E-03
+ -1.1166E-02  2.6419E-02 -6.7934E-03  2.0088E-02 -2.2727E-02  1.0251E-02
+ -1.2480E-02 -8.0100E-03 -2.0095E-02  3.6900E-03  2.5657E-02  2.6212E-03
+  5.4931E-03  2.4123E-02  3.6645E-04 -2.6331E-03 -1.9106E-02 -1.9892E-04
+ -1.4176E-02  3.5429E-02  2.1293E-02 -1.8351E-02 -1.1002E-02 -8.0578E-03
+  1.1973E-02 -1.1303E-02 -1.5117E-03  1.1651E-02 -2.4720E-04 -7.5792E-03
+  5.5967E-03  3.7471E-03  1.0885E-02  1.2742E-02  3.1627E-03 -7.0842E-05
+ -5.1805E-03  2.5867E-03  9.4621E-03  1.4572E-02  3.4836E-03 -2.2026E-02
+ -2.4862E-03 -3.2568E-02  1.4939E-02  4.8437E-03  7.1876E-03  7.5998E-04
+  2.2493E-03 -5.3688E-03  1.4198E-02 -2.2402E-03  1.6432E-02 -5.3443E-03
+  1.0589E-02 -6.8014E-03  8.6180E-03 -6.4555E-03 -3.2978E-03 -1.0439E-02
+  1.0491E-02  9.2546E-03 -4.2032E-03  2.4570E-02 -5.3084E-03 -2.0097E-02
+  6.9110E-03 -7.9702E-03  1.3383E-02 -7.1294E-03  8.0604E-03  1.8338E-02
+  8.5070E-04  3.5248E-02  3.9320E-03 -2.4952E-03 -1.6580E-02 -1.6929E-02
+ -7.7603E-03 -6.1321E-03 -3.7618E-02  8.1868E-03 -1.3646E-02  1.1992E-03
+  1.4758E-02 -1.8158E-02 -1.5886E-02  4.3664E-03  3.2031E-02 -1.6525E-02
+  2.8162E-02  6.2869E-03 -1.9183E-03  7.2462E-03  2.1912E-03  2.0854E-02
+ -2.5812E-02 -1.8039E-02  8.2307E-03  3.0968E-02  4.0482E-04 -6.9604E-03
+ -1.5391E-02 -1.9125E-02  5.5674E-03 -1.8538E-02  1.5075E-02  4.9344E-03
+ -3.0950E-03  1.2299E-02 -4.8014E-03  5.1896E-03  2.1604E-02  2.1012E-03
+ -1.2489E-02  2.3822E-02  7.6987E-03 -1.3741E-02  1.0334E-02  3.2118E-03
+ -1.3801E-02 -3.5036E-02  3.1915E-03 -1.6688E-02  1.1290E-02  1.2384E-03
+  5.3588E-03 -2.6135E-02  9.2382E-03  2.3534E-02  2.8389E-02 -1.2223E-02
+ -3.4562E-03 -6.4387E-03 -1.4185E-02  1.5368E-02 -1.9280E-02 -1.2528E-02
+ -4.4990E-03  2.8954E-02 -1.7734E-02  1.7649E-02 -3.6114E-04 -8.3943E-03
+ -1.1425E-02  1.7759E-02  3.6083E-03 -6.8379E-03  1.9232E-02 -1.4264E-02
+  1.1395E-02  2.8434E-04  2.2251E-03  7.0810E-03 -2.1323E-02 -7.5639E-03
+ -4.4807E-03  1.1074E-02  1.2506E-02  6.3552E-03  1.0068E-02  1.5709E-02
+  4.0471E-03 -1.1355E-02  1.8020E-03 -3.4646E-03 -2.4370E-03  4.5008E-03
+  2.7764E-03  1.3537E-02 -6.1179E-03  7.1573E-03 -1.9266E-02 -1.9316E-02
+  6.2393E-03 -7.2008E-03  1.8124E-03  7.5860E-03  5.6530E-03 -1.9110E-03
+ -2.3032E-03 -1.7483E-02  7.0561E-03  2.7473E-02  3.2738E-02  1.2324E-02
+ -3.0336E-03 -2.9759E-02
+STRU  20:  1
+  7.0253E-03 -1.0426E-03  4.3511E-04 -8.8817E-03 -2.1379E-02  3.1853E-02
+ -4.6345E-03  2.2873E-03 -1.5221E-02  1.5969E-02 -1.5616E-02 -4.1925E-03
+  3.0914E-02  7.4730E-03 -4.3177E-03  1.8242E-02 -9.2287E-03 -1.3742E-02
+ -6.2811E-03 -6.4455E-03 -5.0104E-03 -2.8717E-03 -9.9375E-03 -5.7255E-03
+ -1.1889E-02 -4.0953E-03  7.9893E-03  3.2580E-03 -3.5644E-05 -2.2471E-02
+ -1.0602E-02 -1.2796E-03  1.2975E-02 -5.7650E-03  1.0640E-02  3.2961E-03
+  7.9548E-03  8.5468E-03 -7.6531E-03  3.1307E-04 -8.9859E-03  1.2960E-02
+  9.4736E-03  8.8540E-03 -3.6749E-03  1.2404E-03 -1.1426E-02  3.3651E-03
+ -1.4915E-02  4.6825E-03  4.6965E-03 -6.4197E-03  3.6132E-02 -2.2522E-02
+  5.8374E-03 -4.3171E-03  9.2225E-03 -3.9727E-03 -1.7889E-02  9.6497E-03
+ -2.1550E-03  1.3601E-02 -3.9660E-03 -2.1770E-02 -1.7880E-03  1.1424E-02
+  2.3221E-03  1.1122E-02 -9.6713E-03 -1.5059E-02 -1.0486E-02  7.9059E-03
+ -1.8562E-02  5.5000E-03  1.6663E-03  1.1153E-02  1.0307E-02 -7.5445E-03
+  2.0204E-02 -9.5656E-03  2.5618E-03  1.4182E-02  4.6882E-03 -1.1628E-02
+ -1.1948E-03 -2.1800E-02 -1.0265E-02  3.6981E-03 -1.0567E-02 -2.8046E-03
+ -1.2610E-02  4.7065E-02 -2.3615E-03  9.0357E-03 -1.0130E-02  1.7247E-02
+ -2.7152E-03  2.8613E-02 -7.7205E-03  7.1533E-03  7.3151E-03  1.2302E-02
+ -5.7332E-03 -6.0927E-03 -4.5939E-03 -1.8121E-02  8.7284E-03 -3.3647E-02
+ -5.2533E-03  1.5698E-02 -3.4329E-03 -4.2864E-03  1.0041E-02 -8.6407E-03
+  1.4299E-02 -1.0009E-02 -2.0550E-02 -9.1482E-04 -4.9176E-03 -9.2449E-05
+  2.3826E-02  1.3251E-02  1.1274E-02  3.4336E-03  1.3933E-03  1.2986E-02
+ -1.8638E-02 -5.0874E-04  1.3026E-02 -1.1949E-02 -2.1788E-02  9.2134E-03
+ -3.6009E-03 -1.0714E-02 -4.6625E-03  5.0217E-03  1.1685E-02  8.5578E-03
+ -8.6666E-03 -5.4261E-03 -7.4071E-03  1.1665E-02  6.0118E-03  2.6422E-03
+  1.6543E-02  1.1928E-02  4.9821E-03 -1.9224E-02  2.0302E-03  2.7721E-02
+ -3.2673E-03  2.5860E-03  1.4715E-03 -1.3978E-02  3.2445E-04  5.3738E-03
+ -2.9270E-03  2.8366E-04 -2.1760E-02  1.1055E-02  1.2975E-02  8.8175E-03
+  3.3132E-03 -3.1250E-03 -9.4872E-03  2.6315E-02  6.4507E-03  1.3891E-03
+  2.3089E-03  4.2473E-03  8.2303E-03 -8.3402E-03  7.0853E-03 -2.4374E-02
+  1.0733E-02 -3.0954E-03 -9.5967E-03  6.8805E-03  4.0242E-02  1.4989E-02
+ -8.3935E-04 -7.7670E-03  8.1925E-03 -4.6479E-04  3.3531E-02 -8.2442E-04
+  1.3680E-02 -1.6078E-02  5.9208E-03 -1.1498E-02  1.8659E-03 -5.7461E-03
+ -2.0413E-02  5.8744E-03 -1.4460E-03 -5.5464E-03 -1.5518E-02  3.5272E-03
+  9.8876E-03  2.1950E-02  4.1033E-04 -5.5889E-03 -3.6030E-03 -8.4651E-03
+ -9.7074E-03  2.9845E-04  9.4219E-05  1.6338E-02 -9.2736E-03  8.3941E-03
+ -6.9630E-03  4.8148E-03  1.1459E-02  4.1513E-03  4.4473E-03 -1.6689E-02
+ -7.8127E-03  8.4141E-03 -2.8605E-03 -1.5463E-02 -6.8003E-03  9.7062E-04
+ -4.2274E-04  2.8526E-02  1.1336E-02  2.8210E-02  1.4064E-02 -1.6664E-02
+  2.4015E-02  1.5659E-03  1.3777E-03  2.5046E-02  9.3812E-03 -4.1308E-03
+ -6.8429E-03 -1.0289E-02  2.4618E-03  1.5790E-03 -4.6832E-03 -3.4786E-03
+ -4.6110E-04  3.2298E-02  1.4940E-02 -6.0635E-03  2.3814E-02  2.6613E-02
+ -2.1322E-03 -1.8182E-02 -6.7333E-03  3.4051E-03 -1.6726E-03  4.9440E-04
+ -4.2775E-03 -1.1760E-02 -3.7959E-02 -7.6599E-03  2.9099E-03  4.2236E-03
+ -5.0626E-03  6.3652E-03 -1.7913E-02 -2.4649E-03  7.6990E-03  3.7782E-02
+  2.1683E-02 -1.1210E-02 -2.6561E-02  1.6055E-02  2.0167E-02  2.9479E-02
+  6.8451E-03 -2.1343E-02 -3.0761E-03  2.1649E-02  1.8863E-02  5.4915E-03
+ -1.1283E-02 -1.0978E-02 -3.8330E-03 -2.5394E-02  1.9888E-02  2.8163E-03
+  1.6576E-02  1.9333E-02 -2.2701E-03  1.9242E-03  1.6181E-02 -7.3218E-03
+ -3.8471E-03  2.3036E-03  1.1887E-02 -7.9109E-03 -6.4240E-04  1.6300E-03
+ -1.8513E-02 -1.8799E-02 -1.5990E-02  1.5393E-02  5.4216E-03 -1.2055E-02
+  1.3579E-03 -1.5717E-02  1.0939E-02  2.4096E-02 -3.9478E-03 -1.3263E-03
+ -1.3805E-02 -1.9721E-02  6.5416E-04  5.6714E-03  6.2442E-03 -1.7092E-02
+  1.4739E-02  3.0123E-03 -9.3897E-03 -6.0570E-03  1.0656E-02  4.7181E-03
+ -4.1168E-03  1.1356E-02  7.1361E-04 -2.1827E-02 -1.4769E-02 -1.3649E-02
+ -2.9244E-03 -7.3443E-04  1.6358E-02  2.3204E-02 -1.4794E-02 -5.1411E-03
+ -9.5352E-03 -4.1919E-03  7.5114E-03 -1.2090E-02 -4.8197E-03 -2.4433E-02
+  7.7320E-03  8.7156E-03 -1.6100E-02 -1.3525E-02  1.8459E-02  1.6505E-02
+ -6.9657E-03 -1.2342E-02  2.4035E-02 -5.1420E-03 -7.9162E-03  8.9802E-03
+ -2.3322E-02 -1.0833E-02  1.4987E-03  1.1714E-02  8.0153E-03 -9.0330E-03
+ -2.0231E-02 -1.0021E-02 -2.0218E-02  2.0720E-03 -1.0790E-02  2.9669E-02
+ -3.3997E-03  7.0155E-03
+STRU  21:  1
+  3.0234E-02 -2.3520E-02  9.4454E-03 -6.8338E-03 -5.2175E-02  4.1806E-02
+  6.7222E-03 -7.0234E-03 -1.3227E-02  4.5181E-02 -1.3359E-02 -5.9507E-03
+  1.0106E-02  6.6856E-03 -3.9924E-03  5.5102E-02 -2.6211E-02 -2.7538E-02
+ -7.3219E-03 -2.4666E-02  2.9478E-03  2.7750E-02 -2.2272E-02 -7.1478E-03
+ -1.0566E-03 -1.5836E-02  1.1532E-02  1.0144E-02  9.4947E-03 -1.9040E-02
+ -1.6452E-02 -2.3460E-02  1.8554E-02 -5.8564E-03 -1.9508E-02 -1.2499E-02
+  4.2191E-04  2.3466E-02  1.0997E-02 -1.0016E-02 -2.5348E-02  6.8445E-03
+  1.1446E-03 -1.2115E-03 -1.5993E-02  1.6997E-02 -1.4580E-02 -2.0332E-02
+ -2.8126E-02  5.6166E-03  2.1122E-02 -2.0894E-02  6.5867E-02 -1.3238E-02
+  1.4063E-02 -3.0092E-02 -1.9481E-02  6.1183E-03 -4.6945E-02  7.8367E-03
+ -5.4551E-03  1.0807E-02 -3.0932E-02 -4.2381E-02  4.2664E-02  3.3900E-02
+  7.6580E-04  4.1502E-03 -1.5298E-02 -2.7014E-02 -3.8587E-02  5.3690E-03
+ -3.6526E-02  1.5725E-02  1.2333E-02 -1.7488E-03  1.1804E-02  1.5254E-02
+  1.2574E-02  3.0479E-02 -7.6728E-04 -6.2820E-02  3.2303E-03 -3.2962E-02
+  1.8093E-02  9.5413E-03 -1.0858E-02  1.4188E-02 -1.6708E-02 -1.0346E-02
+ -2.2579E-02  1.5247E-02  1.8102E-02 -2.3287E-02 -7.5734E-04  3.2127E-02
+ -4.5325E-03 -6.0628E-03 -1.3949E-02  1.3917E-02 -1.3049E-02  1.0834E-02
+ -6.0547E-03 -2.2078E-02  2.1514E-04 -1.6003E-02 -1.1836E-03 -3.1013E-02
+ -5.0224E-03 -2.0801E-03  9.7430E-03 -1.1532E-02  3.4608E-02  8.5013E-03
+  3.1349E-02 -9.9523E-03 -9.9490E-03  2.1828E-04 -1.9489E-02 -1.2946E-02
+  2.5603E-03  1.8555E-02 -6.8865E-03 -1.6608E-02  2.3484E-02  1.5510E-02
+ -2.8037E-02 -1.7055E-02  2.0985E-02 -3.6122E-02 -4.8609E-02  2.5469E-03
+ -1.2012E-02  1.8182E-02 -1.1797E-02  2.6054E-02  2.4109E-02  2.1404E-02
+ -5.5682E-03  1.3627E-02  1.4697E-02 -3.0252E-02  1.2674E-02 -4.0171E-03
+  3.3930E-02  1.7271E-02 -4.0179E-03 -4.3592E-03 -5.9917E-03  9.2998E-03
+ -1.2693E-02 -1.1649E-02  2.0915E-03 -5.4880E-03  1.0660E-03  1.4527E-03
+  3.6783E-04 -1.5322E-02 -1.7732E-02  1.9132E-02  4.3610E-02  1.8561E-02
+  1.7079E-02 -1.4268E-02 -2.8392E-02 -1.6389E-02 -1.0789E-02 -5.7656E-03
+  1.3373E-02 -1.1942E-02  3.6572E-04 -1.7903E-02  1.4917E-02 -3.8415E-02
+  1.0407E-02  1.3068E-02 -1.4898E-02  1.8224E-02  2.1325E-02  2.1068E-02
+  5.8444E-03 -2.8130E-03  2.5713E-03 -3.2712E-02  6.0345E-03 -1.5046E-02
+  2.3337E-02 -6.7394E-03 -4.0990E-04 -2.0071E-02  6.7915E-03 -5.4514E-03
+ -1.6283E-02  6.9970E-03 -1.6477E-02 -1.1241E-02 -4.5266E-02  7.4366E-03
+ -3.4425E-03  2.5339E-02 -1.6339E-02 -3.3559E-03 -9.1106E-03  2.0362E-02
+  2.6892E-02 -6.8319E-02 -1.0362E-02  9.8561E-03 -9.6181E-03 -1.7754E-02
+ -2.8149E-02 -1.7082E-03  6.8407E-03 -2.4406E-02  3.5950E-02 -3.9431E-02
+  3.9358E-02  4.4554E-03  1.6425E-02 -2.6860E-02 -4.0842E-02 -3.4968E-05
+  1.3070E-02  2.1619E-02  7.8731E-03  1.3275E-02  2.9872E-02 -1.3844E-02
+  4.4457E-02 -1.5840E-02  2.5301E-02 -9.0809E-03 -6.1830E-02  4.5722E-03
+  1.4822E-02 -3.9719E-02  1.8289E-02  1.7459E-02 -2.0489E-02 -2.7917E-02
+ -3.0559E-02  2.6515E-02  2.0136E-02 -3.0403E-02 -1.5515E-03  3.2278E-02
+  3.7384E-02 -2.6161E-02  4.4015E-04 -2.1230E-02  5.3918E-04  2.7700E-02
+  5.8369E-03 -5.8696E-03 -4.2430E-02 -1.4372E-03 -2.1504E-03 -3.1165E-02
+ -1.3189E-02 -2.1328E-02 -8.0558E-04  4.7680E-02  3.9414E-02 -5.5508E-03
+  1.5171E-02 -3.4120E-02  2.2533E-02  1.8130E-02  1.4155E-02  2.7596E-02
+  2.9961E-03 -5.0239E-02 -2.4587E-02  2.8756E-02  2.7139E-02 -1.5381E-02
+  2.1028E-02  8.9452E-03 -2.8207E-03 -2.7437E-02 -1.3431E-02  2.0682E-03
+  2.6180E-02 -9.6335E-04  1.2099E-02  1.8503E-02  2.0374E-02 -3.1495E-02
+  4.0521E-03  1.8943E-02 -1.0814E-02 -3.1179E-02 -1.9646E-02 -3.9250E-03
+ -4.9277E-02 -2.3420E-02 -5.4871E-03  3.5025E-02 -1.1202E-04 -2.2046E-02
+ -2.2227E-03 -2.5496E-03  1.9139E-02  3.5201E-02  1.9840E-03  2.1111E-02
+  6.7335E-03 -1.2490E-02 -8.9964E-04 -1.8509E-03 -2.1153E-03 -3.0542E-02
+  2.4071E-02 -1.6347E-02  4.0732E-03 -9.9041E-03  2.5983E-02 -2.2954E-03
+ -9.8956E-03  3.4623E-02 -4.0773E-02 -1.9600E-02  3.0985E-02  6.0171E-03
+  6.4116E-03  2.0333E-03 -9.3093E-03  2.5655E-02 -5.0974E-02  1.5282E-03
+ -1.0181E-02 -1.0495E-02  1.3886E-02  2.5895E-02  5.3533E-03 -6.0178E-02
+ -2.6988E-02 -2.4393E-02  1.5550E-02 -1.6550E-03  1.3203E-02 -1.3846E-02
+  1.4821E-02  1.8540E-03  7.8570E-03  1.5467E-02 -1.2008E-02 -2.7531E-03
+ -2.7163E-02  3.7004E-02  1.3302E-02 -1.7342E-02 -1.1575E-02 -6.1707E-03
+ -2.0175E-03 -1.8951E-02 -5.0910E-02  6.4438E-03 -6.4719E-03  2.3801E-02
+ -7.3010E-03  4.9168E-02
+STRU  22:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU  23:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU  24:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU  25:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU  26:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU  27:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU  28:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU  29:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU  30:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU  31:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU  32:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU  33:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU  34:  1
+  1.6663E+00  7.5148E-01 -1.8971E+00  4.4697E-01 -6.1055E-02  8.2800E+00
+  3.9231E+00 -5.5865E-01  7.4358E+00  4.7812E+00  2.9887E+00  9.0270E+00
+ -3.1307E+00 -1.0832E+00 -1.4454E+00  6.8283E-01 -7.2326E-01 -3.2501E+00
+ -2.4020E+00 -1.0379E+01 -2.4714E+00 -3.5491E-01 -3.3304E+00 -5.3164E+00
+ -6.7992E+00 -5.0533E+00 -1.7687E+00 -3.1188E+00  1.8753E+00 -7.6160E-01
+ -1.3564E+00 -5.4193E+00  1.8528E-01 -4.2713E-01  1.4528E-01 -4.5834E+00
+ -1.6705E+00 -7.8272E-01  6.3577E+00 -2.0844E+00  5.1973E+00  4.5256E+00
+  2.2493E+00  1.0887E+00 -2.8882E+00  6.5395E+00 -3.4017E+00  2.9776E+00
+ -2.8795E+00 -7.7421E-01 -1.8511E+00  4.5328E+00 -9.9249E-02 -5.5576E-01
+ -6.6723E+00  7.7268E-01 -1.9873E+00  3.4950E+00 -7.8159E+00 -2.5144E+00
+  2.7750E+00 -3.0971E+00  1.9321E+00 -4.5278E+00 -2.4922E+00 -2.4905E-01
+  3.5704E+00  3.1636E+00 -6.1800E+00 -1.2240E+00  6.7934E-01  7.0606E+00
+  2.0581E+00  6.9059E+00 -1.5948E+00 -4.1922E-01 -5.2176E-01  6.1005E+00
+ -4.7596E+00  5.8200E+00 -4.2605E+00  3.2492E+00  1.4299E+00 -8.0684E-01
+  4.7009E+00 -2.0521E+00  4.9834E-01  1.5848E-01  5.2717E+00  3.8894E+00
+ -1.2898E+00  1.9769E+00 -3.9344E+00 -6.9879E-01 -1.3593E+00 -7.2076E+00
+ -2.2530E+00 -3.5843E+00 -1.0946E+00 -5.7916E+00 -1.1445E+00 -4.7577E-02
+  5.0835E+00 -7.2012E-01  5.5928E-01 -5.7949E+00 -4.6173E+00  3.1338E+00
+ -6.3179E+00  4.4722E+00  4.4509E+00  8.1735E-01 -8.3995E-01  2.1834E+00
+  4.8125E+00 -1.2513E+00  6.9152E+00 -2.2819E+00  9.5435E-01 -4.0894E+00
+ -1.6583E+00 -5.2985E+00 -6.0903E-01 -4.5266E-01  3.7832E+00  4.9142E+00
+ -5.0867E+00 -5.7536E+00  1.9579E+00  3.8719E+00 -3.9537E+00 -3.3704E+00
+  7.5459E-01 -7.2261E-01 -6.7024E-01  5.3906E-01  7.2960E+00 -3.4237E+00
+  3.0002E+00  3.7372E+00  6.3793E-01  2.7505E+00  4.0909E+00 -6.2606E+00
+ -5.6597E+00 -5.8320E+00 -3.8538E+00 -4.4064E+00 -2.8346E+00  5.9623E-01
+  3.8911E+00  3.4776E+00  1.3252E+00  1.5303E-02  1.0449E+00 -1.8293E+00
+  7.1890E-01 -1.3854E-01  1.6621E+00 -3.4202E+00  8.1830E+00 -1.3365E+00
+ -3.6345E+00 -2.1626E+00 -1.5001E+00  2.7934E+00 -1.7134E+00  2.7427E+00
+ -5.9486E+00  2.7181E-01  4.1875E+00 -1.7411E+00 -3.1641E-01 -4.3613E+00
+  4.4895E+00 -2.2282E+00 -3.1476E+00 -4.2311E+00  7.5674E-01  1.9445E-01
+  1.4228E-01  7.6594E+00 -3.3941E-01 -6.0169E+00  7.3323E-01 -2.9742E+00
+ -2.3609E+00  8.0368E-01  5.0700E+00  9.5812E-01  6.0300E-01  4.7514E+00
+  3.7300E+00 -3.1376E+00 -2.4816E+00  2.6235E+00 -3.3302E+00 -3.5855E+00
+  3.3921E+00 -8.5823E+00 -4.4935E+00 -8.7382E-01 -3.5120E+00  1.3851E-01
+  1.9455E+00  3.2534E+00 -1.4444E+00 -2.4631E+00 -3.4923E+00  5.9519E-01
+ -1.1740E+00 -7.7025E-01  5.0317E-01  1.0696E+00  1.1467E+00 -5.1097E+00
+  1.5908E+00 -2.2871E+00  3.9318E+00 -2.8842E+00 -2.9675E+00 -1.8489E+00
+ -1.7604E+00  7.5045E-01 -1.7948E+00 -1.7870E+00 -7.7013E+00 -1.3195E-02
+  3.1543E+00  4.0207E+00 -2.5936E+00  1.1668E+00  1.1163E+00  4.0998E+00
+  9.1265E-02 -1.0001E+00  4.4689E-01 -4.3025E+00 -4.6380E-01 -2.6683E+00
+ -4.5448E+00 -7.1020E-01 -2.1859E+00 -2.5811E+00  2.5738E+00 -2.6012E+00
+ -3.1778E+00  5.4493E+00  3.9277E+00 -3.2163E-01 -1.2843E+00  4.2538E+00
+  8.7875E-01  2.6022E+00 -1.6744E+00  3.1594E+00 -2.3765E+00 -3.0550E+00
+  2.6519E+00 -3.9848E+00  4.9281E+00 -6.2756E-01  3.0525E-02  1.0164E+00
+ -4.4385E+00 -1.3920E+00  1.1194E-01  2.6957E+00 -1.3402E-01 -3.3375E+00
+  7.4060E-01  6.4995E+00  4.5629E+00  4.5323E+00  2.5276E+00 -5.3384E-01
+ -1.1514E+00  1.5993E+00 -1.0146E+00 -4.1473E+00 -3.9188E+00  1.0639E+00
+  8.7763E+00  2.5399E+00 -5.1980E-01 -9.4676E-01  4.0975E+00 -4.9995E-01
+ -2.5194E-01 -1.1238E+01  3.8088E+00  2.1622E+00 -2.0588E+00  2.7865E+00
+ -3.6590E+00  3.6037E+00 -3.1900E+00  5.0186E-02  2.6839E+00 -7.8681E-01
+  2.8892E+00  3.8718E+00  2.9622E+00 -1.1966E+00 -2.8074E-01  2.3362E+00
+ -2.4303E+00  4.5518E+00  6.4610E-01 -1.1467E+00 -3.1352E-01  1.7296E-01
+  4.8746E-01 -1.7894E+00 -9.8631E-01 -1.6181E+00 -9.2613E-01 -5.7287E+00
+ -2.1293E+00 -1.5176E+00  6.2693E+00  1.2876E+00 -7.9080E-01  6.3185E+00
+  1.4401E+00  2.4705E+00 -8.6226E-01  7.0835E-01 -9.9904E-01 -5.2019E+00
+  3.7885E-01  5.7416E+00 -9.5589E-01  7.2968E+00  1.6809E-01  2.1414E+00
+  5.0856E+00  3.4385E+00 -2.2571E-03 -6.2379E-01  3.6449E+00 -4.7526E+00
+  3.8788E+00  2.0865E+00  1.5380E+00  2.5562E+00  5.3008E+00 -1.5890E+00
+  4.9399E+00 -4.0632E+00  8.2694E+00 -1.1020E+00  1.5542E+00 -1.6748E+00
+ -8.8452E-02  4.6427E+00  3.3861E+00  4.6945E+00  5.0995E+00  1.6179E+00
+  2.6528E-01 -5.5924E+00
+STRU  35:  1
+  6.5291E+00  4.0677E+00  5.7077E-01 -3.5954E+00  9.7923E-01  2.7471E+00
+  3.5106E+00  2.1139E+00  5.8074E+00  6.6118E-01 -9.3299E-01  6.5172E-01
+ -1.5082E-01 -4.9723E+00 -7.8999E+00  5.4696E+00 -9.5446E-01 -5.1428E+00
+ -4.0862E+00 -9.0840E+00 -3.1506E+00 -9.4887E-01 -6.3034E+00 -2.1525E+00
+ -4.4854E+00 -4.2734E+00 -3.8104E+00 -3.4838E+00 -1.9340E+00 -4.2337E+00
+ -2.4672E+00  1.9401E+00 -2.4822E+00 -8.5073E-02  3.7872E+00 -6.5139E+00
+ -8.6957E+00  1.2547E+00 -1.0624E+00 -5.9731E+00 -1.6083E+00 -9.3738E-01
+  2.0788E+00 -1.5838E+00 -5.4734E+00 -1.5494E+00  4.7356E+00 -2.6608E+00
+ -2.4856E-01  9.2538E-01 -5.1880E-01  2.6563E+00  5.4829E-01 -2.1607E+00
+ -3.5119E+00 -1.1232E+00  2.6287E+00  2.6531E+00 -2.6907E+00  6.1087E+00
+  2.1077E+00 -3.8699E-02 -2.4491E+00 -8.3775E-01 -4.7496E+00  2.0727E+00
+  1.3046E+00 -3.9120E+00 -6.8827E+00  1.3932E+00  2.8662E+00 -3.0509E+00
+ -3.1527E+00 -1.8891E+00  1.2872E+00  4.9056E-01 -3.2657E+00  2.5128E-01
+ -2.8666E+00  6.3557E+00 -6.1212E+00  8.7871E+00 -5.5817E-01 -3.0046E+00
+  7.3559E+00 -2.2088E-01 -2.1708E-01 -5.4032E-01 -2.8753E+00 -1.9560E+00
+ -7.2705E+00  5.2262E+00 -2.0114E+00  1.7654E+00  3.2794E+00 -2.7545E+00
+ -2.0574E+00 -3.3756E+00 -2.0416E+00  2.5286E+00  7.5285E+00 -1.6785E+00
+ -3.1124E+00 -2.5749E+00 -2.5748E+00 -9.8357E-01 -3.0521E+00  4.9090E+00
+ -3.7811E+00 -2.7613E-01  9.4844E+00 -3.5710E+00  6.4907E+00 -1.7171E+00
+  2.3716E+00  2.9380E+00  7.6590E+00  5.7076E+00  6.8864E-01  9.6482E-01
+ -2.8121E+00  1.1936E-02  2.4324E-01 -7.9618E-01  9.6385E+00 -1.9661E+00
+ -2.4836E+00 -6.2928E+00  6.3716E+00 -2.5796E+00  8.7914E-01 -1.6153E+00
+ -3.8186E+00 -5.0404E+00  7.9294E-01 -6.5117E+00  3.6351E+00 -1.7676E+00
+ -4.8856E-02  3.7944E-01  2.8348E+00  7.1384E+00  6.2007E-01 -2.0525E+00
+  4.2616E+00  1.0815E+00 -3.3019E+00 -8.0223E-01 -1.6228E+00 -5.4517E+00
+ -4.1255E+00  3.1242E+00 -2.3153E+00  1.3520E+00  1.7574E+00  4.4593E+00
+ -1.4783E+00 -6.0058E+00  3.0241E+00 -1.1574E+00  2.9423E+00 -2.5287E+00
+ -5.9220E+00  2.9104E-01  4.9604E-01  3.4267E+00 -3.5206E+00  1.0813E+01
+ -6.0786E+00 -2.3837E+00  6.4124E+00 -1.1495E+00 -1.3927E+00  6.3512E+00
+ -1.1608E-02  8.7008E+00 -4.2632E+00 -7.2391E+00 -7.4891E+00 -1.7671E+00
+ -1.9897E+00  1.0805E+01 -9.6737E-01  2.0626E-01 -3.6375E+00 -6.9671E+00
+ -2.0284E+00 -2.8711E+00  5.1804E+00 -6.0417E+00  2.2287E+00  2.8200E-01
+  4.9017E-01 -4.6147E+00 -3.9447E+00  2.1190E+00  3.9392E+00 -5.0219E+00
+  3.6202E+00  4.1383E+00 -6.2106E+00  6.2491E+00  2.0512E+00 -8.8271E-01
+  6.8256E+00 -6.1729E-01 -4.5814E+00  1.4821E+00 -2.9996E+00 -3.5268E+00
+ -5.2403E+00 -3.0873E+00  2.3671E+00 -5.7590E+00  1.7878E+00 -1.2908E+00
+  1.2046E+00  2.1373E-01  2.5681E+00 -1.0692E+00 -9.1910E-01 -3.6601E+00
+  3.2026E+00 -3.2325E-01 -2.2794E+00 -2.4999E+00 -7.3515E-01 -2.1502E+00
+  5.8004E+00  1.0066E+00  4.5677E+00 -8.0790E-01  2.0196E+00 -2.1054E+00
+ -6.7399E+00  8.7616E+00  6.0228E+00 -2.9051E+00 -2.2910E+00 -7.5942E-02
+ -1.0377E+01 -5.3540E+00 -9.6209E-01  2.4588E+00  1.9640E+00 -5.6915E+00
+ -6.8513E+00  1.5057E+00 -3.6722E+00 -4.9029E+00 -8.4227E-01  2.5874E+00
+ -1.4960E+00  6.5206E-01 -1.5738E-01  5.6190E+00  9.6564E-01 -3.3881E-01
+  2.8966E-01  1.9879E+00 -1.6289E+00  7.2199E+00  6.3600E+00 -4.1128E+00
+ -1.7187E+00  4.2903E+00  6.0961E+00  4.0924E+00 -2.8161E+00 -2.3165E+00
+ -2.9767E-01  5.6411E-01  1.4338E+00 -3.3782E+00 -3.5709E+00  1.3937E+00
+ -3.3469E+00 -4.8953E+00 -6.3185E-01  4.8691E-01 -6.5011E+00 -5.6761E+00
+  6.1888E+00 -3.3447E+00  3.2688E+00  2.7397E+00  1.7976E+00  4.0767E+00
+  2.7098E+00 -5.5351E-01  4.6382E-01  3.5529E+00  1.4614E+00  4.3989E+00
+ -1.7850E+00  2.2363E+00  5.0957E+00 -2.1581E+00  9.1797E-01  8.3638E+00
+ -4.0856E-01  3.4052E+00  9.3199E-01 -7.9120E+00  4.7775E+00  1.2385E+00
+ -1.1630E+00 -2.5487E+00  5.3610E+00  1.3272E+00 -1.7371E+00  1.0062E+01
+ -4.4167E+00  5.0737E+00  4.2752E+00  3.3827E+00 -4.5521E-01  9.0860E+00
+  1.2775E-01  3.6069E+00  4.1055E+00 -1.1211E+00 -1.4691E+00  1.2420E+00
+  6.2047E+00  4.7411E+00 -7.9818E-01  9.3515E+00  1.2432E+00 -4.5408E+00
+  7.4295E+00  5.8147E+00 -7.5126E+00  1.7966E+00  6.6992E-01  9.6052E-02
+  5.9514E+00 -6.5799E-01  1.4374E+00  3.9512E+00  2.9846E+00 -8.7214E+00
+  3.1768E+00 -2.0347E-01  2.6347E+00  2.6360E+00  8.0294E+00 -2.9590E-01
+  6.5199E+00 -8.4450E-02  8.2012E+00  1.6039E+00 -4.5002E+00 -1.4849E+00
+ -2.5471E+00  2.0345E+00  1.6278E-01  6.9023E+00  2.3348E+00  4.0235E+00
+ -1.0727E+00 -1.0073E+00
+STRU  36:  1
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00
+  0.0000E+00  0.0000E+00
+STRU  37:  2
+  0.0000E+00
+STRU  38:  2
+  0.0000E+00
+STRU  39:  2
+  0.0000E+00
+STRU  40:  2
+  0.0000E+00
+STRU  41:  2
+  0.0000E+00
+STRU  42:  2
+  0.0000E+00
+STRU  43:  2
+  0.0000E+00
+STRU  44:  2
+  0.0000E+00
+STRU  45:  2
+  0.0000E+00
+STRU  46:  2
+  0.0000E+00
+STRU  47:  2
+  0.0000E+00
+STRU  48:  2
+  0.0000E+00
+STRU  49:  2
+  0.0000E+00
+STRU  50:  2
+  0.0000E+00
+STRU  51:  2
+  0.0000E+00
+STRU  52:  2
+  0.0000E+00
+STRU  53:  2
+  0.0000E+00
+STRU  54:  2
+  0.0000E+00
+STRU  55:  2
+  0.0000E+00
+STRU  56:  2
+  0.0000E+00
+STRU  57:  2
+  0.0000E+00
+STRU  58:  2
+  0.0000E+00
+STRU  59:  2
+  0.0000E+00
+STRU  60:  2
+  0.0000E+00
+STRU  61:  2
+  0.0000E+00
+STRU  62:  2
+  0.0000E+00
+STRU  63:  2
+  0.0000E+00
+STRU  64:  2
+  0.0000E+00
+STRU  65:  2
+  0.0000E+00
+STRU  66:  2
+  0.0000E+00
+STRU  67:  2
+  0.0000E+00
+STRU  68:  2
+  0.0000E+00
+STRU  69:  2
+  0.0000E+00
+STRU  70:  2
+  0.0000E+00
+STRU  71:  2
+  0.0000E+00
+STRU  72:  2
+  0.0000E+00
+STRU  73:  2
+  0.0000E+00
+STRU  74:  2
+  0.0000E+00
+STRU  75:  2
+  0.0000E+00
+STRU  76:  2
+  0.0000E+00
+STRU  77:  2
+  0.0000E+00
+STRU  78:  2
+  0.0000E+00
+STRU  79:  2
+  0.0000E+00
+STRU  80:  2
+  0.0000E+00
+STRU  81:  2
+  0.0000E+00
+STRU  82:  2
+  0.0000E+00
+STRU  83:  2
+  0.0000E+00
+STRU  84:  2
+  0.0000E+00
+STRU  85:  2
+  0.0000E+00
+STRU  86:  2
+  0.0000E+00
+STRU  87:  2
+  0.0000E+00
+STRU  88:  2
+  0.0000E+00
+STRU  89:  2
+  0.0000E+00
+STRU  90:  2
+  0.0000E+00
+STRU  91:  2
+  0.0000E+00
+STRU  92:  2
+  0.0000E+00
+STRU  93:  2
+  0.0000E+00
+STRU  94:  2
+  0.0000E+00
+STRU  95:  2
+  0.0000E+00
+STRU  96:  2
+  0.0000E+00
+STRU  97:  2
+  0.0000E+00
+STRU  98:  2
+  0.0000E+00
+STRU  99:  2
+  0.0000E+00
+STRU 100:  2
+  0.0000E+00

Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/add_topography_410_650.f90 (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/add_topography_410_650.f90)
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/add_topography_410_650.f90	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/add_topography_410_650.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,95 @@
+!=====================================================================
+!
+!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
+!          --------------------------------------------------
+!
+!          Main authors: Dimitri Komatitsch and Jeroen Tromp
+!    Seismological Laboratory, California Institute of Technology, USA
+!             and University of Pau / CNRS / INRIA, France
+! (c) California Institute of Technology and University of Pau / CNRS / INRIA
+!                            February 2008
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
+  subroutine add_topography_410_650(myrank,xelm,yelm,zelm,R220,R400,R670,R771)
+
+  implicit none
+
+  include "constants.h"
+
+  integer myrank
+
+  double precision xelm(NGNOD)
+  double precision yelm(NGNOD)
+  double precision zelm(NGNOD)
+
+  double precision R220,R400,R670,R771
+
+  integer ia
+
+  real(kind=4) xcolat,xlon
+  real(kind=4) topo410out,topo650out
+  double precision topo410,topo650
+
+  double precision r,theta,phi
+  double precision gamma
+
+! we loop on all the points of the element
+  do ia = 1,NGNOD
+
+! convert to r theta phi
+    call xyz_2_rthetaphi_dble(xelm(ia),yelm(ia),zelm(ia),r,theta,phi)
+    call reduce(theta,phi)
+
+! get colatitude and longitude in degrees
+    xcolat = sngl(theta*180.0d0/PI)
+    xlon = sngl(phi*180.0d0/PI)
+
+! compute topography on 410 and 650 at current point
+    call subtopo(xcolat,xlon,topo410out,topo650out)
+
+! non-dimensionalize the topography, which is in km
+! positive for a depression, so change the sign for a perturbation in radius
+    topo410 = -dble(topo410out) / R_EARTH_KM
+    topo650 = -dble(topo650out) / R_EARTH_KM
+
+    gamma = 0.d0
+    if(r >= R400/R_EARTH .and. r <= R220/R_EARTH) then
+! stretching between R220 and R400
+      gamma = (R220/R_EARTH - r) / (R220/R_EARTH - R400/R_EARTH)
+      xelm(ia) = xelm(ia)*(ONE + gamma * topo410 / r)
+      yelm(ia) = yelm(ia)*(ONE + gamma * topo410 / r)
+      zelm(ia) = zelm(ia)*(ONE + gamma * topo410 / r)
+    elseif(r>= R771/R_EARTH .and. r <= R670/R_EARTH) then
+! stretching between R771 and R670
+      gamma = (r - R771/R_EARTH) / (R670/R_EARTH - R771/R_EARTH)
+      xelm(ia) = xelm(ia)*(ONE + gamma * topo650 / r)
+      yelm(ia) = yelm(ia)*(ONE + gamma * topo650 / r)
+      zelm(ia) = zelm(ia)*(ONE + gamma * topo650 / r)
+    elseif(r > R670/R_EARTH .and. r < R400/R_EARTH) then
+! stretching between R670 and R400
+      gamma = (R400/R_EARTH - r) / (R400/R_EARTH - R670/R_EARTH)
+      xelm(ia) = xelm(ia)*(ONE + (topo410 + gamma * (topo650 - topo410)) / r)
+      yelm(ia) = yelm(ia)*(ONE + (topo410 + gamma * (topo650 - topo410)) / r)
+      zelm(ia) = zelm(ia)*(ONE + (topo410 + gamma * (topo650 - topo410)) / r)
+    endif
+    if(gamma < -0.0001 .or. gamma > 1.0001) call exit_MPI(myrank,'incorrect value of gamma for 410-650 topography')
+
+  enddo
+
+  end subroutine add_topography_410_650
+

Added: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/build.mk
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/build.mk	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/build.mk	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,11 @@
+
+s362ani_OBJECTS = \
+	$O/add_topography_410_650.o \
+	$O/s362ani.o \
+	$(EMPTY_MACRO)
+
+$O/add_topography_410_650.o: constants.h $S/MODELS/s362ani/add_topography_410_650.f90
+	${FCCOMPILE_CHECK} -c -o $O/add_topography_410_650.o ${FCFLAGS_f90} $S/MODELS/s362ani/add_topography_410_650.f90
+
+$O/s362ani.o: constants.h $S/MODELS/s362ani/s362ani.f90
+	${MPIFCCOMPILE_CHECK} -c -o $O/s362ani.o ${FCFLAGS_f90} $S/MODELS/s362ani/s362ani.f90

Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/s362ani.f90 (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/s362ani.f90)
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/s362ani.f90	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/s362ani/s362ani.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,1786 @@
+
+  module s362ani_module
+
+  integer, parameter :: maxker=200
+  integer, parameter :: maxl=72
+  integer, parameter :: maxcoe=2000
+  integer, parameter :: maxver=1000
+  integer, parameter :: maxhpa=2
+
+  integer numker
+  integer numhpa,numcof
+  integer ihpa,lmax,nylm
+  integer lmxhpa(maxhpa)
+  integer itypehpa(maxhpa)
+  integer ihpakern(maxker)
+  integer numcoe(maxhpa)
+  integer ivarkern(maxker)
+  integer itpspl(maxcoe,maxhpa)
+
+  integer nconpt(maxhpa),iver
+  integer iconpt(maxver,maxhpa)
+  real(kind=4) conpt(maxver,maxhpa)
+
+  real(kind=4) xlaspl(maxcoe,maxhpa)
+  real(kind=4) xlospl(maxcoe,maxhpa)
+  real(kind=4) radspl(maxcoe,maxhpa)
+  real(kind=4) coe(maxcoe,maxker)
+  character(len=80) hsplfl(maxhpa)
+  character(len=40) dskker(maxker)
+  real(kind=4) vercof(maxker)
+  real(kind=4) vercofd(maxker)
+
+  real(kind=4) ylmcof((maxl+1)**2,maxhpa)
+  real(kind=4) wk1(maxl+1)
+  real(kind=4) wk2(maxl+1)
+  real(kind=4) wk3(maxl+1)
+
+  character(len=80) kerstr
+  character(len=80) refmdl
+  character(len=40) varstr(maxker)
+
+  end module
+
+
+  subroutine evradker(depth,string,nker,vercof,dvercof,ierror)
+
+  implicit none
+
+  integer :: nker,ierror
+
+  real(kind=4) :: chebyshev(100)
+  real(kind=4) :: chebyshev2(100)
+  real(kind=4) :: vercof(nker)
+  real(kind=4) :: dvercof(nker)
+  real(kind=4) :: splpts(100)
+
+  character(len=80) string
+
+  logical upper,upper_650
+  logical lower,lower_650
+
+  real(kind=4), parameter :: r0=6371.
+  real(kind=4), parameter :: rmoho=6371.0-24.4
+  real(kind=4), parameter :: r670=6371.-670.
+  real(kind=4), parameter :: r650=6371.-650.
+  real(kind=4), parameter :: rcmb=3480.0
+
+  integer :: i,nspl,nskip,nlower,nupper,iker,lstr
+
+  real(kind=4) :: u,u2,ddep,radius2,radius,depth
+
+  ierror=0
+  lstr=len_trim(string)
+
+  radius=r0-depth
+  ddep=0.1
+  radius2=r0-depth+ddep
+  upper=.false.
+  lower=.false.
+  if(radius > rcmb.and.radius < r670) then
+  lower=.true.
+  else if(radius >= r670.and.radius < rmoho) then
+  upper=.true.
+  endif
+  upper_650=.false.
+  lower_650=.false.
+  if(radius > rcmb.and.radius < r650) then
+  lower_650=.true.
+  else if(radius >= r650.and.radius < rmoho) then
+  upper_650=.true.
+  endif
+  do iker=1,nker
+  vercof(iker)=0.
+  dvercof(iker)=0.
+  enddo
+
+  if(string(1:16) == 'WDC+SPC_U4L8CHEB') then
+  nupper=5
+  nlower=9
+  nskip=2
+  if(upper) then
+    u=(radius+radius-rmoho-r670)/(rmoho-r670)
+    u2=(radius2+radius2-rmoho-r670)/(rmoho-r670)
+!          write(6,"('upper mantle:',2f10.3)") u,u2
+    call chebyfun(u,13,chebyshev)
+    do i=1+nskip,nskip+nupper
+      vercof(i)=chebyshev(i-nskip)
+    enddo
+    call chebyfun(u2,13,chebyshev2)
+    do i=1+nskip,nskip+nupper
+      dvercof(i)=(chebyshev2(i-nskip)-chebyshev(i-nskip))/ddep
+    enddo
+  else if(lower) then
+    u=(radius+radius-r670-rcmb)/(r670-rcmb)
+    u2=(radius2+radius2-r670-rcmb)/(r670-rcmb)
+!          write(6,"('lower mantle:',2f10.3)") u,u2
+    call chebyfun(u,13,chebyshev)
+    do i=1+nskip+nupper,nskip+nupper+nlower
+      vercof(i)=chebyshev(i-nskip-nupper)
+    enddo
+    call chebyfun(u2,13,chebyshev2)
+    do i=1+nskip+nupper,nskip+nupper+nlower
+      dvercof(i)=(chebyshev2(i-nskip-nupper)- &
+                    chebyshev(i-nskip-nupper))/ddep
+    enddo
+  endif
+  else if(string(1:13) == 'WDC+SHSVWM20A') then
+  nspl=20
+  splpts(1)=0.
+  splpts(2)=50.
+  splpts(3)=100.
+  splpts(4)=150.
+  splpts(5)=200.
+  splpts(6)=250.
+  splpts(7)=300.
+  splpts(8)=400.
+  splpts(9)=500.
+  splpts(10)=600.
+  splpts(11)=700.
+  splpts(12)=850.
+  splpts(13)=1050.
+  splpts(14)=1300.
+  splpts(15)=1600.
+  splpts(16)=1900.
+  splpts(17)=2200.
+  splpts(18)=2500.
+  splpts(19)=2700.
+  splpts(20)=2891.
+  call vbspl(depth,nspl,splpts,vercof(2),dvercof(2))
+  do i=22,27
+    vercof(i)=vercof(i-20)
+    dvercof(i)=dvercof(i-20)
+  enddo
+  vercof(1)=1.
+  else if(string(1:16) == 'WDC+XBS_362_U6L8') then
+  if(upper) then
+   nspl=6
+   splpts(1)=24.4
+   splpts(2)=100.
+   splpts(3)=225.
+   splpts(4)=350.
+   splpts(5)=500.
+   splpts(6)=670.
+   call vbspl(depth,nspl,splpts,vercof(2),dvercof(2))
+  else if(lower) then
+ nspl=8
+   splpts(1)=670.
+   splpts(2)=820.
+   splpts(3)=1320.
+   splpts(4)=1820.
+   splpts(5)=2320.
+   splpts(6)=2550.
+   splpts(7)=2791.
+   splpts(8)=2891.
+   call vbspl(depth,nspl,splpts,vercof(8),dvercof(8))
+  endif
+  vercof(1)=1.
+!        vercof(16)=1.
+!        vercof(17)=1.
+!      else if(string(1:21) == 'WDC+ANI_362_U6L8_TOPO') then
+!        if(upper) then
+!         nspl=6
+!         splpts(1)=24.4
+!         splpts(2)=100.
+!         splpts(3)=225.
+!         splpts(4)=350.
+!         splpts(5)=500.
+!         splpts(6)=670.
+!         call vbspl(depth,nspl,splpts,vercof(2),dvercof(2))
+!         do i=16,21
+!          vercof(i)=vercof(i-14)
+!          dvercof(i)=dvercof(i-14)
+!         enddo
+!     else if(lower) then
+!      nspl=8
+!         splpts(1)=670.
+!         splpts(2)=820.
+!         splpts(3)=1320.
+!         splpts(4)=1820.
+!         splpts(5)=2320.
+!         splpts(6)=2550.
+!         splpts(7)=2791.
+!         splpts(8)=2891.
+!         call vbspl(depth,nspl,splpts,vercof(8),dvercof(8))
+!     endif
+!        vercof(1)=1.
+!        vercof(22)=1.
+!        vercof(23)=1.
+!        vercof(24)=1.
+!        vercof(25)=1.
+  else if( &
+       (string(1:lstr) == 'WDC+ANI_362_U6L8'.and.lstr == 16) &
+       .or. &
+           (string(1:lstr) == 'WDC+ANI_362_U6L8_TOPO'.and.lstr == 21) &
+       ) then
+  if(upper) then
+   nspl=6
+   splpts(1)=24.4
+   splpts(2)=100.
+   splpts(3)=225.
+   splpts(4)=350.
+   splpts(5)=500.
+   splpts(6)=670.
+   call vbspl(depth,nspl,splpts,vercof(2),dvercof(2))
+   do i=16,21
+    vercof(i)=vercof(i-14)
+    dvercof(i)=dvercof(i-14)
+   enddo
+  else if(lower) then
+ nspl=8
+   splpts(1)=670.
+   splpts(2)=820.
+   splpts(3)=1320.
+   splpts(4)=1820.
+   splpts(5)=2320.
+   splpts(6)=2550.
+   splpts(7)=2791.
+   splpts(8)=2891.
+   call vbspl(depth,nspl,splpts,vercof(8),dvercof(8))
+  endif
+  vercof(1)=1.
+  vercof(22)=1.
+  vercof(23)=1.
+  else if(string(1:lstr) == 'WDC+WM_362_U6L8'.and.lstr == 15) then
+  if(upper) then
+   nspl=6
+   splpts(1)=24.4
+   splpts(2)=100.
+   splpts(3)=225.
+   splpts(4)=350.
+   splpts(5)=500.
+   splpts(6)=670.
+   call vbspl(depth,nspl,splpts,vercof(2),dvercof(2))
+   do i=16,21
+    vercof(i)=vercof(i-14)
+    dvercof(i)=dvercof(i-14)
+   enddo
+  else if(lower) then
+ nspl=8
+   splpts(1)=670.
+   splpts(2)=820.
+   splpts(3)=1320.
+   splpts(4)=1820.
+   splpts(5)=2320.
+   splpts(6)=2550.
+   splpts(7)=2791.
+   splpts(8)=2891.
+   call vbspl(depth,nspl,splpts,vercof(8),dvercof(8))
+   do i=22,29
+    vercof(i)=vercof(i-14)
+    dvercof(i)=dvercof(i-14)
+   enddo
+  endif
+  vercof(1)=1.
+  vercof(30)=1.
+  vercof(31)=1.
+  vercof(32)=1.
+  else if( &
+     (string(1:lstr) == 'WDC+ANI_362_U6L8_650'.and.lstr == 20) &
+     .or. &
+         (string(1:lstr) == 'WDC+ANI_362_U6L8_TOPO_650'.and.lstr == 25) &
+     ) then
+  if(upper_650) then
+   nspl=6
+   splpts(1)=24.4
+   splpts(2)=100.
+   splpts(3)=225.
+   splpts(4)=350.
+   splpts(5)=500.
+   splpts(6)=650.
+   call vbspl(depth,nspl,splpts,vercof(2),dvercof(2))
+   do i=16,21
+    vercof(i)=vercof(i-14)
+    dvercof(i)=dvercof(i-14)
+   enddo
+  else if(lower_650) then
+ nspl=8
+   splpts(1)=650.
+   splpts(2)=820.
+   splpts(3)=1320.
+   splpts(4)=1820.
+   splpts(5)=2320.
+   splpts(6)=2550.
+   splpts(7)=2791.
+   splpts(8)=2891.
+   call vbspl(depth,nspl,splpts,vercof(8),dvercof(8))
+  endif
+  vercof(1)=1.
+  vercof(22)=1.
+  vercof(23)=1.
+  else if(string(1:lstr) == 'WDC+WM_362_U6L8_650' &
+       .and.lstr == 19) then
+  if(upper_650) then
+   nspl=6
+   splpts(1)=24.4
+   splpts(2)=100.
+   splpts(3)=225.
+   splpts(4)=350.
+   splpts(5)=500.
+   splpts(6)=650.
+   call vbspl(depth,nspl,splpts,vercof(2),dvercof(2))
+   do i=16,21
+    vercof(i)=vercof(i-14)
+    dvercof(i)=dvercof(i-14)
+   enddo
+  else if(lower_650) then
+ nspl=8
+   splpts(1)=650.
+   splpts(2)=820.
+   splpts(3)=1320.
+   splpts(4)=1820.
+   splpts(5)=2320.
+   splpts(6)=2550.
+   splpts(7)=2791.
+   splpts(8)=2891.
+   call vbspl(depth,nspl,splpts,vercof(8),dvercof(8))
+   do i=22,29
+    vercof(i)=vercof(i-14)
+    dvercof(i)=dvercof(i-14)
+   enddo
+  endif
+  vercof(1)=1.
+  vercof(30)=1.
+  vercof(31)=1.
+  vercof(32)=1.
+  else if(string(1:lstr) == 'WDC+U8L8_650'.and.lstr == 12) then
+  if(upper_650) then
+   nspl=8
+   splpts(1)=24.4
+   splpts(2)=75.
+   splpts(3)=150.
+   splpts(4)=225.
+   splpts(5)=300.
+   splpts(6)=410.
+   splpts(7)=530.
+   splpts(8)=650.
+   call vbspl(depth,nspl,splpts,vercof(2),dvercof(2))
+   do i=18,25
+    vercof(i)=vercof(i-16)
+    dvercof(i)=dvercof(i-16)
+   enddo
+  else if(lower_650) then
+ nspl=8
+   splpts(1)=650.
+   splpts(2)=820.
+   splpts(3)=1320.
+   splpts(4)=1820.
+   splpts(5)=2320.
+   splpts(6)=2550.
+   splpts(7)=2791.
+   splpts(8)=2891.
+   call vbspl(depth,nspl,splpts,vercof(10),dvercof(10))
+   do i=26,33
+    vercof(i)=vercof(i-16)
+    dvercof(i)=dvercof(i-16)
+   enddo
+  endif
+  vercof(1)=1.
+  vercof(34)=1.
+  vercof(35)=1.
+  vercof(36)=1.
+  else if(string(1:lstr) == 'WDC+U8L8_670'.and.lstr == 12) then
+  if(upper) then
+   nspl=8
+   splpts(1)=24.4
+   splpts(2)=75.
+   splpts(3)=150.
+   splpts(4)=225.
+   splpts(5)=300.
+   splpts(6)=410.
+   splpts(7)=530.
+   splpts(8)=670.
+   call vbspl(depth,nspl,splpts,vercof(2),dvercof(2))
+   do i=18,25
+    vercof(i)=vercof(i-16)
+    dvercof(i)=dvercof(i-16)
+   enddo
+  else if(lower) then
+ nspl=8
+   splpts(1)=670.
+   splpts(2)=820.
+   splpts(3)=1320.
+   splpts(4)=1820.
+   splpts(5)=2320.
+   splpts(6)=2550.
+   splpts(7)=2791.
+   splpts(8)=2891.
+   call vbspl(depth,nspl,splpts,vercof(10),dvercof(10))
+   do i=26,33
+    vercof(i)=vercof(i-16)
+    dvercof(i)=dvercof(i-16)
+   enddo
+  endif
+  vercof(1)=1.
+  vercof(34)=1.
+  vercof(35)=1.
+  vercof(36)=1.
+  else if( &
+      (string(1:lstr) == 'WDC+U8L8_I1D_650'.and.lstr == 16) &
+      .or. &
+      (string(1:lstr) == 'WDC+U8L8_I3D_650'.and.lstr == 16) &
+      ) then
+  if(upper_650) then
+   nspl=8
+   splpts(1)=24.4
+   splpts(2)=75.
+   splpts(3)=150.
+   splpts(4)=225.
+   splpts(5)=300.
+   splpts(6)=410.
+   splpts(7)=530.
+   splpts(8)=650.
+   call vbspl(depth,nspl,splpts,vercof(2),dvercof(2))
+   do i=18,25
+    vercof(i)=vercof(i-16)
+    dvercof(i)=dvercof(i-16)
+   enddo
+   do i=37,40
+    vercof(i)=vercof(i-35)
+    dvercof(i)=dvercof(i-35)
+   enddo
+   do i=41,44
+    vercof(i)=vercof(i-39)
+    dvercof(i)=dvercof(i-39)
+   enddo
+   do i=45,48
+    vercof(i)=vercof(i-43)
+    dvercof(i)=dvercof(i-43)
+   enddo
+   do i=49,52
+    vercof(i)=vercof(i-47)
+    dvercof(i)=dvercof(i-47)
+   enddo
+  else if(lower_650) then
+ nspl=8
+   splpts(1)=650.
+   splpts(2)=820.
+   splpts(3)=1320.
+   splpts(4)=1820.
+   splpts(5)=2320.
+   splpts(6)=2550.
+   splpts(7)=2791.
+   splpts(8)=2891.
+   call vbspl(depth,nspl,splpts,vercof(10),dvercof(10))
+   do i=26,33
+    vercof(i)=vercof(i-16)
+    dvercof(i)=dvercof(i-16)
+   enddo
+  endif
+  vercof(1)=1.
+  vercof(34)=1.
+  vercof(35)=1.
+  vercof(36)=1.
+  else if((string(1:lstr) == 'WDC+I1D_650'.and.lstr == 11).or. &
+          (string(1:lstr) == 'WDC+I3D_650'.and.lstr == 11)) then
+  if(upper_650) then
+   nspl=8
+   splpts(1)=24.4
+   splpts(2)=75.
+   splpts(3)=150.
+   splpts(4)=225.
+   splpts(5)=300.
+   splpts(6)=410.
+   splpts(7)=530.
+   splpts(8)=650.
+   call vbspl(depth,nspl,splpts,vercof(2),dvercof(2))
+   do i=18,25
+    vercof(i)=vercof(i-16)
+    dvercof(i)=dvercof(i-16)
+   enddo
+   do i=37,44
+    vercof(i)=vercof(i-35)
+    dvercof(i)=dvercof(i-35)
+   enddo
+   do i=53,60
+    vercof(i)=vercof(i-51)
+    dvercof(i)=dvercof(i-51)
+   enddo
+   do i=69,76
+    vercof(i)=vercof(i-67)
+    dvercof(i)=dvercof(i-67)
+   enddo
+   do i=85,92
+    vercof(i)=vercof(i-83)
+    dvercof(i)=dvercof(i-83)
+   enddo
+  else if(lower_650) then
+ nspl=8
+   splpts(1)=650.
+   splpts(2)=820.
+   splpts(3)=1320.
+   splpts(4)=1820.
+   splpts(5)=2320.
+   splpts(6)=2550.
+   splpts(7)=2791.
+   splpts(8)=2891.
+   call vbspl(depth,nspl,splpts,vercof(10),dvercof(10))
+   do i=26,33
+    vercof(i)=vercof(i-16)
+    dvercof(i)=dvercof(i-16)
+   enddo
+   do i=45,52
+    vercof(i)=vercof(i-35)
+    dvercof(i)=dvercof(i-35)
+   enddo
+   do i=61,68
+    vercof(i)=vercof(i-51)
+    dvercof(i)=dvercof(i-51)
+   enddo
+   do i=77,84
+    vercof(i)=vercof(i-67)
+    dvercof(i)=dvercof(i-67)
+   enddo
+   do i=93,100
+    vercof(i)=vercof(i-83)
+    dvercof(i)=dvercof(i-83)
+   enddo
+  endif
+  vercof(1)=1.
+  vercof(34)=1.
+  vercof(35)=1.
+  vercof(36)=1.
+  else if(string(1:lstr) == 'V16A4_V7A4'.and.lstr == 10) then
+  if(upper_650) then
+   nspl=8
+   splpts(1)=24.4
+   splpts(2)=75.
+   splpts(3)=150.
+   splpts(4)=225.
+   splpts(5)=300.
+   splpts(6)=410.
+   splpts(7)=530.
+   splpts(8)=650.
+   call vbspl(depth,nspl,splpts,vercof(1),dvercof(1))
+   do i=17,20
+    vercof(i)=vercof(i-16)
+    dvercof(i)=dvercof(i-16)
+   enddo
+   do i=23,29
+    vercof(i)=vercof(i-22)
+    dvercof(i)=dvercof(i-22)
+   enddo
+   do i=30,33
+    vercof(i)=vercof(i-29)
+    dvercof(i)=dvercof(i-29)
+   enddo
+  else if(lower_650) then
+ nspl=8
+   splpts(1)=650.
+   splpts(2)=820.
+   splpts(3)=1320.
+   splpts(4)=1820.
+   splpts(5)=2320.
+   splpts(6)=2550.
+   splpts(7)=2791.
+   splpts(8)=2891.
+   call vbspl(depth,nspl,splpts,vercof(9),dvercof(9))
+  endif
+  vercof(21)=1.
+  vercof(22)=1.
+  else
+  write(6,"('problem 4')")
+  write(6,"(a)")string(1:len_trim(string))
+  stop
+  endif
+
+  end subroutine evradker
+
+! ---
+
+  subroutine chebyfun(u,kmax,f)
+
+  implicit none
+
+  integer :: kmax
+
+  real(kind=4) :: chebycoeff(0:13),f(0:kmax),u
+
+  integer :: k
+
+  real(kind=4) :: twou
+
+  data chebycoeff / &
+   0.70710678118655,1.2247448713916,1.0350983390135,1.0145993123918, &
+   1.00803225754840,1.0050890913907,1.0035149493262,1.0025740068320, &
+   1.00196657023780,1.0015515913133,1.0012554932754,1.0010368069141, &
+   1.00087070107920,1.0007415648034 /
+
+  if(kmax > 13)then
+   write(*,"(' kmax exceeds the limit in chebyfun')")
+   stop
+  endif
+
+  f(0)=1.0
+  f(1)=u
+  twou=2.0*u
+
+  do k=2,kmax
+   f(k) = twou*f(k-1)-f(k-2)
+  enddo
+
+  do k=0,kmax
+   f(k)=f(k)*chebycoeff(k)
+  enddo
+
+  end subroutine chebyfun
+
+
+  subroutine gt3dmodl(lu,targetfile, &
+      xlatspl,xlonspl,radispl, &
+      numvar, &
+      ierror)
+
+  use s362ani_module
+  implicit none
+
+  integer, parameter :: mxhpar=2
+  integer, parameter :: mxkern=200
+  integer, parameter :: mxcoef=2000
+
+  character(len=80) refmodel
+  character(len=80) kernstri
+  character(len=40) desckern(mxkern)
+  character(len=80) hsplfile(mxhpar)
+
+  integer ihorpar(mxkern)
+  integer ityphpar(mxhpar)
+  integer ixlspl(mxcoef,mxhpar)
+  integer lmaxhor(mxhpar)
+  integer ncoefhor(mxhpar)
+
+  real(kind=4) coef(mxcoef,mxkern)
+  real(kind=4) xraspl(mxcoef,mxhpar)
+
+  character(len=128) targetfile
+
+  real(kind=4) xlatspl(maxcoe,maxhpa)
+  real(kind=4) xlonspl(maxcoe,maxhpa)
+  real(kind=4) radispl(maxcoe,maxhpa)
+
+  character(len=40) string
+
+  integer numvar,ierror,lu,nhorpar,nmodkern,i,j,lstr,k
+
+  ierror=0
+  call rd3dmodl(lu,targetfile,ierror, &
+    nmodkern,nhorpar,ityphpar, &
+    ihorpar,lmaxhor,ncoefhor, &
+    xlaspl,xlospl,xraspl,ixlspl,coef, &
+    hsplfile,refmodel,kernstri,desckern)
+
+  if(nhorpar <= maxhpa) then
+  numhpa=nhorpar
+  else
+  ierror=ierror+1
+  endif
+
+  if(nmodkern <= maxker) then
+  numker=nmodkern
+  else
+  ierror=ierror+1
+  endif
+
+  do i=1,nmodkern
+  ihpakern(i)=ihorpar(i)
+  dskker(i)=desckern(i)
+  do j=1,ncoefhor(ihpakern(i))
+    coe(j,i)=coef(j,i)
+!          if(j == 1) then
+!            write(6,"(e12.4)") coe(j,i)
+!          endif
+  enddo
+  enddo
+
+  do i=1,nhorpar
+  numcoe(i)=ncoefhor(i)
+  lmxhpa(i)=lmaxhor(i)
+  itypehpa(i)=ityphpar(i)
+  if(itypehpa(i) == 2) then
+    do j=1,ncoefhor(i)
+      itpspl(j,i)=ixlspl(j,i)
+      xlatspl(j,i)=xlaspl(j,i)
+      xlonspl(j,i)=xlospl(j,i)
+      radispl(j,i)=xraspl(j,i)
+    enddo
+  endif
+  hsplfl(i)=hsplfile(i)
+  enddo
+
+  numvar=0
+  do i=1,nmodkern
+  string=dskker(i)
+  lstr=len_trim(string)
+  j=1
+  do while(string(j:j) /= ','.and.j < lstr)
+    j=j+1
+  enddo
+  ivarkern(i)=0
+  do k=1,numvar
+    if(string(1:j) == varstr(k)(1:j)) then
+      ivarkern(i)=k
+    endif
+  enddo
+  if(ivarkern(i) == 0) then
+    numvar=numvar+1
+    varstr(numvar)=string(1:j)
+    ivarkern(i)=numvar
+  endif
+  enddo
+
+  refmdl=refmodel
+  kerstr=kernstri
+
+  end subroutine gt3dmodl
+
+
+  subroutine rd3dmodl(lu,filename,ierror, &
+    nmodkern,nhorpar,ityphpar, &
+    ihorpar,lmaxhor,ncoefhor, &
+    xlaspl,xlospl,xraspl,ixlspl,coef, &
+    hsplfile,refmodel,kernstri,desckern)
+
+  implicit none
+
+  integer, parameter :: mxhpar=2
+  integer, parameter :: mxkern=200
+  integer, parameter :: mxcoef=2000
+
+  character(len=80) refmodel
+  character(len=80) kernstri
+  character(len=40) desckern(mxkern)
+  character(len=80) hsplfile(mxhpar)
+
+  integer ihorpar(mxkern)
+  integer ityphpar(mxhpar)
+  integer ixlspl(mxcoef,mxhpar)
+  integer lmaxhor(mxhpar)
+  integer ncoefhor(mxhpar)
+
+  real(kind=4) coef(mxcoef,mxkern)
+  real(kind=4) xlaspl(mxcoef,mxhpar)
+  real(kind=4) xlospl(mxcoef,mxhpar)
+  real(kind=4) xraspl(mxcoef,mxhpar)
+
+  character(len=128) filename
+
+  character(len=128) string
+  character(len=128) substr
+
+  integer :: lu,ierror
+
+  integer :: ncoef,i,ihor,ifst,ilst,ifst1,ios,lstr,nmodkern,idummy,nhorpar,lmax
+
+  open(lu,file=filename,iostat=ios)
+  if(ios /= 0) then
+  stop 'error opening 3-d model'
+  endif
+  do while (ios == 0)
+  read(lu,"(a)",iostat=ios) string
+  lstr=len_trim(string)
+  if(ios == 0) then
+    if(string(1:16) == 'REFERENCE MODEL:') then
+      substr=string(17:lstr)
+      ifst=1
+      ilst=len_trim(substr)
+      do while (substr(ifst:ifst) == ' '.and.ifst < ilst)
+        ifst=ifst+1
+      enddo
+      if(ilst-ifst <= 0) then
+        stop 'error reading model 1'
+      else
+        refmodel=substr(ifst:ilst)
+      endif
+    else if(string(1:11) == 'KERNEL SET:') then
+      substr=string(12:len_trim(string))
+      ifst=1
+      ilst=len_trim(substr)
+      do while (substr(ifst:ifst) == ' '.and.ifst < ilst)
+        ifst=ifst+1
+      enddo
+      if(ilst-ifst <= 0) then
+        stop 'error reading model 2'
+      else
+        kernstri=substr(ifst:ilst)
+      endif
+    else if(string(1:25) == 'RADIAL STRUCTURE KERNELS:') then
+      substr=string(26:len_trim(string))
+      read(substr,*,iostat=ierror) nmodkern
+      if(ierror /= 0) then
+        stop 'error reading model 3'
+      endif
+    else if(string(1:4) == 'DESC'.and.string(9:9) == ':') then
+      read(string(5:8),"(i4)") idummy
+      substr=string(10:len_trim(string))
+      ifst=1
+      ilst=len_trim(substr)
+      do while (substr(ifst:ifst) == ' '.and.ifst < ilst)
+        ifst=ifst+1
+      enddo
+      if(ilst-ifst <= 0) then
+        stop 'error reading model 4'
+      else
+        desckern(idummy)=substr(ifst:ilst)
+      endif
+    else if(string(1:29) == 'HORIZONTAL PARAMETERIZATIONS:') then
+      substr=string(30:len_trim(string))
+      read(substr,*,iostat=ierror) nhorpar
+      if(ierror /= 0) then
+        stop 'error reading model 5'
+      endif
+    else if(string(1:4) == 'HPAR'.and.string(9:9) == ':') then
+      read(string(5:8),"(i4)") idummy
+      ifst=10
+      ilst=len_trim(string)
+      do while (string(ifst:ifst) == ' '.and.ifst < ilst)
+        ifst=ifst+1
+      enddo
+      if(ilst-ifst <= 0) then
+        stop 'error reading model 6'
+      else if(string(ifst:ifst+19) == 'SPHERICAL HARMONICS,') then
+        substr=string(20+ifst:len_trim(string))
+        read(substr,*) lmax
+        ityphpar(idummy)=1
+        lmaxhor(idummy)=lmax
+        ncoefhor(idummy)=(lmax+1)**2
+      else if(string(ifst:ifst+17) == 'SPHERICAL SPLINES,') then
+        ifst1=ifst+18
+        ifst=len_trim(string)
+        ilst=len_trim(string)
+        do while(string(ifst:ifst) /= ',')
+          ifst=ifst-1
+        enddo
+        read(string(ifst+1:ilst),*) ncoef
+        substr=string(ifst1:ifst-1)
+        do while (string(ifst1:ifst1) == ' '.and.ifst1 < ifst)
+          ifst1=ifst1+1
+        enddo
+        hsplfile(idummy)=string(ifst1:ifst-1)
+        ityphpar(idummy)=2
+        lmaxhor(idummy)=0
+        ncoefhor(idummy)=ncoef
+        do i=1,ncoef
+          read(lu,*) ixlspl(i,idummy),xlaspl(i,idummy), &
+             xlospl(i,idummy),xraspl(i,idummy)
+        enddo
+      endif
+    else if(string(1:4) == 'STRU'.and.string(9:9) == ':') then
+      read(string(5:8),"(i4)") idummy
+      substr=string(10:len_trim(string))
+      read(substr,*) ihor
+      ihorpar(idummy)=ihor
+      ncoef=ncoefhor(ihor)
+      read(lu,"(6e12.4)") (coef(i,idummy),i=1,ncoef)
+    endif
+  endif
+  enddo
+  close(lu)
+
+  end subroutine rd3dmodl
+
+
+  subroutine read_s362ani(myrank, THREE_D_MODEL)
+
+  use s362ani_module
+  implicit none
+  include 'mpif.h'
+  include "constants.h"
+
+  integer myrank,ier
+  integer THREE_D_MODEL
+
+      if(myrank == 0) call read_model_s362ani(THREE_D_MODEL,THREE_D_MODEL_S362ANI,THREE_D_MODEL_S362WMANI, &
+                              THREE_D_MODEL_S362ANI_PREM,THREE_D_MODEL_S29EA)
+  call MPI_BCAST(numker,1,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(numhpa,1,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(ihpa,1,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(lmxhpa,maxhpa,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(itypehpa,maxhpa,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(ihpakern,maxker,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(numcoe,maxhpa,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(ivarkern,maxker,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(itpspl,maxcoe*maxhpa,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
+
+  call MPI_BCAST(xlaspl,maxcoe*maxhpa,MPI_REAL,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(xlospl,maxcoe*maxhpa,MPI_REAL,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(radspl,maxcoe*maxhpa,MPI_REAL,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(coe,maxcoe*maxker,MPI_REAL,0,MPI_COMM_WORLD,ier)
+
+  call MPI_BCAST(hsplfl,80*maxhpa,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(dskker,40*maxker,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(kerstr,80,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(refmdl,80,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(varstr,40*maxker,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
+
+  end subroutine read_s362ani
+
+
+   subroutine read_model_s362ani(THREE_D_MODEL, &
+              THREE_D_MODEL_S362ANI,THREE_D_MODEL_S362WMANI, &
+              THREE_D_MODEL_S362ANI_PREM,THREE_D_MODEL_S29EA)
+
+  use s362ani_module
+  implicit none
+
+  integer THREE_D_MODEL,THREE_D_MODEL_S362ANI
+  integer THREE_D_MODEL_S362WMANI
+  integer THREE_D_MODEL_S362ANI_PREM,THREE_D_MODEL_S29EA
+
+  integer lu
+  character(len=128) modeldef
+  logical exists
+  integer numvar
+  integer ierror
+
+! -------------------------------------
+
+  lu=1                    ! --- log unit: input 3-D model
+  if(THREE_D_MODEL  ==  THREE_D_MODEL_S362ANI) then
+    modeldef='DATA/s362ani/S362ANI'
+  elseif(THREE_D_MODEL  ==  THREE_D_MODEL_S362WMANI) then
+    modeldef='DATA/s362ani/S362WMANI'
+  elseif(THREE_D_MODEL  ==  THREE_D_MODEL_S362ANI_PREM) then
+    modeldef='DATA/s362ani/S362ANI_PREM'
+  elseif(THREE_D_MODEL  ==  THREE_D_MODEL_S29EA) then
+    modeldef='DATA/s362ani/S2.9EA'
+  else
+    stop 'unknown 3D model in read_model_s362ani'
+  endif
+  inquire(file=modeldef,exist=exists)
+  if(exists) then
+    call gt3dmodl(lu,modeldef, &
+        xlaspl,xlospl,radspl, &
+        numvar,ierror)
+  else
+    write(6,"('the model ',a,' does not exits')") modeldef(1:len_trim(modeldef))
+  endif
+
+!         --- check arrays
+
+  if(numker > maxker) stop 'numker > maxker'
+  do ihpa=1,numhpa
+    if(itypehpa(ihpa) == 1) then
+      if(lmxhpa(ihpa) > maxl) stop 'lmxhpa(ihpa) > maxl'
+    else if(itypehpa(ihpa) == 2) then
+      if(numcoe(ihpa) > maxcoe) stop 'numcoe(ihpa) > maxcoe'
+    else
+      stop 'problem with itypehpa'
+    endif
+  enddo
+
+  end subroutine read_model_s362ani
+
+
+  subroutine splcon(xlat,xlon,nver,verlat,verlon,verrad,ncon,icon,con)
+
+  implicit none
+
+  integer icon(1)
+
+  real(kind=4) verlat(1)
+  real(kind=4) verlon(1)
+  real(kind=4) verrad(1)
+  real(kind=4) con(1)
+
+  double precision dd
+  double precision rn
+  double precision dr
+  double precision xrad
+  double precision ver8
+  double precision xla8
+
+  integer :: ncon,iver,nver
+
+  real(kind=4) :: xlat,xlon
+
+  xrad=3.14159265358979/180.d0
+
+  ncon=0
+
+  do iver=1,nver
+  if(xlat > verlat(iver)-2.*verrad(iver)) then
+    if(xlat < verlat(iver)+2.*verrad(iver)) then
+      ver8=xrad*(verlat(iver))
+      xla8=xrad*(xlat)
+      dd=sin(ver8)*sin(xla8)
+      dd=dd+cos(ver8)*cos(xla8)* cos(xrad*(xlon-verlon(iver)))
+      dd=acos(dd)/xrad
+      if(dd > (verrad(iver))*2.d0) then
+      else
+        ncon=ncon+1
+        icon(ncon)=iver
+        rn=dd/(verrad(iver))
+        dr=rn-1.d0
+        if(rn <= 1.d0) then
+          con(ncon)=(0.75d0*rn-1.5d0)*(rn**2)+1.d0
+        else if(rn > 1.d0) then
+          con(ncon)=((-0.25d0*dr+0.75d0)*dr-0.75d0)*dr+0.25d0
+        else
+          con(ncon)=0.
+        endif
+      endif
+    endif
+  endif
+  enddo
+
+  end subroutine splcon
+
+
+  subroutine get_model_s362ani(radius,theta,phi, &
+    vpv,vph,vsv,vsh,rho,eta_aniso,TRANSVERSE_ISOTROPY)
+
+    implicit none
+    include "constants.h"
+
+    double precision radius,theta,phi
+    double precision vpv,vph,vsv,vsh,rho,eta_aniso
+    double precision vp,vs
+
+    real(kind=4) xcolat,xlon,xrad,dvpv,dvph,dvsv,dvsh
+    ! XXX: This is only false for s362iso.
+    logical TRANSVERSE_ISOTROPY
+
+    ! 3D Harvard models s362ani, s362wmani, s362ani_prem and s2.9ea
+    dvpv = 0.
+    dvph = 0.
+    dvsv = 0.
+    dvsh = 0.
+    xcolat = sngl(theta*180.0d0/PI)
+    xlon = sngl(phi*180.0d0/PI)
+    xrad = sngl(radius*R_EARTH_KM)
+    call subshsv(xcolat,xlon,xrad,dvsh,dvsv,dvph,dvpv)
+    if(TRANSVERSE_ISOTROPY) then
+       vpv=vpv*(1.0d0+dble(dvpv))
+       vph=vph*(1.0d0+dble(dvph))
+       vsv=vsv*(1.0d0+dble(dvsv))
+       vsh=vsh*(1.0d0+dble(dvsh))
+    else
+       vpv=vpv+dvpv
+       vph=vph+dvph
+       vsv=vsv+dvsv
+       vsh=vsh+dvsh
+       vp = sqrt(((8.d0+4.d0*eta_aniso)*vph*vph + 3.d0*vpv*vpv + (8.d0 - 8.d0*eta_aniso)*vsv*vsv)/15.d0)
+       vs = sqrt(((1.d0-2.d0*eta_aniso)*vph*vph + vpv*vpv + 5.d0*vsh*vsh + (6.d0+4.d0*eta_aniso)*vsv*vsv)/15.d0)
+       vpv=vp
+       vph=vp
+       vsv=vs
+       vsh=vs
+       eta_aniso=1.0d0
+    endif
+
+  end subroutine get_model_s362ani
+
+
+! --- evaluate perturbations in per cent
+
+  subroutine subshsv(xcolat,xlon,xrad,dvsh,dvsv,dvph,dvpv)
+
+  use s362ani_module
+  implicit none
+
+  real(kind=4) :: xcolat,xlon,xrad
+  real(kind=4) :: dvsh,dvsv,dvph,dvpv
+
+! --- model evaluation
+
+  integer ish ! --- 0 if SV, 1 if SH
+  integer ieval     ! --- 1 for velocity, 2 for anisotropy
+  real(kind=4) :: valu(2)    ! --- valu(1) if S; valu(1)=velo, valu(2)=aniso
+  real(kind=4) :: value      ! --- used in single evaluation of perturbation
+  integer isel      ! --- if variable should be included
+  real(kind=4) :: depth      ! --- depth
+  real(kind=4) :: x,y  ! --- lat lon
+  real(kind=4) :: vsh3drel   ! --- relative perturbation
+  real(kind=4) :: vsv3drel   ! --- relative perturbation
+
+! ---
+
+  integer iker,i
+  character(len=40) vstr
+  integer lstr
+  integer ierror
+
+! -------------------------------------
+
+  depth=6371.0-xrad
+  call evradker (depth,kerstr,numker,vercof,vercofd,ierror)
+  if(ierror /= 0) stop 'ierror evradker'
+
+! --- loop over sv and sh (sv=0,sh=1)
+
+  do ish=0,1
+
+!       --- contributing horizontal basis functions at xlat,xlon
+
+  y=90.0-xcolat
+  x=xlon
+  do ihpa=1,numhpa
+      if(itypehpa(ihpa) == 1) then
+        lmax=lmxhpa(ihpa)
+        call ylm(y,x,lmax,ylmcof(1,ihpa),wk1,wk2,wk3)
+      else if(itypehpa(ihpa) == 2) then
+        numcof=numcoe(ihpa)
+        call splcon(y,x,numcof,xlaspl(1,ihpa), &
+              xlospl(1,ihpa),radspl(1,ihpa), &
+              nconpt(ihpa),iconpt(1,ihpa),conpt(1,ihpa))
+      else
+        write(6,"('problem 1')")
+      endif
+  enddo
+
+!         --- evaluate 3-D perturbations in velocity and anisotropy
+
+  valu(1)=0. ! --- velocity
+  valu(2)=0. ! --- anisotropy
+
+  do ieval=1,2
+    value=0.
+    do iker=1,numker
+      isel=0
+      lstr=len_trim(varstr(ivarkern(iker)))
+      vstr=(varstr(ivarkern(iker)))
+      if(ieval == 1) then
+        if(vstr(1:lstr) == 'UM (SH+SV)*0.5,'.or. &
+                 vstr(1:lstr) == 'LM (SH+SV)*0.5,'.or. &
+                 vstr(1:lstr) == 'EA (SH+SV)*0.5,') then
+          isel=1
+      endif
+      else if(ieval == 2) then
+        if(vstr(1:lstr) == 'UM SH-SV,'.or. &
+                       vstr(1:lstr) == 'LM SH-SV,'.or. &
+                       vstr(1:lstr) == 'EA SH-SV,') then
+          isel=1
+        endif
+      endif
+
+      if(isel == 1) then
+        if(vercof(iker) /= 0.) then
+            if(itypehpa(ihpakern(iker)) == 1) then
+          ihpa=ihpakern(iker)
+              nylm=(lmxhpa(ihpakern(iker))+1)**2
+              do i=1,nylm
+                value=value+vercof(iker)*ylmcof(i,ihpa) &
+                          *coe(i,iker)
+              enddo
+            else if(itypehpa(ihpakern(iker)) == 2) then
+          ihpa=ihpakern(iker)
+              do i=1,nconpt(ihpa)
+                iver=iconpt(i,ihpa)
+                value=value+vercof(iker)*conpt(i,ihpa) &
+                          *coe(iver,iker)
+              enddo
+            else
+              write(6,"('problem 2')")
+              stop
+            endif ! --- itypehpa
+        endif ! --- vercof(iker) /= 0.
+      endif ! --- isel == 1
+    enddo ! --- end of do iker=1,numker
+
+    valu(ieval)=value
+  enddo ! --- ieval
+
+!       --- evaluate perturbations in vsh and vsv
+
+  if(ish == 1) then
+    vsh3drel=valu(1)+0.5*valu(2)
+  else if(ish == 0) then
+    vsv3drel=valu(1)-0.5*valu(2)
+  else
+    stop 'something wrong'
+  endif
+
+  enddo ! --- by ish
+
+! --- evaluate perturbations in per cent
+
+  dvsh=vsh3drel
+  dvsv=vsv3drel
+  dvph=0.55*dvsh    ! --- scaling used in the inversion
+  dvpv=0.55*dvsv    ! --- scaling used in the inversion
+
+  end subroutine subshsv
+
+
+! --- evaluate depressions of the 410- and 650-km discontinuities in km
+
+  subroutine subtopo(xcolat,xlon,topo410,topo650)
+
+  use s362ani_module
+  implicit none
+
+  real(kind=4) :: xcolat,xlon
+  real(kind=4) :: topo410,topo650
+
+! --- model evaluation
+
+  integer ieval     ! --- 1 for velocity, 2 for anisotropy
+  real(kind=4) :: valu(2)    ! --- valu(1) if S; valu(1)=velo, valu(2)=aniso
+  real(kind=4) :: value      ! --- used in single evaluation of perturbation
+  integer isel      ! --- if variable should be included
+  real(kind=4) :: x,y  ! --- lat lon
+
+! ---
+  integer iker,i
+  character(len=40) vstr
+  integer lstr
+
+! -------------------------------------
+
+!       --- contributing horizontal basis functions at xlat,xlon
+
+  y=90.0-xcolat
+  x=xlon
+  do ihpa=1,numhpa
+      if(itypehpa(ihpa) == 1) then
+        lmax=lmxhpa(ihpa)
+        call ylm(y,x,lmax,ylmcof(1,ihpa),wk1,wk2,wk3)
+      else if(itypehpa(ihpa) == 2) then
+        numcof=numcoe(ihpa)
+        call splcon(y,x,numcof,xlaspl(1,ihpa), &
+              xlospl(1,ihpa),radspl(1,ihpa), &
+              nconpt(ihpa),iconpt(1,ihpa),conpt(1,ihpa))
+      else
+        write(6,"('problem 1')")
+      endif
+  enddo
+
+!         --- evaluate topography (depression) in km
+
+  valu(1)=0. ! --- 410
+  valu(2)=0. ! --- 650
+
+  do ieval=1,2
+    value=0.
+    do iker=1,numker
+      isel=0
+      lstr=len_trim(varstr(ivarkern(iker)))
+      vstr=(varstr(ivarkern(iker)))
+      if(ieval == 1) then
+        if(vstr(1:lstr) == 'Topo 400,') then
+          isel=1
+      endif
+      else if(ieval == 2) then
+        if(vstr(1:lstr) == 'Topo 670,') then
+          isel=1
+        endif
+      endif
+
+      if(isel == 1) then
+            if(itypehpa(ihpakern(iker)) == 1) then
+          ihpa=ihpakern(iker)
+              nylm=(lmxhpa(ihpakern(iker))+1)**2
+              do i=1,nylm
+                value=value+ylmcof(i,ihpa)*coe(i,iker)
+              enddo
+            else if(itypehpa(ihpakern(iker)) == 2) then
+          ihpa=ihpakern(iker)
+              do i=1,nconpt(ihpa)
+                iver=iconpt(i,ihpa)
+                value=value+conpt(i,ihpa)*coe(iver,iker)
+              enddo
+            else
+              write(6,"('problem 2')")
+              stop
+            endif ! --- itypehpa
+      endif ! --- isel == 1
+    enddo ! --- end of do iker=1,numker
+
+    valu(ieval)=value
+  enddo ! --- ieval
+
+  topo410=valu(1)
+  topo650=valu(2)
+
+  end subroutine subtopo
+
+  subroutine vbspl(x,np,xarr,splcon,splcond)
+!
+!---- this subroutine returns the spline contributions at a particular value of x
+!
+  implicit none
+
+  integer :: np
+
+  real(kind=4) :: xarr(np),x
+  real(kind=4) :: splcon(np)
+  real(kind=4) :: splcond(np)
+
+  real(kind=4) :: r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13
+  real(kind=4) :: r1d,r2d,r3d,r4d,r5d,r6d,r7d,r8d,r9d,r10d,r11d,r12d,r13d,val,vald
+
+  real(kind=4) :: rr1,rr2,rr3,rr4,rr5,rr6,rr7,rr8,rr9,rr10,rr11,rr12
+  real(kind=4) :: rr1d,rr2d,rr3d,rr4d,rr5d,rr6d,rr7d,rr8d,rr9d,rr10d,rr11d,rr12d
+
+  integer :: iflag,interval,ik,ib
+
+!
+!---- iflag=1 ==>> second derivative is 0 at end points
+!---- iflag=0 ==>> first derivative is 0 at end points
+!
+  iflag=1
+!
+!---- first, find out within which interval x falls
+!
+  interval=0
+  ik=1
+  do while(interval == 0.and.ik < np)
+  ik=ik+1
+  if(x >= xarr(ik-1).and.x <= xarr(ik)) interval=ik-1
+  enddo
+  if(x > xarr(np)) then
+  interval=np
+  endif
+
+  if(interval == 0) then
+!        write(6,"('low value:',2f10.3)") x,xarr(1)
+  else if(interval > 0.and.interval < np) then
+!        write(6,"('bracket:',i5,3f10.3)") interval,xarr(interval),x,xarr(interval+1)
+  else
+!        write(6,"('high value:',2f10.3)") xarr(np),x
+  endif
+
+  do ib=1,np
+  val=0.
+  vald=0.
+  if(ib == 1) then
+
+    r1=(x-xarr(1))/(xarr(2)-xarr(1))
+    r2=(xarr(3)-x)/(xarr(3)-xarr(1))
+    r4=(xarr(2)-x)/(xarr(2)-xarr(1))
+    r5=(x-xarr(1))/(xarr(2)-xarr(1))
+    r6=(xarr(3)-x)/(xarr(3)-xarr(1))
+   r10=(xarr(2)-x)/(xarr(2)-xarr(1))
+   r11=(x-xarr(1))  /(xarr(2)-xarr(1))
+   r12=(xarr(3)-x)/(xarr(3)-xarr(2))
+   r13=(xarr(2)-x)/(xarr(2)-xarr(1))
+
+    r1d=1./(xarr(2)-xarr(1))
+    r2d=-1./(xarr(3)-xarr(1))
+    r4d=-1./(xarr(2)-xarr(1))
+    r5d=1./(xarr(2)-xarr(1))
+    r6d=-1./(xarr(3)-xarr(1))
+   r10d=-1./(xarr(2)-xarr(1))
+   r11d=1./(xarr(2)-xarr(1))
+   r12d=-1./(xarr(3)-xarr(2))
+   r13d=-1./(xarr(2)-xarr(1))
+
+    if(interval == ib.or.interval == 0) then
+         if(iflag == 0) then
+           val=r1*r4*r10 + r2*r5*r10 + r2*r6*r11 +r13**3
+           vald=r1d*r4*r10+r1*r4d*r10+r1*r4*r10d
+           vald=vald+r2d*r5*r10+r2*r5d*r10+r2*r5*r10d
+           vald=vald+r2d*r6*r11+r2*r6d*r11+r2*r6*r11d
+           vald=vald+3.*r13d*r13**2
+         else if(iflag == 1) then
+           val=0.6667*(r1*r4*r10 + r2*r5*r10 + r2*r6*r11 &
+                    + 1.5*r13**3)
+           vald=r1d*r4*r10+r1*r4d*r10+r1*r4*r10d
+           vald=vald+r2d*r5*r10+r2*r5d*r10+r2*r5*r10d
+           vald=vald+r2d*r6*r11+r2*r6d*r11+r2*r6*r11d
+           vald=vald+4.5*r13d*r13**2
+           vald=0.6667*vald
+         endif
+    else if(interval == ib+1) then
+         if(iflag == 0) then
+           val=r2*r6*r12
+           vald=r2d*r6*r12+r2*r6d*r12+r2*r6*r12d
+         else if(iflag == 1) then
+           val=0.6667*r2*r6*r12
+           vald=0.6667*(r2d*r6*r12+r2*r6d*r12+r2*r6*r12d)
+         endif
+    else
+      val=0.
+    endif
+
+  else if(ib == 2) then
+
+    rr1=(x-xarr(1))/(xarr(2)-xarr(1))
+    rr2=(xarr(3)-x)/(xarr(3)-xarr(1))
+    rr4=(xarr(2)-x)/(xarr(2)-xarr(1))
+    rr5=(x-xarr(1))/(xarr(2)-xarr(1))
+    rr6=(xarr(3)-x)/(xarr(3)-xarr(1))
+   rr10=(xarr(2)-x)/(xarr(2)-xarr(1))
+   rr11=(x-xarr(1))  /(xarr(2)-xarr(1))
+   rr12=(xarr(3)-x)/(xarr(3)-xarr(2))
+
+    rr1d=1./(xarr(2)-xarr(1))
+    rr2d=-1./(xarr(3)-xarr(1))
+    rr4d=-1./(xarr(2)-xarr(1))
+    rr5d=1./(xarr(2)-xarr(1))
+    rr6d=-1./(xarr(3)-xarr(1))
+   rr10d=-1./(xarr(2)-xarr(1))
+   rr11d=1./(xarr(2)-xarr(1))
+   rr12d=-1./(xarr(3)-xarr(2))
+
+    r1=(x-xarr(ib-1))/(xarr(ib+1)-xarr(ib-1))
+    r2=(xarr(ib+2)-x)/(xarr(ib+2)-xarr(ib-1))
+    r3=(x-xarr(ib-1))/(xarr(ib)-xarr(ib-1))
+    r4=(xarr(ib+1)-x)/(xarr(ib+1)-xarr(ib-1))
+    r5=(x-xarr(ib-1))/(xarr(ib+1)-xarr(ib-1))
+    r6=(xarr(ib+2)-x)/(xarr(ib+2)-xarr(ib))
+    r8=(xarr(ib)-x)/  (xarr(ib)-xarr(ib-1))
+    r9=(x-xarr(ib-1))/(xarr(ib)-xarr(ib-1))
+   r10=(xarr(ib+1)-x)/(xarr(ib+1)-xarr(ib))
+   r11=(x-xarr(ib))  /(xarr(ib+1)-xarr(ib))
+   r12=(xarr(ib+2)-x)/(xarr(ib+2)-xarr(ib+1))
+
+    r1d=1./(xarr(ib+1)-xarr(ib-1))
+    r2d=-1./(xarr(ib+2)-xarr(ib-1))
+    r3d=1./(xarr(ib)-xarr(ib-1))
+    r4d=-1./(xarr(ib+1)-xarr(ib-1))
+    r5d=1./(xarr(ib+1)-xarr(ib-1))
+    r6d=-1./(xarr(ib+2)-xarr(ib))
+    r8d=-1./  (xarr(ib)-xarr(ib-1))
+    r9d=1./(xarr(ib)-xarr(ib-1))
+   r10d=-1./(xarr(ib+1)-xarr(ib))
+   r11d=1./(xarr(ib+1)-xarr(ib))
+   r12d=-1./(xarr(ib+2)-xarr(ib+1))
+
+    if(interval == ib-1.or.interval == 0) then
+         val=r1*r3*r8 + r1*r4*r9 + r2*r5*r9
+         vald=r1d*r3*r8+r1*r3d*r8+r1*r3*r8d
+         vald=vald+r1d*r4*r9+r1*r4d*r9+r1*r4*r9d
+         vald=vald+r2d*r5*r9+r2*r5d*r9+r2*r5*r9d
+         if(iflag == 1) then
+           val=val+0.3333*(rr1*rr4*rr10 + rr2*rr5*rr10 + &
+                     rr2*rr6*rr11)
+           vald=vald+0.3333*(rr1d*rr4*rr10+rr1*rr4d*rr10+ &
+                    rr1*rr4*rr10d)
+           vald=vald+0.3333*(rr2d*rr5*rr10+rr2*rr5d*rr10+ &
+                    rr2*rr5*rr10d)
+           vald=vald+0.3333*(rr2d*rr6*rr11+rr2*rr6d*rr11+ &
+                    rr2*rr6*rr11d)
+         endif
+    else if(interval == ib) then
+         val=r1*r4*r10 + r2*r5*r10 + r2*r6*r11
+         vald=r1d*r4*r10+r1*r4d*r10+r1*r4*r10d
+         vald=vald+r2d*r5*r10+r2*r5d*r10+r2*r5*r10d
+         vald=vald+r2d*r6*r11+r2*r6d*r11+r2*r6*r11d
+         if(iflag == 1) then
+           val=val+0.3333*rr2*rr6*rr12
+           vald=vald+0.3333*(rr2d*rr6*rr12+rr2*rr6d*rr12+ &
+                    rr2*rr6*rr12d)
+         endif
+    else if(interval == ib+1) then
+         val=r2*r6*r12
+         vald=r2d*r6*r12+r2*r6d*r12+r2*r6*r12d
+    else
+         val=0.
+    endif
+  else if(ib == np-1) then
+
+    rr1=(x-xarr(np-2))/(xarr(np)-xarr(np-2))
+    rr2=(xarr(np)-x)/(xarr(np)-xarr(np-1))
+    rr3=(x-xarr(np-2))/(xarr(np)-xarr(np-2))
+    rr4=(xarr(np)-x)/(xarr(np)-xarr(np-1))
+    rr5=(x-xarr(np-1))/(xarr(np)-xarr(np-1))
+    rr7=(x-xarr(np-2))/(xarr(np-1)-xarr(np-2))
+    rr8=(xarr(np)-x)/  (xarr(np)-xarr(np-1))
+    rr9=(x-xarr(np-1))/(xarr(np)-xarr(np-1))
+
+    rr1d=1./(xarr(np)-xarr(np-2))
+    rr2d=-1./(xarr(np)-xarr(np-1))
+    rr3d=1./(xarr(np)-xarr(np-2))
+    rr4d=-1./(xarr(np)-xarr(np-1))
+    rr5d=1./(xarr(np)-xarr(np-1))
+    rr7d=1./(xarr(np-1)-xarr(np-2))
+    rr8d=-1./  (xarr(np)-xarr(np-1))
+    rr9d=1./(xarr(np)-xarr(np-1))
+
+    r1=(x-xarr(ib-2))/(xarr(ib+1)-xarr(ib-2))
+    r2=(xarr(ib+1)-x)/(xarr(ib+1)-xarr(ib-1))
+    r3=(x-xarr(ib-2))/(xarr(ib)-xarr(ib-2))
+    r4=(xarr(ib+1)-x)/(xarr(ib+1)-xarr(ib-1))
+    r5=(x-xarr(ib-1))/(xarr(ib+1)-xarr(ib-1))
+    r6=(xarr(ib+1)-x)/(xarr(ib+1)-xarr(ib))
+    r7=(x-xarr(ib-2))/(xarr(ib-1)-xarr(ib-2))
+    r8=(xarr(ib)-x)/  (xarr(ib)-xarr(ib-1))
+    r9=(x-xarr(ib-1))/(xarr(ib)-xarr(ib-1))
+   r10=(xarr(ib+1)-x)/(xarr(ib+1)-xarr(ib))
+   r11=(x-xarr(ib))  /(xarr(ib+1)-xarr(ib))
+
+    r1d=1./(xarr(ib+1)-xarr(ib-2))
+    r2d=-1./(xarr(ib+1)-xarr(ib-1))
+    r3d=1./(xarr(ib)-xarr(ib-2))
+    r4d=-1./(xarr(ib+1)-xarr(ib-1))
+    r5d=1./(xarr(ib+1)-xarr(ib-1))
+    r6d=-1./(xarr(ib+1)-xarr(ib))
+    r7d=1./(xarr(ib-1)-xarr(ib-2))
+    r8d=-1./(xarr(ib)-xarr(ib-1))
+    r9d=1./(xarr(ib)-xarr(ib-1))
+   r10d=-1./(xarr(ib+1)-xarr(ib))
+   r11d=1./(xarr(ib+1)-xarr(ib))
+
+    if(interval == ib-2) then
+         val=r1*r3*r7
+         vald=r1d*r3*r7+r1*r3d*r7+r1*r3*r7d
+    else if(interval == ib-1) then
+         val=r1*r3*r8 + r1*r4*r9 + r2*r5*r9
+         vald=r1d*r3*r8+r1*r3d*r8+r1*r3*r8d
+         vald=vald+r1d*r4*r9+r1*r4d*r9+r1*r4*r9d
+         vald=vald+r2d*r5*r9+r2*r5d*r9+r2*r5*r9d
+         if(iflag == 1) then
+           val=val+0.3333*rr1*rr3*rr7
+           vald=vald+0.3333*(rr1d*rr3*rr7+rr1*rr3d*rr7+ &
+                    rr1*rr3*rr7d)
+         endif
+    else if(interval == ib.or.interval == np) then
+         val=r1*r4*r10 + r2*r5*r10 + r2*r6*r11
+         vald=r1d*r4*r10+r1*r4d*r10+r1*r4*r10d
+         vald=vald+r2d*r5*r10+r2*r5d*r10+r2*r5*r10d
+         vald=vald+r2d*r6*r11+r2*r6d*r11+r2*r6*r11d
+         if(iflag == 1) then
+           val=val+0.3333*(rr1*rr3*rr8 + rr1*rr4*rr9 + &
+                     rr2*rr5*rr9)
+           vald=vald+0.3333*(rr1d*rr3*rr8+rr1*rr3d*rr8+ &
+                    rr1*rr3*rr8d)
+           vald=vald+0.3333*(rr1d*rr4*rr9+rr1*rr4d*rr9+ &
+                    rr1*rr4*rr9d)
+           vald=vald+0.3333*(rr2d*rr5*rr9+rr2*rr5d*rr9+ &
+                    rr2*rr5*rr9d)
+         endif
+    else
+      val=0.
+    endif
+  else if(ib == np) then
+
+    r1=(x-xarr(np-2))/(xarr(np)-xarr(np-2))
+    r2=(xarr(np)-x)/(xarr(np)-xarr(np-1))
+    r3=(x-xarr(np-2))/(xarr(np)-xarr(np-2))
+    r4=(xarr(np)-x)/(xarr(np)-xarr(np-1))
+    r5=(x-xarr(np-1))/(xarr(np)-xarr(np-1))
+    r7=(x-xarr(np-2))/(xarr(np-1)-xarr(np-2))
+    r8=(xarr(np)-x)/  (xarr(np)-xarr(np-1))
+    r9=(x-xarr(np-1))/(xarr(np)-xarr(np-1))
+    r13=(x-xarr(np-1))/(xarr(np)-xarr(np-1))
+
+    r1d=1./(xarr(np)-xarr(np-2))
+    r2d=-1./(xarr(np)-xarr(np-1))
+    r3d=1./(xarr(np)-xarr(np-2))
+    r4d=-1./(xarr(np)-xarr(np-1))
+    r5d=1./(xarr(np)-xarr(np-1))
+    r7d=1./(xarr(np-1)-xarr(np-2))
+    r8d=-1./  (xarr(np)-xarr(np-1))
+    r9d=1./(xarr(np)-xarr(np-1))
+    r13d=1./(xarr(np)-xarr(np-1))
+
+    if(interval == np-2) then
+         if(iflag == 0) then
+           val=r1*r3*r7
+           vald=r1d*r3*r7+r1*r3d*r7+r1*r3*r7d
+         else if(iflag == 1) then
+           val=0.6667*r1*r3*r7
+           vald=0.6667*(r1d*r3*r7+r1*r3d*r7+r1*r3*r7d)
+         endif
+    else if(interval == np-1.or.interval == np) then
+         if(iflag == 0) then
+           val=r1*r3*r8 + r1*r4*r9 + r2*r5*r9 + r13**3
+           vald=r1d*r3*r8+r1*r3d*r8+r1*r3*r8d
+           vald=vald+r1d*r4*r9+r1*r4d*r9+r1*r4*r9d
+           vald=vald+r2d*r5*r9+r2*r5d*r9+r2*r5*r9d
+           vald=vald+3.*r13d*r13**2
+         else if(iflag == 1) then
+           val=0.6667*(r1*r3*r8 + r1*r4*r9 + r2*r5*r9 + &
+                     1.5*r13**3)
+           vald=r1d*r3*r8+r1*r3d*r8+r1*r3*r8d
+           vald=vald+r1d*r4*r9+r1*r4d*r9+r1*r4*r9d
+           vald=vald+r2d*r5*r9+r2*r5d*r9+r2*r5*r9d
+           vald=vald+4.5*r13d*r13**2
+           vald=0.6667*vald
+         endif
+    else
+      val=0.
+    endif
+  else
+
+    r1=(x-xarr(ib-2))/(xarr(ib+1)-xarr(ib-2))
+    r2=(xarr(ib+2)-x)/(xarr(ib+2)-xarr(ib-1))
+    r3=(x-xarr(ib-2))/(xarr(ib)-xarr(ib-2))
+    r4=(xarr(ib+1)-x)/(xarr(ib+1)-xarr(ib-1))
+    r5=(x-xarr(ib-1))/(xarr(ib+1)-xarr(ib-1))
+    r6=(xarr(ib+2)-x)/(xarr(ib+2)-xarr(ib))
+    r7=(x-xarr(ib-2))/(xarr(ib-1)-xarr(ib-2))
+    r8=(xarr(ib)-x)/  (xarr(ib)-xarr(ib-1))
+    r9=(x-xarr(ib-1))/(xarr(ib)-xarr(ib-1))
+   r10=(xarr(ib+1)-x)/(xarr(ib+1)-xarr(ib))
+   r11=(x-xarr(ib))  /(xarr(ib+1)-xarr(ib))
+   r12=(xarr(ib+2)-x)/(xarr(ib+2)-xarr(ib+1))
+
+    r1d=1./(xarr(ib+1)-xarr(ib-2))
+    r2d=-1./(xarr(ib+2)-xarr(ib-1))
+    r3d=1./(xarr(ib)-xarr(ib-2))
+    r4d=-1./(xarr(ib+1)-xarr(ib-1))
+    r5d=1./(xarr(ib+1)-xarr(ib-1))
+    r6d=-1./(xarr(ib+2)-xarr(ib))
+    r7d=1./(xarr(ib-1)-xarr(ib-2))
+    r8d=-1./  (xarr(ib)-xarr(ib-1))
+    r9d=1./(xarr(ib)-xarr(ib-1))
+   r10d=-1./(xarr(ib+1)-xarr(ib))
+   r11d=1./(xarr(ib+1)-xarr(ib))
+   r12d=-1./(xarr(ib+2)-xarr(ib+1))
+
+    if(interval == ib-2) then
+         val=r1*r3*r7
+         vald=r1d*r3*r7+r1*r3d*r7+r1*r3*r7d
+    else if(interval == ib-1) then
+         val=r1*r3*r8 + r1*r4*r9 + r2*r5*r9
+         vald=r1d*r3*r8+r1*r3d*r8+r1*r3*r8d
+         vald=vald+r1d*r4*r9+r1*r4d*r9+r1*r4*r9d
+         vald=vald+r2d*r5*r9+r2*r5d*r9+r2*r5*r9d
+    else if(interval == ib) then
+         val=r1*r4*r10 + r2*r5*r10 + r2*r6*r11
+         vald=r1d*r4*r10+r1*r4d*r10+r1*r4*r10d
+         vald=vald+r2d*r5*r10+r2*r5d*r10+r2*r5*r10d
+         vald=vald+r2d*r6*r11+r2*r6d*r11+r2*r6*r11d
+    else if(interval == ib+1) then
+         val=r2*r6*r12
+         vald=r2d*r6*r12+r2*r6d*r12+r2*r6*r12d
+    else
+      val=0.
+    endif
+  endif
+  splcon(ib)=val
+  splcond(ib)=vald
+  enddo
+
+  end subroutine vbspl
+
+
+  subroutine ylm(XLAT,XLON,LMAX,Y,WK1,WK2,WK3)
+
+  implicit none
+
+  complex TEMP,FAC,DFAC
+
+  real(kind=4) WK1(1),WK2(1),WK3(1),Y(1),XLAT,XLON
+
+  integer :: LMAX
+
+!
+!     WK1,WK2,WK3 SHOULD BE DIMENSIONED AT LEAST (LMAX+1)*4
+!
+  real(kind=4), parameter :: RADIAN = 57.2957795
+
+  integer :: IM,IL1,IND,LM1,L
+
+  real(kind=4) :: THETA,PHI
+
+  THETA=(90.-XLAT)/RADIAN
+  PHI=XLON/RADIAN
+
+  IND=0
+  LM1=LMAX+1
+
+  DO IL1=1,LM1
+
+  L=IL1-1
+  CALL legndr(THETA,L,L,WK1,WK2,WK3)
+
+  FAC=(1.,0.)
+  DFAC=CEXP(CMPLX(0.,PHI))
+
+  do IM=1,IL1
+    TEMP=FAC*CMPLX(WK1(IM),0.)
+    IND=IND+1
+    Y(IND)=REAL(TEMP)
+    IF(IM == 1) GOTO 20
+    IND=IND+1
+    Y(IND)=AIMAG(TEMP)
+ 20 FAC=FAC*DFAC
+  enddo
+
+  enddo
+
+  end subroutine ylm
+
+!------------------------------------
+
+  subroutine legndr(THETA,L,M,X,XP,XCOSEC)
+
+  implicit none
+
+  real(kind=4) :: X(2),XP(2),XCOSEC(2)
+
+  double precision :: SMALL,SUM,COMPAR,CT,ST,FCT,COT,X1,X2,X3,F1,F2,XM,TH
+
+  double precision, parameter :: FPI = 12.56637062D0
+
+  integer :: i,M,MP1,k,l,LP1
+
+  real(kind=4) :: THETA,DSFL3,COSEC,SFL3
+
+!!!!!! illegal statement, removed by Dimitri Komatitsch   DFLOAT(I)=FLOAT(I)
+
+  SUM=0.D0
+  LP1=L+1
+  TH=THETA
+  CT=DCOS(TH)
+  ST=DSIN(TH)
+  MP1=M+1
+  FCT=DSQRT(dble(2*L+1)/FPI)
+  SFL3=SQRT(FLOAT(L*(L+1)))
+  COMPAR=dble(2*L+1)/FPI
+  DSFL3=SFL3
+  SMALL=1.D-16*COMPAR
+
+  do I=1,MP1
+    X(I)=0.
+    XCOSEC(I)=0.
+    XP(I)=0.
+  enddo
+
+  IF(L > 1.AND.ABS(THETA) > 1.E-5) GO TO 3
+  X(1)=FCT
+  IF(L == 0) RETURN
+  X(1)=CT*FCT
+  X(2)=-ST*FCT/DSFL3
+  XP(1)=-ST*FCT
+  XP(2)=-.5D0*CT*FCT*DSFL3
+  IF(ABS(THETA) < 1.E-5) XCOSEC(2)=XP(2)
+  IF(ABS(THETA) >= 1.E-5) XCOSEC(2)=X(2)/ST
+  RETURN
+
+ 3 X1=1.D0
+  X2=CT
+
+  do I=2,L
+    X3=(dble(2*I-1)*CT*X2-dble(I-1)*X1)/dble(I)
+    X1=X2
+    X2=X3
+  enddo
+
+  COT=CT/ST
+  COSEC=1./ST
+  X3=X2*FCT
+  X2=dble(L)*(X1-CT*X2)*FCT/ST
+  X(1)=X3
+  X(2)=X2
+  SUM=X3*X3
+  XP(1)=-X2
+  XP(2)=dble(L*(L+1))*X3-COT*X2
+  X(2)=-X(2)/SFL3
+  XCOSEC(2)=X(2)*COSEC
+  XP(2)=-XP(2)/SFL3
+  SUM=SUM+2.D0*X(2)*X(2)
+  IF(SUM-COMPAR > SMALL) RETURN
+  X1=X3
+  X2=-X2/DSQRT(dble(L*(L+1)))
+
+  do I=3,MP1
+    K=I-1
+    F1=DSQRT(dble((L+I-1)*(L-I+2)))
+    F2=DSQRT(dble((L+I-2)*(L-I+3)))
+    XM=K
+    X3=-(2.D0*COT*(XM-1.D0)*X2+F2*X1)/F1
+    SUM=SUM+2.D0*X3*X3
+    IF(SUM-COMPAR > SMALL.AND.I /= LP1) RETURN
+    X(I)=X3
+    XCOSEC(I)=X(I)*COSEC
+    X1=X2
+    XP(I)=-(F1*X2+XM*COT*X3)
+    X2=X3
+  enddo
+
+  end subroutine legndr
+

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/Makefile.in
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/Makefile.in	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/Makefile.in	2008-11-08 00:24:07 UTC (rev 13275)
@@ -51,10 +51,11 @@
 O = obj
 S = @srcdir@
 
+model_OBJECTS = $(crust_2_0_OBJECTS) $(s20rts_OBJECTS) $(s362ani_OBJECTS) $(reference_1d_model_OBJECTS)
+
 libspecfem_a_OBJECTS = \
 	$O/add_missing_nodes.o \
 	$O/add_topography.o \
-	$O/add_topography_410_650.o \
 	$O/add_topography_cmb.o \
 	$O/add_topography_icb.o \
 	$O/anisotropic_inner_core_model.o \
@@ -62,6 +63,7 @@
 	$O/assemble_MPI_scalar.o \
 	$O/assemble_MPI_vector.o \
 	$O/attenuation_model.o \
+	$O/auto_ner.o \
 	$O/calc_jacobian.o \
 	$O/calendar.o \
 	$O/comp_source_spectrum.o \
@@ -79,7 +81,6 @@
 	$O/create_name_database.o \
 	$O/create_regions_mesh.o \
 	$O/create_serial_name_database.o \
-	$O/crustal_model.o \
 	$O/define_derivation_matrices.o \
 	$O/define_superbrick.o \
 	$O/euler_angles.o \
@@ -108,27 +109,20 @@
 	$O/locate_sources.o \
 	$O/make_ellipticity.o \
 	$O/make_gravity.o \
-	$O/mantle_model.o \
 	$O/memory_eval.o \
-	$O/model_1066a.o \
-	$O/model_ak135.o \
-	$O/model_iasp91.o \
-	$O/model_prem.o \
-	$O/model_ref.o \
 	$O/moho_stretching.o \
-	$O/spline_routines.o \
 	$O/netlib_specfun_erf.o \
+	$O/prem_common.o \
 	$O/read_arrays_buffers_solver.o \
 	$O/read_compute_parameters.o \
 	$O/read_value_parameters.o \
-	$O/auto_ner.o \
 	$O/recompute_jacobian.o \
 	$O/reduce.o \
 	$O/rthetaphi_xyz.o \
-	$O/s362ani.o \
 	$O/save_arrays_solver.o \
 	$O/save_header_file.o \
 	$O/sort_array_coordinates.o \
+	$O/spline_routines.o \
 	$O/stretching_function.o \
 	$O/topo_bathy.o \
 	$O/write_AVS_DX_global_chunks_data.o \
@@ -185,17 +179,32 @@
 
 
 ####
+#### includes
+####
+
+include $S/MODELS/crust2.0/build.mk
+include $S/MODELS/s20rts/build.mk
+include $S/MODELS/s362ani/build.mk
+
+include $S/MODELS/prem/build.mk
+#include $S/MODELS/iasp91/build.mk
+#include $S/MODELS/1066a/build.mk
+#include $S/MODELS/ak135/build.mk
+#include $S/MODELS/ref/build.mk
+
+
+####
 #### rules for executables
 ####
 
 # rules for the main programs
-XMESHFEM_OBJECTS = $O/meshfem3D.o $(LIBSPECFEM)
+XMESHFEM_OBJECTS = $O/meshfem3D.o $(model_OBJECTS) $(LIBSPECFEM)
 xmeshfem3D: $(XMESHFEM_OBJECTS)
 ## use MPI here
 	${MPIFCCOMPILE_CHECK} -o xmeshfem3D $(XMESHFEM_OBJECTS) $(MPILIBS)
 
 # solver also depends on values from mesher
-XSPECFEM_OBJECTS = $(SOLVER_ARRAY_OBJECTS) $(LIBSPECFEM)
+XSPECFEM_OBJECTS = $(SOLVER_ARRAY_OBJECTS) $(model_OBJECTS) $(LIBSPECFEM)
 xspecfem3D: $(XSPECFEM_OBJECTS)
 ## use MPI here
 	${MPIFCCOMPILE_NO_CHECK} -o xspecfem3D $(XSPECFEM_OBJECTS) $(MPILIBS)
@@ -204,8 +213,9 @@
 xconvolve_source_timefunction: $O/convolve_source_timefunction.o
 	${FCCOMPILE_CHECK} -o xconvolve_source_timefunction $O/convolve_source_timefunction.o
 
-xcreate_header_file: $O/create_header_file.o $(LIBSPECFEM)
-	${FCCOMPILE_CHECK} -o xcreate_header_file $O/create_header_file.o $(LIBSPECFEM)
+# XXX: This is not an MPI program!
+xcreate_header_file: $O/create_header_file.o $(model_OBJECTS) $(LIBSPECFEM)
+	${MPIFCCOMPILE_CHECK} -o xcreate_header_file $O/create_header_file.o $(model_OBJECTS) $(LIBSPECFEM)
 
 xcreate_movie_AVS_DX: $O/create_movie_AVS_DX.o $(LIBSPECFEM)
 	${FCCOMPILE_CHECK} -o xcreate_movie_AVS_DX $O/create_movie_AVS_DX.o $(LIBSPECFEM)
@@ -353,9 +363,6 @@
 $O/calc_jacobian.o: constants.h $S/calc_jacobian.f90
 	${FCCOMPILE_CHECK} -c -o $O/calc_jacobian.o ${FCFLAGS_f90} $S/calc_jacobian.f90
 
-$O/crustal_model.o: constants.h $S/crustal_model.f90
-	${FCCOMPILE_CHECK} -c -o $O/crustal_model.o ${FCFLAGS_f90} $S/crustal_model.f90
-
 $O/make_ellipticity.o: constants.h $S/make_ellipticity.f90
 	${FCCOMPILE_CHECK} -c -o $O/make_ellipticity.o ${FCFLAGS_f90} $S/make_ellipticity.f90
 
@@ -425,9 +432,6 @@
 $O/intgrl.o: constants.h $S/intgrl.f90
 	${FCCOMPILE_CHECK} -c -o $O/intgrl.o ${FCFLAGS_f90} $S/intgrl.f90
 
-$O/mantle_model.o: constants.h $S/mantle_model.f90
-	${FCCOMPILE_CHECK} -c -o $O/mantle_model.o ${FCFLAGS_f90} $S/mantle_model.f90
-
 $O/get_absorb.o: constants.h $S/get_absorb.f90
 	${FCCOMPILE_CHECK} -c -o $O/get_absorb.o ${FCFLAGS_f90} $S/get_absorb.f90
 
@@ -447,21 +451,9 @@
 $O/lgndr.o: constants.h $S/lgndr.f90
 	${FCCOMPILE_CHECK} -c -o $O/lgndr.o ${FCFLAGS_f90} $S/lgndr.f90
 
-$O/model_prem.o: constants.h $S/model_prem.f90
-	${FCCOMPILE_CHECK} -c -o $O/model_prem.o ${FCFLAGS_f90} $S/model_prem.f90
+$O/prem_common.o: constants.h $S/prem_common.f90
+	${FCCOMPILE_CHECK} -c -o $O/prem_common.o ${FCFLAGS_f90} $S/prem_common.f90
 
-$O/model_iasp91.o: constants.h $S/model_iasp91.f90
-	${FCCOMPILE_CHECK} -c -o $O/model_iasp91.o ${FCFLAGS_f90} $S/model_iasp91.f90
-
-$O/model_1066a.o: constants.h $S/model_1066a.f90
-	${FCCOMPILE_CHECK} -c -o $O/model_1066a.o ${FCFLAGS_f90} $S/model_1066a.f90
-
-$O/model_ak135.o: constants.h $S/model_ak135.f90
-	${FCCOMPILE_CHECK} -c -o $O/model_ak135.o ${FCFLAGS_f90} $S/model_ak135.f90
-
-$O/model_ref.o: constants.h $S/model_ref.f90
-	${FCCOMPILE_CHECK} -c -o $O/model_ref.o ${FCFLAGS_f90} $S/model_ref.f90
-
 $O/anisotropic_mantle_model.o: constants.h $S/anisotropic_mantle_model.f90
 	${FCCOMPILE_CHECK} -c -o $O/anisotropic_mantle_model.o ${FCFLAGS_f90} $S/anisotropic_mantle_model.f90
 
@@ -486,9 +478,6 @@
 $O/moho_stretching.o: constants.h $S/moho_stretching.f90
 	${FCCOMPILE_CHECK} -c -o $O/moho_stretching.o ${FCFLAGS_f90} $S/moho_stretching.f90
 
-$O/add_topography_410_650.o: constants.h $S/add_topography_410_650.f90
-	${FCCOMPILE_CHECK} -c -o $O/add_topography_410_650.o ${FCFLAGS_f90} $S/add_topography_410_650.f90
-
 $O/add_topography_cmb.o: constants.h $S/add_topography_cmb.f90
 	${FCCOMPILE_CHECK} -c -o $O/add_topography_cmb.o ${FCFLAGS_f90} $S/add_topography_cmb.f90
 
@@ -538,7 +527,7 @@
 $O/create_central_cube_buffers.o: constants.h $S/create_central_cube_buffers.f90
 	${MPIFCCOMPILE_CHECK} -c -o $O/create_central_cube_buffers.o ${FCFLAGS_f90} $S/create_central_cube_buffers.f90
 
-$O/attenuation_model.o: constants.h $S/attenuation_model.f90 $O/model_ak135.o $O/model_1066a.o $O/model_ref.o
+$O/attenuation_model.o: constants.h $S/attenuation_model.f90
 	${MPIFCCOMPILE_CHECK} -c -o $O/attenuation_model.o ${FCFLAGS_f90} $S/attenuation_model.f90
 
 $O/gll_library.o: constants.h $S/gll_library.f90
@@ -583,9 +572,6 @@
 $O/get_backazimuth.o: constants.h $S/get_backazimuth.f90
 	${FCCOMPILE_CHECK} -c -o $O/get_backazimuth.o ${FCFLAGS_f90} $S/get_backazimuth.f90
 
-$O/s362ani.o: constants.h $S/s362ani.f90
-	${FCCOMPILE_CHECK} -c -o $O/s362ani.o ${FCFLAGS_f90} $S/s362ani.f90
-
 ###
 ### rule for the header file
 ###

Deleted: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/add_topography_410_650.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/add_topography_410_650.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/add_topography_410_650.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -1,134 +0,0 @@
-!=====================================================================
-!
-!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
-!          --------------------------------------------------
-!
-!          Main authors: Dimitri Komatitsch and Jeroen Tromp
-!    Seismological Laboratory, California Institute of Technology, USA
-!             and University of Pau / CNRS / INRIA, France
-! (c) California Institute of Technology and University of Pau / CNRS / INRIA
-!                            February 2008
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-  subroutine add_topography_410_650(myrank,xelm,yelm,zelm,R220,R400,R670,R771, &
-    numker,numhpa,numcof,ihpa,lmax,nylm, &
-    lmxhpa,itypehpa,ihpakern,numcoe,ivarkern, &
-    nconpt,iver,iconpt,conpt,xlaspl,xlospl,radspl, &
-    coe,ylmcof,wk1,wk2,wk3,varstr)
-
-  implicit none
-
-  include "constants.h"
-
-  integer myrank
-
-  double precision xelm(NGNOD)
-  double precision yelm(NGNOD)
-  double precision zelm(NGNOD)
-
-  double precision R220,R400,R670,R771
-
-  integer ia
-
-  real(kind=4) xcolat,xlon
-  real(kind=4) topo410out,topo650out
-  double precision topo410,topo650
-
-  double precision r,theta,phi
-  double precision gamma
-
-  integer, parameter :: maxker=200
-  integer, parameter :: maxl=72
-  integer, parameter :: maxcoe=2000
-  integer, parameter :: maxver=1000
-  integer, parameter :: maxhpa=2
-
-  integer numker
-  integer numhpa,numcof
-  integer ihpa,lmax,nylm
-  integer lmxhpa(maxhpa)
-  integer itypehpa(maxhpa)
-  integer ihpakern(maxker)
-  integer numcoe(maxhpa)
-  integer ivarkern(maxker)
-
-  integer nconpt(maxhpa),iver
-  integer iconpt(maxver,maxhpa)
-  real(kind=4) conpt(maxver,maxhpa)
-
-  real(kind=4) xlaspl(maxcoe,maxhpa)
-  real(kind=4) xlospl(maxcoe,maxhpa)
-  real(kind=4) radspl(maxcoe,maxhpa)
-  real(kind=4) coe(maxcoe,maxker)
-
-  real(kind=4) ylmcof((maxl+1)**2,maxhpa)
-  real(kind=4) wk1(maxl+1)
-  real(kind=4) wk2(maxl+1)
-  real(kind=4) wk3(maxl+1)
-
-  character(len=40) varstr(maxker)
-
-! we loop on all the points of the element
-  do ia = 1,NGNOD
-
-! convert to r theta phi
-    call xyz_2_rthetaphi_dble(xelm(ia),yelm(ia),zelm(ia),r,theta,phi)
-    call reduce(theta,phi)
-
-! get colatitude and longitude in degrees
-    xcolat = sngl(theta*180.0d0/PI)
-    xlon = sngl(phi*180.0d0/PI)
-
-! compute topography on 410 and 650 at current point
-    call subtopo(xcolat,xlon,topo410out,topo650out, &
-                 numker,numhpa,numcof,ihpa,lmax,nylm, &
-                 lmxhpa,itypehpa,ihpakern,numcoe,ivarkern, &
-                 nconpt,iver,iconpt,conpt,xlaspl,xlospl,radspl, &
-                 coe,ylmcof,wk1,wk2,wk3,varstr)
-
-! non-dimensionalize the topography, which is in km
-! positive for a depression, so change the sign for a perturbation in radius
-    topo410 = -dble(topo410out) / R_EARTH_KM
-    topo650 = -dble(topo650out) / R_EARTH_KM
-
-    gamma = 0.d0
-    if(r >= R400/R_EARTH .and. r <= R220/R_EARTH) then
-! stretching between R220 and R400
-      gamma = (R220/R_EARTH - r) / (R220/R_EARTH - R400/R_EARTH)
-      xelm(ia) = xelm(ia)*(ONE + gamma * topo410 / r)
-      yelm(ia) = yelm(ia)*(ONE + gamma * topo410 / r)
-      zelm(ia) = zelm(ia)*(ONE + gamma * topo410 / r)
-    elseif(r>= R771/R_EARTH .and. r <= R670/R_EARTH) then
-! stretching between R771 and R670
-      gamma = (r - R771/R_EARTH) / (R670/R_EARTH - R771/R_EARTH)
-      xelm(ia) = xelm(ia)*(ONE + gamma * topo650 / r)
-      yelm(ia) = yelm(ia)*(ONE + gamma * topo650 / r)
-      zelm(ia) = zelm(ia)*(ONE + gamma * topo650 / r)
-    elseif(r > R670/R_EARTH .and. r < R400/R_EARTH) then
-! stretching between R670 and R400
-      gamma = (R400/R_EARTH - r) / (R400/R_EARTH - R670/R_EARTH)
-      xelm(ia) = xelm(ia)*(ONE + (topo410 + gamma * (topo650 - topo410)) / r)
-      yelm(ia) = yelm(ia)*(ONE + (topo410 + gamma * (topo650 - topo410)) / r)
-      zelm(ia) = zelm(ia)*(ONE + (topo410 + gamma * (topo650 - topo410)) / r)
-    endif
-    if(gamma < -0.0001 .or. gamma > 1.0001) call exit_MPI(myrank,'incorrect value of gamma for 410-650 topography')
-
-  enddo
-
-  end subroutine add_topography_410_650
-

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/anisotropic_inner_core_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/anisotropic_inner_core_model.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/anisotropic_inner_core_model.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -35,7 +35,7 @@
 
 !-----------------------------------
 
-  subroutine aniso_inner_core_model(x,c11,c33,c12,c13,c44,REFERENCE_1D_MODEL)
+  subroutine aniso_inner_core_model(x,c11,c33,c12,c13,c44)
 
   implicit none
 
@@ -43,8 +43,6 @@
 
 ! given a normalized radius x, gives non-dimensionalized c11,c33,c12,c13,c44
 
-  integer REFERENCE_1D_MODEL
-
   double precision x,c11,c33,c12,c13,c44
 
   double precision vp,vs,rho
@@ -52,30 +50,8 @@
   double precision c66
   double precision scale_fac
 
-  if(REFERENCE_1D_MODEL == REFERENCE_MODEL_IASP91) then
-    vp=11.24094d0-4.09689d0*x*x
-    vs=3.56454d0-3.45241d0*x*x
-    rho=13.0885d0-8.8381d0*x*x
+  call reference_1d_model_aniso_inner_core_model_setup(x,vp,vp0,vs,vs0,rho,rho0)
 
-! values at center
-    vp0=11.24094d0
-    vs0=3.56454d0
-    rho0=13.0885d0
-
-  else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_PREM) then
-    vp=11.2622d0-6.3640d0*x*x
-    vs=3.6678d0-4.4475d0*x*x
-    rho=13.0885d0-8.8381d0*x*x
-
-! values at center
-    vp0=11.2622d0
-    vs0=3.6678d0
-    rho0=13.0885d0
-
-  else
-    stop 'unknown 1D reference Earth model in anisotropic inner core'
-  endif
-
 ! elastic tensor for hexagonal symmetry in reduced notation:
 !
 !      c11 c12 c13  0   0        0

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/attenuation_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/attenuation_model.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/attenuation_model.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -66,7 +66,7 @@
 !
 ! All this subroutine does is define the Attenuation vs Radius and then Compute the Attenuation
 ! Variables (tau_sigma and tau_epslion ( or tau_mu) )
-subroutine attenuation_model_setup(REFERENCE_1D_MODEL,RICB,RCMB,R670,R220,R80,AM_V,M1066a_V,Mak135_V,Mref_V,AM_S,AS_V)
+subroutine attenuation_model_setup(AM_V,AM_S,AS_V)
 
   implicit none
 
@@ -95,51 +95,6 @@
   type (attenuation_model_variables) AM_V
 ! attenuation_model_variables
 
-! model_1066a_variables
-  type model_1066a_variables
-    sequence
-      double precision, dimension(NR_1066A) :: radius_1066a
-      double precision, dimension(NR_1066A) :: density_1066a
-      double precision, dimension(NR_1066A) :: vp_1066a
-      double precision, dimension(NR_1066A) :: vs_1066a
-      double precision, dimension(NR_1066A) :: Qkappa_1066a
-      double precision, dimension(NR_1066A) :: Qmu_1066a
-  end type model_1066a_variables
-
-  type (model_1066a_variables) M1066a_V
-! model_1066a_variables
-
-! model_ak135_variables
-  type model_ak135_variables
-    sequence
-    double precision, dimension(NR_AK135) :: radius_ak135
-    double precision, dimension(NR_AK135) :: density_ak135
-    double precision, dimension(NR_AK135) :: vp_ak135
-    double precision, dimension(NR_AK135) :: vs_ak135
-    double precision, dimension(NR_AK135) :: Qkappa_ak135
-    double precision, dimension(NR_AK135) :: Qmu_ak135
-  end type model_ak135_variables
-
- type (model_ak135_variables) Mak135_V
-! model_ak135_variables
-
-! model_ref_variables
-  type model_ref_variables
-    sequence
-    double precision, dimension(NR_REF) :: radius_ref
-    double precision, dimension(NR_REF) :: density_ref
-    double precision, dimension(NR_REF) :: vpv_ref
-    double precision, dimension(NR_REF) :: vph_ref
-    double precision, dimension(NR_REF) :: vsv_ref
-    double precision, dimension(NR_REF) :: vsh_ref
-    double precision, dimension(NR_REF) :: eta_ref
-    double precision, dimension(NR_REF) :: Qkappa_ref
-    double precision, dimension(NR_REF) :: Qmu_ref
-  end type model_ref_variables
-
- type (model_ref_variables) Mref_V
-! model_ref_variables
-
 ! attenuation_model_storage
   type attenuation_model_storage
     sequence
@@ -170,8 +125,6 @@
 ! attenuation_simplex_variables
 
   integer myrank
-  integer REFERENCE_1D_MODEL
-  double precision RICB, RCMB, R670, R220, R80
   double precision tau_e(N_SLS)
 
   integer i,ier
@@ -184,45 +137,9 @@
   call MPI_COMM_RANK(MPI_COMM_WORLD, myrank, ier)
   if(myrank > 0) return
 
-  if(REFERENCE_1D_MODEL == REFERENCE_MODEL_PREM) then
-     AM_V%Qn = 12
-  else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_IASP91) then
-     AM_V%Qn = 12
-  else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_AK135) then
-     call define_model_ak135(.FALSE.,Mak135_V)
-     AM_V%Qn = NR_AK135
-  else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_1066A) then
-     call define_model_1066a(.FALSE., M1066a_V)
-     AM_V%Qn = NR_1066A
-  else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_REF) then
-     call define_model_ref(Mref_V)
-     AM_V%Qn = NR_REF
-  else
-     call exit_MPI(myrank, 'Reference 1D Model Not recognized')
-  endif
+  call define_reference_1d_model(.FALSE.)
+  call reference_1d_model_attenuation_model_setup(AM_V)
 
-  allocate(AM_V%Qr(AM_V%Qn))
-  allocate(AM_V%Qmu(AM_V%Qn))
-  allocate(AM_V%interval_Q(AM_V%Qn))
-  allocate(AM_V%Qtau_e(N_SLS,AM_V%Qn))
-
-  if(REFERENCE_1D_MODEL == REFERENCE_MODEL_PREM) then
-     AM_V%Qr(:)     = (/    0.0d0,     RICB,  RICB,  RCMB,    RCMB,    R670,    R670,   R220,    R220,    R80,     R80, R_EARTH /)
-     AM_V%Qmu(:)    = (/   84.6d0,   84.6d0, 0.0d0, 0.0d0, 312.0d0, 312.0d0, 143.0d0, 143.0d0, 80.0d0, 80.0d0, 600.0d0, 600.0d0 /)
-  else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_IASP91) then
-     AM_V%Qr(:)     = (/    0.0d0,     RICB,  RICB,  RCMB,    RCMB,    R670,    R670,    R220,   R220,   R120,    R120, R_EARTH /)
-     AM_V%Qmu(:)    = (/   84.6d0,   84.6d0, 0.0d0, 0.0d0, 312.0d0, 312.0d0, 143.0d0, 143.0d0, 80.0d0, 80.0d0, 600.0d0, 600.0d0 /)
-  else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_AK135) then
-     AM_V%Qr(:)     = Mak135_V%radius_ak135(:)
-     AM_V%Qmu(:)    = Mak135_V%Qmu_ak135(:)
-  else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_1066A) then
-     AM_V%Qr(:)     = M1066a_V%radius_1066a(:)
-     AM_V%Qmu(:)    = M1066a_V%Qmu_1066a(:)
-  else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_ref) then
-     AM_V%Qr(:)     = Mref_V%radius_ref(:)
-     AM_V%Qmu(:)    = Mref_V%Qmu_ref(:)
-  end if
-
   do i = 1, AM_V%Qn
      call attenuation_conversion(AM_V%Qmu(i), AM_V%QT_c_source, AM_V%Qtau_s, tau_e, AM_V, AM_S,AS_V)
      AM_V%Qtau_e(:,i) = tau_e(:)

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/check_buffers_1D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/check_buffers_1D.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/check_buffers_1D.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -60,7 +60,7 @@
           NPROC_XI,NPROC_ETA,NTSTEP_BETWEEN_OUTPUT_SEISMOS, &
           NTSTEP_BETWEEN_READ_ADJSRC,NSTEP,NTSTEP_BETWEEN_FRAMES, &
           NTSTEP_BETWEEN_OUTPUT_INFO,NUMBER_OF_RUNS, &
-          NUMBER_OF_THIS_RUN,NCHUNKS,SIMULATION_TYPE,REFERENCE_1D_MODEL,THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
+          NUMBER_OF_THIS_RUN,NCHUNKS,SIMULATION_TYPE,THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
 
   double precision DT,ANGULAR_WIDTH_XI_IN_DEGREES,ANGULAR_WIDTH_ETA_IN_DEGREES,CENTER_LONGITUDE_IN_DEGREES, &
           CENTER_LATITUDE_IN_DEGREES,GAMMA_ROTATION_AZIMUTH,ROCEAN,RMIDDLE_CRUST, &
@@ -134,7 +134,7 @@
          ROTATION,ISOTROPIC_3D_MANTLE,TOPOGRAPHY,OCEANS,MOVIE_SURFACE, &
          MOVIE_VOLUME,MOVIE_VOLUME_COARSE,ATTENUATION_3D,RECEIVERS_CAN_BE_BURIED, &
          PRINT_SOURCE_TIME_FUNCTION,SAVE_MESH_FILES, &
-         ATTENUATION,REFERENCE_1D_MODEL,THREE_D_MODEL,ABSORBING_CONDITIONS, &
+         ATTENUATION,THREE_D_MODEL,ABSORBING_CONDITIONS, &
          INCLUDE_CENTRAL_CUBE,INFLATE_CENTRAL_CUBE,LOCAL_PATH,MODEL,SIMULATION_TYPE,SAVE_FORWARD, &
          NPROC,NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA, &
          NSPEC, &

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/check_buffers_2D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/check_buffers_2D.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/check_buffers_2D.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -66,7 +66,7 @@
           NPROC_XI,NPROC_ETA,NTSTEP_BETWEEN_OUTPUT_SEISMOS, &
           NTSTEP_BETWEEN_READ_ADJSRC,NSTEP,NTSTEP_BETWEEN_FRAMES, &
           NTSTEP_BETWEEN_OUTPUT_INFO,NUMBER_OF_RUNS,NUMBER_OF_THIS_RUN,NCHUNKS,SIMULATION_TYPE, &
-          REFERENCE_1D_MODEL,THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
+          THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
 
   double precision DT,ANGULAR_WIDTH_XI_IN_DEGREES,ANGULAR_WIDTH_ETA_IN_DEGREES,CENTER_LONGITUDE_IN_DEGREES, &
           CENTER_LATITUDE_IN_DEGREES,GAMMA_ROTATION_AZIMUTH,ROCEAN,RMIDDLE_CRUST, &
@@ -138,7 +138,7 @@
          ROTATION,ISOTROPIC_3D_MANTLE,TOPOGRAPHY,OCEANS,MOVIE_SURFACE, &
          MOVIE_VOLUME,MOVIE_VOLUME_COARSE,ATTENUATION_3D,RECEIVERS_CAN_BE_BURIED, &
          PRINT_SOURCE_TIME_FUNCTION,SAVE_MESH_FILES, &
-         ATTENUATION,REFERENCE_1D_MODEL,THREE_D_MODEL,ABSORBING_CONDITIONS, &
+         ATTENUATION,THREE_D_MODEL,ABSORBING_CONDITIONS, &
          INCLUDE_CENTRAL_CUBE,INFLATE_CENTRAL_CUBE,LOCAL_PATH,MODEL,SIMULATION_TYPE,SAVE_FORWARD, &
          NPROC,NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA, &
          NSPEC, &

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/check_buffers_corners_chunks.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/check_buffers_corners_chunks.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/check_buffers_corners_chunks.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -58,7 +58,7 @@
           NPROC_XI,NPROC_ETA,NTSTEP_BETWEEN_OUTPUT_SEISMOS, &
           NTSTEP_BETWEEN_READ_ADJSRC,NSTEP,NTSTEP_BETWEEN_FRAMES, &
           NTSTEP_BETWEEN_OUTPUT_INFO,NUMBER_OF_RUNS,NUMBER_OF_THIS_RUN,NCHUNKS,SIMULATION_TYPE, &
-          REFERENCE_1D_MODEL,THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
+          THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
 
   double precision DT,ANGULAR_WIDTH_XI_IN_DEGREES,ANGULAR_WIDTH_ETA_IN_DEGREES,CENTER_LONGITUDE_IN_DEGREES, &
           CENTER_LATITUDE_IN_DEGREES,GAMMA_ROTATION_AZIMUTH,ROCEAN,RMIDDLE_CRUST, &
@@ -127,7 +127,7 @@
          ROTATION,ISOTROPIC_3D_MANTLE,TOPOGRAPHY,OCEANS,MOVIE_SURFACE, &
          MOVIE_VOLUME,MOVIE_VOLUME_COARSE,ATTENUATION_3D,RECEIVERS_CAN_BE_BURIED, &
          PRINT_SOURCE_TIME_FUNCTION,SAVE_MESH_FILES, &
-         ATTENUATION,REFERENCE_1D_MODEL,THREE_D_MODEL,ABSORBING_CONDITIONS, &
+         ATTENUATION,THREE_D_MODEL,ABSORBING_CONDITIONS, &
          INCLUDE_CENTRAL_CUBE,INFLATE_CENTRAL_CUBE,LOCAL_PATH,MODEL,SIMULATION_TYPE,SAVE_FORWARD, &
          NPROC,NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA, &
          NSPEC, &

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/check_buffers_faces_chunks.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/check_buffers_faces_chunks.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/check_buffers_faces_chunks.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -62,7 +62,7 @@
           NPROC_XI,NPROC_ETA,NTSTEP_BETWEEN_OUTPUT_SEISMOS, &
           NTSTEP_BETWEEN_READ_ADJSRC,NSTEP,NTSTEP_BETWEEN_FRAMES, &
           NTSTEP_BETWEEN_OUTPUT_INFO,NUMBER_OF_RUNS,NUMBER_OF_THIS_RUN,NCHUNKS,SIMULATION_TYPE, &
-          REFERENCE_1D_MODEL,THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
+          THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
 
   double precision DT,ANGULAR_WIDTH_XI_IN_DEGREES,ANGULAR_WIDTH_ETA_IN_DEGREES,CENTER_LONGITUDE_IN_DEGREES, &
           CENTER_LATITUDE_IN_DEGREES,GAMMA_ROTATION_AZIMUTH,ROCEAN,RMIDDLE_CRUST, &
@@ -132,7 +132,7 @@
          ROTATION,ISOTROPIC_3D_MANTLE,TOPOGRAPHY,OCEANS,MOVIE_SURFACE, &
          MOVIE_VOLUME,MOVIE_VOLUME_COARSE,ATTENUATION_3D,RECEIVERS_CAN_BE_BURIED, &
          PRINT_SOURCE_TIME_FUNCTION,SAVE_MESH_FILES, &
-         ATTENUATION,REFERENCE_1D_MODEL,THREE_D_MODEL,ABSORBING_CONDITIONS, &
+         ATTENUATION,THREE_D_MODEL,ABSORBING_CONDITIONS, &
          INCLUDE_CENTRAL_CUBE,INFLATE_CENTRAL_CUBE,LOCAL_PATH,MODEL,SIMULATION_TYPE,SAVE_FORWARD, &
          NPROC,NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA, &
          NSPEC, &

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/combine_AVS_DX.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/combine_AVS_DX.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/combine_AVS_DX.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -128,7 +128,7 @@
           NPROC_XI,NPROC_ETA,NTSTEP_BETWEEN_OUTPUT_SEISMOS, &
           NTSTEP_BETWEEN_READ_ADJSRC,NSTEP,NTSTEP_BETWEEN_FRAMES, &
           NTSTEP_BETWEEN_OUTPUT_INFO,NUMBER_OF_RUNS,NUMBER_OF_THIS_RUN,NCHUNKS,SIMULATION_TYPE, &
-          REFERENCE_1D_MODEL,THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
+          THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
 
   double precision DT,ANGULAR_WIDTH_XI_IN_DEGREES,ANGULAR_WIDTH_ETA_IN_DEGREES,CENTER_LONGITUDE_IN_DEGREES, &
           CENTER_LATITUDE_IN_DEGREES,GAMMA_ROTATION_AZIMUTH,ROCEAN,RMIDDLE_CRUST, &
@@ -207,7 +207,7 @@
          ROTATION,ISOTROPIC_3D_MANTLE,TOPOGRAPHY,OCEANS,MOVIE_SURFACE, &
          MOVIE_VOLUME,MOVIE_VOLUME_COARSE,ATTENUATION_3D,RECEIVERS_CAN_BE_BURIED, &
          PRINT_SOURCE_TIME_FUNCTION,SAVE_MESH_FILES, &
-         ATTENUATION,REFERENCE_1D_MODEL,THREE_D_MODEL,ABSORBING_CONDITIONS, &
+         ATTENUATION,THREE_D_MODEL,ABSORBING_CONDITIONS, &
          INCLUDE_CENTRAL_CUBE,INFLATE_CENTRAL_CUBE,LOCAL_PATH,MODEL,SIMULATION_TYPE,SAVE_FORWARD, &
          NPROC,NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA, &
          NSPEC_COMP, &

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/compute_element_properties.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/compute_element_properties.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/compute_element_properties.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -31,7 +31,7 @@
            nspl,rspl,espl,espl2,ELLIPTICITY,TOPOGRAPHY,TRANSVERSE_ISOTROPY, &
            ANISOTROPIC_3D_MANTLE,ANISOTROPIC_INNER_CORE,ISOTROPIC_3D_MANTLE,CRUSTAL,ONE_CRUST, &
            myrank,ibathy_topo,ATTENUATION,ATTENUATION_3D, &
-           ABSORBING_CONDITIONS,REFERENCE_1D_MODEL,THREE_D_MODEL, &
+           ABSORBING_CONDITIONS,THREE_D_MODEL, &
            RICB,RCMB,R670,RMOHO,RTOPDDOUBLEPRIME,R600,R220,R771,R400,R120,R80,RMIDDLE_CRUST,ROCEAN, &
            xelm,yelm,zelm,shape3D,dershape3D,rmin,rmax,rhostore,kappavstore,kappahstore,muvstore,muhstore,eta_anisostore, &
            xixstore,xiystore,xizstore,etaxstore,etaystore,etazstore,gammaxstore,gammaystore,gammazstore, &
@@ -39,11 +39,8 @@
            c23store,c24store,c25store,c26store,c33store,c34store,c35store, &
            c36store,c44store,c45store,c46store,c55store,c56store,c66store, &
            nspec_ani,nspec_stacey,Qmu_store,tau_e_store,tau_s,T_c_source,rho_vp,rho_vs,&
-           AMM_V,AM_V,M1066a_V,Mak135_V, Mref_V,D3MM_V,CM_V,AM_S,AS_V, &
-           numker,numhpa,numcof,ihpa,lmax,nylm, &
-           lmxhpa,itypehpa,ihpakern,numcoe,ivarkern, &
-           nconpt,iver,iconpt,conpt,xlaspl,xlospl,radspl, &
-           coe,vercof,vercofd,ylmcof,wk1,wk2,wk3,kerstr,varstr,ACTUALLY_STORE_ARRAYS)
+           AMM_V,AM_V,AM_S,AS_V, &
+           ACTUALLY_STORE_ARRAYS)
 
   implicit none
 
@@ -82,80 +79,6 @@
   type (attenuation_model_variables) AM_V
 ! attenuation_model_variables
 
-! model_1066a_variables
-  type model_1066a_variables
-    sequence
-      double precision, dimension(NR_1066A) :: radius_1066a
-      double precision, dimension(NR_1066A) :: density_1066a
-      double precision, dimension(NR_1066A) :: vp_1066a
-      double precision, dimension(NR_1066A) :: vs_1066a
-      double precision, dimension(NR_1066A) :: Qkappa_1066a
-      double precision, dimension(NR_1066A) :: Qmu_1066a
-  end type model_1066a_variables
-
-  type (model_1066a_variables) M1066a_V
-! model_1066a_variables
-
-! model_ak135_variables
-  type model_ak135_variables
-    sequence
-    double precision, dimension(NR_AK135) :: radius_ak135
-    double precision, dimension(NR_AK135) :: density_ak135
-    double precision, dimension(NR_AK135) :: vp_ak135
-    double precision, dimension(NR_AK135) :: vs_ak135
-    double precision, dimension(NR_AK135) :: Qkappa_ak135
-    double precision, dimension(NR_AK135) :: Qmu_ak135
-  end type model_ak135_variables
-
- type (model_ak135_variables) Mak135_V
-! model_ak135_variables
-
-! model_ref_variables
-  type model_ref_variables
-    sequence
-     double precision, dimension(NR_REF) :: radius_ref
-     double precision, dimension(NR_REF) :: density_ref
-     double precision, dimension(NR_REF) :: vpv_ref
-     double precision, dimension(NR_REF) :: vph_ref
-     double precision, dimension(NR_REF) :: vsv_ref
-     double precision, dimension(NR_REF) :: vsh_ref
-     double precision, dimension(NR_REF) :: eta_ref
-     double precision, dimension(NR_REF) :: Qkappa_ref
-     double precision, dimension(NR_REF) :: Qmu_ref
-  end type model_ref_variables
-
- type (model_ref_variables) Mref_V
-! model_ref_variables
-
-! three_d_mantle_model_variables
-  type three_d_mantle_model_variables
-    sequence
-    double precision dvs_a(0:NK,0:NS,0:NS)
-    double precision dvs_b(0:NK,0:NS,0:NS)
-    double precision dvp_a(0:NK,0:NS,0:NS)
-    double precision dvp_b(0:NK,0:NS,0:NS)
-    double precision spknt(NK+1)
-    double precision qq0(NK+1,NK+1)
-    double precision qq(3,NK+1,NK+1)
-  end type three_d_mantle_model_variables
-
-  type (three_d_mantle_model_variables) D3MM_V
-! three_d_mantle_model_variables
-
-! crustal_model_variables
-  type crustal_model_variables
-    sequence
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: thlr
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocp
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocs
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: dens
-    character(len=2) abbreviation(NCAP_CRUST/2,NCAP_CRUST)
-    character(len=2) code(NKEYS_CRUST)
-  end type crustal_model_variables
-
-  type (crustal_model_variables) CM_V
-! crustal_model_variables
-
 ! attenuation_model_storage
   type attenuation_model_storage
     sequence
@@ -188,7 +111,7 @@
 ! correct number of spectral elements in each block depending on chunk type
   integer ispec,nspec,nspec_stacey
 
-  integer REFERENCE_1D_MODEL,THREE_D_MODEL
+  integer THREE_D_MODEL
 
   logical ELLIPTICITY,TOPOGRAPHY
   logical TRANSVERSE_ISOTROPY,ANISOTROPIC_3D_MANTLE,ANISOTROPIC_INNER_CORE,ISOTROPIC_3D_MANTLE,CRUSTAL,ONE_CRUST
@@ -250,40 +173,6 @@
   double precision, dimension(N_SLS)                  :: tau_s
   double precision  T_c_source
 
-  integer, parameter :: maxker=200
-  integer, parameter :: maxl=72
-  integer, parameter :: maxcoe=2000
-  integer, parameter :: maxver=1000
-  integer, parameter :: maxhpa=2
-
-  integer numker
-  integer numhpa,numcof
-  integer ihpa,lmax,nylm
-  integer lmxhpa(maxhpa)
-  integer itypehpa(maxhpa)
-  integer ihpakern(maxker)
-  integer numcoe(maxhpa)
-  integer ivarkern(maxker)
-
-  integer nconpt(maxhpa),iver
-  integer iconpt(maxver,maxhpa)
-  real(kind=4) conpt(maxver,maxhpa)
-
-  real(kind=4) xlaspl(maxcoe,maxhpa)
-  real(kind=4) xlospl(maxcoe,maxhpa)
-  real(kind=4) radspl(maxcoe,maxhpa)
-  real(kind=4) coe(maxcoe,maxker)
-  real(kind=4) vercof(maxker)
-  real(kind=4) vercofd(maxker)
-
-  real(kind=4) ylmcof((maxl+1)**2,maxhpa)
-  real(kind=4) wk1(maxl+1)
-  real(kind=4) wk2(maxl+1)
-  real(kind=4) wk3(maxl+1)
-
-  character(len=80) kerstr
-  character(len=40) varstr(maxker)
-
 ! **************
 ! add topography on the Moho *before* adding the 3D crustal model so that the streched
 ! mesh gets assigned the right model values
@@ -302,13 +191,9 @@
           ISOTROPIC_3D_MANTLE,CRUSTAL,ONE_CRUST, &
           ATTENUATION, ATTENUATION_3D, tau_s, tau_e_store, Qmu_store, T_c_source, &
           size(tau_e_store,2), size(tau_e_store,3), size(tau_e_store,4), size(tau_e_store,5), &
-          ABSORBING_CONDITIONS,REFERENCE_1D_MODEL,THREE_D_MODEL, &
+          ABSORBING_CONDITIONS,THREE_D_MODEL, &
           RCMB,RICB,R670,RMOHO,RTOPDDOUBLEPRIME,R600,R220,R771,R400,R120,R80,RMIDDLE_CRUST,ROCEAN,&
-          AMM_V,AM_V,M1066a_V,Mak135_V,Mref_V,D3MM_V,CM_V,AM_S,AS_V, &
-          numker,numhpa,numcof,ihpa,lmax,nylm, &
-          lmxhpa,itypehpa,ihpakern,numcoe,ivarkern, &
-          nconpt,iver,iconpt,conpt,xlaspl,xlospl,radspl, &
-          coe,vercof,vercofd,ylmcof,wk1,wk2,wk3,kerstr,varstr)
+          AMM_V,AM_V,AM_S,AS_V)
 
 ! add topography without the crustal model
   if(TOPOGRAPHY .and. (idoubling(ispec)==IFLAG_CRUST .or. idoubling(ispec)==IFLAG_220_80 &
@@ -317,11 +202,7 @@
 ! add topography on 410 km and 650 km discontinuity in model S362ANI
   if(THREE_D_MODEL == THREE_D_MODEL_S362ANI .or. THREE_D_MODEL == THREE_D_MODEL_S362WMANI &
      .or. THREE_D_MODEL == THREE_D_MODEL_S362ANI_PREM .or. THREE_D_MODEL == THREE_D_MODEL_S29EA) &
-          call add_topography_410_650(myrank,xelm,yelm,zelm,R220,R400,R670,R771, &
-                                      numker,numhpa,numcof,ihpa,lmax,nylm, &
-                                      lmxhpa,itypehpa,ihpakern,numcoe,ivarkern, &
-                                      nconpt,iver,iconpt,conpt,xlaspl,xlospl,radspl, &
-                                      coe,ylmcof,wk1,wk2,wk3,varstr)
+          call add_topography_410_650(myrank,xelm,yelm,zelm,R220,R400,R670,R771)
 
 ! CMB topography
 !  if(THREE_D_MODEL == THREE_D_MODEL_S362ANI .and. (idoubling(ispec)==IFLAG_MANTLE_NORMAL &

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/constants.h.in
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/constants.h.in	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/constants.h.in	2008-11-08 00:24:07 UTC (rev 13275)
@@ -408,28 +408,6 @@
 ! for lookup table for gravity every 100 m in radial direction of Earth model
   integer, parameter :: NRAD_GRAVITY = 70000
 
-!!!!!!!!!!!!!! parameters added for the thread-safe version of the code
-! number of layers in DATA/1066a/1066a.dat
-  integer, parameter :: NR_1066A = 160
-
-! number of layers in DATA/ak135/ak135.dat
-  integer, parameter :: NR_AK135 = 144
-
-! number of layers in DATA/s362ani/REF
-  integer, parameter :: NR_REF = 750
-
-! three_d_mantle_model_constants
-  integer, parameter :: NK = 20,NS = 20,ND = 1
-
-! crustal_model_constants
-  ! crustal model parameters for crust2.0
-    integer, parameter :: NKEYS_CRUST = 359
-    integer, parameter :: NLAYERS_CRUST = 8
-    integer, parameter :: NCAP_CRUST = 180
-  ! use sedimentary layers of crust 2.0
-    logical, parameter :: INCLUDE_SEDIMENTS_CRUST = .true.
-!!!!!!!!!!!!!! end of parameters added for the thread-safe version of the code
-
 ! to inflate the central cube (set to 0.d0 for a non-inflated cube)
   double precision, parameter :: CENTRAL_CUBE_INFLATE_FACTOR = 0.41d0
 

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/create_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/create_header_file.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/create_header_file.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -42,7 +42,7 @@
           NPROC_XI,NPROC_ETA,NTSTEP_BETWEEN_OUTPUT_SEISMOS, &
           NTSTEP_BETWEEN_READ_ADJSRC,NSTEP,NSOURCES,NTSTEP_BETWEEN_FRAMES, &
           NTSTEP_BETWEEN_OUTPUT_INFO,NUMBER_OF_RUNS,NUMBER_OF_THIS_RUN,NCHUNKS,SIMULATION_TYPE, &
-          REFERENCE_1D_MODEL,THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
+          THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
 
   double precision DT,ANGULAR_WIDTH_XI_IN_DEGREES,ANGULAR_WIDTH_ETA_IN_DEGREES,CENTER_LONGITUDE_IN_DEGREES, &
           CENTER_LATITUDE_IN_DEGREES,GAMMA_ROTATION_AZIMUTH,ROCEAN,RMIDDLE_CRUST, &
@@ -127,7 +127,7 @@
          ROTATION,ISOTROPIC_3D_MANTLE,TOPOGRAPHY,OCEANS,MOVIE_SURFACE, &
          MOVIE_VOLUME,MOVIE_VOLUME_COARSE,ATTENUATION_3D,RECEIVERS_CAN_BE_BURIED, &
          PRINT_SOURCE_TIME_FUNCTION,SAVE_MESH_FILES, &
-         ATTENUATION,REFERENCE_1D_MODEL,THREE_D_MODEL,ABSORBING_CONDITIONS, &
+         ATTENUATION,THREE_D_MODEL,ABSORBING_CONDITIONS, &
          INCLUDE_CENTRAL_CUBE,INFLATE_CENTRAL_CUBE,LOCAL_PATH,MODEL,SIMULATION_TYPE,SAVE_FORWARD, &
          NPROC,NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA, &
          NSPEC, &

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/create_movie_AVS_DX.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/create_movie_AVS_DX.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/create_movie_AVS_DX.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -692,7 +692,7 @@
           NPROC_XI,NPROC_ETA,NTSTEP_BETWEEN_OUTPUT_SEISMOS, &
           NTSTEP_BETWEEN_READ_ADJSRC,NSTEP,NTSTEP_BETWEEN_FRAMES, &
           NTSTEP_BETWEEN_OUTPUT_INFO,NUMBER_OF_RUNS,NUMBER_OF_THIS_RUN,NCHUNKS,SIMULATION_TYPE, &
-          REFERENCE_1D_MODEL,THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
+          THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
 
   double precision DT,ANGULAR_WIDTH_XI_IN_DEGREES,ANGULAR_WIDTH_ETA_IN_DEGREES,CENTER_LONGITUDE_IN_DEGREES, &
           CENTER_LATITUDE_IN_DEGREES,GAMMA_ROTATION_AZIMUTH,ROCEAN,RMIDDLE_CRUST, &
@@ -756,7 +756,7 @@
          ROTATION,ISOTROPIC_3D_MANTLE,TOPOGRAPHY,OCEANS,MOVIE_SURFACE, &
          MOVIE_VOLUME,MOVIE_VOLUME_COARSE,ATTENUATION_3D,RECEIVERS_CAN_BE_BURIED, &
          PRINT_SOURCE_TIME_FUNCTION,SAVE_MESH_FILES, &
-         ATTENUATION,REFERENCE_1D_MODEL,THREE_D_MODEL,ABSORBING_CONDITIONS, &
+         ATTENUATION,THREE_D_MODEL,ABSORBING_CONDITIONS, &
          INCLUDE_CENTRAL_CUBE,INFLATE_CENTRAL_CUBE,LOCAL_PATH,MODEL,SIMULATION_TYPE,SAVE_FORWARD, &
          NPROC,NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA, &
          NSPEC, &

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/create_movie_GMT_global.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/create_movie_GMT_global.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/create_movie_GMT_global.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -74,7 +74,7 @@
           NPROC_XI,NPROC_ETA,NTSTEP_BETWEEN_OUTPUT_SEISMOS, &
           NTSTEP_BETWEEN_READ_ADJSRC,NSTEP,NTSTEP_BETWEEN_FRAMES, &
           NTSTEP_BETWEEN_OUTPUT_INFO,NUMBER_OF_RUNS,NUMBER_OF_THIS_RUN,NCHUNKS,SIMULATION_TYPE, &
-          REFERENCE_1D_MODEL,THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
+          THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
 
   double precision DT,ANGULAR_WIDTH_XI_IN_DEGREES,ANGULAR_WIDTH_ETA_IN_DEGREES,CENTER_LONGITUDE_IN_DEGREES, &
           CENTER_LATITUDE_IN_DEGREES,GAMMA_ROTATION_AZIMUTH,ROCEAN,RMIDDLE_CRUST, &
@@ -147,7 +147,7 @@
          ROTATION,ISOTROPIC_3D_MANTLE,TOPOGRAPHY,OCEANS,MOVIE_SURFACE, &
          MOVIE_VOLUME,MOVIE_VOLUME_COARSE,ATTENUATION_3D,RECEIVERS_CAN_BE_BURIED, &
          PRINT_SOURCE_TIME_FUNCTION,SAVE_MESH_FILES, &
-         ATTENUATION,REFERENCE_1D_MODEL,THREE_D_MODEL,ABSORBING_CONDITIONS, &
+         ATTENUATION,THREE_D_MODEL,ABSORBING_CONDITIONS, &
          INCLUDE_CENTRAL_CUBE,INFLATE_CENTRAL_CUBE,LOCAL_PATH,MODEL,SIMULATION_TYPE,SAVE_FORWARD, &
          NPROC,NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA, &
          NSPEC, &

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/create_regions_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/create_regions_mesh.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/create_regions_mesh.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -40,14 +40,11 @@
            myrank,LOCAL_PATH,OCEANS,ibathy_topo, &
            rotation_matrix,ANGULAR_WIDTH_XI_RAD,ANGULAR_WIDTH_ETA_RAD,&
            ATTENUATION,ATTENUATION_3D,SAVE_MESH_FILES, &
-           NCHUNKS,INCLUDE_CENTRAL_CUBE,ABSORBING_CONDITIONS,REFERENCE_1D_MODEL,THREE_D_MODEL, &
+           NCHUNKS,INCLUDE_CENTRAL_CUBE,ABSORBING_CONDITIONS,THREE_D_MODEL, &
            R_CENTRAL_CUBE,RICB,RHO_OCEANS,RCMB,R670,RMOHO,RTOPDDOUBLEPRIME,R600,R220,R771,R400,R120,R80,RMIDDLE_CRUST,ROCEAN, &
            ner,ratio_sampling_array,doubling_index,r_bottom,r_top,this_region_has_a_doubling,CASE_3D, &
-           AMM_V, AM_V, M1066a_V, Mak135_V, Mref_V,D3MM_V,CM_V, AM_S, AS_V, &
-           numker,numhpa,numcof,ihpa,lmax,nylm, &
-           lmxhpa,itypehpa,ihpakern,numcoe,ivarkern, &
-           nconpt,iver,iconpt,conpt,xlaspl,xlospl,radspl, &
-           coe,vercof,vercofd,ylmcof,wk1,wk2,wk3,kerstr,varstr,ipass,ratio_divide_central_cube,HONOR_1D_SPHERICAL_MOHO,&
+           AMM_V, AM_V, AM_S, AS_V, &
+           ipass,ratio_divide_central_cube,HONOR_1D_SPHERICAL_MOHO,&
            CUT_SUPERBRICK_XI,CUT_SUPERBRICK_ETA,offset_proc_xi,offset_proc_eta)
 
 ! create the different regions of the mesh
@@ -109,80 +106,6 @@
   type (attenuation_model_variables) AM_V
 ! attenuation_model_variables
 
-! model_1066a_variables
-  type model_1066a_variables
-    sequence
-      double precision, dimension(NR_1066A) :: radius_1066a
-      double precision, dimension(NR_1066A) :: density_1066a
-      double precision, dimension(NR_1066A) :: vp_1066a
-      double precision, dimension(NR_1066A) :: vs_1066a
-      double precision, dimension(NR_1066A) :: Qkappa_1066a
-      double precision, dimension(NR_1066A) :: Qmu_1066a
-  end type model_1066a_variables
-
-  type (model_1066a_variables) M1066a_V
-! model_1066a_variables
-
-! model_ak135_variables
-  type model_ak135_variables
-    sequence
-    double precision, dimension(NR_AK135) :: radius_ak135
-    double precision, dimension(NR_AK135) :: density_ak135
-    double precision, dimension(NR_AK135) :: vp_ak135
-    double precision, dimension(NR_AK135) :: vs_ak135
-    double precision, dimension(NR_AK135) :: Qkappa_ak135
-    double precision, dimension(NR_AK135) :: Qmu_ak135
-  end type model_ak135_variables
-
- type (model_ak135_variables) Mak135_V
-! model_ak135_variables
-
-! model_ref_variables
-  type model_ref_variables
-    sequence
-     double precision, dimension(NR_REF) :: radius_ref
-     double precision, dimension(NR_REF) :: density_ref
-     double precision, dimension(NR_REF) :: vpv_ref
-     double precision, dimension(NR_REF) :: vph_ref
-     double precision, dimension(NR_REF) :: vsv_ref
-     double precision, dimension(NR_REF) :: vsh_ref
-     double precision, dimension(NR_REF) :: eta_ref
-     double precision, dimension(NR_REF) :: Qkappa_ref
-     double precision, dimension(NR_REF) :: Qmu_ref
-  end type model_ref_variables
-
- type (model_ref_variables) Mref_V
-! model_ref_variables
-
-! three_d_mantle_model_variables
-  type three_d_mantle_model_variables
-    sequence
-    double precision dvs_a(0:NK,0:NS,0:NS)
-    double precision dvs_b(0:NK,0:NS,0:NS)
-    double precision dvp_a(0:NK,0:NS,0:NS)
-    double precision dvp_b(0:NK,0:NS,0:NS)
-    double precision spknt(NK+1)
-    double precision qq0(NK+1,NK+1)
-    double precision qq(3,NK+1,NK+1)
-  end type three_d_mantle_model_variables
-
-  type (three_d_mantle_model_variables) D3MM_V
-! three_d_mantle_model_variables
-
-! crustal_model_variables
-  type crustal_model_variables
-    sequence
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: thlr
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocp
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocs
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: dens
-    character(len=2) abbreviation(NCAP_CRUST/2,NCAP_CRUST)
-    character(len=2) code(NKEYS_CRUST)
-  end type crustal_model_variables
-
-  type (crustal_model_variables) CM_V
-! crustal_model_variables
-
 ! attenuation_model_storage
   type attenuation_model_storage
     sequence
@@ -215,7 +138,7 @@
 ! correct number of spectral elements in each block depending on chunk type
   integer nspec,nspec_tiso,nspec_stacey
 
-  integer NEX_XI,NEX_PER_PROC_XI,NEX_PER_PROC_ETA,NCHUNKS,REFERENCE_1D_MODEL,THREE_D_MODEL
+  integer NEX_XI,NEX_PER_PROC_XI,NEX_PER_PROC_ETA,NCHUNKS,THREE_D_MODEL
 
   integer NSPEC2DMAX_XMIN_XMAX,NSPEC2DMAX_YMIN_YMAX,NSPEC2D_BOTTOM,NSPEC2D_TOP
 
@@ -386,40 +309,6 @@
 
   integer :: nb_layer_above_aniso,FIRST_ELT_ABOVE_ANISO
 
-  integer, parameter :: maxker=200
-  integer, parameter :: maxl=72
-  integer, parameter :: maxcoe=2000
-  integer, parameter :: maxver=1000
-  integer, parameter :: maxhpa=2
-
-  integer numker
-  integer numhpa,numcof
-  integer ihpa,lmax,nylm
-  integer lmxhpa(maxhpa)
-  integer itypehpa(maxhpa)
-  integer ihpakern(maxker)
-  integer numcoe(maxhpa)
-  integer ivarkern(maxker)
-
-  integer nconpt(maxhpa),iver
-  integer iconpt(maxver,maxhpa)
-  real(kind=4) conpt(maxver,maxhpa)
-
-  real(kind=4) xlaspl(maxcoe,maxhpa)
-  real(kind=4) xlospl(maxcoe,maxhpa)
-  real(kind=4) radspl(maxcoe,maxhpa)
-  real(kind=4) coe(maxcoe,maxker)
-  real(kind=4) vercof(maxker)
-  real(kind=4) vercofd(maxker)
-
-  real(kind=4) ylmcof((maxl+1)**2,maxhpa)
-  real(kind=4) wk1(maxl+1)
-  real(kind=4) wk2(maxl+1)
-  real(kind=4) wk3(maxl+1)
-
-  character(len=80) kerstr
-  character(len=40) varstr(maxker)
-
 ! now perform two passes in this part to be able to save memory
   integer :: ipass
 
@@ -582,13 +471,7 @@
   call get_shape2D(myrank,shape2D_top,dershape2D_top,xigll,yigll,NGLLX,NGLLY)
 
 ! define models 1066a and ak135 and ref
-  if(REFERENCE_1D_MODEL == REFERENCE_MODEL_1066A) then
-    call define_model_1066a(CRUSTAL, M1066a_V)
-  elseif(REFERENCE_1D_MODEL == REFERENCE_MODEL_AK135) then
-    call define_model_ak135(CRUSTAL, Mak135_V)
-  elseif(REFERENCE_1D_MODEL == REFERENCE_MODEL_REF) then
-    call define_model_ref(Mref_V)
-  endif
+  call define_reference_1d_model(CRUSTAL)
 
 !------------------------------------------------------------------------
 
@@ -853,7 +736,7 @@
            nspl,rspl,espl,espl2,ELLIPTICITY,TOPOGRAPHY,TRANSVERSE_ISOTROPY, &
            ANISOTROPIC_3D_MANTLE,ANISOTROPIC_INNER_CORE,ISOTROPIC_3D_MANTLE,CRUSTAL,ONE_CRUST, &
            myrank,ibathy_topo,ATTENUATION,ATTENUATION_3D, &
-           ABSORBING_CONDITIONS,REFERENCE_1D_MODEL,THREE_D_MODEL, &
+           ABSORBING_CONDITIONS,THREE_D_MODEL, &
            RICB,RCMB,R670,RMOHO,RTOPDDOUBLEPRIME,R600,R220,R771,R400,R120,R80,RMIDDLE_CRUST,ROCEAN, &
            xelm,yelm,zelm,shape3D,dershape3D,rmin,rmax,rhostore,kappavstore,kappahstore,muvstore,muhstore,eta_anisostore, &
            xixstore,xiystore,xizstore,etaxstore,etaystore,etazstore,gammaxstore,gammaystore,gammazstore, &
@@ -861,11 +744,8 @@
            c23store,c24store,c25store,c26store,c33store,c34store,c35store, &
            c36store,c44store,c45store,c46store,c55store,c56store,c66store, &
            nspec_ani,nspec_stacey,Qmu_store,tau_e_store,tau_s,T_c_source,rho_vp,rho_vs,&
-           AMM_V,AM_V,M1066a_V,Mak135_V,Mref_V,D3MM_V,CM_V,AM_S,AS_V, &
-           numker,numhpa,numcof,ihpa,lmax,nylm, &
-           lmxhpa,itypehpa,ihpakern,numcoe,ivarkern, &
-           nconpt,iver,iconpt,conpt,xlaspl,xlospl,radspl, &
-           coe,vercof,vercofd,ylmcof,wk1,wk2,wk3,kerstr,varstr,ACTUALLY_STORE_ARRAYS)
+           AMM_V,AM_V,AM_S,AS_V, &
+           ACTUALLY_STORE_ARRAYS)
 
 ! boundary mesh
         if (ipass == 2 .and. SAVE_BOUNDARY_MESH .and. iregion_code == IREGION_CRUST_MANTLE) then
@@ -1055,7 +935,7 @@
            nspl,rspl,espl,espl2,ELLIPTICITY,TOPOGRAPHY,TRANSVERSE_ISOTROPY, &
            ANISOTROPIC_3D_MANTLE,ANISOTROPIC_INNER_CORE,ISOTROPIC_3D_MANTLE,CRUSTAL,ONE_CRUST, &
            myrank,ibathy_topo,ATTENUATION,ATTENUATION_3D, &
-           ABSORBING_CONDITIONS,REFERENCE_1D_MODEL,THREE_D_MODEL, &
+           ABSORBING_CONDITIONS,THREE_D_MODEL, &
            RICB,RCMB,R670,RMOHO,RTOPDDOUBLEPRIME,R600,R220,R771,R400,R120,R80,RMIDDLE_CRUST,ROCEAN, &
            xelm,yelm,zelm,shape3D,dershape3D,rmin,rmax,rhostore,kappavstore,kappahstore,muvstore,muhstore,eta_anisostore, &
            xixstore,xiystore,xizstore,etaxstore,etaystore,etazstore,gammaxstore,gammaystore,gammazstore, &
@@ -1063,11 +943,8 @@
            c23store,c24store,c25store,c26store,c33store,c34store,c35store, &
            c36store,c44store,c45store,c46store,c55store,c56store,c66store, &
            nspec_ani,nspec_stacey,Qmu_store,tau_e_store,tau_s,T_c_source,rho_vp,rho_vs,&
-           AMM_V,AM_V,M1066a_V,Mak135_V,Mref_V,D3MM_V,CM_V,AM_S,AS_V, &
-           numker,numhpa,numcof,ihpa,lmax,nylm, &
-           lmxhpa,itypehpa,ihpakern,numcoe,ivarkern, &
-           nconpt,iver,iconpt,conpt,xlaspl,xlospl,radspl, &
-           coe,vercof,vercofd,ylmcof,wk1,wk2,wk3,kerstr,varstr,ACTUALLY_STORE_ARRAYS)
+           AMM_V,AM_V,AM_S,AS_V, &
+           ACTUALLY_STORE_ARRAYS)
 
 ! boundary mesh
      if (ipass == 2 .and. SAVE_BOUNDARY_MESH .and. iregion_code == IREGION_CRUST_MANTLE) then
@@ -1224,7 +1101,7 @@
            nspl,rspl,espl,espl2,ELLIPTICITY,TOPOGRAPHY,TRANSVERSE_ISOTROPY, &
            ANISOTROPIC_3D_MANTLE,ANISOTROPIC_INNER_CORE,ISOTROPIC_3D_MANTLE,CRUSTAL,ONE_CRUST, &
            myrank,ibathy_topo,ATTENUATION,ATTENUATION_3D, &
-           ABSORBING_CONDITIONS,REFERENCE_1D_MODEL,THREE_D_MODEL, &
+           ABSORBING_CONDITIONS,THREE_D_MODEL, &
            RICB,RCMB,R670,RMOHO,RTOPDDOUBLEPRIME,R600,R220,R771,R400,R120,R80,RMIDDLE_CRUST,ROCEAN, &
            xelm,yelm,zelm,shape3D,dershape3D,rmin,rmax,rhostore,kappavstore,kappahstore,muvstore,muhstore,eta_anisostore, &
            xixstore,xiystore,xizstore,etaxstore,etaystore,etazstore,gammaxstore,gammaystore,gammazstore, &
@@ -1232,11 +1109,8 @@
            c23store,c24store,c25store,c26store,c33store,c34store,c35store, &
            c36store,c44store,c45store,c46store,c55store,c56store,c66store, &
            nspec_ani,nspec_stacey,Qmu_store,tau_e_store,tau_s,T_c_source,rho_vp,rho_vs,&
-           AMM_V,AM_V,M1066a_V,Mak135_V,Mref_V,D3MM_V,CM_V,AM_S,AS_V, &
-           numker,numhpa,numcof,ihpa,lmax,nylm, &
-           lmxhpa,itypehpa,ihpakern,numcoe,ivarkern, &
-           nconpt,iver,iconpt,conpt,xlaspl,xlospl,radspl, &
-           coe,vercof,vercofd,ylmcof,wk1,wk2,wk3,kerstr,varstr,ACTUALLY_STORE_ARRAYS)
+           AMM_V,AM_V,AM_S,AS_V, &
+           ACTUALLY_STORE_ARRAYS)
       enddo
     enddo
   enddo
@@ -1351,11 +1225,10 @@
     call write_AVS_DX_global_faces_data(myrank,prname,nspec,iMPIcut_xi,iMPIcut_eta,ibool, &
               idoubling,xstore,ystore,zstore,locval,ifseg,npointot)
     call write_AVS_DX_global_chunks_data(myrank,prname,nspec,iboun,ibool, &
-              idoubling,xstore,ystore,zstore,locval,ifseg,npointot, &
+              iregion_code,idoubling,xstore,ystore,zstore,locval,ifseg,npointot, &
               rhostore,kappavstore,muvstore,nspl,rspl,espl,espl2, &
-              ELLIPTICITY,ISOTROPIC_3D_MANTLE,CRUSTAL,ONE_CRUST,REFERENCE_1D_MODEL, &
-              RICB,RCMB,RTOPDDOUBLEPRIME,R600,R670,R220,R771,R400,R120,R80,RMOHO, &
-              RMIDDLE_CRUST,ROCEAN,M1066a_V,Mak135_V,Mref_V)
+              ELLIPTICITY,TRANSVERSE_ISOTROPY,ISOTROPIC_3D_MANTLE,CRUSTAL,ONE_CRUST, &
+              RCMB)
     call write_AVS_DX_surface_data(myrank,prname,nspec,iboun,ibool, &
               idoubling,xstore,ystore,zstore,locval,ifseg,npointot)
   endif

Deleted: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/crustal_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/crustal_model.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/crustal_model.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -1,367 +0,0 @@
-!=====================================================================
-!
-!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
-!          --------------------------------------------------
-!
-!          Main authors: Dimitri Komatitsch and Jeroen Tromp
-!    Seismological Laboratory, California Institute of Technology, USA
-!             and University of Pau / CNRS / INRIA, France
-! (c) California Institute of Technology and University of Pau / CNRS / INRIA
-!                            February 2008
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-!
-! read and smooth crust2.0 model
-! based on software routines provided with the crust2.0 model by Bassin et al.
-!
-
-  subroutine crustal_model(lat,lon,x,vp,vs,rho,moho,found_crust,CM_V)
-
-  implicit none
-  include "constants.h"
-
-! crustal_model_variables
-  type crustal_model_variables
-    sequence
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: thlr
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocp
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocs
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: dens
-    character(len=2) abbreviation(NCAP_CRUST/2,NCAP_CRUST)
-    character(len=2) code(NKEYS_CRUST)
-  end type crustal_model_variables
-
-  type (crustal_model_variables) CM_V
-! crustal_model_variables
-
-  double precision lat,lon,x,vp,vs,rho,moho
-  logical found_crust
-
-  double precision h_sed,h_uc
-  double precision x3,x4,x5,x6,x7,scaleval
-  double precision vps(NLAYERS_CRUST),vss(NLAYERS_CRUST),rhos(NLAYERS_CRUST),thicks(NLAYERS_CRUST)
-
-  call crust(lat,lon,vps,vss,rhos,thicks,CM_V%abbreviation,CM_V%code,CM_V%thlr,CM_V%velocp,CM_V%velocs,CM_V%dens)
-
- x3 = (R_EARTH-thicks(3)*1000.0d0)/R_EARTH
- h_sed = thicks(3) + thicks(4)
- x4 = (R_EARTH-h_sed*1000.0d0)/R_EARTH
- h_uc = h_sed + thicks(5)
- x5 = (R_EARTH-h_uc*1000.0d0)/R_EARTH
- x6 = (R_EARTH-(h_uc+thicks(6))*1000.0d0)/R_EARTH
- x7 = (R_EARTH-(h_uc+thicks(6)+thicks(7))*1000.0d0)/R_EARTH
-
- found_crust = .true.
- if(x > x3 .and. INCLUDE_SEDIMENTS_CRUST) then
-   vp = vps(3)
-   vs = vss(3)
-   rho = rhos(3)
- else if(x > x4 .and. INCLUDE_SEDIMENTS_CRUST) then
-   vp = vps(4)
-   vs = vss(4)
-   rho = rhos(4)
- else if(x > x5) then
-   vp = vps(5)
-   vs = vss(5)
-   rho = rhos(5)
- else if(x > x6) then
-   vp = vps(6)
-   vs = vss(6)
-   rho = rhos(6)
- else if(x > x7) then
-   vp = vps(7)
-   vs = vss(7)
-   rho = rhos(7)
- else
-   found_crust = .false.
- endif
-
- if (found_crust) then
-!   non-dimensionalize
-    scaleval = dsqrt(PI*GRAV*RHOAV)
-    vp = vp*1000.0d0/(R_EARTH*scaleval)
-    vs = vs*1000.0d0/(R_EARTH*scaleval)
-    rho = rho*1000.0d0/RHOAV
-    moho = (h_uc+thicks(6)+thicks(7))*1000.0d0/R_EARTH
- endif
-
- end subroutine crustal_model
-
-!---------------------------
-
-  subroutine read_crustal_model(CM_V)
-
-  implicit none
-  include "constants.h"
-
-! crustal_model_variables
-  type crustal_model_variables
-    sequence
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: thlr
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocp
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocs
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: dens
-    character(len=2) abbreviation(NCAP_CRUST/2,NCAP_CRUST)
-    character(len=2) code(NKEYS_CRUST)
-  end type crustal_model_variables
-
-  type (crustal_model_variables) CM_V
-! crustal_model_variables
-
-! local variables
-  integer i
-  integer ila,icolat
-  integer ikey
-
-  double precision h_moho_min,h_moho_max
-
-  character(len=150) CNtype2, CNtype2_key_modif
-
-  call get_value_string(CNtype2, 'model.CNtype2', 'DATA/crust2.0/CNtype2.txt')
-  call get_value_string(CNtype2_key_modif, 'model.CNtype2_key_modif', 'DATA/crust2.0/CNtype2_key_modif.txt')
-
-  open(unit=1,file=CNtype2,status='old',action='read')
-  do ila=1,NCAP_CRUST/2
-    read(1,*) icolat,(CM_V%abbreviation(ila,i),i=1,NCAP_CRUST)
-  enddo
-  close(1)
-
-  open(unit=1,file=CNtype2_key_modif,status='old',action='read')
-  h_moho_min=HUGEVAL
-  h_moho_max=-HUGEVAL
-  do ikey=1,NKEYS_CRUST
-    read (1,"(a2)") CM_V%code(ikey)
-    read (1,*) (CM_V%velocp(ikey,i),i=1,NLAYERS_CRUST)
-    read (1,*) (CM_V%velocs(ikey,i),i=1,NLAYERS_CRUST)
-    read (1,*) (CM_V%dens(ikey,i),i=1,NLAYERS_CRUST)
-    read (1,*) (CM_V%thlr(ikey,i),i=1,NLAYERS_CRUST-1),CM_V%thlr(ikey,NLAYERS_CRUST)
-    if(CM_V%thlr(ikey,NLAYERS_CRUST) > h_moho_max) h_moho_max=CM_V%thlr(ikey,NLAYERS_CRUST)
-    if(CM_V%thlr(ikey,NLAYERS_CRUST) < h_moho_min) h_moho_min=CM_V%thlr(ikey,NLAYERS_CRUST)
-  enddo
-  close(1)
-
-  if(h_moho_min == HUGEVAL .or. h_moho_max == -HUGEVAL) &
-    stop 'incorrect moho depths in read_3D_crustal_model'
-
-  end subroutine read_crustal_model
-
-!---------------------------
-
-  subroutine crust(lat,lon,velp,vels,rho,thick,abbreviation,code,thlr,velocp,velocs,dens)
-
-! crustal vp and vs in km/s, layer thickness in km
-! crust2.0 is smoothed with a cap of size CAP using NTHETA points
-! in the theta direction and NPHI in the phi direction.
-! The cap is rotated to the North Pole.
-
-  implicit none
-  include "constants.h"
-
-  integer, parameter :: NTHETA = 2
-  integer, parameter :: NPHI = 10
-  double precision, parameter :: CAP = 2.0d0*PI/180.0d0
-
-! argument variables
-  double precision lat,lon
-  double precision rho(NLAYERS_CRUST),thick(NLAYERS_CRUST),velp(NLAYERS_CRUST),vels(NLAYERS_CRUST)
-  double precision thlr(NKEYS_CRUST,NLAYERS_CRUST),velocp(NKEYS_CRUST,NLAYERS_CRUST)
-  double precision velocs(NKEYS_CRUST,NLAYERS_CRUST),dens(NKEYS_CRUST,NLAYERS_CRUST)
-  character(len=2) code(NKEYS_CRUST),abbreviation(NCAP_CRUST/2,NCAP_CRUST)
-
-! local variables
-  integer i,j,k,icolat,ilon,ierr
-  integer itheta,iphi,npoints
-  double precision theta,phi,sint,cost,sinp,cosp,dtheta,dphi,cap_area,wght,total
-  double precision r_rot,theta_rot,phi_rot
-  double precision rotation_matrix(3,3),x(3),xc(3)
-  double precision xlon(NTHETA*NPHI),xlat(NTHETA*NPHI),weight(NTHETA*NPHI)
-  double precision rhol(NLAYERS_CRUST),thickl(NLAYERS_CRUST),velpl(NLAYERS_CRUST),velsl(NLAYERS_CRUST)
-  character(len=2) crustaltype
-
-! get integer colatitude and longitude of crustal cap
-! -90<lat<90 -180<lon<180
-  if(lat > 90.0d0 .or. lat < -90.0d0 .or. lon > 180.0d0 .or. lon < -180.0d0) &
-    stop 'error in latitude/longitude range in crust'
-  if(lat==90.0d0) lat=89.9999d0
-  if(lat==-90.0d0) lat=-89.9999d0
-  if(lon==180.0d0) lon=179.9999d0
-  if(lon==-180.0d0) lon=-179.9999d0
-
-  call icolat_ilon(lat,lon,icolat,ilon)
-  crustaltype=abbreviation(icolat,ilon)
-  call get_crust_structure(crustaltype,velp,vels,rho,thick, &
-                    code,thlr,velocp,velocs,dens,ierr)
-
-!  uncomment the following line to use crust2.0 as is, without smoothing
-!
-!  return
-
-  theta = (90.0-lat)*PI/180.0
-  phi = lon*PI/180.0
-
-  sint = sin(theta)
-  cost = cos(theta)
-  sinp = sin(phi)
-  cosp = cos(phi)
-
-! set up rotation matrix to go from cap at North pole
-! to cap around point of interest
-  rotation_matrix(1,1) = cosp*cost
-  rotation_matrix(1,2) = -sinp
-  rotation_matrix(1,3) = cosp*sint
-  rotation_matrix(2,1) = sinp*cost
-  rotation_matrix(2,2) = cosp
-  rotation_matrix(2,3) = sinp*sint
-  rotation_matrix(3,1) = -sint
-  rotation_matrix(3,2) = 0.0
-  rotation_matrix(3,3) = cost
-
-  dtheta = CAP/dble(NTHETA)
-  dphi = 2.0*PI/dble(NPHI)
-  cap_area = 2.0*PI*(1.0-cos(CAP))
-
-! integrate over a cap at the North pole
-  i = 0
-  total = 0.0
-  do itheta = 1,NTHETA
-
-    theta = 0.5*dble(2*itheta-1)*CAP/dble(NTHETA)
-    cost = cos(theta)
-    sint = sin(theta)
-    wght = sint*dtheta*dphi/cap_area
-
-    do iphi = 1,NPHI
-
-      i = i+1
-!     get the weight associated with this integration point (same for all phi)
-      weight(i) = wght
-      total = total + weight(i)
-      phi = dble(2*iphi-1)*PI/dble(NPHI)
-      cosp = cos(phi)
-      sinp = sin(phi)
-!     x,y,z coordinates of integration point in cap at North pole
-      xc(1) = sint*cosp
-      xc(2) = sint*sinp
-      xc(3) = cost
-!     get x,y,z coordinates in cap around point of interest
-      do j=1,3
-        x(j) = 0.0
-        do k=1,3
-          x(j) = x(j)+rotation_matrix(j,k)*xc(k)
-        enddo
-      enddo
-!     get latitude and longitude (degrees) of integration point
-      call xyz_2_rthetaphi_dble(x(1),x(2),x(3),r_rot,theta_rot,phi_rot)
-      call reduce(theta_rot,phi_rot)
-      xlat(i) = (PI/2.0-theta_rot)*180.0/PI
-      xlon(i) = phi_rot*180.0/PI
-      if(xlon(i) > 180.0) xlon(i) = xlon(i)-360.0
-
-    enddo
-
-  enddo
-
-  if(abs(total-1.0) > 0.001) stop 'error in cap integration for crust2.0'
-
-  npoints = i
-
-  do j=1,NLAYERS_CRUST
-    rho(j)=0.0d0
-    thick(j)=0.0d0
-    velp(j)=0.0d0
-    vels(j)=0.0d0
-  enddo
-
-  do i=1,npoints
-    call icolat_ilon(xlat(i),xlon(i),icolat,ilon)
-    crustaltype=abbreviation(icolat,ilon)
-    call get_crust_structure(crustaltype,velpl,velsl,rhol,thickl, &
-                    code,thlr,velocp,velocs,dens,ierr)
-    if(ierr /= 0) stop 'error in routine get_crust_structure'
-    do j=1,NLAYERS_CRUST
-      rho(j)=rho(j)+weight(i)*rhol(j)
-      thick(j)=thick(j)+weight(i)*thickl(j)
-      velp(j)=velp(j)+weight(i)*velpl(j)
-      vels(j)=vels(j)+weight(i)*velsl(j)
-    enddo
-  enddo
-
-  end subroutine crust
-
-!------------------------------------------------------
-
-  subroutine icolat_ilon(xlat,xlon,icolat,ilon)
-
-  implicit none
-
-
-! argument variables
-  double precision xlat,xlon
-  integer icolat,ilon
-
-  if(xlat > 90.0d0 .or. xlat < -90.0d0 .or. xlon > 180.0d0 .or. xlon < -180.0d0) &
-    stop 'error in latitude/longitude range in icolat_ilon'
-  icolat=int(1+((90.d0-xlat)/2.d0))
-  if(icolat == 91) icolat=90
-  ilon=int(1+((180.d0+xlon)/2.d0))
-  if(ilon == 181) ilon=1
-
-  if(icolat>90 .or. icolat<1) stop 'error in routine icolat_ilon'
-  if(ilon<1 .or. ilon>180) stop 'error in routine icolat_ilon'
-
-  end subroutine icolat_ilon
-
-!---------------------------------------------------------------------
-
-  subroutine get_crust_structure(type,vptyp,vstyp,rhtyp,thtp, &
-               code,thlr,velocp,velocs,dens,ierr)
-
-  implicit none
-  include "constants.h"
-
-
-! argument variables
-  integer ierr
-  double precision rhtyp(NLAYERS_CRUST),thtp(NLAYERS_CRUST)
-  double precision vptyp(NLAYERS_CRUST),vstyp(NLAYERS_CRUST)
-  character(len=2) type,code(NKEYS_CRUST)
-  double precision thlr(NKEYS_CRUST,NLAYERS_CRUST),velocp(NKEYS_CRUST,NLAYERS_CRUST)
-  double precision velocs(NKEYS_CRUST,NLAYERS_CRUST),dens(NKEYS_CRUST,NLAYERS_CRUST)
-
-! local variables
-  integer i,ikey
-
-  ierr=1
-  do ikey=1,NKEYS_CRUST
-  if (code(ikey) == type) then
-    do i=1,NLAYERS_CRUST
-      vptyp(i)=velocp(ikey,i)
-      vstyp(i)=velocs(ikey,i)
-      rhtyp(i)=dens(ikey,i)
-    enddo
-    do i=1,NLAYERS_CRUST-1
-      thtp(i)=thlr(ikey,i)
-    enddo
-!   get distance to Moho from the bottom of the ocean or the ice
-    thtp(NLAYERS_CRUST)=thlr(ikey,NLAYERS_CRUST)-thtp(1)-thtp(2)
-    ierr=0
-  endif
-  enddo
-
-  end subroutine get_crust_structure
-

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/get_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/get_model.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/get_model.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -25,167 +25,89 @@
 !
 !=====================================================================
 
-  subroutine get_model(myrank,iregion_code,nspec, &
-    kappavstore,kappahstore,muvstore,muhstore,eta_anisostore,rhostore, &
-    nspec_ani, &
-    c11store,c12store,c13store,c14store,c15store,c16store,c22store, &
-    c23store,c24store,c25store,c26store,c33store,c34store,c35store, &
-    c36store,c44store,c45store,c46store,c55store,c56store,c66store, &
-    xelm,yelm,zelm,shape3D,ispec, &
-    rmin,rmax,idoubling, &
-    rho_vp,rho_vs,nspec_stacey, &
-    TRANSVERSE_ISOTROPY,ANISOTROPIC_3D_MANTLE,ANISOTROPIC_INNER_CORE,ISOTROPIC_3D_MANTLE, &
-    CRUSTAL,ONE_CRUST,ATTENUATION,ATTENUATION_3D,tau_s,tau_e_store,Qmu_store,T_c_source,vx,vy,vz,vnspec, &
-    ABSORBING_CONDITIONS,REFERENCE_1D_MODEL,THREE_D_MODEL, &
-    RCMB,RICB,R670,RMOHO,RTOPDDOUBLEPRIME,R600,R220,R771,R400,R120,R80,RMIDDLE_CRUST,ROCEAN,&
-    AMM_V, AM_V, M1066a_V, Mak135_V,Mref_V,D3MM_V,CM_V, AM_S, AS_V, &
-    numker,numhpa,numcof,ihpa,lmax,nylm, &
-    lmxhpa,itypehpa,ihpakern,numcoe,ivarkern, &
-    nconpt,iver,iconpt,conpt,xlaspl,xlospl,radspl, &
-    coe,vercof,vercofd,ylmcof,wk1,wk2,wk3,kerstr,varstr)
+subroutine get_model(myrank,iregion_code,nspec, &
+     kappavstore,kappahstore,muvstore,muhstore,eta_anisostore,rhostore, &
+     nspec_ani, &
+     c11store,c12store,c13store,c14store,c15store,c16store,c22store, &
+     c23store,c24store,c25store,c26store,c33store,c34store,c35store, &
+     c36store,c44store,c45store,c46store,c55store,c56store,c66store, &
+     xelm,yelm,zelm,shape3D,ispec, &
+     rmin,rmax,idoubling, &
+     rho_vp,rho_vs,nspec_stacey, &
+     TRANSVERSE_ISOTROPY,ANISOTROPIC_3D_MANTLE,ANISOTROPIC_INNER_CORE,ISOTROPIC_3D_MANTLE, &
+     CRUSTAL,ONE_CRUST,ATTENUATION,ATTENUATION_3D,tau_s,tau_e_store,Qmu_store,T_c_source,vx,vy,vz,vnspec, &
+     ABSORBING_CONDITIONS,THREE_D_MODEL, &
+     RCMB,RICB,R670,RMOHO,RTOPDDOUBLEPRIME,R600,R220,R771,R400,R120,R80,RMIDDLE_CRUST,ROCEAN,&
+     AMM_V, AM_V, AM_S, AS_V)
 
   implicit none
 
   include "constants.h"
 
-! aniso_mantle_model_variables
+  ! aniso_mantle_model_variables
   type aniso_mantle_model_variables
-    sequence
-    double precision beta(14,34,37,73)
-    double precision pro(47)
-    integer npar1
+     sequence
+     double precision beta(14,34,37,73)
+     double precision pro(47)
+     integer npar1
   end type aniso_mantle_model_variables
 
   type (aniso_mantle_model_variables) AMM_V
-! aniso_mantle_model_variables
+  ! aniso_mantle_model_variables
 
-! attenuation_model_variables
+  ! attenuation_model_variables
   type attenuation_model_variables
-    sequence
-    double precision min_period, max_period
-    double precision                          :: QT_c_source        ! Source Frequency
-    double precision, dimension(:), pointer   :: Qtau_s             ! tau_sigma
-    double precision, dimension(:), pointer   :: QrDisc             ! Discontinutitues Defined
-    double precision, dimension(:), pointer   :: Qr                 ! Radius
-    integer, dimension(:), pointer            :: interval_Q                 ! Steps
-    double precision, dimension(:), pointer   :: Qmu                ! Shear Attenuation
-    double precision, dimension(:,:), pointer :: Qtau_e             ! tau_epsilon
-    double precision, dimension(:), pointer   :: Qomsb, Qomsb2      ! one_minus_sum_beta
-    double precision, dimension(:,:), pointer :: Qfc, Qfc2          ! factor_common
-    double precision, dimension(:), pointer   :: Qsf, Qsf2          ! scale_factor
-    integer, dimension(:), pointer            :: Qrmin              ! Max and Mins of idoubling
-    integer, dimension(:), pointer            :: Qrmax              ! Max and Mins of idoubling
-    integer                                   :: Qn                 ! Number of points
+     sequence
+     double precision min_period, max_period
+     double precision                          :: QT_c_source        ! Source Frequency
+     double precision, dimension(:), pointer   :: Qtau_s             ! tau_sigma
+     double precision, dimension(:), pointer   :: QrDisc             ! Discontinutitues Defined
+     double precision, dimension(:), pointer   :: Qr                 ! Radius
+     integer, dimension(:), pointer            :: interval_Q                 ! Steps
+     double precision, dimension(:), pointer   :: Qmu                ! Shear Attenuation
+     double precision, dimension(:,:), pointer :: Qtau_e             ! tau_epsilon
+     double precision, dimension(:), pointer   :: Qomsb, Qomsb2      ! one_minus_sum_beta
+     double precision, dimension(:,:), pointer :: Qfc, Qfc2          ! factor_common
+     double precision, dimension(:), pointer   :: Qsf, Qsf2          ! scale_factor
+     integer, dimension(:), pointer            :: Qrmin              ! Max and Mins of idoubling
+     integer, dimension(:), pointer            :: Qrmax              ! Max and Mins of idoubling
+     integer                                   :: Qn                 ! Number of points
   end type attenuation_model_variables
 
   type (attenuation_model_variables) AM_V
-! attenuation_model_variables
+  ! attenuation_model_variables
 
-! model_1066a_variables
-  type model_1066a_variables
-    sequence
-      double precision, dimension(NR_1066A) :: radius_1066a
-      double precision, dimension(NR_1066A) :: density_1066a
-      double precision, dimension(NR_1066A) :: vp_1066a
-      double precision, dimension(NR_1066A) :: vs_1066a
-      double precision, dimension(NR_1066A) :: Qkappa_1066a
-      double precision, dimension(NR_1066A) :: Qmu_1066a
-  end type model_1066a_variables
-
-  type (model_1066a_variables) M1066a_V
-! model_1066a_variables
-
-! model_ak135_variables
-  type model_ak135_variables
-    sequence
-    double precision, dimension(NR_AK135) :: radius_ak135
-    double precision, dimension(NR_AK135) :: density_ak135
-    double precision, dimension(NR_AK135) :: vp_ak135
-    double precision, dimension(NR_AK135) :: vs_ak135
-    double precision, dimension(NR_AK135) :: Qkappa_ak135
-    double precision, dimension(NR_AK135) :: Qmu_ak135
-  end type model_ak135_variables
-
- type (model_ak135_variables) Mak135_V
-! model_ak135_variables
-
-! model_ref_variables
-  type model_ref_variables
-    sequence
-      double precision, dimension(NR_REF) :: radius_ref
-      double precision, dimension(NR_REF) :: density_ref
-      double precision, dimension(NR_REF) :: vpv_ref
-      double precision, dimension(NR_REF) :: vph_ref
-      double precision, dimension(NR_REF) :: vsv_ref
-      double precision, dimension(NR_REF) :: vsh_ref
-      double precision, dimension(NR_REF) :: eta_ref
-      double precision, dimension(NR_REF) :: Qkappa_ref
-      double precision, dimension(NR_REF) :: Qmu_ref
-  end type model_ref_variables
-
-  type (model_ref_variables) Mref_V
-! model_ref_variables
-
-! three_d_mantle_model_variables
-  type three_d_mantle_model_variables
-    sequence
-    double precision dvs_a(0:NK,0:NS,0:NS)
-    double precision dvs_b(0:NK,0:NS,0:NS)
-    double precision dvp_a(0:NK,0:NS,0:NS)
-    double precision dvp_b(0:NK,0:NS,0:NS)
-    double precision spknt(NK+1)
-    double precision qq0(NK+1,NK+1)
-    double precision qq(3,NK+1,NK+1)
-  end type three_d_mantle_model_variables
-
-  type (three_d_mantle_model_variables) D3MM_V
-! three_d_mantle_model_variables
-
-! crustal_model_variables
-  type crustal_model_variables
-    sequence
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: thlr
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocp
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocs
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: dens
-    character(len=2) abbreviation(NCAP_CRUST/2,NCAP_CRUST)
-    character(len=2) code(NKEYS_CRUST)
-  end type crustal_model_variables
-
-  type (crustal_model_variables) CM_V
-! crustal_model_variables
-
-! attenuation_model_storage
+  ! attenuation_model_storage
   type attenuation_model_storage
-    sequence
-    integer Q_resolution
-    integer Q_max
-    double precision, dimension(:,:), pointer :: tau_e_storage
-    double precision, dimension(:), pointer :: Qmu_storage
+     sequence
+     integer Q_resolution
+     integer Q_max
+     double precision, dimension(:,:), pointer :: tau_e_storage
+     double precision, dimension(:), pointer :: Qmu_storage
   end type attenuation_model_storage
 
   type (attenuation_model_storage) AM_S
-! attenuation_model_storage
+  ! attenuation_model_storage
 
-! attenuation_simplex_variables
+  ! attenuation_simplex_variables
   type attenuation_simplex_variables
-    sequence
-    integer nf          ! nf    = Number of Frequencies
-    integer nsls        ! nsls  = Number of Standard Linear Solids
-    double precision Q  ! Q     = Desired Value of Attenuation or Q
-    double precision iQ ! iQ    = 1/Q
-    double precision, dimension(:), pointer ::  f
-    ! f = Frequencies at which to evaluate the solution
-    double precision, dimension(:), pointer :: tau_s
-    ! tau_s = Tau_sigma defined by the frequency range and
-    !             number of standard linear solids
+     sequence
+     integer nf          ! nf    = Number of Frequencies
+     integer nsls        ! nsls  = Number of Standard Linear Solids
+     double precision Q  ! Q     = Desired Value of Attenuation or Q
+     double precision iQ ! iQ    = 1/Q
+     double precision, dimension(:), pointer ::  f
+     ! f = Frequencies at which to evaluate the solution
+     double precision, dimension(:), pointer :: tau_s
+     ! tau_s = Tau_sigma defined by the frequency range and
+     !             number of standard linear solids
   end type attenuation_simplex_variables
 
   type(attenuation_simplex_variables) AS_V
-! attenuation_simplex_variables
+  ! attenuation_simplex_variables
 
   integer ispec,nspec,idoubling,iregion_code,myrank,nspec_stacey
-  integer REFERENCE_1D_MODEL,THREE_D_MODEL
+  integer THREE_D_MODEL
 
   logical ATTENUATION,ATTENUATION_3D,ABSORBING_CONDITIONS
   logical TRANSVERSE_ISOTROPY,ANISOTROPIC_3D_MANTLE,ANISOTROPIC_INNER_CORE,ISOTROPIC_3D_MANTLE,CRUSTAL,ONE_CRUST
@@ -197,7 +119,7 @@
   double precision zelm(NGNOD)
 
   double precision rmin,rmax,RCMB,RICB,R670,RMOHO, &
-    RTOPDDOUBLEPRIME,R600,R220,R771,R400,R120,R80,RMIDDLE_CRUST,ROCEAN
+       RTOPDDOUBLEPRIME,R600,R220,R771,R400,R120,R80,RMIDDLE_CRUST,ROCEAN
 
   real(kind=CUSTOM_REAL) kappavstore(NGLLX,NGLLY,NGLLZ,nspec)
   real(kind=CUSTOM_REAL) kappahstore(NGLLX,NGLLY,NGLLZ,nspec)
@@ -211,30 +133,28 @@
 
   integer nspec_ani
 
-! the 21 coefficients for an anisotropic medium in reduced notation
+  ! the 21 coefficients for an anisotropic medium in reduced notation
   double precision c11,c12,c13,c14,c15,c16,c22,c23,c24,c25,c26,c33, &
-                   c34,c35,c36,c44,c45,c46,c55,c56,c66
+       c34,c35,c36,c44,c45,c46,c55,c56,c66
   real(kind=CUSTOM_REAL), dimension(NGLLX,NGLLY,NGLLZ,nspec_ani) :: &
-    c11store,c12store,c13store,c14store,c15store,c16store, &
-    c22store,c23store,c24store,c25store,c26store, &
-    c33store,c34store,c35store,c36store, &
-    c44store,c45store,c46store,c55store,c56store,c66store
+       c11store,c12store,c13store,c14store,c15store,c16store, &
+       c22store,c23store,c24store,c25store,c26store, &
+       c33store,c34store,c35store,c36store, &
+       c44store,c45store,c46store,c55store,c56store,c66store
 
   double precision xmesh,ymesh,zmesh
 
   integer i,j,k,ia
-  double precision rho,drhodr,vp,vs,Qkappa,Qmu
+  double precision rho,Qkappa,Qmu
   double precision vpv,vph,vsv,vsh,eta_aniso
-  double precision dvp,dvs,drho
-  real(kind=4) xcolat,xlon,xrad,dvpv,dvph,dvsv,dvsh
   double precision xstore(NGLLX,NGLLY,NGLLZ)
   double precision ystore(NGLLX,NGLLY,NGLLZ)
   double precision zstore(NGLLX,NGLLY,NGLLZ)
-  double precision r,r_prem,r_moho,r_dummy,theta,phi
+  double precision r,r_prem,radius,r_dummy,theta,phi
   double precision lat,lon
   double precision vpc,vsc,rhoc,moho
 
-! attenuation values
+  ! attenuation values
   integer vx, vy, vz, vnspec
   double precision, dimension(N_SLS)                     :: tau_s, tau_e
   double precision, dimension(vx, vy, vz, vnspec)        :: Qmu_store
@@ -243,444 +163,279 @@
 
   logical found_crust
 
-  integer, parameter :: maxker=200
-  integer, parameter :: maxl=72
-  integer, parameter :: maxcoe=2000
-  integer, parameter :: maxver=1000
-  integer, parameter :: maxhpa=2
-
-  integer numker
-  integer numhpa,numcof
-  integer ihpa,lmax,nylm
-  integer lmxhpa(maxhpa)
-  integer itypehpa(maxhpa)
-  integer ihpakern(maxker)
-  integer numcoe(maxhpa)
-  integer ivarkern(maxker)
-
-  integer nconpt(maxhpa),iver
-  integer iconpt(maxver,maxhpa)
-  real(kind=4) conpt(maxver,maxhpa)
-
-  real(kind=4) xlaspl(maxcoe,maxhpa)
-  real(kind=4) xlospl(maxcoe,maxhpa)
-  real(kind=4) radspl(maxcoe,maxhpa)
-  real(kind=4) coe(maxcoe,maxker)
-  real(kind=4) vercof(maxker)
-  real(kind=4) vercofd(maxker)
-
-  real(kind=4) ylmcof((maxl+1)**2,maxhpa)
-  real(kind=4) wk1(maxl+1)
-  real(kind=4) wk2(maxl+1)
-  real(kind=4) wk3(maxl+1)
-
-  character(len=80) kerstr
-  character(len=40) varstr(maxker)
-
   do k=1,NGLLZ
-    do j=1,NGLLY
-      do i=1,NGLLX
-       xmesh = ZERO
-       ymesh = ZERO
-       zmesh = ZERO
-       do ia=1,NGNOD
-         xmesh = xmesh + shape3D(ia,i,j,k)*xelm(ia)
-         ymesh = ymesh + shape3D(ia,i,j,k)*yelm(ia)
-         zmesh = zmesh + shape3D(ia,i,j,k)*zelm(ia)
-       enddo
-       r = dsqrt(xmesh*xmesh + ymesh*ymesh + zmesh*zmesh)
+     do j=1,NGLLY
+        do i=1,NGLLX
+           xmesh = ZERO
+           ymesh = ZERO
+           zmesh = ZERO
+           do ia=1,NGNOD
+              xmesh = xmesh + shape3D(ia,i,j,k)*xelm(ia)
+              ymesh = ymesh + shape3D(ia,i,j,k)*yelm(ia)
+              zmesh = zmesh + shape3D(ia,i,j,k)*zelm(ia)
+           enddo
+           r = dsqrt(xmesh*xmesh + ymesh*ymesh + zmesh*zmesh)
 
-       xstore(i,j,k) = xmesh
-       ystore(i,j,k) = ymesh
-       zstore(i,j,k) = zmesh
+           xstore(i,j,k) = xmesh
+           ystore(i,j,k) = ymesh
+           zstore(i,j,k) = zmesh
 
-!      make sure we are within the right shell in PREM to honor discontinuities
-!      use small geometrical tolerance
-       r_prem = r
-       if(r <= rmin*1.000001d0) r_prem = rmin*1.000001d0
-       if(r >= rmax*0.999999d0) r_prem = rmax*0.999999d0
+           !      make sure we are within the right shell in PREM to honor discontinuities
+           !      use small geometrical tolerance
+           r_prem = r
+           if(r <= rmin*1.000001d0) r_prem = rmin*1.000001d0
+           if(r >= rmax*0.999999d0) r_prem = rmax*0.999999d0
 
-!      get the anisotropic PREM parameters
-       if(TRANSVERSE_ISOTROPY) then
-         if(REFERENCE_1D_MODEL == REFERENCE_MODEL_PREM) then
-           call prem_aniso(myrank,r_prem,rho,vpv,vph,vsv,vsh,eta_aniso, &
-           Qkappa,Qmu,idoubling,CRUSTAL,ONE_CRUST,RICB,RCMB,RTOPDDOUBLEPRIME, &
-           R600,R670,R220,R771,R400,R80,RMOHO,RMIDDLE_CRUST,ROCEAN)
+           !      get the anisotropic PREM parameters
+           call get_reference_1d_model(myrank,r_prem,rho,vpv,vph,vsv,vsh,eta_aniso, &
+                Qkappa,Qmu,idoubling,iregion_code,CRUSTAL,ONE_CRUST,TRANSVERSE_ISOTROPY, &
+                ISOTROPIC_3D_MANTLE)
 
-         else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_REF) then
-           call model_ref(r_prem,rho,vpv,vph,vsv,vsh,eta_aniso,Qkappa,Qmu,iregion_code,CRUSTAL,Mref_V)
+           !      get the 3-D model parameters
+           if(ISOTROPIC_3D_MANTLE) then
+              if(r_prem > RCMB/R_EARTH .and. r_prem < RMOHO/R_EARTH) then
+                 radius = r
+              else if(r_prem >= RMOHO/R_EARTH) then
+                 ! extend 3-D mantle model above the Moho to the surface before adding the crust
+                 radius = 0.999999d0*RMOHO/R_EARTH ! r_moho
+              endif
 
-         else
-           stop 'unknown 1D transversely isotropic reference Earth model in get_model'
-         endif
+              call xyz_2_rthetaphi_dble(xmesh,ymesh,zmesh,r_dummy,theta,phi)
+              call reduce(theta,phi)
+              if(THREE_D_MODEL == THREE_D_MODEL_S20RTS) then
+                 call get_model_s20rts(radius,theta,phi,vpv,vph,vsv,vsh,rho,eta_aniso)
+              elseif(THREE_D_MODEL == THREE_D_MODEL_S362ANI .or. THREE_D_MODEL == THREE_D_MODEL_S362WMANI &
+                   .or. THREE_D_MODEL == THREE_D_MODEL_S362ANI_PREM .or. THREE_D_MODEL == THREE_D_MODEL_S29EA) then
+                 call get_model_s362ani(radius,theta,phi,vpv,vph,vsv,vsh,rho,eta_aniso, &
+                      TRANSVERSE_ISOTROPY)
+              else
+                 stop 'unknown 3D Earth model in get_model'
+              endif
 
-       else
+           endif
 
-         if(REFERENCE_1D_MODEL == REFERENCE_MODEL_IASP91) then
-           call model_iasp91(myrank,r_prem,rho,vp,vs,Qkappa,Qmu,idoubling, &
-             ONE_CRUST,.true.,RICB,RCMB,RTOPDDOUBLEPRIME,R771,R670,R400,R220,R120,RMOHO,RMIDDLE_CRUST)
+           if(ANISOTROPIC_INNER_CORE .and. iregion_code == IREGION_INNER_CORE) &
+                call aniso_inner_core_model(r_prem,c11,c33,c12,c13,c44)
 
-         else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_PREM) then
-           call prem_iso(myrank,r_prem,rho,drhodr,vp,vs,Qkappa,Qmu,idoubling,CRUSTAL, &
-             ONE_CRUST,.true.,RICB,RCMB,RTOPDDOUBLEPRIME, &
-             R600,R670,R220,R771,R400,R80,RMOHO,RMIDDLE_CRUST,ROCEAN)
+           if(ANISOTROPIC_3D_MANTLE .and. iregion_code == IREGION_CRUST_MANTLE) then
 
-         else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_1066A) then
-           call model_1066a(r_prem,rho,vp,vs,Qkappa,Qmu,iregion_code,M1066a_V)
+              ! anisotropic model between the Moho and 670 km (change to CMB if desired)
+              if(r_prem > R670/R_EARTH) then
+                 if(r_prem < RMOHO/R_EARTH) then
+                    radius = r_prem
+                 else
+                    ! extend 3-D mantle model above the Moho to the surface before adding the crust
+                    radius = RMOHO/R_EARTH ! r_moho
+                 endif
 
-         else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_AK135) then
-           call model_ak135(r_prem,rho,vp,vs,Qkappa,Qmu,iregion_code,Mak135_V)
+                 call xyz_2_rthetaphi_dble(xmesh,ymesh,zmesh,r_dummy,theta,phi)
+                 call reduce(theta,phi)
+                 call aniso_mantle_model(radius,theta,phi,rho,c11,c12,c13,c14,c15,c16, &
+                      c22,c23,c24,c25,c26,c33,c34,c35,c36,c44,c45,c46,c55,c56,c66,AMM_V)
+                    
+              else
+                 ! fill the rest of the mantle with the isotropic model
+                 c11 = rho*vpv*vpv
+                 c12 = rho*(vpv*vpv-2.*vsv*vsv)
+                 c13 = c12
+                 c14 = 0.
+                 c15 = 0.
+                 c16 = 0.
+                 c22 = c11
+                 c23 = c12
+                 c24 = 0.
+                 c25 = 0.
+                 c26 = 0.
+                 c33 = c11
+                 c34 = 0.
+                 c35 = 0.
+                 c36 = 0.
+                 c44 = rho*vsv*vsv
+                 c45 = 0.
+                 c46 = 0.
+                 c55 = c44
+                 c56 = 0.
+                 c66 = c44
+              endif
+           endif
 
-         else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_REF) then
-           call model_ref(r_prem,rho,vpv,vph,vsv,vsh,eta_aniso,Qkappa,Qmu,iregion_code,CRUSTAL,Mref_V)
-           if(.not. ISOTROPIC_3D_MANTLE) then
-             vp = sqrt(((8.d0+4.d0*eta_aniso)*vph*vph + 3.d0*vpv*vpv + (8.d0 - 8.d0*eta_aniso)*vsv*vsv)/15.d0)
-             vs = sqrt(((1.d0-2.d0*eta_aniso)*vph*vph + vpv*vpv + 5.d0*vsh*vsh + (6.d0+4.d0*eta_aniso)*vsv*vsv)/15.d0)
+           ! This is here to identify how and where to include 3D attenuation
+           if(ATTENUATION .and. ATTENUATION_3D) then
+              tau_e(:)   = 0.0d0
+              ! Get the value of Qmu (Attenuation) dependedent on
+              ! the radius (r_prem) and idoubling flag
+              call attenuation_model_1D_PREM(r_prem, Qmu, idoubling)
+              ! Get tau_e from tau_s and Qmu
+              call attenuation_conversion(Qmu, T_c_source, tau_s, tau_e, AM_V, AM_S, AS_V)
            endif
-         else
-           stop 'unknown 1D reference Earth model in get_model'
-         endif
 
-         ! in the case of s362iso we want to save the anisotropic constants for the Voight average
-         if(.not. (REFERENCE_1D_MODEL == REFERENCE_MODEL_REF .and. ISOTROPIC_3D_MANTLE)) then
-          vpv = vp
-          vph = vp
-          vsv = vs
-          vsh = vs
-          eta_aniso = 1.d0
-         endif
-       endif
+           !      get the 3-D crustal model
+           if(CRUSTAL) then
+              if(r > R_DEEPEST_CRUST) then
+                 call xyz_2_rthetaphi_dble(xmesh,ymesh,zmesh,r_dummy,theta,phi)
+                 call reduce(theta,phi)
 
-!      get the 3-D model parameters
-       if(ISOTROPIC_3D_MANTLE) then
-         if(r_prem > RCMB/R_EARTH .and. r_prem < RMOHO/R_EARTH) then
-           call xyz_2_rthetaphi_dble(xmesh,ymesh,zmesh,r_dummy,theta,phi)
-           call reduce(theta,phi)
-           if(THREE_D_MODEL == THREE_D_MODEL_S20RTS) then
-! s20rts
-             dvs = ZERO
-             dvp = ZERO
-             drho = ZERO
-             call mantle_model(r,theta,phi,dvs,dvp,drho,D3MM_V)
-             vpv=vpv*(1.0d0+dvp)
-             vph=vph*(1.0d0+dvp)
-             vsv=vsv*(1.0d0+dvs)
-             vsh=vsh*(1.0d0+dvs)
-             rho=rho*(1.0d0+drho)
-           elseif(THREE_D_MODEL == THREE_D_MODEL_S362ANI .or. THREE_D_MODEL == THREE_D_MODEL_S362WMANI &
-                  .or. THREE_D_MODEL == THREE_D_MODEL_S362ANI_PREM .or. THREE_D_MODEL == THREE_D_MODEL_S29EA) then
-! 3D Harvard models s362ani, s362wmani, s362ani_prem and s2.9ea
-             dvpv = 0.
-             dvph = 0.
-             dvsv = 0.
-             dvsh = 0.
-             xcolat = sngl(theta*180.0d0/PI)
-             xlon = sngl(phi*180.0d0/PI)
-             xrad = sngl(r*R_EARTH_KM)
-             call subshsv(xcolat,xlon,xrad,dvsh,dvsv,dvph,dvpv, &
-                          numker,numhpa,numcof,ihpa,lmax,nylm, &
-                          lmxhpa,itypehpa,ihpakern,numcoe,ivarkern, &
-                          nconpt,iver,iconpt,conpt,xlaspl,xlospl,radspl, &
-                          coe,vercof,vercofd,ylmcof,wk1,wk2,wk3,kerstr,varstr)
-             if(TRANSVERSE_ISOTROPY) then
-               vpv=vpv*(1.0d0+dble(dvpv))
-               vph=vph*(1.0d0+dble(dvph))
-               vsv=vsv*(1.0d0+dble(dvsv))
-               vsh=vsh*(1.0d0+dble(dvsh))
-             else
-               vpv=vpv+dvpv
-               vph=vph+dvph
-               vsv=vsv+dvsv
-               vsh=vsh+dvsh
-               vp = sqrt(((8.d0+4.d0*eta_aniso)*vph*vph + 3.d0*vpv*vpv + (8.d0 - 8.d0*eta_aniso)*vsv*vsv)/15.d0)
-               vs = sqrt(((1.d0-2.d0*eta_aniso)*vph*vph + vpv*vpv + 5.d0*vsh*vsh + (6.d0+4.d0*eta_aniso)*vsv*vsv)/15.d0)
-               vpv=vp
-               vph=vp
-               vsv=vs
-               vsh=vs
-               eta_aniso=1.0d0
-             endif
-           else
-             stop 'unknown 3D Earth model in get_model'
+                 lat=(PI/2.0d0-theta)*180.0d0/PI
+                 lon=phi*180.0d0/PI
+                 if(lon>180.0d0) lon=lon-360.0d0
+                 call crustal_model(lat,lon,r,vpc,vsc,rhoc,moho,found_crust)
+                 if (found_crust) then
+                    vpv=vpc
+                    vph=vpc
+                    vsv=vsc
+                    vsh=vsc
+                    rho=rhoc
+                    eta_aniso=1.0d0
+                    if(ANISOTROPIC_3D_MANTLE .and. iregion_code == IREGION_CRUST_MANTLE) then
+                       c11 = rho*vpv*vpv
+                       c12 = rho*(vpv*vpv-2.*vsv*vsv)
+                       c13 = c12
+                       c14 = 0.
+                       c15 = 0.
+                       c16 = 0.
+                       c22 = c11
+                       c23 = c12
+                       c24 = 0.
+                       c25 = 0.
+                       c26 = 0.
+                       c33 = c11
+                       c34 = 0.
+                       c35 = 0.
+                       c36 = 0.
+                       c44 = rho*vsv*vsv
+                       c45 = 0.
+                       c46 = 0.
+                       c55 = c44
+                       c56 = 0.
+                       c66 = c44
+                    endif
+                 endif
+              endif
            endif
 
-! extend 3-D mantle model above the Moho to the surface before adding the crust
-         else if(r_prem >= RMOHO/R_EARTH) then
-           call xyz_2_rthetaphi_dble(xmesh,ymesh,zmesh,r_dummy,theta,phi)
-           call reduce(theta,phi)
-           r_moho = 0.999999d0*RMOHO/R_EARTH
-           if(THREE_D_MODEL == THREE_D_MODEL_S20RTS) then
-! s20rts
-             dvs = ZERO
-             dvp = ZERO
-             drho = ZERO
-             call mantle_model(r_moho,theta,phi,dvs,dvp,drho,D3MM_V)
-             vpv=vpv*(1.0d0+dvp)
-             vph=vph*(1.0d0+dvp)
-             vsv=vsv*(1.0d0+dvs)
-             vsh=vsh*(1.0d0+dvs)
-             rho=rho*(1.0d0+drho)
-           elseif(THREE_D_MODEL == THREE_D_MODEL_S362ANI .or. THREE_D_MODEL == THREE_D_MODEL_S362WMANI &
-                  .or. THREE_D_MODEL == THREE_D_MODEL_S362ANI_PREM .or. THREE_D_MODEL == THREE_D_MODEL_S29EA) then
-! 3D Harvard models s362ani, s362wmani, s362ani_prem and s2.9ea
-             dvpv = 0.
-             dvph = 0.
-             dvsv = 0.
-             dvsh = 0.
-             xcolat = sngl(theta*180.0d0/PI)
-             xlon = sngl(phi*180.0d0/PI)
-             xrad = sngl(r_moho*R_EARTH_KM)
-             call subshsv(xcolat,xlon,xrad,dvsh,dvsv,dvph,dvpv, &
-                          numker,numhpa,numcof,ihpa,lmax,nylm, &
-                          lmxhpa,itypehpa,ihpakern,numcoe,ivarkern, &
-                          nconpt,iver,iconpt,conpt,xlaspl,xlospl,radspl, &
-                          coe,vercof,vercofd,ylmcof,wk1,wk2,wk3,kerstr,varstr)
-             if(TRANSVERSE_ISOTROPY) then
-               vpv=vpv*(1.0d0+dble(dvpv))
-               vph=vph*(1.0d0+dble(dvph))
-               vsv=vsv*(1.0d0+dble(dvsv))
-               vsh=vsh*(1.0d0+dble(dvsh))
-             else
-               vpv=vpv+dvpv
-               vph=vph+dvph
-               vsv=vsv+dvsv
-               vsh=vsh+dvsh
-               vp = sqrt(((8.d0+4.d0*eta_aniso)*vph*vph + 3.d0*vpv*vpv + (8.d0 - 8.d0*eta_aniso)*vsv*vsv)/15.d0)
-               vs = sqrt(((1.d0-2.d0*eta_aniso)*vph*vph + vpv*vpv + 5.d0*vsh*vsh + (6.d0+4.d0*eta_aniso)*vsv*vsv)/15.d0)
-               vpv=vp
-               vph=vp
-               vsv=vs
-               vsh=vs
-               eta_aniso=1.0d0
-             endif
-  else
-             stop 'unknown 3D Earth model in get_model'
-           endif
+           ! define elastic parameters in the model
 
-         endif
-       endif
+           ! distinguish between single and double precision for reals
+           if(CUSTOM_REAL == SIZE_REAL) then
 
-       if(ANISOTROPIC_INNER_CORE .and. iregion_code == IREGION_INNER_CORE) &
-           call aniso_inner_core_model(r_prem,c11,c33,c12,c13,c44,REFERENCE_1D_MODEL)
+              rhostore(i,j,k,ispec) = sngl(rho)
+              kappavstore(i,j,k,ispec) = sngl(rho*(vpv*vpv - 4.d0*vsv*vsv/3.d0))
+              kappahstore(i,j,k,ispec) = sngl(rho*(vph*vph - 4.d0*vsh*vsh/3.d0))
+              muvstore(i,j,k,ispec) = sngl(rho*vsv*vsv)
+              muhstore(i,j,k,ispec) = sngl(rho*vsh*vsh)
+              eta_anisostore(i,j,k,ispec) = sngl(eta_aniso)
 
-       if(ANISOTROPIC_3D_MANTLE .and. iregion_code == IREGION_CRUST_MANTLE) then
+              if(ABSORBING_CONDITIONS) then
 
-! anisotropic model between the Moho and 670 km (change to CMB if desired)
-         if(r_prem < RMOHO/R_EARTH .and. r_prem > R670/R_EARTH) then
-           call xyz_2_rthetaphi_dble(xmesh,ymesh,zmesh,r_dummy,theta,phi)
-           call reduce(theta,phi)
-           call aniso_mantle_model(r_prem,theta,phi,rho,c11,c12,c13,c14,c15,c16, &
-              c22,c23,c24,c25,c26,c33,c34,c35,c36,c44,c45,c46,c55,c56,c66,AMM_V)
-! extend 3-D mantle model above the Moho to the surface before adding the crust
-         elseif(r_prem >= RMOHO/R_EARTH) then
-           call xyz_2_rthetaphi_dble(xmesh,ymesh,zmesh,r_dummy,theta,phi)
-           call reduce(theta,phi)
-           r_moho = RMOHO/R_EARTH
-           call aniso_mantle_model(r_moho,theta,phi,rho,c11,c12,c13,c14,c15,c16, &
-              c22,c23,c24,c25,c26,c33,c34,c35,c36,c44,c45,c46,c55,c56,c66,AMM_V)
-! fill the rest of the mantle with the isotropic model
-         else
-           c11 = rho*vpv*vpv
-           c12 = rho*(vpv*vpv-2.*vsv*vsv)
-           c13 = c12
-           c14 = 0.
-           c15 = 0.
-           c16 = 0.
-           c22 = c11
-           c23 = c12
-           c24 = 0.
-           c25 = 0.
-           c26 = 0.
-           c33 = c11
-           c34 = 0.
-           c35 = 0.
-           c36 = 0.
-           c44 = rho*vsv*vsv
-           c45 = 0.
-           c46 = 0.
-           c55 = c44
-           c56 = 0.
-           c66 = c44
-         endif
-       endif
+                 if(iregion_code == IREGION_OUTER_CORE) then
 
-! This is here to identify how and where to include 3D attenuation
-       if(ATTENUATION .and. ATTENUATION_3D) then
-         tau_e(:)   = 0.0d0
-         ! Get the value of Qmu (Attenuation) dependedent on
-         ! the radius (r_prem) and idoubling flag
-         call attenuation_model_1D_PREM(r_prem, Qmu, idoubling)
-         ! Get tau_e from tau_s and Qmu
-         call attenuation_conversion(Qmu, T_c_source, tau_s, tau_e, AM_V, AM_S, AS_V)
-       endif
+                    ! we need just vp in the outer core for Stacey conditions
+                    rho_vp(i,j,k,ispec) = sngl(vph)
+                    rho_vs(i,j,k,ispec) = sngl(0.d0)
+                 else
 
-!      get the 3-D crustal model
-       if(CRUSTAL) then
-         if(r > R_DEEPEST_CRUST) then
-           call xyz_2_rthetaphi_dble(xmesh,ymesh,zmesh,r_dummy,theta,phi)
-           call reduce(theta,phi)
+                    rho_vp(i,j,k,ispec) = sngl(rho*vph)
+                    rho_vs(i,j,k,ispec) = sngl(rho*vsh)
+                 endif
+              endif
 
-           lat=(PI/2.0d0-theta)*180.0d0/PI
-           lon=phi*180.0d0/PI
-           if(lon>180.0d0) lon=lon-360.0d0
-           call crustal_model(lat,lon,r,vpc,vsc,rhoc,moho,found_crust,CM_V)
-           if (found_crust) then
-             vpv=vpc
-             vph=vpc
-             vsv=vsc
-             vsh=vsc
-             rho=rhoc
-             eta_aniso=1.0d0
-             if(ANISOTROPIC_3D_MANTLE .and. iregion_code == IREGION_CRUST_MANTLE) then
-               c11 = rho*vpv*vpv
-               c12 = rho*(vpv*vpv-2.*vsv*vsv)
-               c13 = c12
-               c14 = 0.
-               c15 = 0.
-               c16 = 0.
-               c22 = c11
-               c23 = c12
-               c24 = 0.
-               c25 = 0.
-               c26 = 0.
-               c33 = c11
-               c34 = 0.
-               c35 = 0.
-               c36 = 0.
-               c44 = rho*vsv*vsv
-               c45 = 0.
-               c46 = 0.
-               c55 = c44
-               c56 = 0.
-               c66 = c44
-             endif
-           endif
-         endif
-       endif
+              if(ANISOTROPIC_INNER_CORE .and. iregion_code == IREGION_INNER_CORE) then
 
-! define elastic parameters in the model
+                 c11store(i,j,k,ispec) = sngl(c11)
+                 c33store(i,j,k,ispec) = sngl(c33)
+                 c12store(i,j,k,ispec) = sngl(c12)
+                 c13store(i,j,k,ispec) = sngl(c13)
+                 c44store(i,j,k,ispec) = sngl(c44)
+              endif
 
-! distinguish between single and double precision for reals
-       if(CUSTOM_REAL == SIZE_REAL) then
+              if(ANISOTROPIC_3D_MANTLE .and. iregion_code == IREGION_CRUST_MANTLE) then
 
-         rhostore(i,j,k,ispec) = sngl(rho)
-         kappavstore(i,j,k,ispec) = sngl(rho*(vpv*vpv - 4.d0*vsv*vsv/3.d0))
-         kappahstore(i,j,k,ispec) = sngl(rho*(vph*vph - 4.d0*vsh*vsh/3.d0))
-         muvstore(i,j,k,ispec) = sngl(rho*vsv*vsv)
-         muhstore(i,j,k,ispec) = sngl(rho*vsh*vsh)
-         eta_anisostore(i,j,k,ispec) = sngl(eta_aniso)
+                 c11store(i,j,k,ispec) = sngl(c11)
+                 c12store(i,j,k,ispec) = sngl(c12)
+                 c13store(i,j,k,ispec) = sngl(c13)
+                 c14store(i,j,k,ispec) = sngl(c14)
+                 c15store(i,j,k,ispec) = sngl(c15)
+                 c16store(i,j,k,ispec) = sngl(c16)
+                 c22store(i,j,k,ispec) = sngl(c22)
+                 c23store(i,j,k,ispec) = sngl(c23)
+                 c24store(i,j,k,ispec) = sngl(c24)
+                 c25store(i,j,k,ispec) = sngl(c25)
+                 c26store(i,j,k,ispec) = sngl(c26)
+                 c33store(i,j,k,ispec) = sngl(c33)
+                 c34store(i,j,k,ispec) = sngl(c34)
+                 c35store(i,j,k,ispec) = sngl(c35)
+                 c36store(i,j,k,ispec) = sngl(c36)
+                 c44store(i,j,k,ispec) = sngl(c44)
+                 c45store(i,j,k,ispec) = sngl(c45)
+                 c46store(i,j,k,ispec) = sngl(c46)
+                 c55store(i,j,k,ispec) = sngl(c55)
+                 c56store(i,j,k,ispec) = sngl(c56)
+                 c66store(i,j,k,ispec) = sngl(c66)
+              endif
 
-         if(ABSORBING_CONDITIONS) then
-
-           if(iregion_code == IREGION_OUTER_CORE) then
-
-! we need just vp in the outer core for Stacey conditions
-             rho_vp(i,j,k,ispec) = sngl(vph)
-             rho_vs(i,j,k,ispec) = sngl(0.d0)
            else
 
-             rho_vp(i,j,k,ispec) = sngl(rho*vph)
-             rho_vs(i,j,k,ispec) = sngl(rho*vsh)
-           endif
-         endif
 
-         if(ANISOTROPIC_INNER_CORE .and. iregion_code == IREGION_INNER_CORE) then
+              rhostore(i,j,k,ispec) = rho
+              kappavstore(i,j,k,ispec) = rho*(vpv*vpv - 4.d0*vsv*vsv/3.d0)
+              kappahstore(i,j,k,ispec) = rho*(vph*vph - 4.d0*vsh*vsh/3.d0)
+              muvstore(i,j,k,ispec) = rho*vsv*vsv
+              muhstore(i,j,k,ispec) = rho*vsh*vsh
+              eta_anisostore(i,j,k,ispec) = eta_aniso
 
-           c11store(i,j,k,ispec) = sngl(c11)
-           c33store(i,j,k,ispec) = sngl(c33)
-           c12store(i,j,k,ispec) = sngl(c12)
-           c13store(i,j,k,ispec) = sngl(c13)
-           c44store(i,j,k,ispec) = sngl(c44)
-         endif
+              if(ABSORBING_CONDITIONS) then
+                 if(iregion_code == IREGION_OUTER_CORE) then
+                    ! we need just vp in the outer core for Stacey conditions
+                    rho_vp(i,j,k,ispec) = vph
+                    rho_vs(i,j,k,ispec) = 0.d0
+                 else
+                    rho_vp(i,j,k,ispec) = rho*vph
+                    rho_vs(i,j,k,ispec) = rho*vsh
+                 endif
+              endif
 
-         if(ANISOTROPIC_3D_MANTLE .and. iregion_code == IREGION_CRUST_MANTLE) then
+              if(ANISOTROPIC_INNER_CORE .and. iregion_code == IREGION_INNER_CORE) then
+                 c11store(i,j,k,ispec) = c11
+                 c33store(i,j,k,ispec) = c33
+                 c12store(i,j,k,ispec) = c12
+                 c13store(i,j,k,ispec) = c13
+                 c44store(i,j,k,ispec) = c44
+              endif
 
-           c11store(i,j,k,ispec) = sngl(c11)
-           c12store(i,j,k,ispec) = sngl(c12)
-           c13store(i,j,k,ispec) = sngl(c13)
-           c14store(i,j,k,ispec) = sngl(c14)
-           c15store(i,j,k,ispec) = sngl(c15)
-           c16store(i,j,k,ispec) = sngl(c16)
-           c22store(i,j,k,ispec) = sngl(c22)
-           c23store(i,j,k,ispec) = sngl(c23)
-           c24store(i,j,k,ispec) = sngl(c24)
-           c25store(i,j,k,ispec) = sngl(c25)
-           c26store(i,j,k,ispec) = sngl(c26)
-           c33store(i,j,k,ispec) = sngl(c33)
-           c34store(i,j,k,ispec) = sngl(c34)
-           c35store(i,j,k,ispec) = sngl(c35)
-           c36store(i,j,k,ispec) = sngl(c36)
-           c44store(i,j,k,ispec) = sngl(c44)
-           c45store(i,j,k,ispec) = sngl(c45)
-           c46store(i,j,k,ispec) = sngl(c46)
-           c55store(i,j,k,ispec) = sngl(c55)
-           c56store(i,j,k,ispec) = sngl(c56)
-           c66store(i,j,k,ispec) = sngl(c66)
-         endif
+              if(ANISOTROPIC_3D_MANTLE .and. iregion_code == IREGION_CRUST_MANTLE) then
+                 c11store(i,j,k,ispec) = c11
+                 c12store(i,j,k,ispec) = c12
+                 c13store(i,j,k,ispec) = c13
+                 c14store(i,j,k,ispec) = c14
+                 c15store(i,j,k,ispec) = c15
+                 c16store(i,j,k,ispec) = c16
+                 c22store(i,j,k,ispec) = c22
+                 c23store(i,j,k,ispec) = c23
+                 c24store(i,j,k,ispec) = c24
+                 c25store(i,j,k,ispec) = c25
+                 c26store(i,j,k,ispec) = c26
+                 c33store(i,j,k,ispec) = c33
+                 c34store(i,j,k,ispec) = c34
+                 c35store(i,j,k,ispec) = c35
+                 c36store(i,j,k,ispec) = c36
+                 c44store(i,j,k,ispec) = c44
+                 c45store(i,j,k,ispec) = c45
+                 c46store(i,j,k,ispec) = c46
+                 c55store(i,j,k,ispec) = c55
+                 c56store(i,j,k,ispec) = c56
+                 c66store(i,j,k,ispec) = c66
+              endif
 
-       else
+           endif
 
-
-         rhostore(i,j,k,ispec) = rho
-         kappavstore(i,j,k,ispec) = rho*(vpv*vpv - 4.d0*vsv*vsv/3.d0)
-         kappahstore(i,j,k,ispec) = rho*(vph*vph - 4.d0*vsh*vsh/3.d0)
-         muvstore(i,j,k,ispec) = rho*vsv*vsv
-         muhstore(i,j,k,ispec) = rho*vsh*vsh
-         eta_anisostore(i,j,k,ispec) = eta_aniso
-
-         if(ABSORBING_CONDITIONS) then
-           if(iregion_code == IREGION_OUTER_CORE) then
-! we need just vp in the outer core for Stacey conditions
-             rho_vp(i,j,k,ispec) = vph
-             rho_vs(i,j,k,ispec) = 0.d0
-           else
-             rho_vp(i,j,k,ispec) = rho*vph
-             rho_vs(i,j,k,ispec) = rho*vsh
+           if(ATTENUATION .and. ATTENUATION_3D) then
+              tau_e_store(:,i,j,k,ispec) = tau_e(:)
+              Qmu_store(i,j,k,ispec)     = Qmu
            endif
-         endif
 
-         if(ANISOTROPIC_INNER_CORE .and. iregion_code == IREGION_INNER_CORE) then
-           c11store(i,j,k,ispec) = c11
-           c33store(i,j,k,ispec) = c33
-           c12store(i,j,k,ispec) = c12
-           c13store(i,j,k,ispec) = c13
-           c44store(i,j,k,ispec) = c44
-         endif
-
-         if(ANISOTROPIC_3D_MANTLE .and. iregion_code == IREGION_CRUST_MANTLE) then
-           c11store(i,j,k,ispec) = c11
-           c12store(i,j,k,ispec) = c12
-           c13store(i,j,k,ispec) = c13
-           c14store(i,j,k,ispec) = c14
-           c15store(i,j,k,ispec) = c15
-           c16store(i,j,k,ispec) = c16
-           c22store(i,j,k,ispec) = c22
-           c23store(i,j,k,ispec) = c23
-           c24store(i,j,k,ispec) = c24
-           c25store(i,j,k,ispec) = c25
-           c26store(i,j,k,ispec) = c26
-           c33store(i,j,k,ispec) = c33
-           c34store(i,j,k,ispec) = c34
-           c35store(i,j,k,ispec) = c35
-           c36store(i,j,k,ispec) = c36
-           c44store(i,j,k,ispec) = c44
-           c45store(i,j,k,ispec) = c45
-           c46store(i,j,k,ispec) = c46
-           c55store(i,j,k,ispec) = c55
-           c56store(i,j,k,ispec) = c56
-           c66store(i,j,k,ispec) = c66
-         endif
-
-       endif
-
-       if(ATTENUATION .and. ATTENUATION_3D) then
-          tau_e_store(:,i,j,k,ispec) = tau_e(:)
-          Qmu_store(i,j,k,ispec)     = Qmu
-       endif
-
+        enddo
      enddo
-   enddo
- enddo
+  enddo
 
- end subroutine get_model
+end subroutine get_model
 

Deleted: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/mantle_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/mantle_model.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/mantle_model.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -1,457 +0,0 @@
-!=====================================================================
-!
-!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
-!          --------------------------------------------------
-!
-!          Main authors: Dimitri Komatitsch and Jeroen Tromp
-!    Seismological Laboratory, California Institute of Technology, USA
-!             and University of Pau / CNRS / INRIA, France
-! (c) California Institute of Technology and University of Pau / CNRS / INRIA
-!                            February 2008
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-  subroutine read_mantle_model(D3MM_V)
-
-  implicit none
-
-  include "constants.h"
-
-! three_d_mantle_model_variables
-  type three_d_mantle_model_variables
-    sequence
-    double precision dvs_a(0:NK,0:NS,0:NS)
-    double precision dvs_b(0:NK,0:NS,0:NS)
-    double precision dvp_a(0:NK,0:NS,0:NS)
-    double precision dvp_b(0:NK,0:NS,0:NS)
-    double precision spknt(NK+1)
-    double precision qq0(NK+1,NK+1)
-    double precision qq(3,NK+1,NK+1)
-  end type three_d_mantle_model_variables
-
-  type (three_d_mantle_model_variables) D3MM_V
-! three_d_mantle_model_variables
-
-  integer k,l,m
-
-  character(len=150) S20RTS, P12
-
-  call get_value_string(S20RTS, 'model.S20RTS', 'DATA/s20rts/S20RTS.dat')
-  call get_value_string(P12, 'model.P12', 'DATA/s20rts/P12.dat')
-
-! S20RTS degree 20 S model from Ritsema
-  open(unit=10,file=S20RTS,status='old',action='read')
-  do k=0,NK
-    do l=0,NS
-      read(10,*) D3MM_V%dvs_a(k,l,0),(D3MM_V%dvs_a(k,l,m),D3MM_V%dvs_b(k,l,m),m=1,l)
-    enddo
-  enddo
-  close(10)
-
-! P12 degree 12 P model from Ritsema
-  open(unit=10,file=P12,status='old',action='read')
-  do k=0,NK
-    do l=0,12
-      read(10,*) D3MM_V%dvp_a(k,l,0),(D3MM_V%dvp_a(k,l,m),D3MM_V%dvp_b(k,l,m),m=1,l)
-    enddo
-    do l=13,NS
-      D3MM_V%dvp_a(k,l,0) = 0.0d0
-      do m=1,l
-        D3MM_V%dvp_a(k,l,m) = 0.0d0
-        D3MM_V%dvp_b(k,l,m) = 0.0d0
-      enddo
-    enddo
-  enddo
-  close(10)
-
-! set up the splines used as radial basis functions by Ritsema
-  call splhsetup(D3MM_V)
-
-  end subroutine read_mantle_model
-
-!---------------------------
-
-  subroutine mantle_model(radius,theta,phi,dvs,dvp,drho,D3MM_V)
-
-  implicit none
-
-  include "constants.h"
-
-! three_d_mantle_model_variables
-  type three_d_mantle_model_variables
-    sequence
-    double precision dvs_a(0:NK,0:NS,0:NS)
-    double precision dvs_b(0:NK,0:NS,0:NS)
-    double precision dvp_a(0:NK,0:NS,0:NS)
-    double precision dvp_b(0:NK,0:NS,0:NS)
-    double precision spknt(NK+1)
-    double precision qq0(NK+1,NK+1)
-    double precision qq(3,NK+1,NK+1)
-  end type three_d_mantle_model_variables
-
-  type (three_d_mantle_model_variables) D3MM_V
-! three_d_mantle_model_variables
-
-! factor to convert perturbations in shear speed to perturbations in density
-  double precision, parameter :: SCALE_RHO = 0.40d0
-
-  double precision radius,theta,phi,dvs,dvp,drho
-
-  double precision, parameter :: RMOHO_ = 6346600.d0
-  double precision, parameter :: RCMB_ = 3480000.d0
-  double precision, parameter :: R_EARTH_ = 6371000.d0
-  double precision, parameter :: ZERO_ = 0.d0
-
-  integer l,m,k
-  double precision r_moho,r_cmb,xr
-  double precision dvs_alm,dvs_blm
-  double precision dvp_alm,dvp_blm
-  double precision rsple,radial_basis(0:NK)
-  double precision sint,cost,x(2*NS+1),dx(2*NS+1)
-
-  dvs = ZERO_
-  dvp = ZERO_
-  drho = ZERO_
-
-  r_moho = RMOHO_ / R_EARTH_
-  r_cmb = RCMB_ / R_EARTH_
-  if(radius>=r_moho .or. radius <= r_cmb) return
-
-  xr=-1.0d0+2.0d0*(radius-r_cmb)/(r_moho-r_cmb)
-  do k=0,NK
-    radial_basis(k)=rsple(1,NK+1,D3MM_V%spknt(1),D3MM_V%qq0(1,NK+1-k),D3MM_V%qq(1,1,NK+1-k),xr)
-  enddo
-
-  do l=0,NS
-    sint=dsin(theta)
-    cost=dcos(theta)
-    call lgndr(l,cost,sint,x,dx)
-    dvs_alm=0.0d0
-    dvp_alm=0.0d0
-    do k=0,NK
-      dvs_alm=dvs_alm+radial_basis(k)*D3MM_V%dvs_a(k,l,0)
-      dvp_alm=dvp_alm+radial_basis(k)*D3MM_V%dvp_a(k,l,0)
-    enddo
-    dvs=dvs+dvs_alm*x(1)
-    dvp=dvp+dvp_alm*x(1)
-    do m=1,l
-      dvs_alm=0.0d0
-      dvp_alm=0.0d0
-      dvs_blm=0.0d0
-      dvp_blm=0.0d0
-      do k=0,NK
-        dvs_alm=dvs_alm+radial_basis(k)*D3MM_V%dvs_a(k,l,m)
-        dvp_alm=dvp_alm+radial_basis(k)*D3MM_V%dvp_a(k,l,m)
-        dvs_blm=dvs_blm+radial_basis(k)*D3MM_V%dvs_b(k,l,m)
-        dvp_blm=dvp_blm+radial_basis(k)*D3MM_V%dvp_b(k,l,m)
-      enddo
-      dvs=dvs+(dvs_alm*dcos(dble(m)*phi)+dvs_blm*dsin(dble(m)*phi))*x(m+1)
-      dvp=dvp+(dvp_alm*dcos(dble(m)*phi)+dvp_blm*dsin(dble(m)*phi))*x(m+1)
-    enddo
-  enddo
-
-  drho = SCALE_RHO*dvs
-
-  end subroutine mantle_model
-
-!----------------------------------
-
-  subroutine splhsetup(D3MM_V)!!!!!!!!!!!!!!(spknt,qq0,qq)
-
-  implicit none
-  include "constants.h"
-
-!!!!!!!!!!!!!!!!!!!  double precision spknt(NK+1),qq0(NK+1,NK+1),qq(3,NK+1,NK+1)
-
-! three_d_mantle_model_variables
-  type three_d_mantle_model_variables
-    sequence
-    double precision dvs_a(0:NK,0:NS,0:NS)
-    double precision dvs_b(0:NK,0:NS,0:NS)
-    double precision dvp_a(0:NK,0:NS,0:NS)
-    double precision dvp_b(0:NK,0:NS,0:NS)
-    double precision spknt(NK+1)
-    double precision qq0(NK+1,NK+1)
-    double precision qq(3,NK+1,NK+1)
-  end type three_d_mantle_model_variables
-
-  type (three_d_mantle_model_variables) D3MM_V
-! three_d_mantle_model_variables
-
-
-  integer i,j
-  double precision qqwk(3,NK+1)
-
-  D3MM_V%spknt(1) = -1.00000d0
-  D3MM_V%spknt(2) = -0.78631d0
-  D3MM_V%spknt(3) = -0.59207d0
-  D3MM_V%spknt(4) = -0.41550d0
-  D3MM_V%spknt(5) = -0.25499d0
-  D3MM_V%spknt(6) = -0.10909d0
-  D3MM_V%spknt(7) = 0.02353d0
-  D3MM_V%spknt(8) = 0.14409d0
-  D3MM_V%spknt(9) = 0.25367d0
-  D3MM_V%spknt(10) = 0.35329d0
-  D3MM_V%spknt(11) = 0.44384d0
-  D3MM_V%spknt(12) = 0.52615d0
-  D3MM_V%spknt(13) = 0.60097d0
-  D3MM_V%spknt(14) = 0.66899d0
-  D3MM_V%spknt(15) = 0.73081d0
-  D3MM_V%spknt(16) = 0.78701d0
-  D3MM_V%spknt(17) = 0.83810d0
-  D3MM_V%spknt(18) = 0.88454d0
-  D3MM_V%spknt(19) = 0.92675d0
-  D3MM_V%spknt(20) = 0.96512d0
-  D3MM_V%spknt(21) = 1.00000d0
-
-  do i=1,NK+1
-    do j=1,NK+1
-      if(i == j) then
-        D3MM_V%qq0(j,i)=1.0d0
-      else
-        D3MM_V%qq0(j,i)=0.0d0
-      endif
-    enddo
-  enddo
-  do i=1,NK+1
-    call rspln(1,NK+1,D3MM_V%spknt(1),D3MM_V%qq0(1,i),D3MM_V%qq(1,1,i),qqwk(1,1))
-  enddo
-
-  end subroutine splhsetup
-
-!----------------------------------
-
-! changed the obsolecent f77 features in the two routines below
-! now still awful Fortran, but at least conforms to f90 standard
-
-  double precision function rsple(I1,I2,X,Y,Q,S)
-
-  implicit none
-
-! rsple returns the value of the function y(x) evaluated at point S
-! using the cubic spline coefficients computed by rspln and saved in Q.
-! If S is outside the interval (x(i1),x(i2)) rsple extrapolates
-! using the first or last interpolation polynomial. The arrays must
-! be dimensioned at least - x(i2), y(i2), and q(3,i2).
-
-      integer i1,i2
-      double precision  X(*),Y(*),Q(3,*),s
-
-      integer i,ii
-      double precision h
-
-      i = 1
-      II=I2-1
-
-!   GUARANTEE I WITHIN BOUNDS.
-      I=MAX0(I,I1)
-      I=MIN0(I,II)
-
-!   SEE IF X IS INCREASING OR DECREASING.
-      IF(X(I2)-X(I1) <  0) goto 1
-      IF(X(I2)-X(I1) >= 0) goto 2
-
-!   X IS DECREASING.  CHANGE I AS NECESSARY.
- 1    IF(S-X(I) <= 0) goto 3
-      IF(S-X(I) >  0) goto 4
-
- 4    I=I-1
-
-      IF(I-I1 <  0) goto 11
-      IF(I-I1 == 0) goto 6
-      IF(I-I1 >  0) goto 1
-
- 3    IF(S-X(I+1) <  0) goto 5
-      IF(S-X(I+1) >= 0) goto 6
-
- 5    I=I+1
-
-      IF(I-II <  0) goto 3
-      IF(I-II == 0) goto 6
-      IF(I-II >  0) goto 7
-
-!   X IS INCREASING.  CHANGE I AS NECESSARY.
- 2    IF(S-X(I+1) <= 0) goto 8
-      IF(S-X(I+1) >  0) goto 9
-
- 9    I=I+1
-
-      IF(I-II <  0) goto 2
-      IF(I-II == 0) goto 6
-      IF(I-II >  0) goto 7
-
- 8    IF(S-X(I) <  0) goto 10
-      IF(S-X(I) >= 0) goto 6
-
- 10   I=I-1
-      IF(I-I1 <  0) goto 11
-      IF(I-I1 == 0) goto 6
-      IF(I-I1 >  0) goto 8
-
- 7    I=II
-      GOTO 6
- 11   I=I1
-
-!   CALCULATE RSPLE USING SPLINE COEFFICIENTS IN Y AND Q.
- 6    H=S-X(I)
-      RSPLE=Y(I)+H*(Q(1,I)+H*(Q(2,I)+H*Q(3,I)))
-
-      end function rsple
-
-!----------------------------------
-
-  subroutine rspln(I1,I2,X,Y,Q,F)
-
-  implicit none
-
-! Subroutine rspln computes cubic spline interpolation coefficients
-! for y(x) between grid points i1 and i2 saving them in q.The
-! interpolation is continuous with continuous first and second
-! derivatives. It agrees exactly with y at grid points and with the
-! three point first derivatives at both end points (i1 and i2).
-! X must be monotonic but if two successive values of x are equal
-! a discontinuity is assumed and separate interpolation is done on
-! each strictly monotonic segment. The arrays must be dimensioned at
-! least - x(i2), y(i2), q(3,i2), and f(3,i2).
-! F is working storage for rspln.
-
-      integer i1,i2
-      double precision X(*),Y(*),Q(3,*),F(3,*)
-
-      integer i,j,k,j1,j2
-      double precision y0,a0,b0,b1,h,h2,ha,h2a,h3a,h2b
-      double precision YY(3),small
-      equivalence (YY(1),Y0)
-      data SMALL/1.0d-08/,YY/0.0d0,0.0d0,0.0d0/
-
-      J1=I1+1
-      Y0=0.0d0
-
-!   BAIL OUT IF THERE ARE LESS THAN TWO POINTS TOTAL
-      IF(I2-I1  < 0) return
-      IF(I2-I1 == 0) goto 17
-      IF(I2-I1  > 0) goto 8
-
- 8    A0=X(J1-1)
-!   SEARCH FOR DISCONTINUITIES.
-      DO 3 I=J1,I2
-      B0=A0
-      A0=X(I)
-      IF(DABS((A0-B0)/DMAX1(A0,B0)) < SMALL) GOTO 4
- 3    CONTINUE
- 17   J1=J1-1
-      J2=I2-2
-      GOTO 5
- 4    J1=J1-1
-      J2=I-3
-!   SEE IF THERE ARE ENOUGH POINTS TO INTERPOLATE (AT LEAST THREE).
- 5    IF(J2+1-J1 <  0) goto 9
-      IF(J2+1-J1 == 0) goto 10
-      IF(J2+1-J1 >  0) goto 11
-
-!   ONLY TWO POINTS.  USE LINEAR INTERPOLATION.
- 10   J2=J2+2
-      Y0=(Y(J2)-Y(J1))/(X(J2)-X(J1))
-      DO J=1,3
-        Q(J,J1)=YY(J)
-        Q(J,J2)=YY(J)
-      enddo
-      GOTO 12
-
-!   MORE THAN TWO POINTS.  DO SPLINE INTERPOLATION.
- 11   A0=0.
-      H=X(J1+1)-X(J1)
-      H2=X(J1+2)-X(J1)
-      Y0=H*H2*(H2-H)
-      H=H*H
-      H2=H2*H2
-!   CALCULATE DERIVITIVE AT NEAR END.
-      B0=(Y(J1)*(H-H2)+Y(J1+1)*H2-Y(J1+2)*H)/Y0
-      B1=B0
-
-!   EXPLICITLY REDUCE BANDED MATRIX TO AN UPPER BANDED MATRIX.
-      DO I=J1,J2
-        H=X(I+1)-X(I)
-        Y0=Y(I+1)-Y(I)
-        H2=H*H
-        HA=H-A0
-        H2A=H-2.0d0*A0
-        H3A=2.0d0*H-3.0d0*A0
-        H2B=H2*B0
-        Q(1,I)=H2/HA
-        Q(2,I)=-HA/(H2A*H2)
-        Q(3,I)=-H*H2A/H3A
-        F(1,I)=(Y0-H*B0)/(H*HA)
-        F(2,I)=(H2B-Y0*(2.0d0*H-A0))/(H*H2*H2A)
-        F(3,I)=-(H2B-3.0d0*Y0*HA)/(H*H3A)
-        A0=Q(3,I)
-        B0=F(3,I)
-      enddo
-
-!   TAKE CARE OF LAST TWO ROWS.
-      I=J2+1
-      H=X(I+1)-X(I)
-      Y0=Y(I+1)-Y(I)
-      H2=H*H
-      HA=H-A0
-      H2A=H*HA
-      H2B=H2*B0-Y0*(2.0d0*H-A0)
-      Q(1,I)=H2/HA
-      F(1,I)=(Y0-H*B0)/H2A
-      HA=X(J2)-X(I+1)
-      Y0=-H*HA*(HA+H)
-      HA=HA*HA
-
-!   CALCULATE DERIVATIVE AT FAR END.
-      Y0=(Y(I+1)*(H2-HA)+Y(I)*HA-Y(J2)*H2)/Y0
-      Q(3,I)=(Y0*H2A+H2B)/(H*H2*(H-2.0d0*A0))
-      Q(2,I)=F(1,I)-Q(1,I)*Q(3,I)
-
-!   SOLVE UPPER BANDED MATRIX BY REVERSE ITERATION.
-      DO J=J1,J2
-        K=I-1
-        Q(1,I)=F(3,K)-Q(3,K)*Q(2,I)
-        Q(3,K)=F(2,K)-Q(2,K)*Q(1,I)
-        Q(2,K)=F(1,K)-Q(1,K)*Q(3,K)
-        I=K
-      enddo
-      Q(1,I)=B1
-!   FILL IN THE LAST POINT WITH A LINEAR EXTRAPOLATION.
- 9    J2=J2+2
-      DO J=1,3
-        Q(J,J2)=YY(J)
-      enddo
-
-!   SEE IF THIS DISCONTINUITY IS THE LAST.
- 12   IF(J2-I2 < 0) then
-        goto 6
-      else
-        return
-      endif
-
-!   NO.  GO BACK FOR MORE.
- 6    J1=J2+2
-      IF(J1-I2 <= 0) goto 8
-      IF(J1-I2 >  0) goto 7
-
-!   THERE IS ONLY ONE POINT LEFT AFTER THE LATEST DISCONTINUITY.
- 7    DO J=1,3
-        Q(J,I2)=YY(J)
-      enddo
-
-      end subroutine rspln
-

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/meshfem3D.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/meshfem3D.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -219,80 +219,6 @@
   type (attenuation_model_variables) AM_V
 ! attenuation_model_variables
 
-! model_1066a_variables
-  type model_1066a_variables
-    sequence
-      double precision, dimension(NR_1066A) :: radius_1066a
-      double precision, dimension(NR_1066A) :: density_1066a
-      double precision, dimension(NR_1066A) :: vp_1066a
-      double precision, dimension(NR_1066A) :: vs_1066a
-      double precision, dimension(NR_1066A) :: Qkappa_1066a
-      double precision, dimension(NR_1066A) :: Qmu_1066a
-  end type model_1066a_variables
-
-  type (model_1066a_variables) M1066a_V
-! model_1066a_variables
-
-! model_ak135_variables
-  type model_ak135_variables
-    sequence
-    double precision, dimension(NR_AK135) :: radius_ak135
-    double precision, dimension(NR_AK135) :: density_ak135
-    double precision, dimension(NR_AK135) :: vp_ak135
-    double precision, dimension(NR_AK135) :: vs_ak135
-    double precision, dimension(NR_AK135) :: Qkappa_ak135
-    double precision, dimension(NR_AK135) :: Qmu_ak135
-  end type model_ak135_variables
-
- type (model_ak135_variables) Mak135_V
-! model_ak135_variables
-
-! three_d_mantle_model_variables
-  type three_d_mantle_model_variables
-    sequence
-    double precision dvs_a(0:NK,0:NS,0:NS)
-    double precision dvs_b(0:NK,0:NS,0:NS)
-    double precision dvp_a(0:NK,0:NS,0:NS)
-    double precision dvp_b(0:NK,0:NS,0:NS)
-    double precision spknt(NK+1)
-    double precision qq0(NK+1,NK+1)
-    double precision qq(3,NK+1,NK+1)
-  end type three_d_mantle_model_variables
-
-! model_ref_variables
-  type model_ref_variables
-    sequence
-    double precision, dimension(NR_REF) :: radius_ref
-    double precision, dimension(NR_REF) :: density_ref
-    double precision, dimension(NR_REF) :: vpv_ref
-    double precision, dimension(NR_REF) :: vph_ref
-    double precision, dimension(NR_REF) :: vsv_ref
-    double precision, dimension(NR_REF) :: vsh_ref
-    double precision, dimension(NR_REF) :: eta_ref
-    double precision, dimension(NR_REF) :: Qkappa_ref
-    double precision, dimension(NR_REF) :: Qmu_ref
-  end type model_ref_variables
-
-  type (model_ref_variables) Mref_V
-! model_ref_variables
-
-  type (three_d_mantle_model_variables) D3MM_V
-! three_d_mantle_model_variables
-
-! crustal_model_variables
-  type crustal_model_variables
-    sequence
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: thlr
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocp
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: velocs
-    double precision, dimension(NKEYS_CRUST,NLAYERS_CRUST) :: dens
-    character(len=2) abbreviation(NCAP_CRUST/2,NCAP_CRUST)
-    character(len=2) code(NKEYS_CRUST)
-  end type crustal_model_variables
-
-  type (crustal_model_variables) CM_V
-! crustal_model_variables
-
 ! attenuation_model_storage
   type attenuation_model_storage
     sequence
@@ -379,7 +305,7 @@
           NPROC_XI,NPROC_ETA,NTSTEP_BETWEEN_OUTPUT_SEISMOS, &
           NTSTEP_BETWEEN_READ_ADJSRC,NSTEP,NSOURCES,NTSTEP_BETWEEN_FRAMES, &
           NTSTEP_BETWEEN_OUTPUT_INFO,NUMBER_OF_RUNS,NUMBER_OF_THIS_RUN,NCHUNKS,SIMULATION_TYPE, &
-          REFERENCE_1D_MODEL,THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
+          THREE_D_MODEL,MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP
 
   double precision DT,ANGULAR_WIDTH_XI_IN_DEGREES,ANGULAR_WIDTH_ETA_IN_DEGREES,CENTER_LONGITUDE_IN_DEGREES, &
           CENTER_LATITUDE_IN_DEGREES,GAMMA_ROTATION_AZIMUTH,ROCEAN,RMIDDLE_CRUST, &
@@ -431,48 +357,10 @@
   double precision :: static_memory_size
 
 ! arrays for BCAST
-  integer, dimension(38) :: bcast_integer
+  integer, dimension(37) :: bcast_integer
   double precision, dimension(30) :: bcast_double_precision
   logical, dimension(26) :: bcast_logical
 
-  integer, parameter :: maxker=200
-  integer, parameter :: maxl=72
-  integer, parameter :: maxcoe=2000
-  integer, parameter :: maxver=1000
-  integer, parameter :: maxhpa=2
-
-  integer numker
-  integer numhpa,numcof
-  integer ihpa,lmax,nylm
-  integer lmxhpa(maxhpa)
-  integer itypehpa(maxhpa)
-  integer ihpakern(maxker)
-  integer numcoe(maxhpa)
-  integer ivarkern(maxker)
-  integer itpspl(maxcoe,maxhpa)
-
-  integer nconpt(maxhpa),iver
-  integer iconpt(maxver,maxhpa)
-  real(kind=4) conpt(maxver,maxhpa)
-
-  real(kind=4) xlaspl(maxcoe,maxhpa)
-  real(kind=4) xlospl(maxcoe,maxhpa)
-  real(kind=4) radspl(maxcoe,maxhpa)
-  real(kind=4) coe(maxcoe,maxker)
-  character(len=80) hsplfl(maxhpa)
-  character(len=40) dskker(maxker)
-  real(kind=4) vercof(maxker)
-  real(kind=4) vercofd(maxker)
-
-  real(kind=4) ylmcof((maxl+1)**2,maxhpa)
-  real(kind=4) wk1(maxl+1)
-  real(kind=4) wk2(maxl+1)
-  real(kind=4) wk3(maxl+1)
-
-  character(len=80) kerstr
-  character(len=80) refmdl
-  character(len=40) varstr(maxker)
-
   integer :: ipass
 
   integer :: NSPECMAX_ANISO_IC,NSPECMAX_ISO_MANTLE,NSPECMAX_TISO_MANTLE, &
@@ -553,7 +441,7 @@
           ROTATION,ISOTROPIC_3D_MANTLE,TOPOGRAPHY,OCEANS,MOVIE_SURFACE, &
           MOVIE_VOLUME,MOVIE_VOLUME_COARSE,ATTENUATION_3D,RECEIVERS_CAN_BE_BURIED, &
           PRINT_SOURCE_TIME_FUNCTION,SAVE_MESH_FILES, &
-          ATTENUATION,REFERENCE_1D_MODEL,THREE_D_MODEL,ABSORBING_CONDITIONS, &
+          ATTENUATION,THREE_D_MODEL,ABSORBING_CONDITIONS, &
           INCLUDE_CENTRAL_CUBE,INFLATE_CENTRAL_CUBE,LOCAL_PATH,MODEL,SIMULATION_TYPE,SAVE_FORWARD, &
           NPROC,NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA, &
           NSPEC, &
@@ -582,7 +470,7 @@
             NPROC_XI,NPROC_ETA,NTSTEP_BETWEEN_OUTPUT_SEISMOS, &
             NTSTEP_BETWEEN_READ_ADJSRC,NSTEP,NSOURCES,NTSTEP_BETWEEN_FRAMES, &
             NTSTEP_BETWEEN_OUTPUT_INFO,NUMBER_OF_RUNS,NUMBER_OF_THIS_RUN,NCHUNKS,&
-            SIMULATION_TYPE,REFERENCE_1D_MODEL,THREE_D_MODEL,NPROC,NPROCTOT, &
+            SIMULATION_TYPE,THREE_D_MODEL,NPROC,NPROCTOT, &
             NEX_PER_PROC_XI,NEX_PER_PROC_ETA,ratio_divide_central_cube,&
             MOVIE_VOLUME_TYPE,MOVIE_START,MOVIE_STOP/)
 
@@ -605,7 +493,7 @@
 ! broadcast the information read on the master to the nodes
     call MPI_BCAST(NSOURCES,1,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
 
-    call MPI_BCAST(bcast_integer,38,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
+    call MPI_BCAST(bcast_integer,37,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
 
     call MPI_BCAST(bcast_double_precision,30,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
 
@@ -673,16 +561,15 @@
     NUMBER_OF_THIS_RUN = bcast_integer(26)
     NCHUNKS = bcast_integer(27)
     SIMULATION_TYPE = bcast_integer(28)
-    REFERENCE_1D_MODEL = bcast_integer(29)
-    THREE_D_MODEL = bcast_integer(30)
-    NPROC = bcast_integer(31)
-    NPROCTOT = bcast_integer(32)
-    NEX_PER_PROC_XI = bcast_integer(33)
-    NEX_PER_PROC_ETA = bcast_integer(34)
-    ratio_divide_central_cube = bcast_integer(35)
-    MOVIE_VOLUME_TYPE = bcast_integer(36)
-    MOVIE_START = bcast_integer(37)
-    MOVIE_STOP = bcast_integer(38)
+    THREE_D_MODEL = bcast_integer(29)
+    NPROC = bcast_integer(30)
+    NPROCTOT = bcast_integer(31)
+    NEX_PER_PROC_XI = bcast_integer(32)
+    NEX_PER_PROC_ETA = bcast_integer(33)
+    ratio_divide_central_cube = bcast_integer(34)
+    MOVIE_VOLUME_TYPE = bcast_integer(35)
+    MOVIE_START = bcast_integer(36)
+    MOVIE_STOP = bcast_integer(37)
 
     TRANSVERSE_ISOTROPY = bcast_logical(1)
     ANISOTROPIC_3D_MANTLE = bcast_logical(2)
@@ -986,43 +873,10 @@
   if(ISOTROPIC_3D_MANTLE) then
     if(THREE_D_MODEL /= 0) call read_smooth_moho
     if(THREE_D_MODEL == THREE_D_MODEL_S20RTS) then
-! the variables read are declared and stored in structure D3MM_V
-      if(myrank == 0) call read_mantle_model(D3MM_V)
-! broadcast the information read on the master to the nodes
-      call MPI_BCAST(D3MM_V%dvs_a,(NK+1)*(NS+1)*(NS+1),MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
-      call MPI_BCAST(D3MM_V%dvs_b,(NK+1)*(NS+1)*(NS+1),MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
-      call MPI_BCAST(D3MM_V%dvp_a,(NK+1)*(NS+1)*(NS+1),MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
-      call MPI_BCAST(D3MM_V%dvp_b,(NK+1)*(NS+1)*(NS+1),MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
-      call MPI_BCAST(D3MM_V%spknt,NK+1,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
-      call MPI_BCAST(D3MM_V%qq0,(NK+1)*(NK+1),MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
-      call MPI_BCAST(D3MM_V%qq,3*(NK+1)*(NK+1),MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
+      call read_s20rts(myrank)
     elseif(THREE_D_MODEL == THREE_D_MODEL_S362ANI .or. THREE_D_MODEL == THREE_D_MODEL_S362WMANI &
            .or. THREE_D_MODEL == THREE_D_MODEL_S362ANI_PREM .or. THREE_D_MODEL == THREE_D_MODEL_S29EA) then
-      if(myrank == 0) call read_model_s362ani(THREE_D_MODEL,THREE_D_MODEL_S362ANI,THREE_D_MODEL_S362WMANI, &
-                              THREE_D_MODEL_S362ANI_PREM,THREE_D_MODEL_S29EA, &
-                              numker,numhpa,ihpa,lmxhpa,itypehpa,ihpakern,numcoe,ivarkern,itpspl, &
-                              xlaspl,xlospl,radspl,coe,hsplfl,dskker,kerstr,varstr,refmdl)
-  call MPI_BCAST(numker,1,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(numhpa,1,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(ihpa,1,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(lmxhpa,maxhpa,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(itypehpa,maxhpa,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(ihpakern,maxker,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(numcoe,maxhpa,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(ivarkern,maxker,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(itpspl,maxcoe*maxhpa,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
-
-  call MPI_BCAST(xlaspl,maxcoe*maxhpa,MPI_REAL,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(xlospl,maxcoe*maxhpa,MPI_REAL,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(radspl,maxcoe*maxhpa,MPI_REAL,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(coe,maxcoe*maxker,MPI_REAL,0,MPI_COMM_WORLD,ier)
-
-  call MPI_BCAST(hsplfl,80*maxhpa,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(dskker,40*maxker,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(kerstr,80,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(refmdl,80,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
-  call MPI_BCAST(varstr,40*maxker,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
-
+      call read_s362ani(myrank, THREE_D_MODEL)
     else
       call exit_MPI(myrank,'3D model not defined')
     endif
@@ -1038,15 +892,7 @@
   endif
 
   if(CRUSTAL) then
-! the variables read are declared and stored in structure CM_V
-    if(myrank == 0) call read_crustal_model(CM_V)
-! broadcast the information read on the master to the nodes
-    call MPI_BCAST(CM_V%thlr,NKEYS_CRUST*NLAYERS_CRUST,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
-    call MPI_BCAST(CM_V%velocp,NKEYS_CRUST*NLAYERS_CRUST,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
-    call MPI_BCAST(CM_V%velocs,NKEYS_CRUST*NLAYERS_CRUST,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
-    call MPI_BCAST(CM_V%dens,NKEYS_CRUST*NLAYERS_CRUST,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
-    call MPI_BCAST(CM_V%abbreviation,NCAP_CRUST*NCAP_CRUST,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
-    call MPI_BCAST(CM_V%code,2*NKEYS_CRUST,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
+    call read_crust_2_0(myrank)
   endif
 
   if(ANISOTROPIC_INNER_CORE) then
@@ -1072,7 +918,7 @@
     call MPI_BCAST(AM_V%min_period, 1, MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ier)
     call MPI_BCAST(AM_V%max_period, 1, MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ier)
 
-    call attenuation_model_setup(REFERENCE_1D_MODEL, RICB, RCMB, R670, R220, R80,AM_V,M1066a_V,Mak135_V,Mref_V,AM_S,AS_V)
+    call attenuation_model_setup(AM_V,AM_S,AS_V)
   endif
 
 ! read topography and bathymetry file
@@ -1163,14 +1009,11 @@
          myrank,LOCAL_PATH,OCEANS,ibathy_topo, &
          rotation_matrix,ANGULAR_WIDTH_XI_RAD,ANGULAR_WIDTH_ETA_RAD, &
          ATTENUATION,ATTENUATION_3D,SAVE_MESH_FILES, &
-         NCHUNKS,INCLUDE_CENTRAL_CUBE,ABSORBING_CONDITIONS,REFERENCE_1D_MODEL,THREE_D_MODEL, &
+         NCHUNKS,INCLUDE_CENTRAL_CUBE,ABSORBING_CONDITIONS,THREE_D_MODEL, &
          R_CENTRAL_CUBE,RICB,RHO_OCEANS,RCMB,R670,RMOHO,RTOPDDOUBLEPRIME,R600,R220,R771,R400,R120,R80,RMIDDLE_CRUST,ROCEAN, &
          ner,ratio_sampling_array,doubling_index,r_bottom, r_top,this_region_has_a_doubling,CASE_3D, &
-         AMM_V, AM_V, M1066a_V, Mak135_V, Mref_V,D3MM_V,CM_V, AM_S,AS_V, &
-         numker,numhpa,numcof,ihpa,lmax,nylm, &
-         lmxhpa,itypehpa,ihpakern,numcoe,ivarkern, &
-         nconpt,iver,iconpt,conpt,xlaspl,xlospl,radspl, &
-         coe,vercof,vercofd,ylmcof,wk1,wk2,wk3,kerstr,varstr,ipass,ratio_divide_central_cube,HONOR_1D_SPHERICAL_MOHO, &
+         AMM_V, AM_V, AM_S,AS_V, &
+         ipass,ratio_divide_central_cube,HONOR_1D_SPHERICAL_MOHO, &
          CUT_SUPERBRICK_XI,CUT_SUPERBRICK_ETA,mod(iproc_xi_slice(myrank),2),mod(iproc_eta_slice(myrank),2))
   enddo
 

Deleted: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_1066a.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/model_1066a.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_1066a.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -1,1131 +0,0 @@
-!=====================================================================
-!
-!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
-!          --------------------------------------------------
-!
-!          Main authors: Dimitri Komatitsch and Jeroen Tromp
-!    Seismological Laboratory, California Institute of Technology, USA
-!             and University of Pau / CNRS / INRIA, France
-! (c) California Institute of Technology and University of Pau / CNRS / INRIA
-!                            February 2008
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-
-  subroutine model_1066a(x,rho,vp,vs,Qkappa,Qmu,iregion_code,M1066a_V)
-
-  implicit none
-
-  include "constants.h"
-
-! model_1066a_variables
-  type model_1066a_variables
-    sequence
-      double precision, dimension(NR_1066A) :: radius_1066a
-      double precision, dimension(NR_1066A) :: density_1066a
-      double precision, dimension(NR_1066A) :: vp_1066a
-      double precision, dimension(NR_1066A) :: vs_1066a
-      double precision, dimension(NR_1066A) :: Qkappa_1066a
-      double precision, dimension(NR_1066A) :: Qmu_1066a
-  end type model_1066a_variables
-
-  type (model_1066a_variables) M1066a_V
-! model_1066a_variables
-
-! input:
-! radius r: meters
-
-! output:
-! density rho: kg/m^3
-! compressional wave speed vp: km/s
-! shear wave speed vs: km/s
-
-  integer iregion_code
-
-  double precision x,rho,vp,vs,Qmu,Qkappa
-
-  integer i
-
-  double precision r,frac,scaleval
-
-! compute real physical radius in meters
-  r = x * R_EARTH
-
-  i = 1
-  do while(r >= M1066a_V%radius_1066a(i) .and. i /= NR_1066A)
-    i = i + 1
-  enddo
-
-! make sure we stay in the right region and never take a point above
-! and a point below the ICB or the CMB and interpolate between them,
-! which would lead to a wrong value (keeping in mind that we interpolate
-! between points i-1 and i below)
-  if(iregion_code == IREGION_INNER_CORE .and. i > 33) i = 33
-
-  if(iregion_code == IREGION_OUTER_CORE .and. i < 35) i = 35
-  if(iregion_code == IREGION_OUTER_CORE .and. i > 66) i = 66
-
-  if(iregion_code == IREGION_CRUST_MANTLE .and. i < 68) i = 68
-
-  if(i == 1) then
-    rho = M1066a_V%density_1066a(i)
-    vp = M1066a_V%vp_1066a(i)
-    vs = M1066a_V%vs_1066a(i)
-    Qmu = M1066a_V%Qmu_1066a(i)
-    Qkappa = M1066a_V%Qkappa_1066a(i)
-  else
-
-! interpolate from radius_1066a(i-1) to r using the values at i-1 and i
-    frac = (r-M1066a_V%radius_1066a(i-1))/(M1066a_V%radius_1066a(i)-M1066a_V%radius_1066a(i-1))
-
-    rho = M1066a_V%density_1066a(i-1) + frac * (M1066a_V%density_1066a(i)-M1066a_V%density_1066a(i-1))
-    vp = M1066a_V%vp_1066a(i-1) + frac * (M1066a_V%vp_1066a(i)-M1066a_V%vp_1066a(i-1))
-    vs = M1066a_V%vs_1066a(i-1) + frac * (M1066a_V%vs_1066a(i)-M1066a_V%vs_1066a(i-1))
-    Qmu = M1066a_V%Qmu_1066a(i-1) + frac * (M1066a_V%Qmu_1066a(i)-M1066a_V%Qmu_1066a(i-1))
-    Qkappa = M1066a_V%Qkappa_1066a(i-1) + frac * (M1066a_V%Qkappa_1066a(i)-M1066a_V%Qkappa_1066a(i-1))
-
-  endif
-
-! make sure Vs is zero in the outer core even if roundoff errors on depth
-! also set fictitious attenuation to a very high value (attenuation is not used in the fluid)
-  if(iregion_code == IREGION_OUTER_CORE) then
-    vs = 0.d0
-    Qkappa = 3000.d0
-    Qmu = 3000.d0
-  endif
-
-! non-dimensionalize
-! time scaling (s^{-1}) is done with scaleval
-  scaleval=dsqrt(PI*GRAV*RHOAV)
-  rho=rho*1000.0d0/RHOAV
-  vp=vp*1000.0d0/(R_EARTH*scaleval)
-  vs=vs*1000.0d0/(R_EARTH*scaleval)
-
-  end subroutine model_1066a
-
-!-------------------
-
-  subroutine define_model_1066a(USE_EXTERNAL_CRUSTAL_MODEL,M1066a_V)
-
-  implicit none
-  include "constants.h"
-
-! model_1066a_variables
-  type model_1066a_variables
-    sequence
-      double precision, dimension(NR_1066A) :: radius_1066a
-      double precision, dimension(NR_1066A) :: density_1066a
-      double precision, dimension(NR_1066A) :: vp_1066a
-      double precision, dimension(NR_1066A) :: vs_1066a
-      double precision, dimension(NR_1066A) :: Qkappa_1066a
-      double precision, dimension(NR_1066A) :: Qmu_1066a
-  end type model_1066a_variables
-
-  type (model_1066a_variables) M1066a_V
-! model_1066a_variables
-
-  logical USE_EXTERNAL_CRUSTAL_MODEL
-
-  integer i
-
-! define all the values in the model
-
-  M1066a_V%radius_1066a(  1) =  0.000000000000000
-  M1066a_V%radius_1066a(  2) =   38400.0000000000
-  M1066a_V%radius_1066a(  3) =   76810.0000000000
-  M1066a_V%radius_1066a(  4) =   115210.000000000
-  M1066a_V%radius_1066a(  5) =   153610.000000000
-  M1066a_V%radius_1066a(  6) =   192020.000000000
-  M1066a_V%radius_1066a(  7) =   230420.000000000
-  M1066a_V%radius_1066a(  8) =   268820.000000000
-  M1066a_V%radius_1066a(  9) =   307220.000000000
-  M1066a_V%radius_1066a( 10) =   345630.000000000
-  M1066a_V%radius_1066a( 11) =   384030.000000000
-  M1066a_V%radius_1066a( 12) =   422430.000000000
-  M1066a_V%radius_1066a( 13) =   460840.000000000
-  M1066a_V%radius_1066a( 14) =   499240.000000000
-  M1066a_V%radius_1066a( 15) =   537640.000000000
-  M1066a_V%radius_1066a( 16) =   576050.000000000
-  M1066a_V%radius_1066a( 17) =   614450.000000000
-  M1066a_V%radius_1066a( 18) =   652850.000000000
-  M1066a_V%radius_1066a( 19) =   691260.000000000
-  M1066a_V%radius_1066a( 20) =   729660.000000000
-  M1066a_V%radius_1066a( 21) =   768060.000000000
-  M1066a_V%radius_1066a( 22) =   806460.000000000
-  M1066a_V%radius_1066a( 23) =   844870.000000000
-  M1066a_V%radius_1066a( 24) =   883270.000000000
-  M1066a_V%radius_1066a( 25) =   921670.000000000
-  M1066a_V%radius_1066a( 26) =   960080.000000000
-  M1066a_V%radius_1066a( 27) =   998480.000000000
-  M1066a_V%radius_1066a( 28) =   1036880.00000000
-  M1066a_V%radius_1066a( 29) =   1075290.00000000
-  M1066a_V%radius_1066a( 30) =   1113690.00000000
-  M1066a_V%radius_1066a( 31) =   1152090.00000000
-  M1066a_V%radius_1066a( 32) =   1190500.00000000
-  M1066a_V%radius_1066a( 33) =   1229480.00000000
-  M1066a_V%radius_1066a( 34) =   1229480.00000000
-  M1066a_V%radius_1066a( 35) =   1299360.00000000
-  M1066a_V%radius_1066a( 36) =   1369820.00000000
-  M1066a_V%radius_1066a( 37) =   1440280.00000000
-  M1066a_V%radius_1066a( 38) =   1510740.00000000
-  M1066a_V%radius_1066a( 39) =   1581190.00000000
-  M1066a_V%radius_1066a( 40) =   1651650.00000000
-  M1066a_V%radius_1066a( 41) =   1722110.00000000
-  M1066a_V%radius_1066a( 42) =   1792570.00000000
-  M1066a_V%radius_1066a( 43) =   1863030.00000000
-  M1066a_V%radius_1066a( 44) =   1933490.00000000
-  M1066a_V%radius_1066a( 45) =   2003950.00000000
-  M1066a_V%radius_1066a( 46) =   2074410.00000000
-  M1066a_V%radius_1066a( 47) =   2144870.00000000
-  M1066a_V%radius_1066a( 48) =   2215330.00000000
-  M1066a_V%radius_1066a( 49) =   2285790.00000000
-  M1066a_V%radius_1066a( 50) =   2356240.00000000
-  M1066a_V%radius_1066a( 51) =   2426700.00000000
-  M1066a_V%radius_1066a( 52) =   2497160.00000000
-  M1066a_V%radius_1066a( 53) =   2567620.00000000
-  M1066a_V%radius_1066a( 54) =   2638080.00000000
-  M1066a_V%radius_1066a( 55) =   2708540.00000000
-  M1066a_V%radius_1066a( 56) =   2779000.00000000
-  M1066a_V%radius_1066a( 57) =   2849460.00000000
-  M1066a_V%radius_1066a( 58) =   2919920.00000000
-  M1066a_V%radius_1066a( 59) =   2990380.00000000
-  M1066a_V%radius_1066a( 60) =   3060840.00000000
-  M1066a_V%radius_1066a( 61) =   3131300.00000000
-  M1066a_V%radius_1066a( 62) =   3201750.00000000
-  M1066a_V%radius_1066a( 63) =   3272210.00000000
-  M1066a_V%radius_1066a( 64) =   3342670.00000000
-  M1066a_V%radius_1066a( 65) =   3413130.00000000
-  M1066a_V%radius_1066a( 66) =   3484300.00000000
-  M1066a_V%radius_1066a( 67) =   3484300.00000000
-  M1066a_V%radius_1066a( 68) =   3518220.00000000
-  M1066a_V%radius_1066a( 69) =   3552850.00000000
-  M1066a_V%radius_1066a( 70) =   3587490.00000000
-  M1066a_V%radius_1066a( 71) =   3622120.00000000
-  M1066a_V%radius_1066a( 72) =   3656750.00000000
-  M1066a_V%radius_1066a( 73) =   3691380.00000000
-  M1066a_V%radius_1066a( 74) =   3726010.00000000
-  M1066a_V%radius_1066a( 75) =   3760640.00000000
-  M1066a_V%radius_1066a( 76) =   3795270.00000000
-  M1066a_V%radius_1066a( 77) =   3829910.00000000
-  M1066a_V%radius_1066a( 78) =   3864540.00000000
-  M1066a_V%radius_1066a( 79) =   3899170.00000000
-  M1066a_V%radius_1066a( 80) =   3933800.00000000
-  M1066a_V%radius_1066a( 81) =   3968430.00000000
-  M1066a_V%radius_1066a( 82) =   4003060.00000000
-  M1066a_V%radius_1066a( 83) =   4037690.00000000
-  M1066a_V%radius_1066a( 84) =   4072330.00000000
-  M1066a_V%radius_1066a( 85) =   4106960.00000000
-  M1066a_V%radius_1066a( 86) =   4141590.00000000
-  M1066a_V%radius_1066a( 87) =   4176220.00000000
-  M1066a_V%radius_1066a( 88) =   4210850.00000000
-  M1066a_V%radius_1066a( 89) =   4245480.00000000
-  M1066a_V%radius_1066a( 90) =   4280110.00000000
-  M1066a_V%radius_1066a( 91) =   4314740.00000000
-  M1066a_V%radius_1066a( 92) =   4349380.00000000
-  M1066a_V%radius_1066a( 93) =   4384010.00000000
-  M1066a_V%radius_1066a( 94) =   4418640.00000000
-  M1066a_V%radius_1066a( 95) =   4453270.00000000
-  M1066a_V%radius_1066a( 96) =   4487900.00000000
-  M1066a_V%radius_1066a( 97) =   4522530.00000000
-  M1066a_V%radius_1066a( 98) =   4557160.00000000
-  M1066a_V%radius_1066a( 99) =   4591800.00000000
-  M1066a_V%radius_1066a(100) =   4626430.00000000
-  M1066a_V%radius_1066a(101) =   4661060.00000000
-  M1066a_V%radius_1066a(102) =   4695690.00000000
-  M1066a_V%radius_1066a(103) =   4730320.00000000
-  M1066a_V%radius_1066a(104) =   4764950.00000000
-  M1066a_V%radius_1066a(105) =   4799580.00000000
-  M1066a_V%radius_1066a(106) =   4834220.00000000
-  M1066a_V%radius_1066a(107) =   4868850.00000000
-  M1066a_V%radius_1066a(108) =   4903480.00000000
-  M1066a_V%radius_1066a(109) =   4938110.00000000
-  M1066a_V%radius_1066a(110) =   4972740.00000000
-  M1066a_V%radius_1066a(111) =   5007370.00000000
-  M1066a_V%radius_1066a(112) =   5042000.00000000
-  M1066a_V%radius_1066a(113) =   5076640.00000000
-  M1066a_V%radius_1066a(114) =   5111270.00000000
-  M1066a_V%radius_1066a(115) =   5145900.00000000
-  M1066a_V%radius_1066a(116) =   5180530.00000000
-  M1066a_V%radius_1066a(117) =   5215160.00000000
-  M1066a_V%radius_1066a(118) =   5249790.00000000
-  M1066a_V%radius_1066a(119) =   5284420.00000000
-  M1066a_V%radius_1066a(120) =   5319060.00000000
-  M1066a_V%radius_1066a(121) =   5353690.00000000
-  M1066a_V%radius_1066a(122) =   5388320.00000000
-  M1066a_V%radius_1066a(123) =   5422950.00000000
-  M1066a_V%radius_1066a(124) =   5457580.00000000
-  M1066a_V%radius_1066a(125) =   5492210.00000000
-  M1066a_V%radius_1066a(126) =   5526840.00000000
-  M1066a_V%radius_1066a(127) =   5561470.00000000
-  M1066a_V%radius_1066a(128) =   5596110.00000000
-  M1066a_V%radius_1066a(129) =   5630740.00000000
-  M1066a_V%radius_1066a(130) =   5665370.00000000
-  M1066a_V%radius_1066a(131) =   5700000.00000000
-  M1066a_V%radius_1066a(132) =   5700000.00000000
-  M1066a_V%radius_1066a(133) =   5731250.00000000
-  M1066a_V%radius_1066a(134) =   5762500.00000000
-  M1066a_V%radius_1066a(135) =   5793750.00000000
-  M1066a_V%radius_1066a(136) =   5825000.00000000
-  M1066a_V%radius_1066a(137) =   5856250.00000000
-  M1066a_V%radius_1066a(138) =   5887500.00000000
-  M1066a_V%radius_1066a(139) =   5918750.00000000
-  M1066a_V%radius_1066a(140) =   5950000.00000000
-  M1066a_V%radius_1066a(141) =   5950000.00000000
-  M1066a_V%radius_1066a(142) =   5975630.00000000
-  M1066a_V%radius_1066a(143) =   6001250.00000000
-  M1066a_V%radius_1066a(144) =   6026880.00000000
-  M1066a_V%radius_1066a(145) =   6052500.00000000
-  M1066a_V%radius_1066a(146) =   6078130.00000000
-  M1066a_V%radius_1066a(147) =   6103750.00000000
-  M1066a_V%radius_1066a(148) =   6129380.00000000
-  M1066a_V%radius_1066a(149) =   6155000.00000000
-  M1066a_V%radius_1066a(150) =   6180630.00000000
-  M1066a_V%radius_1066a(151) =   6206250.00000000
-  M1066a_V%radius_1066a(152) =   6231880.00000000
-  M1066a_V%radius_1066a(153) =   6257500.00000000
-  M1066a_V%radius_1066a(154) =   6283130.00000000
-  M1066a_V%radius_1066a(155) =   6308750.00000000
-  M1066a_V%radius_1066a(156) =   6334380.00000000
-  M1066a_V%radius_1066a(157) =   6360000.00000000
-  M1066a_V%radius_1066a(158) =   6360000.00000000
-  M1066a_V%radius_1066a(159) =   6365500.00000000
-  M1066a_V%radius_1066a(160) =   6371000.00000000
-
-  M1066a_V%density_1066a(  1) =   13.4290300000000
-  M1066a_V%density_1066a(  2) =   13.4256300000000
-  M1066a_V%density_1066a(  3) =   13.4191300000000
-  M1066a_V%density_1066a(  4) =   13.4135300000000
-  M1066a_V%density_1066a(  5) =   13.4072300000000
-  M1066a_V%density_1066a(  6) =   13.4003200000000
-  M1066a_V%density_1066a(  7) =   13.3929200000000
-  M1066a_V%density_1066a(  8) =   13.3847100000000
-  M1066a_V%density_1066a(  9) =   13.3754000000000
-  M1066a_V%density_1066a( 10) =   13.3649000000000
-  M1066a_V%density_1066a( 11) =   13.3527900000000
-  M1066a_V%density_1066a( 12) =   13.3389800000000
-  M1066a_V%density_1066a( 13) =   13.3238700000000
-  M1066a_V%density_1066a( 14) =   13.3078500000000
-  M1066a_V%density_1066a( 15) =   13.2914400000000
-  M1066a_V%density_1066a( 16) =   13.2750300000000
-  M1066a_V%density_1066a( 17) =   13.2589100000000
-  M1066a_V%density_1066a( 18) =   13.2431000000000
-  M1066a_V%density_1066a( 19) =   13.2275800000000
-  M1066a_V%density_1066a( 20) =   13.2123600000000
-  M1066a_V%density_1066a( 21) =   13.1972500000000
-  M1066a_V%density_1066a( 22) =   13.1823300000000
-  M1066a_V%density_1066a( 23) =   13.1675100000000
-  M1066a_V%density_1066a( 24) =   13.1527800000000
-  M1066a_V%density_1066a( 25) =   13.1382600000000
-  M1066a_V%density_1066a( 26) =   13.1239400000000
-  M1066a_V%density_1066a( 27) =   13.1095200000000
-  M1066a_V%density_1066a( 28) =   13.0953900000000
-  M1066a_V%density_1066a( 29) =   13.0811600000000
-  M1066a_V%density_1066a( 30) =   13.0670400000000
-  M1066a_V%density_1066a( 31) =   13.0525100000000
-  M1066a_V%density_1066a( 32) =   13.0385800000000
-  M1066a_V%density_1066a( 33) =   13.0287500000000
-  M1066a_V%density_1066a( 34) =   12.1606500000000
-  M1066a_V%density_1066a( 35) =   12.1169900000000
-  M1066a_V%density_1066a( 36) =   12.0748300000000
-  M1066a_V%density_1066a( 37) =   12.0330700000000
-  M1066a_V%density_1066a( 38) =   11.9916000000000
-  M1066a_V%density_1066a( 39) =   11.9507300000000
-  M1066a_V%density_1066a( 40) =   11.9104600000000
-  M1066a_V%density_1066a( 41) =   11.8693800000000
-  M1066a_V%density_1066a( 42) =   11.8248100000000
-  M1066a_V%density_1066a( 43) =   11.7753200000000
-  M1066a_V%density_1066a( 44) =   11.7220400000000
-  M1066a_V%density_1066a( 45) =   11.6665500000000
-  M1066a_V%density_1066a( 46) =   11.6085600000000
-  M1066a_V%density_1066a( 47) =   11.5469600000000
-  M1066a_V%density_1066a( 48) =   11.4809600000000
-  M1066a_V%density_1066a( 49) =   11.4116600000000
-  M1066a_V%density_1066a( 50) =   11.3411600000000
-  M1066a_V%density_1066a( 51) =   11.2705500000000
-  M1066a_V%density_1066a( 52) =   11.1982400000000
-  M1066a_V%density_1066a( 53) =   11.1214200000000
-  M1066a_V%density_1066a( 54) =   11.0384100000000
-  M1066a_V%density_1066a( 55) =   10.9511900000000
-  M1066a_V%density_1066a( 56) =   10.8631600000000
-  M1066a_V%density_1066a( 57) =   10.7770300000000
-  M1066a_V%density_1066a( 58) =   10.6925000000000
-  M1066a_V%density_1066a( 59) =   10.6076700000000
-  M1066a_V%density_1066a( 60) =   10.5207300000000
-  M1066a_V%density_1066a( 61) =   10.4312000000000
-  M1066a_V%density_1066a( 62) =   10.3377500000000
-  M1066a_V%density_1066a( 63) =   10.2396100000000
-  M1066a_V%density_1066a( 64) =   10.1378600000000
-  M1066a_V%density_1066a( 65) =   10.0323000000000
-  M1066a_V%density_1066a( 66) =   9.91745000000000
-  M1066a_V%density_1066a( 67) =   5.53205000000000
-  M1066a_V%density_1066a( 68) =   5.52147000000000
-  M1066a_V%density_1066a( 69) =   5.50959000000000
-  M1066a_V%density_1066a( 70) =   5.49821000000000
-  M1066a_V%density_1066a( 71) =   5.48673000000000
-  M1066a_V%density_1066a( 72) =   5.47495000000000
-  M1066a_V%density_1066a( 73) =   5.46297000000000
-  M1066a_V%density_1066a( 74) =   5.45049000000000
-  M1066a_V%density_1066a( 75) =   5.43741000000000
-  M1066a_V%density_1066a( 76) =   5.42382000000000
-  M1066a_V%density_1066a( 77) =   5.40934000000000
-  M1066a_V%density_1066a( 78) =   5.39375000000000
-  M1066a_V%density_1066a( 79) =   5.37717000000000
-  M1066a_V%density_1066a( 80) =   5.35958000000000
-  M1066a_V%density_1066a( 81) =   5.34079000000000
-  M1066a_V%density_1066a( 82) =   5.32100000000000
-  M1066a_V%density_1066a( 83) =   5.30031000000000
-  M1066a_V%density_1066a( 84) =   5.27902000000000
-  M1066a_V%density_1066a( 85) =   5.25733000000000
-  M1066a_V%density_1066a( 86) =   5.23554000000000
-  M1066a_V%density_1066a( 87) =   5.21375000000000
-  M1066a_V%density_1066a( 88) =   5.19196000000000
-  M1066a_V%density_1066a( 89) =   5.17056000000000
-  M1066a_V%density_1066a( 90) =   5.14937000000000
-  M1066a_V%density_1066a( 91) =   5.12827000000000
-  M1066a_V%density_1066a( 92) =   5.10758000000000
-  M1066a_V%density_1066a( 93) =   5.08728000000000
-  M1066a_V%density_1066a( 94) =   5.06738000000000
-  M1066a_V%density_1066a( 95) =   5.04769000000000
-  M1066a_V%density_1066a( 96) =   5.02809000000000
-  M1066a_V%density_1066a( 97) =   5.00869000000000
-  M1066a_V%density_1066a( 98) =   4.98929000000000
-  M1066a_V%density_1066a( 99) =   4.96968000000000
-  M1066a_V%density_1066a(100) =   4.95008000000000
-  M1066a_V%density_1066a(101) =   4.93048000000000
-  M1066a_V%density_1066a(102) =   4.91128000000000
-  M1066a_V%density_1066a(103) =   4.89257000000000
-  M1066a_V%density_1066a(104) =   4.87447000000000
-  M1066a_V%density_1066a(105) =   4.85716000000000
-  M1066a_V%density_1066a(106) =   4.84095000000000
-  M1066a_V%density_1066a(107) =   4.82554000000000
-  M1066a_V%density_1066a(108) =   4.81084000000000
-  M1066a_V%density_1066a(109) =   4.79683000000000
-  M1066a_V%density_1066a(110) =   4.78312000000000
-  M1066a_V%density_1066a(111) =   4.76951000000000
-  M1066a_V%density_1066a(112) =   4.75530000000000
-  M1066a_V%density_1066a(113) =   4.74008000000000
-  M1066a_V%density_1066a(114) =   4.72317000000000
-  M1066a_V%density_1066a(115) =   4.70426000000000
-  M1066a_V%density_1066a(116) =   4.68264000000000
-  M1066a_V%density_1066a(117) =   4.65863000000000
-  M1066a_V%density_1066a(118) =   4.63351000000000
-  M1066a_V%density_1066a(119) =   4.60859000000000
-  M1066a_V%density_1066a(120) =   4.58538000000000
-  M1066a_V%density_1066a(121) =   4.56536000000000
-  M1066a_V%density_1066a(122) =   4.55044000000000
-  M1066a_V%density_1066a(123) =   4.54072000000000
-  M1066a_V%density_1066a(124) =   4.53480000000000
-  M1066a_V%density_1066a(125) =   4.53478000000000
-  M1066a_V%density_1066a(126) =   4.53275000000000
-  M1066a_V%density_1066a(127) =   4.50893000000000
-  M1066a_V%density_1066a(128) =   4.46541000000000
-  M1066a_V%density_1066a(129) =   4.40098000000000
-  M1066a_V%density_1066a(130) =   4.31686000000000
-  M1066a_V%density_1066a(131) =   4.20553000000000
-  M1066a_V%density_1066a(132) =   4.20553000000000
-  M1066a_V%density_1066a(133) =   4.10272000000000
-  M1066a_V%density_1066a(134) =   4.02250000000000
-  M1066a_V%density_1066a(135) =   3.95789000000000
-  M1066a_V%density_1066a(136) =   3.89997000000000
-  M1066a_V%density_1066a(137) =   3.84675000000000
-  M1066a_V%density_1066a(138) =   3.80144000000000
-  M1066a_V%density_1066a(139) =   3.76072000000000
-  M1066a_V%density_1066a(140) =   3.70840000000000
-  M1066a_V%density_1066a(141) =   3.70840000000000
-  M1066a_V%density_1066a(142) =   3.65370000000000
-  M1066a_V%density_1066a(143) =   3.59640000000000
-  M1066a_V%density_1066a(144) =   3.54731000000000
-  M1066a_V%density_1066a(145) =   3.50511000000000
-  M1066a_V%density_1066a(146) =   3.46861000000000
-  M1066a_V%density_1066a(147) =   3.43851000000000
-  M1066a_V%density_1066a(148) =   3.41471000000000
-  M1066a_V%density_1066a(149) =   3.39751000000000
-  M1066a_V%density_1066a(150) =   3.38820000000000
-  M1066a_V%density_1066a(151) =   3.38200000000000
-  M1066a_V%density_1066a(152) =   3.37450000000000
-  M1066a_V%density_1066a(153) =   3.36710000000000
-  M1066a_V%density_1066a(154) =   3.35980000000000
-  M1066a_V%density_1066a(155) =   3.35259000000000
-  M1066a_V%density_1066a(156) =   3.34549000000000
-  M1066a_V%density_1066a(157) =   3.33828000000000
-  M1066a_V%density_1066a(158) =   2.17798000000000
-  M1066a_V%density_1066a(159) =   2.17766000000000
-  M1066a_V%density_1066a(160) =   2.17734000000000
-
-  M1066a_V%vp_1066a(  1) =   11.3383000000000
-  M1066a_V%vp_1066a(  2) =   11.3374000000000
-  M1066a_V%vp_1066a(  3) =   11.3347000000000
-  M1066a_V%vp_1066a(  4) =   11.3301000000000
-  M1066a_V%vp_1066a(  5) =   11.3237000000000
-  M1066a_V%vp_1066a(  6) =   11.3155000000000
-  M1066a_V%vp_1066a(  7) =   11.3056000000000
-  M1066a_V%vp_1066a(  8) =   11.2940000000000
-  M1066a_V%vp_1066a(  9) =   11.2810000000000
-  M1066a_V%vp_1066a( 10) =   11.2666000000000
-  M1066a_V%vp_1066a( 11) =   11.2512000000000
-  M1066a_V%vp_1066a( 12) =   11.2349000000000
-  M1066a_V%vp_1066a( 13) =   11.2181000000000
-  M1066a_V%vp_1066a( 14) =   11.2010000000000
-  M1066a_V%vp_1066a( 15) =   11.1840000000000
-  M1066a_V%vp_1066a( 16) =   11.1672000000000
-  M1066a_V%vp_1066a( 17) =   11.1508000000000
-  M1066a_V%vp_1066a( 18) =   11.1351000000000
-  M1066a_V%vp_1066a( 19) =   11.1201000000000
-  M1066a_V%vp_1066a( 20) =   11.1059000000000
-  M1066a_V%vp_1066a( 21) =   11.0924000000000
-  M1066a_V%vp_1066a( 22) =   11.0798000000000
-  M1066a_V%vp_1066a( 23) =   11.0678000000000
-  M1066a_V%vp_1066a( 24) =   11.0564000000000
-  M1066a_V%vp_1066a( 25) =   11.0455000000000
-  M1066a_V%vp_1066a( 26) =   11.0350000000000
-  M1066a_V%vp_1066a( 27) =   11.0248000000000
-  M1066a_V%vp_1066a( 28) =   11.0149000000000
-  M1066a_V%vp_1066a( 29) =   11.0051000000000
-  M1066a_V%vp_1066a( 30) =   10.9953000000000
-  M1066a_V%vp_1066a( 31) =   10.9857000000000
-  M1066a_V%vp_1066a( 32) =   10.9756000000000
-  M1066a_V%vp_1066a( 33) =   10.9687000000000
-  M1066a_V%vp_1066a( 34) =   10.4140000000000
-  M1066a_V%vp_1066a( 35) =   10.3518000000000
-  M1066a_V%vp_1066a( 36) =   10.2922000000000
-  M1066a_V%vp_1066a( 37) =   10.2351000000000
-  M1066a_V%vp_1066a( 38) =   10.1808000000000
-  M1066a_V%vp_1066a( 39) =   10.1297000000000
-  M1066a_V%vp_1066a( 40) =   10.0788000000000
-  M1066a_V%vp_1066a( 41) =   10.0284000000000
-  M1066a_V%vp_1066a( 42) =   9.97880000000000
-  M1066a_V%vp_1066a( 43) =   9.93070000000000
-  M1066a_V%vp_1066a( 44) =   9.88360000000000
-  M1066a_V%vp_1066a( 45) =   9.83530000000000
-  M1066a_V%vp_1066a( 46) =   9.78250000000000
-  M1066a_V%vp_1066a( 47) =   9.72110000000000
-  M1066a_V%vp_1066a( 48) =   9.65210000000000
-  M1066a_V%vp_1066a( 49) =   9.58060000000000
-  M1066a_V%vp_1066a( 50) =   9.51150000000000
-  M1066a_V%vp_1066a( 51) =   9.44650000000000
-  M1066a_V%vp_1066a( 52) =   9.38280000000000
-  M1066a_V%vp_1066a( 53) =   9.31660000000000
-  M1066a_V%vp_1066a( 54) =   9.24420000000000
-  M1066a_V%vp_1066a( 55) =   9.16580000000000
-  M1066a_V%vp_1066a( 56) =   9.08330000000000
-  M1066a_V%vp_1066a( 57) =   8.99870000000000
-  M1066a_V%vp_1066a( 58) =   8.91160000000000
-  M1066a_V%vp_1066a( 59) =   8.82010000000000
-  M1066a_V%vp_1066a( 60) =   8.72230000000000
-  M1066a_V%vp_1066a( 61) =   8.61710000000000
-  M1066a_V%vp_1066a( 62) =   8.50300000000000
-  M1066a_V%vp_1066a( 63) =   8.38070000000000
-  M1066a_V%vp_1066a( 64) =   8.25560000000000
-  M1066a_V%vp_1066a( 65) =   8.13180000000000
-  M1066a_V%vp_1066a( 66) =   8.01120000000000
-  M1066a_V%vp_1066a( 67) =   13.7172000000000
-  M1066a_V%vp_1066a( 68) =   13.7134000000000
-  M1066a_V%vp_1066a( 69) =   13.7089000000000
-  M1066a_V%vp_1066a( 70) =   13.6806000000000
-  M1066a_V%vp_1066a( 71) =   13.6517000000000
-  M1066a_V%vp_1066a( 72) =   13.6251000000000
-  M1066a_V%vp_1066a( 73) =   13.5916000000000
-  M1066a_V%vp_1066a( 74) =   13.5564000000000
-  M1066a_V%vp_1066a( 75) =   13.5165000000000
-  M1066a_V%vp_1066a( 76) =   13.4725000000000
-  M1066a_V%vp_1066a( 77) =   13.4248000000000
-  M1066a_V%vp_1066a( 78) =   13.3742000000000
-  M1066a_V%vp_1066a( 79) =   13.3216000000000
-  M1066a_V%vp_1066a( 80) =   13.2679000000000
-  M1066a_V%vp_1066a( 81) =   13.2142000000000
-  M1066a_V%vp_1066a( 82) =   13.1619000000000
-  M1066a_V%vp_1066a( 83) =   13.1114000000000
-  M1066a_V%vp_1066a( 84) =   13.0631000000000
-  M1066a_V%vp_1066a( 85) =   13.0174000000000
-  M1066a_V%vp_1066a( 86) =   12.9745000000000
-  M1066a_V%vp_1066a( 87) =   12.9346000000000
-  M1066a_V%vp_1066a( 88) =   12.8977000000000
-  M1066a_V%vp_1066a( 89) =   12.8635000000000
-  M1066a_V%vp_1066a( 90) =   12.8318000000000
-  M1066a_V%vp_1066a( 91) =   12.8022000000000
-  M1066a_V%vp_1066a( 92) =   12.7739000000000
-  M1066a_V%vp_1066a( 93) =   12.7463000000000
-  M1066a_V%vp_1066a( 94) =   12.7186000000000
-  M1066a_V%vp_1066a( 95) =   12.6903000000000
-  M1066a_V%vp_1066a( 96) =   12.6610000000000
-  M1066a_V%vp_1066a( 97) =   12.6302000000000
-  M1066a_V%vp_1066a( 98) =   12.5978000000000
-  M1066a_V%vp_1066a( 99) =   12.5637000000000
-  M1066a_V%vp_1066a(100) =   12.5276000000000
-  M1066a_V%vp_1066a(101) =   12.4893000000000
-  M1066a_V%vp_1066a(102) =   12.4485000000000
-  M1066a_V%vp_1066a(103) =   12.4052000000000
-  M1066a_V%vp_1066a(104) =   12.3592000000000
-  M1066a_V%vp_1066a(105) =   12.3105000000000
-  M1066a_V%vp_1066a(106) =   12.2596000000000
-  M1066a_V%vp_1066a(107) =   12.2072000000000
-  M1066a_V%vp_1066a(108) =   12.1538000000000
-  M1066a_V%vp_1066a(109) =   12.0998000000000
-  M1066a_V%vp_1066a(110) =   12.0458000000000
-  M1066a_V%vp_1066a(111) =   11.9920000000000
-  M1066a_V%vp_1066a(112) =   11.9373000000000
-  M1066a_V%vp_1066a(113) =   11.8804000000000
-  M1066a_V%vp_1066a(114) =   11.8200000000000
-  M1066a_V%vp_1066a(115) =   11.7554000000000
-  M1066a_V%vp_1066a(116) =   11.6844000000000
-  M1066a_V%vp_1066a(117) =   11.6079000000000
-  M1066a_V%vp_1066a(118) =   11.5308000000000
-  M1066a_V%vp_1066a(119) =   11.4579000000000
-  M1066a_V%vp_1066a(120) =   11.3935000000000
-  M1066a_V%vp_1066a(121) =   11.3418000000000
-  M1066a_V%vp_1066a(122) =   11.3085000000000
-  M1066a_V%vp_1066a(123) =   11.2938000000000
-  M1066a_V%vp_1066a(124) =   11.2915000000000
-  M1066a_V%vp_1066a(125) =   11.3049000000000
-  M1066a_V%vp_1066a(126) =   11.3123000000000
-  M1066a_V%vp_1066a(127) =   11.2643000000000
-  M1066a_V%vp_1066a(128) =   11.1635000000000
-  M1066a_V%vp_1066a(129) =   11.0063000000000
-  M1066a_V%vp_1066a(130) =   10.7959000000000
-  M1066a_V%vp_1066a(131) =   10.5143000000000
-  M1066a_V%vp_1066a(132) =   10.5143000000000
-  M1066a_V%vp_1066a(133) =   10.2513000000000
-  M1066a_V%vp_1066a(134) =   10.0402000000000
-  M1066a_V%vp_1066a(135) =   9.86480000000000
-  M1066a_V%vp_1066a(136) =   9.70860000000000
-  M1066a_V%vp_1066a(137) =   9.56810000000000
-  M1066a_V%vp_1066a(138) =   9.45120000000000
-  M1066a_V%vp_1066a(139) =   9.35100000000000
-  M1066a_V%vp_1066a(140) =   9.22830000000000
-  M1066a_V%vp_1066a(141) =   9.22830000000000
-  M1066a_V%vp_1066a(142) =   9.10870000000000
-  M1066a_V%vp_1066a(143) =   8.98230000000000
-  M1066a_V%vp_1066a(144) =   8.85920000000000
-  M1066a_V%vp_1066a(145) =   8.73860000000000
-  M1066a_V%vp_1066a(146) =   8.61930000000000
-  M1066a_V%vp_1066a(147) =   8.50180000000000
-  M1066a_V%vp_1066a(148) =   8.38710000000000
-  M1066a_V%vp_1066a(149) =   8.27360000000000
-  M1066a_V%vp_1066a(150) =   8.15850000000000
-  M1066a_V%vp_1066a(151) =   8.05400000000000
-  M1066a_V%vp_1066a(152) =   7.96520000000000
-  M1066a_V%vp_1066a(153) =   7.87340000000000
-  M1066a_V%vp_1066a(154) =   7.79720000000000
-  M1066a_V%vp_1066a(155) =   7.73910000000000
-  M1066a_V%vp_1066a(156) =   7.71340000000000
-  M1066a_V%vp_1066a(157) =   7.70460000000000
-  M1066a_V%vp_1066a(158) =   4.70220000000000
-  M1066a_V%vp_1066a(159) =   4.70010000000000
-  M1066a_V%vp_1066a(160) =   4.69790000000000
-
-  M1066a_V%vs_1066a(  1) =   3.62980000000000
-  M1066a_V%vs_1066a(  2) =   3.62970000000000
-  M1066a_V%vs_1066a(  3) =   3.62940000000000
-  M1066a_V%vs_1066a(  4) =   3.62880000000000
-  M1066a_V%vs_1066a(  5) =   3.62810000000000
-  M1066a_V%vs_1066a(  6) =   3.62710000000000
-  M1066a_V%vs_1066a(  7) =   3.62590000000000
-  M1066a_V%vs_1066a(  8) =   3.62440000000000
-  M1066a_V%vs_1066a(  9) =   3.62280000000000
-  M1066a_V%vs_1066a( 10) =   3.62090000000000
-  M1066a_V%vs_1066a( 11) =   3.61870000000000
-  M1066a_V%vs_1066a( 12) =   3.61630000000000
-  M1066a_V%vs_1066a( 13) =   3.61370000000000
-  M1066a_V%vs_1066a( 14) =   3.61080000000000
-  M1066a_V%vs_1066a( 15) =   3.60760000000000
-  M1066a_V%vs_1066a( 16) =   3.60420000000000
-  M1066a_V%vs_1066a( 17) =   3.60040000000000
-  M1066a_V%vs_1066a( 18) =   3.59650000000000
-  M1066a_V%vs_1066a( 19) =   3.59220000000000
-  M1066a_V%vs_1066a( 20) =   3.58760000000000
-  M1066a_V%vs_1066a( 21) =   3.58280000000000
-  M1066a_V%vs_1066a( 22) =   3.57770000000000
-  M1066a_V%vs_1066a( 23) =   3.57240000000000
-  M1066a_V%vs_1066a( 24) =   3.56680000000000
-  M1066a_V%vs_1066a( 25) =   3.56100000000000
-  M1066a_V%vs_1066a( 26) =   3.55510000000000
-  M1066a_V%vs_1066a( 27) =   3.54900000000000
-  M1066a_V%vs_1066a( 28) =   3.54280000000000
-  M1066a_V%vs_1066a( 29) =   3.53650000000000
-  M1066a_V%vs_1066a( 30) =   3.53010000000000
-  M1066a_V%vs_1066a( 31) =   3.52380000000000
-  M1066a_V%vs_1066a( 32) =   3.51720000000000
-  M1066a_V%vs_1066a( 33) =   3.51180000000000
-  M1066a_V%vs_1066a( 34) =  0.000000000000000
-  M1066a_V%vs_1066a( 35) =  0.000000000000000
-  M1066a_V%vs_1066a( 36) =  0.000000000000000
-  M1066a_V%vs_1066a( 37) =  0.000000000000000
-  M1066a_V%vs_1066a( 38) =  0.000000000000000
-  M1066a_V%vs_1066a( 39) =  0.000000000000000
-  M1066a_V%vs_1066a( 40) =  0.000000000000000
-  M1066a_V%vs_1066a( 41) =  0.000000000000000
-  M1066a_V%vs_1066a( 42) =  0.000000000000000
-  M1066a_V%vs_1066a( 43) =  0.000000000000000
-  M1066a_V%vs_1066a( 44) =  0.000000000000000
-  M1066a_V%vs_1066a( 45) =  0.000000000000000
-  M1066a_V%vs_1066a( 46) =  0.000000000000000
-  M1066a_V%vs_1066a( 47) =  0.000000000000000
-  M1066a_V%vs_1066a( 48) =  0.000000000000000
-  M1066a_V%vs_1066a( 49) =  0.000000000000000
-  M1066a_V%vs_1066a( 50) =  0.000000000000000
-  M1066a_V%vs_1066a( 51) =  0.000000000000000
-  M1066a_V%vs_1066a( 52) =  0.000000000000000
-  M1066a_V%vs_1066a( 53) =  0.000000000000000
-  M1066a_V%vs_1066a( 54) =  0.000000000000000
-  M1066a_V%vs_1066a( 55) =  0.000000000000000
-  M1066a_V%vs_1066a( 56) =  0.000000000000000
-  M1066a_V%vs_1066a( 57) =  0.000000000000000
-  M1066a_V%vs_1066a( 58) =  0.000000000000000
-  M1066a_V%vs_1066a( 59) =  0.000000000000000
-  M1066a_V%vs_1066a( 60) =  0.000000000000000
-  M1066a_V%vs_1066a( 61) =  0.000000000000000
-  M1066a_V%vs_1066a( 62) =  0.000000000000000
-  M1066a_V%vs_1066a( 63) =  0.000000000000000
-  M1066a_V%vs_1066a( 64) =  0.000000000000000
-  M1066a_V%vs_1066a( 65) =  0.000000000000000
-  M1066a_V%vs_1066a( 66) =  0.000000000000000
-  M1066a_V%vs_1066a( 67) =   7.24980000000000
-  M1066a_V%vs_1066a( 68) =   7.23760000000000
-  M1066a_V%vs_1066a( 69) =   7.22390000000000
-  M1066a_V%vs_1066a( 70) =   7.21000000000000
-  M1066a_V%vs_1066a( 71) =   7.19640000000000
-  M1066a_V%vs_1066a( 72) =   7.18300000000000
-  M1066a_V%vs_1066a( 73) =   7.16990000000000
-  M1066a_V%vs_1066a( 74) =   7.15710000000000
-  M1066a_V%vs_1066a( 75) =   7.14450000000000
-  M1066a_V%vs_1066a( 76) =   7.13200000000000
-  M1066a_V%vs_1066a( 77) =   7.11960000000000
-  M1066a_V%vs_1066a( 78) =   7.10740000000000
-  M1066a_V%vs_1066a( 79) =   7.09530000000000
-  M1066a_V%vs_1066a( 80) =   7.08320000000000
-  M1066a_V%vs_1066a( 81) =   7.07120000000000
-  M1066a_V%vs_1066a( 82) =   7.05920000000000
-  M1066a_V%vs_1066a( 83) =   7.04710000000000
-  M1066a_V%vs_1066a( 84) =   7.03470000000000
-  M1066a_V%vs_1066a( 85) =   7.02190000000000
-  M1066a_V%vs_1066a( 86) =   7.00860000000000
-  M1066a_V%vs_1066a( 87) =   6.99470000000000
-  M1066a_V%vs_1066a( 88) =   6.98030000000000
-  M1066a_V%vs_1066a( 89) =   6.96510000000000
-  M1066a_V%vs_1066a( 90) =   6.94930000000000
-  M1066a_V%vs_1066a( 91) =   6.93290000000000
-  M1066a_V%vs_1066a( 92) =   6.91620000000000
-  M1066a_V%vs_1066a( 93) =   6.89910000000000
-  M1066a_V%vs_1066a( 94) =   6.88200000000000
-  M1066a_V%vs_1066a( 95) =   6.86520000000000
-  M1066a_V%vs_1066a( 96) =   6.84900000000000
-  M1066a_V%vs_1066a( 97) =   6.83340000000000
-  M1066a_V%vs_1066a( 98) =   6.81820000000000
-  M1066a_V%vs_1066a( 99) =   6.80360000000000
-  M1066a_V%vs_1066a(100) =   6.78910000000000
-  M1066a_V%vs_1066a(101) =   6.77440000000000
-  M1066a_V%vs_1066a(102) =   6.75890000000000
-  M1066a_V%vs_1066a(103) =   6.74270000000000
-  M1066a_V%vs_1066a(104) =   6.72550000000000
-  M1066a_V%vs_1066a(105) =   6.70730000000000
-  M1066a_V%vs_1066a(106) =   6.68810000000000
-  M1066a_V%vs_1066a(107) =   6.66840000000000
-  M1066a_V%vs_1066a(108) =   6.64850000000000
-  M1066a_V%vs_1066a(109) =   6.62880000000000
-  M1066a_V%vs_1066a(110) =   6.60950000000000
-  M1066a_V%vs_1066a(111) =   6.59110000000000
-  M1066a_V%vs_1066a(112) =   6.57310000000000
-  M1066a_V%vs_1066a(113) =   6.55480000000000
-  M1066a_V%vs_1066a(114) =   6.53510000000000
-  M1066a_V%vs_1066a(115) =   6.51330000000000
-  M1066a_V%vs_1066a(116) =   6.48810000000000
-  M1066a_V%vs_1066a(117) =   6.45940000000000
-  M1066a_V%vs_1066a(118) =   6.42860000000000
-  M1066a_V%vs_1066a(119) =   6.39760000000000
-  M1066a_V%vs_1066a(120) =   6.36840000000000
-  M1066a_V%vs_1066a(121) =   6.34280000000000
-  M1066a_V%vs_1066a(122) =   6.32350000000000
-  M1066a_V%vs_1066a(123) =   6.31140000000000
-  M1066a_V%vs_1066a(124) =   6.30410000000000
-  M1066a_V%vs_1066a(125) =   6.30520000000000
-  M1066a_V%vs_1066a(126) =   6.30210000000000
-  M1066a_V%vs_1066a(127) =   6.26430000000000
-  M1066a_V%vs_1066a(128) =   6.19470000000000
-  M1066a_V%vs_1066a(129) =   6.09120000000000
-  M1066a_V%vs_1066a(130) =   5.95550000000000
-  M1066a_V%vs_1066a(131) =   5.77550000000000
-  M1066a_V%vs_1066a(132) =   5.77550000000000
-  M1066a_V%vs_1066a(133) =   5.60830000000000
-  M1066a_V%vs_1066a(134) =   5.47520000000000
-  M1066a_V%vs_1066a(135) =   5.36530000000000
-  M1066a_V%vs_1066a(136) =   5.26650000000000
-  M1066a_V%vs_1066a(137) =   5.17620000000000
-  M1066a_V%vs_1066a(138) =   5.09960000000000
-  M1066a_V%vs_1066a(139) =   5.03220000000000
-  M1066a_V%vs_1066a(140) =   4.94880000000000
-  M1066a_V%vs_1066a(141) =   4.94880000000000
-  M1066a_V%vs_1066a(142) =   4.86670000000000
-  M1066a_V%vs_1066a(143) =   4.78060000000000
-  M1066a_V%vs_1066a(144) =   4.69950000000000
-  M1066a_V%vs_1066a(145) =   4.62110000000000
-  M1066a_V%vs_1066a(146) =   4.54790000000000
-  M1066a_V%vs_1066a(147) =   4.48820000000000
-  M1066a_V%vs_1066a(148) =   4.44210000000000
-  M1066a_V%vs_1066a(149) =   4.40840000000000
-  M1066a_V%vs_1066a(150) =   4.38740000000000
-  M1066a_V%vs_1066a(151) =   4.37950000000000
-  M1066a_V%vs_1066a(152) =   4.39040000000000
-  M1066a_V%vs_1066a(153) =   4.43310000000000
-  M1066a_V%vs_1066a(154) =   4.48300000000000
-  M1066a_V%vs_1066a(155) =   4.53890000000000
-  M1066a_V%vs_1066a(156) =   4.60400000000000
-  M1066a_V%vs_1066a(157) =   4.64870000000000
-  M1066a_V%vs_1066a(158) =   2.58060000000000
-  M1066a_V%vs_1066a(159) =   2.58140000000000
-  M1066a_V%vs_1066a(160) =   2.58220000000000
-
-  if (SUPPRESS_CRUSTAL_MESH) then
-    M1066a_V%vp_1066a(158:160) = M1066a_V%vp_1066a(157)
-    M1066a_V%vs_1066a(158:160) = M1066a_V%vs_1066a(157)
-    M1066a_V%density_1066a(158:160) = M1066a_V%density_1066a(157)
-  endif
-
-  M1066a_V%Qkappa_1066a(  1) =   156900.000000000
-  M1066a_V%Qkappa_1066a(  2) =   156900.000000000
-  M1066a_V%Qkappa_1066a(  3) =   156900.000000000
-  M1066a_V%Qkappa_1066a(  4) =   156900.000000000
-  M1066a_V%Qkappa_1066a(  5) =   156900.000000000
-  M1066a_V%Qkappa_1066a(  6) =   156900.000000000
-  M1066a_V%Qkappa_1066a(  7) =   156900.000000000
-  M1066a_V%Qkappa_1066a(  8) =   156900.000000000
-  M1066a_V%Qkappa_1066a(  9) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 10) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 11) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 12) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 13) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 14) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 15) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 16) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 17) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 18) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 19) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 20) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 21) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 22) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 23) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 24) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 25) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 26) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 27) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 28) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 29) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 30) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 31) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 32) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 33) =   156900.000000000
-  M1066a_V%Qkappa_1066a( 34) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 35) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 36) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 37) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 38) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 39) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 40) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 41) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 42) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 43) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 44) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 45) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 46) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 47) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 48) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 49) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 50) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 51) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 52) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 53) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 54) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 55) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 56) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 57) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 58) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 59) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 60) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 61) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 62) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 63) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 64) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 65) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 66) =  0.000000000000000
-  M1066a_V%Qkappa_1066a( 67) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 68) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 69) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 70) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 71) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 72) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 73) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 74) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 75) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 76) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 77) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 78) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 79) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 80) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 81) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 82) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 83) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 84) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 85) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 86) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 87) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 88) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 89) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 90) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 91) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 92) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 93) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 94) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 95) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 96) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 97) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 98) =   16600.0000000000
-  M1066a_V%Qkappa_1066a( 99) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(100) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(101) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(102) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(103) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(104) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(105) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(106) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(107) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(108) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(109) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(110) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(111) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(112) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(113) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(114) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(115) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(116) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(117) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(118) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(119) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(120) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(121) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(122) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(123) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(124) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(125) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(126) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(127) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(128) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(129) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(130) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(131) =   16600.0000000000
-  M1066a_V%Qkappa_1066a(132) =   13840.0000000000
-  M1066a_V%Qkappa_1066a(133) =   13840.0000000000
-  M1066a_V%Qkappa_1066a(134) =   13840.0000000000
-  M1066a_V%Qkappa_1066a(135) =   13840.0000000000
-  M1066a_V%Qkappa_1066a(136) =   13840.0000000000
-  M1066a_V%Qkappa_1066a(137) =   13840.0000000000
-  M1066a_V%Qkappa_1066a(138) =   13840.0000000000
-  M1066a_V%Qkappa_1066a(139) =   13840.0000000000
-  M1066a_V%Qkappa_1066a(140) =   13840.0000000000
-  M1066a_V%Qkappa_1066a(141) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(142) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(143) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(144) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(145) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(146) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(147) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(148) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(149) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(150) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(151) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(152) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(153) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(154) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(155) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(156) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(157) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(158) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(159) =   5893.00000000000
-  M1066a_V%Qkappa_1066a(160) =   5893.00000000000
-
-  M1066a_V%Qmu_1066a(  1) =   3138.00000000000
-  M1066a_V%Qmu_1066a(  2) =   3138.00000000000
-  M1066a_V%Qmu_1066a(  3) =   3138.00000000000
-  M1066a_V%Qmu_1066a(  4) =   3138.00000000000
-  M1066a_V%Qmu_1066a(  5) =   3138.00000000000
-  M1066a_V%Qmu_1066a(  6) =   3138.00000000000
-  M1066a_V%Qmu_1066a(  7) =   3138.00000000000
-  M1066a_V%Qmu_1066a(  8) =   3138.00000000000
-  M1066a_V%Qmu_1066a(  9) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 10) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 11) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 12) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 13) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 14) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 15) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 16) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 17) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 18) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 19) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 20) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 21) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 22) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 23) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 24) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 25) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 26) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 27) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 28) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 29) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 30) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 31) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 32) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 33) =   3138.00000000000
-  M1066a_V%Qmu_1066a( 34) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 35) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 36) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 37) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 38) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 39) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 40) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 41) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 42) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 43) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 44) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 45) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 46) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 47) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 48) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 49) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 50) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 51) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 52) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 53) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 54) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 55) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 56) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 57) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 58) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 59) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 60) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 61) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 62) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 63) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 64) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 65) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 66) =  0.000000000000000
-  M1066a_V%Qmu_1066a( 67) =   332.000000000000
-  M1066a_V%Qmu_1066a( 68) =   332.000000000000
-  M1066a_V%Qmu_1066a( 69) =   332.000000000000
-  M1066a_V%Qmu_1066a( 70) =   332.000000000000
-  M1066a_V%Qmu_1066a( 71) =   332.000000000000
-  M1066a_V%Qmu_1066a( 72) =   332.000000000000
-  M1066a_V%Qmu_1066a( 73) =   332.000000000000
-  M1066a_V%Qmu_1066a( 74) =   332.000000000000
-  M1066a_V%Qmu_1066a( 75) =   332.000000000000
-  M1066a_V%Qmu_1066a( 76) =   332.000000000000
-  M1066a_V%Qmu_1066a( 77) =   332.000000000000
-  M1066a_V%Qmu_1066a( 78) =   332.000000000000
-  M1066a_V%Qmu_1066a( 79) =   332.000000000000
-  M1066a_V%Qmu_1066a( 80) =   332.000000000000
-  M1066a_V%Qmu_1066a( 81) =   332.000000000000
-  M1066a_V%Qmu_1066a( 82) =   332.000000000000
-  M1066a_V%Qmu_1066a( 83) =   332.000000000000
-  M1066a_V%Qmu_1066a( 84) =   332.000000000000
-  M1066a_V%Qmu_1066a( 85) =   332.000000000000
-  M1066a_V%Qmu_1066a( 86) =   332.000000000000
-  M1066a_V%Qmu_1066a( 87) =   332.000000000000
-  M1066a_V%Qmu_1066a( 88) =   332.000000000000
-  M1066a_V%Qmu_1066a( 89) =   332.000000000000
-  M1066a_V%Qmu_1066a( 90) =   332.000000000000
-  M1066a_V%Qmu_1066a( 91) =   332.000000000000
-  M1066a_V%Qmu_1066a( 92) =   332.000000000000
-  M1066a_V%Qmu_1066a( 93) =   332.000000000000
-  M1066a_V%Qmu_1066a( 94) =   332.000000000000
-  M1066a_V%Qmu_1066a( 95) =   332.000000000000
-  M1066a_V%Qmu_1066a( 96) =   332.000000000000
-  M1066a_V%Qmu_1066a( 97) =   332.000000000000
-  M1066a_V%Qmu_1066a( 98) =   332.000000000000
-  M1066a_V%Qmu_1066a( 99) =   332.000000000000
-  M1066a_V%Qmu_1066a(100) =   332.000000000000
-  M1066a_V%Qmu_1066a(101) =   332.000000000000
-  M1066a_V%Qmu_1066a(102) =   332.000000000000
-  M1066a_V%Qmu_1066a(103) =   332.000000000000
-  M1066a_V%Qmu_1066a(104) =   332.000000000000
-  M1066a_V%Qmu_1066a(105) =   332.000000000000
-  M1066a_V%Qmu_1066a(106) =   332.000000000000
-  M1066a_V%Qmu_1066a(107) =   332.000000000000
-  M1066a_V%Qmu_1066a(108) =   332.000000000000
-  M1066a_V%Qmu_1066a(109) =   332.000000000000
-  M1066a_V%Qmu_1066a(110) =   332.000000000000
-  M1066a_V%Qmu_1066a(111) =   332.000000000000
-  M1066a_V%Qmu_1066a(112) =   332.000000000000
-  M1066a_V%Qmu_1066a(113) =   332.000000000000
-  M1066a_V%Qmu_1066a(114) =   332.000000000000
-  M1066a_V%Qmu_1066a(115) =   332.000000000000
-  M1066a_V%Qmu_1066a(116) =   332.000000000000
-  M1066a_V%Qmu_1066a(117) =   332.000000000000
-  M1066a_V%Qmu_1066a(118) =   332.000000000000
-  M1066a_V%Qmu_1066a(119) =   332.000000000000
-  M1066a_V%Qmu_1066a(120) =   332.000000000000
-  M1066a_V%Qmu_1066a(121) =   332.000000000000
-  M1066a_V%Qmu_1066a(122) =   332.000000000000
-  M1066a_V%Qmu_1066a(123) =   332.000000000000
-  M1066a_V%Qmu_1066a(124) =   332.000000000000
-  M1066a_V%Qmu_1066a(125) =   332.000000000000
-  M1066a_V%Qmu_1066a(126) =   332.000000000000
-  M1066a_V%Qmu_1066a(127) =   332.000000000000
-  M1066a_V%Qmu_1066a(128) =   332.000000000000
-  M1066a_V%Qmu_1066a(129) =   332.000000000000
-  M1066a_V%Qmu_1066a(130) =   332.000000000000
-  M1066a_V%Qmu_1066a(131) =   332.000000000000
-  M1066a_V%Qmu_1066a(132) =   276.800000000000
-  M1066a_V%Qmu_1066a(133) =   276.800000000000
-  M1066a_V%Qmu_1066a(134) =   276.800000000000
-  M1066a_V%Qmu_1066a(135) =   276.800000000000
-  M1066a_V%Qmu_1066a(136) =   276.800000000000
-  M1066a_V%Qmu_1066a(137) =   276.800000000000
-  M1066a_V%Qmu_1066a(138) =   276.800000000000
-  M1066a_V%Qmu_1066a(139) =   276.800000000000
-  M1066a_V%Qmu_1066a(140) =   276.800000000000
-  M1066a_V%Qmu_1066a(141) =   117.900000000000
-  M1066a_V%Qmu_1066a(142) =   117.900000000000
-  M1066a_V%Qmu_1066a(143) =   117.900000000000
-  M1066a_V%Qmu_1066a(144) =   117.900000000000
-  M1066a_V%Qmu_1066a(145) =   117.900000000000
-  M1066a_V%Qmu_1066a(146) =   117.900000000000
-  M1066a_V%Qmu_1066a(147) =   117.900000000000
-  M1066a_V%Qmu_1066a(148) =   117.900000000000
-  M1066a_V%Qmu_1066a(149) =   117.900000000000
-  M1066a_V%Qmu_1066a(150) =   117.900000000000
-  M1066a_V%Qmu_1066a(151) =   117.900000000000
-  M1066a_V%Qmu_1066a(152) =   117.900000000000
-  M1066a_V%Qmu_1066a(153) =   117.900000000000
-  M1066a_V%Qmu_1066a(154) =   117.900000000000
-  M1066a_V%Qmu_1066a(155) =   117.900000000000
-  M1066a_V%Qmu_1066a(156) =   117.900000000000
-  M1066a_V%Qmu_1066a(157) =   117.900000000000
-  M1066a_V%Qmu_1066a(158) =   117.900000000000
-  M1066a_V%Qmu_1066a(159) =   117.900000000000
-  M1066a_V%Qmu_1066a(160) =   117.900000000000
-
-! strip the crust and replace it by mantle if we use an external crustal model
-  if(USE_EXTERNAL_CRUSTAL_MODEL) then
-    do i=NR_1066A-3,NR_1066A
-      M1066a_V%density_1066a(i) = M1066a_V%density_1066a(NR_1066A-4)
-      M1066a_V%vp_1066a(i) = M1066a_V%vp_1066a(NR_1066A-4)
-      M1066a_V%vs_1066a(i) = M1066a_V%vs_1066a(NR_1066A-4)
-      M1066a_V%Qkappa_1066a(i) = M1066a_V%Qkappa_1066a(NR_1066A-4)
-      M1066a_V%Qmu_1066a(i) = M1066a_V%Qmu_1066a(NR_1066A-4)
-    enddo
-  endif
-
-  end subroutine define_model_1066a
-

Deleted: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_ak135.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/model_ak135.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_ak135.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -1,1038 +0,0 @@
-!=====================================================================
-!
-!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
-!          --------------------------------------------------
-!
-!          Main authors: Dimitri Komatitsch and Jeroen Tromp
-!    Seismological Laboratory, California Institute of Technology, USA
-!             and University of Pau / CNRS / INRIA, France
-! (c) California Institute of Technology and University of Pau / CNRS / INRIA
-!                            February 2008
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-  subroutine model_ak135(x,rho,vp,vs,Qkappa,Qmu,iregion_code,Mak135_V)
-
-  implicit none
-
-  include "constants.h"
-
-! model_ak135_variables
-  type model_ak135_variables
-    sequence
-    double precision, dimension(NR_AK135) :: radius_ak135
-    double precision, dimension(NR_AK135) :: density_ak135
-    double precision, dimension(NR_AK135) :: vp_ak135
-    double precision, dimension(NR_AK135) :: vs_ak135
-    double precision, dimension(NR_AK135) :: Qkappa_ak135
-    double precision, dimension(NR_AK135) :: Qmu_ak135
-  end type model_ak135_variables
-
- type (model_ak135_variables) Mak135_V
-! model_ak135_variables
-
-! input:
-! radius r: meters
-
-! output:
-! density rho: kg/m^3
-! compressional wave speed vp: km/s
-! shear wave speed vs: km/s
-
-  integer iregion_code
-
-  double precision x,rho,vp,vs,Qmu,Qkappa
-
-  integer i
-
-  double precision r,frac,scaleval
-
-!! DK DK UGLY implementation of model ak135 below and its radii in
-!! DK DK UGLY subroutine read_parameter_file.f90 has not been thoroughly
-!! DK DK UGLY checked yet
-
-! compute real physical radius in meters
-  r = x * R_EARTH
-
-  i = 1
-  do while(r >= Mak135_V%radius_ak135(i) .and. i /= NR_AK135)
-    i = i + 1
-  enddo
-
-! make sure we stay in the right region and never take a point above
-! and a point below the ICB or the CMB and interpolate between them,
-! which would lead to a wrong value (keeping in mind that we interpolate
-! between points i-1 and i below)
-  if(iregion_code == IREGION_INNER_CORE .and. i > 25) i = 25
-
-  if(iregion_code == IREGION_OUTER_CORE .and. i < 27) i = 27
-  if(iregion_code == IREGION_OUTER_CORE .and. i > 71) i = 71
-
-  if(iregion_code == IREGION_CRUST_MANTLE .and. i < 73) i = 73
-
-  if(i == 1) then
-    rho = Mak135_V%density_ak135(i)
-    vp = Mak135_V%vp_ak135(i)
-    vs = Mak135_V%vs_ak135(i)
-    Qmu = Mak135_V%Qmu_ak135(i)
-    Qkappa = Mak135_V%Qkappa_ak135(i)
-  else
-
-! interpolate from radius_ak135(i-1) to r using the values at i-1 and i
-    frac = (r-Mak135_V%radius_ak135(i-1))/(Mak135_V%radius_ak135(i)-Mak135_V%radius_ak135(i-1))
-
-    rho = Mak135_V%density_ak135(i-1) + frac * (Mak135_V%density_ak135(i)-Mak135_V%density_ak135(i-1))
-    vp = Mak135_V%vp_ak135(i-1) + frac * (Mak135_V%vp_ak135(i)-Mak135_V%vp_ak135(i-1))
-    vs = Mak135_V%vs_ak135(i-1) + frac * (Mak135_V%vs_ak135(i)-Mak135_V%vs_ak135(i-1))
-    Qmu = Mak135_V%Qmu_ak135(i-1) + frac * (Mak135_V%Qmu_ak135(i)-Mak135_V%Qmu_ak135(i-1))
-    Qkappa = Mak135_V%Qkappa_ak135(i-1) + frac * (Mak135_V%Qkappa_ak135(i)-Mak135_V%Qkappa_ak135(i-1))
-
-  endif
-
-! make sure Vs is zero in the outer core even if roundoff errors on depth
-! also set fictitious attenuation to a very high value (attenuation is not used in the fluid)
-  if(iregion_code == IREGION_OUTER_CORE) then
-    vs = 0.d0
-    Qkappa = 3000.d0
-    Qmu = 3000.d0
-  endif
-
-! non-dimensionalize
-! time scaling (s^{-1}) is done with scaleval
-  scaleval=dsqrt(PI*GRAV*RHOAV)
-  rho=rho*1000.0d0/RHOAV
-  vp=vp*1000.0d0/(R_EARTH*scaleval)
-  vs=vs*1000.0d0/(R_EARTH*scaleval)
-
-  end subroutine model_ak135
-
-!-------------------
-
-  subroutine define_model_ak135(USE_EXTERNAL_CRUSTAL_MODEL,Mak135_V)
-
-  implicit none
-  include "constants.h"
-
-! model_ak135_variables
-  type model_ak135_variables
-    sequence
-    double precision, dimension(NR_AK135) :: radius_ak135
-    double precision, dimension(NR_AK135) :: density_ak135
-    double precision, dimension(NR_AK135) :: vp_ak135
-    double precision, dimension(NR_AK135) :: vs_ak135
-    double precision, dimension(NR_AK135) :: Qkappa_ak135
-    double precision, dimension(NR_AK135) :: Qmu_ak135
-  end type model_ak135_variables
-
- type (model_ak135_variables) Mak135_V
-! model_ak135_variables
-
-  logical USE_EXTERNAL_CRUSTAL_MODEL
-
-  integer i
-
-! define all the values in the model
-
-  Mak135_V%radius_ak135(  1) =  0.000000000000000
-  Mak135_V%radius_ak135(  2) =   50710.0000000000
-  Mak135_V%radius_ak135(  3) =   101430.000000000
-  Mak135_V%radius_ak135(  4) =   152140.000000000
-  Mak135_V%radius_ak135(  5) =   202850.000000000
-  Mak135_V%radius_ak135(  6) =   253560.000000000
-  Mak135_V%radius_ak135(  7) =   304280.000000000
-  Mak135_V%radius_ak135(  8) =   354990.000000000
-  Mak135_V%radius_ak135(  9) =   405700.000000000
-  Mak135_V%radius_ak135( 10) =   456410.000000000
-  Mak135_V%radius_ak135( 11) =   507130.000000000
-  Mak135_V%radius_ak135( 12) =   557840.000000000
-  Mak135_V%radius_ak135( 13) =   608550.000000000
-  Mak135_V%radius_ak135( 14) =   659260.000000000
-  Mak135_V%radius_ak135( 15) =   709980.000000000
-  Mak135_V%radius_ak135( 16) =   760690.000000000
-  Mak135_V%radius_ak135( 17) =   811400.000000000
-  Mak135_V%radius_ak135( 18) =   862110.000000000
-  Mak135_V%radius_ak135( 19) =   912830.000000000
-  Mak135_V%radius_ak135( 20) =   963540.000000000
-  Mak135_V%radius_ak135( 21) =   1014250.00000000
-  Mak135_V%radius_ak135( 22) =   1064960.00000000
-  Mak135_V%radius_ak135( 23) =   1115680.00000000
-  Mak135_V%radius_ak135( 24) =   1166390.00000000
-  Mak135_V%radius_ak135( 25) =   1217500.00000000
-  Mak135_V%radius_ak135( 26) =   1217500.00000000
-  Mak135_V%radius_ak135( 27) =   1267430.00000000
-  Mak135_V%radius_ak135( 28) =   1317760.00000000
-  Mak135_V%radius_ak135( 29) =   1368090.00000000
-  Mak135_V%radius_ak135( 30) =   1418420.00000000
-  Mak135_V%radius_ak135( 31) =   1468760.00000000
-  Mak135_V%radius_ak135( 32) =   1519090.00000000
-  Mak135_V%radius_ak135( 33) =   1569420.00000000
-  Mak135_V%radius_ak135( 34) =   1619750.00000000
-  Mak135_V%radius_ak135( 35) =   1670080.00000000
-  Mak135_V%radius_ak135( 36) =   1720410.00000000
-  Mak135_V%radius_ak135( 37) =   1770740.00000000
-  Mak135_V%radius_ak135( 38) =   1821070.00000000
-  Mak135_V%radius_ak135( 39) =   1871400.00000000
-  Mak135_V%radius_ak135( 40) =   1921740.00000000
-  Mak135_V%radius_ak135( 41) =   1972070.00000000
-  Mak135_V%radius_ak135( 42) =   2022400.00000000
-  Mak135_V%radius_ak135( 43) =   2072730.00000000
-  Mak135_V%radius_ak135( 44) =   2123060.00000000
-  Mak135_V%radius_ak135( 45) =   2173390.00000000
-  Mak135_V%radius_ak135( 46) =   2223720.00000000
-  Mak135_V%radius_ak135( 47) =   2274050.00000000
-  Mak135_V%radius_ak135( 48) =   2324380.00000000
-  Mak135_V%radius_ak135( 49) =   2374720.00000000
-  Mak135_V%radius_ak135( 50) =   2425050.00000000
-  Mak135_V%radius_ak135( 51) =   2475380.00000000
-  Mak135_V%radius_ak135( 52) =   2525710.00000000
-  Mak135_V%radius_ak135( 53) =   2576040.00000000
-  Mak135_V%radius_ak135( 54) =   2626370.00000000
-  Mak135_V%radius_ak135( 55) =   2676700.00000000
-  Mak135_V%radius_ak135( 56) =   2727030.00000000
-  Mak135_V%radius_ak135( 57) =   2777360.00000000
-  Mak135_V%radius_ak135( 58) =   2827700.00000000
-  Mak135_V%radius_ak135( 59) =   2878030.00000000
-  Mak135_V%radius_ak135( 60) =   2928360.00000000
-  Mak135_V%radius_ak135( 61) =   2978690.00000000
-  Mak135_V%radius_ak135( 62) =   3029020.00000000
-  Mak135_V%radius_ak135( 63) =   3079350.00000000
-  Mak135_V%radius_ak135( 64) =   3129680.00000000
-  Mak135_V%radius_ak135( 65) =   3180010.00000000
-  Mak135_V%radius_ak135( 66) =   3230340.00000000
-  Mak135_V%radius_ak135( 67) =   3280680.00000000
-  Mak135_V%radius_ak135( 68) =   3331010.00000000
-  Mak135_V%radius_ak135( 69) =   3381340.00000000
-  Mak135_V%radius_ak135( 70) =   3431670.00000000
-  Mak135_V%radius_ak135( 71) =   3479500.00000000
-  Mak135_V%radius_ak135( 72) =   3479500.00000000
-  Mak135_V%radius_ak135( 73) =   3531670.00000000
-  Mak135_V%radius_ak135( 74) =   3581330.00000000
-  Mak135_V%radius_ak135( 75) =   3631000.00000000
-  Mak135_V%radius_ak135( 76) =   3631000.00000000
-  Mak135_V%radius_ak135( 77) =   3681000.00000000
-  Mak135_V%radius_ak135( 78) =   3731000.00000000
-  Mak135_V%radius_ak135( 79) =   3779500.00000000
-  Mak135_V%radius_ak135( 80) =   3829000.00000000
-  Mak135_V%radius_ak135( 81) =   3878500.00000000
-  Mak135_V%radius_ak135( 82) =   3928000.00000000
-  Mak135_V%radius_ak135( 83) =   3977500.00000000
-  Mak135_V%radius_ak135( 84) =   4027000.00000000
-  Mak135_V%radius_ak135( 85) =   4076500.00000000
-  Mak135_V%radius_ak135( 86) =   4126000.00000000
-  Mak135_V%radius_ak135( 87) =   4175500.00000000
-  Mak135_V%radius_ak135( 88) =   4225000.00000000
-  Mak135_V%radius_ak135( 89) =   4274500.00000000
-  Mak135_V%radius_ak135( 90) =   4324000.00000000
-  Mak135_V%radius_ak135( 91) =   4373500.00000000
-  Mak135_V%radius_ak135( 92) =   4423000.00000000
-  Mak135_V%radius_ak135( 93) =   4472500.00000000
-  Mak135_V%radius_ak135( 94) =   4522000.00000000
-  Mak135_V%radius_ak135( 95) =   4571500.00000000
-  Mak135_V%radius_ak135( 96) =   4621000.00000000
-  Mak135_V%radius_ak135( 97) =   4670500.00000000
-  Mak135_V%radius_ak135( 98) =   4720000.00000000
-  Mak135_V%radius_ak135( 99) =   4769500.00000000
-  Mak135_V%radius_ak135(100) =   4819000.00000000
-  Mak135_V%radius_ak135(101) =   4868500.00000000
-  Mak135_V%radius_ak135(102) =   4918000.00000000
-  Mak135_V%radius_ak135(103) =   4967500.00000000
-  Mak135_V%radius_ak135(104) =   5017000.00000000
-  Mak135_V%radius_ak135(105) =   5066500.00000000
-  Mak135_V%radius_ak135(106) =   5116000.00000000
-  Mak135_V%radius_ak135(107) =   5165500.00000000
-  Mak135_V%radius_ak135(108) =   5215000.00000000
-  Mak135_V%radius_ak135(109) =   5264500.00000000
-  Mak135_V%radius_ak135(110) =   5314000.00000000
-  Mak135_V%radius_ak135(111) =   5363500.00000000
-  Mak135_V%radius_ak135(112) =   5413000.00000000
-  Mak135_V%radius_ak135(113) =   5462500.00000000
-  Mak135_V%radius_ak135(114) =   5512000.00000000
-  Mak135_V%radius_ak135(115) =   5561500.00000000
-  Mak135_V%radius_ak135(116) =   5611000.00000000
-  Mak135_V%radius_ak135(117) =   5661000.00000000
-  Mak135_V%radius_ak135(118) =   5711000.00000000
-  Mak135_V%radius_ak135(119) =   5711000.00000000
-  Mak135_V%radius_ak135(120) =   5761000.00000000
-  Mak135_V%radius_ak135(121) =   5811000.00000000
-  Mak135_V%radius_ak135(122) =   5861000.00000000
-  Mak135_V%radius_ak135(123) =   5911000.00000000
-  Mak135_V%radius_ak135(124) =   5961000.00000000
-  Mak135_V%radius_ak135(125) =   5961000.00000000
-  Mak135_V%radius_ak135(126) =   6011000.00000000
-  Mak135_V%radius_ak135(127) =   6061000.00000000
-  Mak135_V%radius_ak135(128) =   6111000.00000000
-  Mak135_V%radius_ak135(129) =   6161000.00000000
-  Mak135_V%radius_ak135(130) =   6161000.00000000
-  Mak135_V%radius_ak135(131) =   6206000.00000000
-  Mak135_V%radius_ak135(132) =   6251000.00000000
-  Mak135_V%radius_ak135(133) =   6291000.00000000
-  Mak135_V%radius_ak135(134) =   6291000.00000000
-  Mak135_V%radius_ak135(135) =   6328000.00000000
-  Mak135_V%radius_ak135(136) =   6353000.00000000
-  Mak135_V%radius_ak135(137) =   6353000.00000000
-  Mak135_V%radius_ak135(138) =   6361000.00000000
-  Mak135_V%radius_ak135(139) =   6361000.00000000
-  Mak135_V%radius_ak135(140) =   6367700.00000000
-  Mak135_V%radius_ak135(141) =   6367700.00000000
-  Mak135_V%radius_ak135(142) =   6368000.00000000
-  Mak135_V%radius_ak135(143) =   6368000.00000000
-  Mak135_V%radius_ak135(144) =   6371000.00000000
-
-  Mak135_V%density_ak135(  1) =   13.0122000000000
-  Mak135_V%density_ak135(  2) =   13.0117000000000
-  Mak135_V%density_ak135(  3) =   13.0100000000000
-  Mak135_V%density_ak135(  4) =   13.0074000000000
-  Mak135_V%density_ak135(  5) =   13.0036000000000
-  Mak135_V%density_ak135(  6) =   12.9988000000000
-  Mak135_V%density_ak135(  7) =   12.9929000000000
-  Mak135_V%density_ak135(  8) =   12.9859000000000
-  Mak135_V%density_ak135(  9) =   12.9779000000000
-  Mak135_V%density_ak135( 10) =   12.9688000000000
-  Mak135_V%density_ak135( 11) =   12.9586000000000
-  Mak135_V%density_ak135( 12) =   12.9474000000000
-  Mak135_V%density_ak135( 13) =   12.9351000000000
-  Mak135_V%density_ak135( 14) =   12.9217000000000
-  Mak135_V%density_ak135( 15) =   12.9072000000000
-  Mak135_V%density_ak135( 16) =   12.8917000000000
-  Mak135_V%density_ak135( 17) =   12.8751000000000
-  Mak135_V%density_ak135( 18) =   12.8574000000000
-  Mak135_V%density_ak135( 19) =   12.8387000000000
-  Mak135_V%density_ak135( 20) =   12.8188000000000
-  Mak135_V%density_ak135( 21) =   12.7980000000000
-  Mak135_V%density_ak135( 22) =   12.7760000000000
-  Mak135_V%density_ak135( 23) =   12.7530000000000
-  Mak135_V%density_ak135( 24) =   12.7289000000000
-  Mak135_V%density_ak135( 25) =   12.7037000000000
-  Mak135_V%density_ak135( 26) =   12.1391000000000
-  Mak135_V%density_ak135( 27) =   12.1133000000000
-  Mak135_V%density_ak135( 28) =   12.0867000000000
-  Mak135_V%density_ak135( 29) =   12.0593000000000
-  Mak135_V%density_ak135( 30) =   12.0311000000000
-  Mak135_V%density_ak135( 31) =   12.0001000000000
-  Mak135_V%density_ak135( 32) =   11.9722000000000
-  Mak135_V%density_ak135( 33) =   11.9414000000000
-  Mak135_V%density_ak135( 34) =   11.9098000000000
-  Mak135_V%density_ak135( 35) =   11.8772000000000
-  Mak135_V%density_ak135( 36) =   11.8437000000000
-  Mak135_V%density_ak135( 37) =   11.8092000000000
-  Mak135_V%density_ak135( 38) =   11.7737000000000
-  Mak135_V%density_ak135( 39) =   11.7373000000000
-  Mak135_V%density_ak135( 40) =   11.6998000000000
-  Mak135_V%density_ak135( 41) =   11.6612000000000
-  Mak135_V%density_ak135( 42) =   11.6216000000000
-  Mak135_V%density_ak135( 43) =   11.5809000000000
-  Mak135_V%density_ak135( 44) =   11.5391000000000
-  Mak135_V%density_ak135( 45) =   11.4962000000000
-  Mak135_V%density_ak135( 46) =   11.4521000000000
-  Mak135_V%density_ak135( 47) =   11.4069000000000
-  Mak135_V%density_ak135( 48) =   11.3604000000000
-  Mak135_V%density_ak135( 49) =   11.3127000000000
-  Mak135_V%density_ak135( 50) =   11.2639000000000
-  Mak135_V%density_ak135( 51) =   11.2137000000000
-  Mak135_V%density_ak135( 52) =   11.1623000000000
-  Mak135_V%density_ak135( 53) =   11.1095000000000
-  Mak135_V%density_ak135( 54) =   11.0555000000000
-  Mak135_V%density_ak135( 55) =   11.0001000000000
-  Mak135_V%density_ak135( 56) =   10.9434000000000
-  Mak135_V%density_ak135( 57) =   10.8852000000000
-  Mak135_V%density_ak135( 58) =   10.8257000000000
-  Mak135_V%density_ak135( 59) =   10.7647000000000
-  Mak135_V%density_ak135( 60) =   10.7023000000000
-  Mak135_V%density_ak135( 61) =   10.6385000000000
-  Mak135_V%density_ak135( 62) =   10.5731000000000
-  Mak135_V%density_ak135( 63) =   10.5062000000000
-  Mak135_V%density_ak135( 64) =   10.4378000000000
-  Mak135_V%density_ak135( 65) =   10.3679000000000
-  Mak135_V%density_ak135( 66) =   10.2964000000000
-  Mak135_V%density_ak135( 67) =   10.2233000000000
-  Mak135_V%density_ak135( 68) =   10.1485000000000
-  Mak135_V%density_ak135( 69) =   10.0722000000000
-  Mak135_V%density_ak135( 70) =   9.99420000000000
-  Mak135_V%density_ak135( 71) =   9.91450000000000
-  Mak135_V%density_ak135( 72) =   5.77210000000000
-  Mak135_V%density_ak135( 73) =   5.74580000000000
-  Mak135_V%density_ak135( 74) =   5.71960000000000
-  Mak135_V%density_ak135( 75) =   5.69340000000000
-  Mak135_V%density_ak135( 76) =   5.43870000000000
-  Mak135_V%density_ak135( 77) =   5.41760000000000
-  Mak135_V%density_ak135( 78) =   5.39620000000000
-  Mak135_V%density_ak135( 79) =   5.37480000000000
-  Mak135_V%density_ak135( 80) =   5.35310000000000
-  Mak135_V%density_ak135( 81) =   5.33130000000000
-  Mak135_V%density_ak135( 82) =   5.30920000000000
-  Mak135_V%density_ak135( 83) =   5.28700000000000
-  Mak135_V%density_ak135( 84) =   5.26460000000000
-  Mak135_V%density_ak135( 85) =   5.24200000000000
-  Mak135_V%density_ak135( 86) =   5.21920000000000
-  Mak135_V%density_ak135( 87) =   5.19630000000000
-  Mak135_V%density_ak135( 88) =   5.17320000000000
-  Mak135_V%density_ak135( 89) =   5.14990000000000
-  Mak135_V%density_ak135( 90) =   5.12640000000000
-  Mak135_V%density_ak135( 91) =   5.10270000000000
-  Mak135_V%density_ak135( 92) =   5.07890000000000
-  Mak135_V%density_ak135( 93) =   5.05480000000000
-  Mak135_V%density_ak135( 94) =   5.03060000000000
-  Mak135_V%density_ak135( 95) =   5.00620000000000
-  Mak135_V%density_ak135( 96) =   4.98170000000000
-  Mak135_V%density_ak135( 97) =   4.95700000000000
-  Mak135_V%density_ak135( 98) =   4.93210000000000
-  Mak135_V%density_ak135( 99) =   4.90690000000000
-  Mak135_V%density_ak135(100) =   4.88170000000000
-  Mak135_V%density_ak135(101) =   4.85620000000000
-  Mak135_V%density_ak135(102) =   4.83070000000000
-  Mak135_V%density_ak135(103) =   4.80500000000000
-  Mak135_V%density_ak135(104) =   4.77900000000000
-  Mak135_V%density_ak135(105) =   4.75280000000000
-  Mak135_V%density_ak135(106) =   4.72660000000000
-  Mak135_V%density_ak135(107) =   4.70010000000000
-  Mak135_V%density_ak135(108) =   4.67350000000000
-  Mak135_V%density_ak135(109) =   4.64670000000000
-  Mak135_V%density_ak135(110) =   4.61980000000000
-  Mak135_V%density_ak135(111) =   4.59260000000000
-  Mak135_V%density_ak135(112) =   4.56540000000000
-  Mak135_V%density_ak135(113) =   4.51620000000000
-  Mak135_V%density_ak135(114) =   4.46500000000000
-  Mak135_V%density_ak135(115) =   4.41180000000000
-  Mak135_V%density_ak135(116) =   4.35650000000000
-  Mak135_V%density_ak135(117) =   4.29860000000000
-  Mak135_V%density_ak135(118) =   4.23870000000000
-  Mak135_V%density_ak135(119) =   3.92010000000000
-  Mak135_V%density_ak135(120) =   3.92060000000000
-  Mak135_V%density_ak135(121) =   3.92180000000000
-  Mak135_V%density_ak135(122) =   3.92330000000000
-  Mak135_V%density_ak135(123) =   3.92730000000000
-  Mak135_V%density_ak135(124) =   3.93170000000000
-  Mak135_V%density_ak135(125) =   3.50680000000000
-  Mak135_V%density_ak135(126) =   3.45770000000000
-  Mak135_V%density_ak135(127) =   3.41100000000000
-  Mak135_V%density_ak135(128) =   3.36630000000000
-  Mak135_V%density_ak135(129) =   3.32430000000000
-  Mak135_V%density_ak135(130) =   3.32430000000000
-  Mak135_V%density_ak135(131) =   3.37110000000000
-  Mak135_V%density_ak135(132) =   3.42680000000000
-  Mak135_V%density_ak135(133) =   3.50200000000000
-  Mak135_V%density_ak135(134) =   3.50200000000000
-  Mak135_V%density_ak135(135) =   3.58010000000000
-  Mak135_V%density_ak135(136) =   3.64100000000000
-  Mak135_V%density_ak135(137) =   2.92000000000000
-  Mak135_V%density_ak135(138) =   2.92000000000000
-  Mak135_V%density_ak135(139) =   2.60000000000000
-  Mak135_V%density_ak135(140) =   2.60000000000000
-  Mak135_V%density_ak135(141) =   2.60000000000000
-  Mak135_V%density_ak135(142) =   2.60000000000000
-  Mak135_V%density_ak135(143) =   2.60000000000000
-  Mak135_V%density_ak135(144) =   2.60000000000000
-
-  Mak135_V%vp_ak135(  1) =   11.2622000000000
-  Mak135_V%vp_ak135(  2) =   11.2618000000000
-  Mak135_V%vp_ak135(  3) =   11.2606000000000
-  Mak135_V%vp_ak135(  4) =   11.2586000000000
-  Mak135_V%vp_ak135(  5) =   11.2557000000000
-  Mak135_V%vp_ak135(  6) =   11.2521000000000
-  Mak135_V%vp_ak135(  7) =   11.2477000000000
-  Mak135_V%vp_ak135(  8) =   11.2424000000000
-  Mak135_V%vp_ak135(  9) =   11.2364000000000
-  Mak135_V%vp_ak135( 10) =   11.2295000000000
-  Mak135_V%vp_ak135( 11) =   11.2219000000000
-  Mak135_V%vp_ak135( 12) =   11.2134000000000
-  Mak135_V%vp_ak135( 13) =   11.2041000000000
-  Mak135_V%vp_ak135( 14) =   11.1941000000000
-  Mak135_V%vp_ak135( 15) =   11.1832000000000
-  Mak135_V%vp_ak135( 16) =   11.1715000000000
-  Mak135_V%vp_ak135( 17) =   11.1590000000000
-  Mak135_V%vp_ak135( 18) =   11.1457000000000
-  Mak135_V%vp_ak135( 19) =   11.1316000000000
-  Mak135_V%vp_ak135( 20) =   11.1166000000000
-  Mak135_V%vp_ak135( 21) =   11.0983000000000
-  Mak135_V%vp_ak135( 22) =   11.0850000000000
-  Mak135_V%vp_ak135( 23) =   11.0718000000000
-  Mak135_V%vp_ak135( 24) =   11.0585000000000
-  Mak135_V%vp_ak135( 25) =   11.0427000000000
-  Mak135_V%vp_ak135( 26) =   10.2890000000000
-  Mak135_V%vp_ak135( 27) =   10.2854000000000
-  Mak135_V%vp_ak135( 28) =   10.2745000000000
-  Mak135_V%vp_ak135( 29) =   10.2565000000000
-  Mak135_V%vp_ak135( 30) =   10.2329000000000
-  Mak135_V%vp_ak135( 31) =   10.2049000000000
-  Mak135_V%vp_ak135( 32) =   10.1739000000000
-  Mak135_V%vp_ak135( 33) =   10.1415000000000
-  Mak135_V%vp_ak135( 34) =   10.1095000000000
-  Mak135_V%vp_ak135( 35) =   10.0768000000000
-  Mak135_V%vp_ak135( 36) =   10.0439000000000
-  Mak135_V%vp_ak135( 37) =   10.0103000000000
-  Mak135_V%vp_ak135( 38) =   9.97610000000000
-  Mak135_V%vp_ak135( 39) =   9.94100000000000
-  Mak135_V%vp_ak135( 40) =   9.90510000000000
-  Mak135_V%vp_ak135( 41) =   9.86820000000000
-  Mak135_V%vp_ak135( 42) =   9.83040000000000
-  Mak135_V%vp_ak135( 43) =   9.79140000000000
-  Mak135_V%vp_ak135( 44) =   9.75130000000000
-  Mak135_V%vp_ak135( 45) =   9.71000000000000
-  Mak135_V%vp_ak135( 46) =   9.66730000000000
-  Mak135_V%vp_ak135( 47) =   9.62320000000000
-  Mak135_V%vp_ak135( 48) =   9.57770000000000
-  Mak135_V%vp_ak135( 49) =   9.53060000000000
-  Mak135_V%vp_ak135( 50) =   9.48140000000000
-  Mak135_V%vp_ak135( 51) =   9.42970000000000
-  Mak135_V%vp_ak135( 52) =   9.37600000000000
-  Mak135_V%vp_ak135( 53) =   9.32050000000000
-  Mak135_V%vp_ak135( 54) =   9.26340000000000
-  Mak135_V%vp_ak135( 55) =   9.20420000000000
-  Mak135_V%vp_ak135( 56) =   9.14260000000000
-  Mak135_V%vp_ak135( 57) =   9.07920000000000
-  Mak135_V%vp_ak135( 58) =   9.01380000000000
-  Mak135_V%vp_ak135( 59) =   8.94610000000000
-  Mak135_V%vp_ak135( 60) =   8.87610000000000
-  Mak135_V%vp_ak135( 61) =   8.80360000000000
-  Mak135_V%vp_ak135( 62) =   8.72830000000000
-  Mak135_V%vp_ak135( 63) =   8.64960000000000
-  Mak135_V%vp_ak135( 64) =   8.56920000000000
-  Mak135_V%vp_ak135( 65) =   8.48610000000000
-  Mak135_V%vp_ak135( 66) =   8.40010000000000
-  Mak135_V%vp_ak135( 67) =   8.31220000000000
-  Mak135_V%vp_ak135( 68) =   8.22130000000000
-  Mak135_V%vp_ak135( 69) =   8.12830000000000
-  Mak135_V%vp_ak135( 70) =   8.03820000000000
-  Mak135_V%vp_ak135( 71) =   8.00000000000000
-  Mak135_V%vp_ak135( 72) =   13.6601000000000
-  Mak135_V%vp_ak135( 73) =   13.6570000000000
-  Mak135_V%vp_ak135( 74) =   13.6533000000000
-  Mak135_V%vp_ak135( 75) =   13.6498000000000
-  Mak135_V%vp_ak135( 76) =   13.6498000000000
-  Mak135_V%vp_ak135( 77) =   13.5899000000000
-  Mak135_V%vp_ak135( 78) =   13.5311000000000
-  Mak135_V%vp_ak135( 79) =   13.4741000000000
-  Mak135_V%vp_ak135( 80) =   13.4156000000000
-  Mak135_V%vp_ak135( 81) =   13.3584000000000
-  Mak135_V%vp_ak135( 82) =   13.3017000000000
-  Mak135_V%vp_ak135( 83) =   13.2465000000000
-  Mak135_V%vp_ak135( 84) =   13.1895000000000
-  Mak135_V%vp_ak135( 85) =   13.1337000000000
-  Mak135_V%vp_ak135( 86) =   13.0786000000000
-  Mak135_V%vp_ak135( 87) =   13.0226000000000
-  Mak135_V%vp_ak135( 88) =   12.9663000000000
-  Mak135_V%vp_ak135( 89) =   12.9093000000000
-  Mak135_V%vp_ak135( 90) =   12.8524000000000
-  Mak135_V%vp_ak135( 91) =   12.7956000000000
-  Mak135_V%vp_ak135( 92) =   12.7384000000000
-  Mak135_V%vp_ak135( 93) =   12.6807000000000
-  Mak135_V%vp_ak135( 94) =   12.6226000000000
-  Mak135_V%vp_ak135( 95) =   12.5638000000000
-  Mak135_V%vp_ak135( 96) =   12.5030000000000
-  Mak135_V%vp_ak135( 97) =   12.4427000000000
-  Mak135_V%vp_ak135( 98) =   12.3813000000000
-  Mak135_V%vp_ak135( 99) =   12.3181000000000
-  Mak135_V%vp_ak135(100) =   12.2558000000000
-  Mak135_V%vp_ak135(101) =   12.1912000000000
-  Mak135_V%vp_ak135(102) =   12.1247000000000
-  Mak135_V%vp_ak135(103) =   12.0571000000000
-  Mak135_V%vp_ak135(104) =   11.9891000000000
-  Mak135_V%vp_ak135(105) =   11.9208000000000
-  Mak135_V%vp_ak135(106) =   11.8491000000000
-  Mak135_V%vp_ak135(107) =   11.7768000000000
-  Mak135_V%vp_ak135(108) =   11.7020000000000
-  Mak135_V%vp_ak135(109) =   11.6265000000000
-  Mak135_V%vp_ak135(110) =   11.5493000000000
-  Mak135_V%vp_ak135(111) =   11.4704000000000
-  Mak135_V%vp_ak135(112) =   11.3897000000000
-  Mak135_V%vp_ak135(113) =   11.3068000000000
-  Mak135_V%vp_ak135(114) =   11.2228000000000
-  Mak135_V%vp_ak135(115) =   11.1355000000000
-  Mak135_V%vp_ak135(116) =   11.0553000000000
-  Mak135_V%vp_ak135(117) =   10.9222000000000
-  Mak135_V%vp_ak135(118) =   10.7909000000000
-  Mak135_V%vp_ak135(119) =   10.2000000000000
-  Mak135_V%vp_ak135(120) =   10.0320000000000
-  Mak135_V%vp_ak135(121) =   9.86400000000000
-  Mak135_V%vp_ak135(122) =   9.69620000000000
-  Mak135_V%vp_ak135(123) =   9.52800000000000
-  Mak135_V%vp_ak135(124) =   9.36010000000000
-  Mak135_V%vp_ak135(125) =   9.03020000000000
-  Mak135_V%vp_ak135(126) =   8.84760000000000
-  Mak135_V%vp_ak135(127) =   8.66500000000000
-  Mak135_V%vp_ak135(128) =   8.48220000000000
-  Mak135_V%vp_ak135(129) =   8.30070000000000
-  Mak135_V%vp_ak135(130) =   8.30070000000000
-  Mak135_V%vp_ak135(131) =   8.17500000000000
-  Mak135_V%vp_ak135(132) =   8.05050000000000
-  Mak135_V%vp_ak135(133) =   8.04500000000000
-  Mak135_V%vp_ak135(134) =   8.04000000000000
-  Mak135_V%vp_ak135(135) =   8.03790000000000
-  Mak135_V%vp_ak135(136) =   8.03550000000000
-  Mak135_V%vp_ak135(137) =   6.80000000000000
-  Mak135_V%vp_ak135(138) =   6.80000000000000
-  Mak135_V%vp_ak135(139) =   5.80000000000000
-  Mak135_V%vp_ak135(140) =   5.80000000000000
-  Mak135_V%vp_ak135(141) =   5.80000000000000
-  Mak135_V%vp_ak135(142) =   5.80000000000000
-  Mak135_V%vp_ak135(143) =   5.80000000000000
-  Mak135_V%vp_ak135(144) =   5.80000000000000
-
-  Mak135_V%vs_ak135(  1) =   3.66780000000000
-  Mak135_V%vs_ak135(  2) =   3.66750000000000
-  Mak135_V%vs_ak135(  3) =   3.66670000000000
-  Mak135_V%vs_ak135(  4) =   3.66530000000000
-  Mak135_V%vs_ak135(  5) =   3.66330000000000
-  Mak135_V%vs_ak135(  6) =   3.66080000000000
-  Mak135_V%vs_ak135(  7) =   3.65770000000000
-  Mak135_V%vs_ak135(  8) =   3.65400000000000
-  Mak135_V%vs_ak135(  9) =   3.64980000000000
-  Mak135_V%vs_ak135( 10) =   3.64500000000000
-  Mak135_V%vs_ak135( 11) =   3.63960000000000
-  Mak135_V%vs_ak135( 12) =   3.63370000000000
-  Mak135_V%vs_ak135( 13) =   3.62720000000000
-  Mak135_V%vs_ak135( 14) =   3.62020000000000
-  Mak135_V%vs_ak135( 15) =   3.61260000000000
-  Mak135_V%vs_ak135( 16) =   3.60440000000000
-  Mak135_V%vs_ak135( 17) =   3.59570000000000
-  Mak135_V%vs_ak135( 18) =   3.58640000000000
-  Mak135_V%vs_ak135( 19) =   3.57650000000000
-  Mak135_V%vs_ak135( 20) =   3.56610000000000
-  Mak135_V%vs_ak135( 21) =   3.55510000000000
-  Mak135_V%vs_ak135( 22) =   3.54350000000000
-  Mak135_V%vs_ak135( 23) =   3.53140000000000
-  Mak135_V%vs_ak135( 24) =   3.51870000000000
-  Mak135_V%vs_ak135( 25) =   3.50430000000000
-  Mak135_V%vs_ak135( 26) =  0.000000000000000
-  Mak135_V%vs_ak135( 27) =  0.000000000000000
-  Mak135_V%vs_ak135( 28) =  0.000000000000000
-  Mak135_V%vs_ak135( 29) =  0.000000000000000
-  Mak135_V%vs_ak135( 30) =  0.000000000000000
-  Mak135_V%vs_ak135( 31) =  0.000000000000000
-  Mak135_V%vs_ak135( 32) =  0.000000000000000
-  Mak135_V%vs_ak135( 33) =  0.000000000000000
-  Mak135_V%vs_ak135( 34) =  0.000000000000000
-  Mak135_V%vs_ak135( 35) =  0.000000000000000
-  Mak135_V%vs_ak135( 36) =  0.000000000000000
-  Mak135_V%vs_ak135( 37) =  0.000000000000000
-  Mak135_V%vs_ak135( 38) =  0.000000000000000
-  Mak135_V%vs_ak135( 39) =  0.000000000000000
-  Mak135_V%vs_ak135( 40) =  0.000000000000000
-  Mak135_V%vs_ak135( 41) =  0.000000000000000
-  Mak135_V%vs_ak135( 42) =  0.000000000000000
-  Mak135_V%vs_ak135( 43) =  0.000000000000000
-  Mak135_V%vs_ak135( 44) =  0.000000000000000
-  Mak135_V%vs_ak135( 45) =  0.000000000000000
-  Mak135_V%vs_ak135( 46) =  0.000000000000000
-  Mak135_V%vs_ak135( 47) =  0.000000000000000
-  Mak135_V%vs_ak135( 48) =  0.000000000000000
-  Mak135_V%vs_ak135( 49) =  0.000000000000000
-  Mak135_V%vs_ak135( 50) =  0.000000000000000
-  Mak135_V%vs_ak135( 51) =  0.000000000000000
-  Mak135_V%vs_ak135( 52) =  0.000000000000000
-  Mak135_V%vs_ak135( 53) =  0.000000000000000
-  Mak135_V%vs_ak135( 54) =  0.000000000000000
-  Mak135_V%vs_ak135( 55) =  0.000000000000000
-  Mak135_V%vs_ak135( 56) =  0.000000000000000
-  Mak135_V%vs_ak135( 57) =  0.000000000000000
-  Mak135_V%vs_ak135( 58) =  0.000000000000000
-  Mak135_V%vs_ak135( 59) =  0.000000000000000
-  Mak135_V%vs_ak135( 60) =  0.000000000000000
-  Mak135_V%vs_ak135( 61) =  0.000000000000000
-  Mak135_V%vs_ak135( 62) =  0.000000000000000
-  Mak135_V%vs_ak135( 63) =  0.000000000000000
-  Mak135_V%vs_ak135( 64) =  0.000000000000000
-  Mak135_V%vs_ak135( 65) =  0.000000000000000
-  Mak135_V%vs_ak135( 66) =  0.000000000000000
-  Mak135_V%vs_ak135( 67) =  0.000000000000000
-  Mak135_V%vs_ak135( 68) =  0.000000000000000
-  Mak135_V%vs_ak135( 69) =  0.000000000000000
-  Mak135_V%vs_ak135( 70) =  0.000000000000000
-  Mak135_V%vs_ak135( 71) =  0.000000000000000
-  Mak135_V%vs_ak135( 72) =   7.28170000000000
-  Mak135_V%vs_ak135( 73) =   7.27000000000000
-  Mak135_V%vs_ak135( 74) =   7.25930000000000
-  Mak135_V%vs_ak135( 75) =   7.24850000000000
-  Mak135_V%vs_ak135( 76) =   7.24850000000000
-  Mak135_V%vs_ak135( 77) =   7.22530000000000
-  Mak135_V%vs_ak135( 78) =   7.20310000000000
-  Mak135_V%vs_ak135( 79) =   7.18040000000000
-  Mak135_V%vs_ak135( 80) =   7.15840000000000
-  Mak135_V%vs_ak135( 81) =   7.13680000000000
-  Mak135_V%vs_ak135( 82) =   7.11440000000000
-  Mak135_V%vs_ak135( 83) =   7.09320000000000
-  Mak135_V%vs_ak135( 84) =   7.07220000000000
-  Mak135_V%vs_ak135( 85) =   7.05040000000000
-  Mak135_V%vs_ak135( 86) =   7.02860000000000
-  Mak135_V%vs_ak135( 87) =   7.00690000000000
-  Mak135_V%vs_ak135( 88) =   6.98520000000000
-  Mak135_V%vs_ak135( 89) =   6.96250000000000
-  Mak135_V%vs_ak135( 90) =   6.94160000000000
-  Mak135_V%vs_ak135( 91) =   6.91940000000000
-  Mak135_V%vs_ak135( 92) =   6.89720000000000
-  Mak135_V%vs_ak135( 93) =   6.87430000000000
-  Mak135_V%vs_ak135( 94) =   6.85170000000000
-  Mak135_V%vs_ak135( 95) =   6.82890000000000
-  Mak135_V%vs_ak135( 96) =   6.80560000000000
-  Mak135_V%vs_ak135( 97) =   6.78200000000000
-  Mak135_V%vs_ak135( 98) =   6.75790000000000
-  Mak135_V%vs_ak135( 99) =   6.73230000000000
-  Mak135_V%vs_ak135(100) =   6.70700000000000
-  Mak135_V%vs_ak135(101) =   6.68130000000000
-  Mak135_V%vs_ak135(102) =   6.65540000000000
-  Mak135_V%vs_ak135(103) =   6.62850000000000
-  Mak135_V%vs_ak135(104) =   6.60090000000000
-  Mak135_V%vs_ak135(105) =   6.57280000000000
-  Mak135_V%vs_ak135(106) =   6.54310000000000
-  Mak135_V%vs_ak135(107) =   6.51310000000000
-  Mak135_V%vs_ak135(108) =   6.48220000000000
-  Mak135_V%vs_ak135(109) =   6.45140000000000
-  Mak135_V%vs_ak135(110) =   6.41820000000000
-  Mak135_V%vs_ak135(111) =   6.38600000000000
-  Mak135_V%vs_ak135(112) =   6.35190000000000
-  Mak135_V%vs_ak135(113) =   6.31640000000000
-  Mak135_V%vs_ak135(114) =   6.27990000000000
-  Mak135_V%vs_ak135(115) =   6.24240000000000
-  Mak135_V%vs_ak135(116) =   6.21000000000000
-  Mak135_V%vs_ak135(117) =   6.08980000000000
-  Mak135_V%vs_ak135(118) =   5.96070000000000
-  Mak135_V%vs_ak135(119) =   5.61040000000000
-  Mak135_V%vs_ak135(120) =   5.50470000000000
-  Mak135_V%vs_ak135(121) =   5.39890000000000
-  Mak135_V%vs_ak135(122) =   5.29220000000000
-  Mak135_V%vs_ak135(123) =   5.18640000000000
-  Mak135_V%vs_ak135(124) =   5.08060000000000
-  Mak135_V%vs_ak135(125) =   4.87020000000000
-  Mak135_V%vs_ak135(126) =   4.78320000000000
-  Mak135_V%vs_ak135(127) =   4.69640000000000
-  Mak135_V%vs_ak135(128) =   4.60940000000000
-  Mak135_V%vs_ak135(129) =   4.51840000000000
-  Mak135_V%vs_ak135(130) =   4.51840000000000
-  Mak135_V%vs_ak135(131) =   4.50900000000000
-  Mak135_V%vs_ak135(132) =   4.50000000000000
-  Mak135_V%vs_ak135(133) =   4.49000000000000
-  Mak135_V%vs_ak135(134) =   4.48000000000000
-  Mak135_V%vs_ak135(135) =   4.48560000000000
-  Mak135_V%vs_ak135(136) =   4.48390000000000
-  Mak135_V%vs_ak135(137) =   3.90000000000000
-  Mak135_V%vs_ak135(138) =   3.90000000000000
-  Mak135_V%vs_ak135(139) =   3.20000000000000
-  Mak135_V%vs_ak135(140) =   3.20000000000000
-  Mak135_V%vs_ak135(141) =   3.20000000000000
-  Mak135_V%vs_ak135(142) =   3.20000000000000
-  Mak135_V%vs_ak135(143) =   3.20000000000000
-  Mak135_V%vs_ak135(144) =   3.20000000000000
-
-  if (SUPPRESS_CRUSTAL_MESH) then
-    Mak135_V%vp_ak135(137:144) = Mak135_V%vp_ak135(136)
-    Mak135_V%vs_ak135(137:144) = Mak135_V%vs_ak135(136)
-    Mak135_V%density_ak135(137:144) = Mak135_V%density_ak135(136)
-  endif
-
-  Mak135_V%Qkappa_ak135(  1) =   601.270000000000
-  Mak135_V%Qkappa_ak135(  2) =   601.320000000000
-  Mak135_V%Qkappa_ak135(  3) =   601.460000000000
-  Mak135_V%Qkappa_ak135(  4) =   601.700000000000
-  Mak135_V%Qkappa_ak135(  5) =   602.050000000000
-  Mak135_V%Qkappa_ak135(  6) =   602.490000000000
-  Mak135_V%Qkappa_ak135(  7) =   603.040000000000
-  Mak135_V%Qkappa_ak135(  8) =   603.690000000000
-  Mak135_V%Qkappa_ak135(  9) =   604.440000000000
-  Mak135_V%Qkappa_ak135( 10) =   605.280000000000
-  Mak135_V%Qkappa_ak135( 11) =   606.260000000000
-  Mak135_V%Qkappa_ak135( 12) =   607.310000000000
-  Mak135_V%Qkappa_ak135( 13) =   608.480000000000
-  Mak135_V%Qkappa_ak135( 14) =   609.740000000000
-  Mak135_V%Qkappa_ak135( 15) =   611.120000000000
-  Mak135_V%Qkappa_ak135( 16) =   612.620000000000
-  Mak135_V%Qkappa_ak135( 17) =   614.210000000000
-  Mak135_V%Qkappa_ak135( 18) =   615.930000000000
-  Mak135_V%Qkappa_ak135( 19) =   617.780000000000
-  Mak135_V%Qkappa_ak135( 20) =   619.710000000000
-  Mak135_V%Qkappa_ak135( 21) =   621.500000000000
-  Mak135_V%Qkappa_ak135( 22) =   624.080000000000
-  Mak135_V%Qkappa_ak135( 23) =   626.870000000000
-  Mak135_V%Qkappa_ak135( 24) =   629.890000000000
-  Mak135_V%Qkappa_ak135( 25) =   633.260000000000
-  Mak135_V%Qkappa_ak135( 26) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 27) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 28) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 29) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 30) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 31) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 32) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 33) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 34) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 35) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 36) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 37) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 38) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 39) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 40) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 41) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 42) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 43) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 44) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 45) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 46) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 47) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 48) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 49) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 50) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 51) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 52) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 53) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 54) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 55) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 56) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 57) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 58) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 59) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 60) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 61) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 62) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 63) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 64) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 65) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 66) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 67) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 68) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 69) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 70) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 71) =   57822.0000000000
-  Mak135_V%Qkappa_ak135( 72) =   723.120000000000
-  Mak135_V%Qkappa_ak135( 73) =   725.110000000000
-  Mak135_V%Qkappa_ak135( 74) =   726.870000000000
-  Mak135_V%Qkappa_ak135( 75) =   722.730000000000
-  Mak135_V%Qkappa_ak135( 76) =   933.210000000000
-  Mak135_V%Qkappa_ak135( 77) =   940.880000000000
-  Mak135_V%Qkappa_ak135( 78) =   952.000000000000
-  Mak135_V%Qkappa_ak135( 79) =   960.360000000000
-  Mak135_V%Qkappa_ak135( 80) =   968.460000000000
-  Mak135_V%Qkappa_ak135( 81) =   976.810000000000
-  Mak135_V%Qkappa_ak135( 82) =   985.630000000000
-  Mak135_V%Qkappa_ak135( 83) =   990.770000000000
-  Mak135_V%Qkappa_ak135( 84) =   999.440000000000
-  Mak135_V%Qkappa_ak135( 85) =   1008.79000000000
-  Mak135_V%Qkappa_ak135( 86) =   1018.38000000000
-  Mak135_V%Qkappa_ak135( 87) =   1032.14000000000
-  Mak135_V%Qkappa_ak135( 88) =   1042.07000000000
-  Mak135_V%Qkappa_ak135( 89) =   1048.09000000000
-  Mak135_V%Qkappa_ak135( 90) =   1058.03000000000
-  Mak135_V%Qkappa_ak135( 91) =   1064.23000000000
-  Mak135_V%Qkappa_ak135( 92) =   1070.38000000000
-  Mak135_V%Qkappa_ak135( 93) =   1085.97000000000
-  Mak135_V%Qkappa_ak135( 94) =   1097.16000000000
-  Mak135_V%Qkappa_ak135( 95) =   1108.58000000000
-  Mak135_V%Qkappa_ak135( 96) =   1120.09000000000
-  Mak135_V%Qkappa_ak135( 97) =   1127.02000000000
-  Mak135_V%Qkappa_ak135( 98) =   1134.01000000000
-  Mak135_V%Qkappa_ak135( 99) =   1141.32000000000
-  Mak135_V%Qkappa_ak135(100) =   1148.76000000000
-  Mak135_V%Qkappa_ak135(101) =   1156.04000000000
-  Mak135_V%Qkappa_ak135(102) =   1163.16000000000
-  Mak135_V%Qkappa_ak135(103) =   1170.53000000000
-  Mak135_V%Qkappa_ak135(104) =   1178.19000000000
-  Mak135_V%Qkappa_ak135(105) =   1186.06000000000
-  Mak135_V%Qkappa_ak135(106) =   1193.99000000000
-  Mak135_V%Qkappa_ak135(107) =   1202.04000000000
-  Mak135_V%Qkappa_ak135(108) =   1210.02000000000
-  Mak135_V%Qkappa_ak135(109) =   1217.91000000000
-  Mak135_V%Qkappa_ak135(110) =   1226.52000000000
-  Mak135_V%Qkappa_ak135(111) =   1234.54000000000
-  Mak135_V%Qkappa_ak135(112) =   1243.02000000000
-  Mak135_V%Qkappa_ak135(113) =   1251.69000000000
-  Mak135_V%Qkappa_ak135(114) =   1260.68000000000
-  Mak135_V%Qkappa_ak135(115) =   1269.44000000000
-  Mak135_V%Qkappa_ak135(116) =   1277.93000000000
-  Mak135_V%Qkappa_ak135(117) =   1311.17000000000
-  Mak135_V%Qkappa_ak135(118) =   1350.54000000000
-  Mak135_V%Qkappa_ak135(119) =   428.690000000000
-  Mak135_V%Qkappa_ak135(120) =   425.510000000000
-  Mak135_V%Qkappa_ak135(121) =   422.550000000000
-  Mak135_V%Qkappa_ak135(122) =   419.940000000000
-  Mak135_V%Qkappa_ak135(123) =   417.320000000000
-  Mak135_V%Qkappa_ak135(124) =   413.660000000000
-  Mak135_V%Qkappa_ak135(125) =   377.930000000000
-  Mak135_V%Qkappa_ak135(126) =   366.340000000000
-  Mak135_V%Qkappa_ak135(127) =   355.850000000000
-  Mak135_V%Qkappa_ak135(128) =   346.370000000000
-  Mak135_V%Qkappa_ak135(129) =   338.470000000000
-  Mak135_V%Qkappa_ak135(130) =   200.970000000000
-  Mak135_V%Qkappa_ak135(131) =   188.720000000000
-  Mak135_V%Qkappa_ak135(132) =   182.570000000000
-  Mak135_V%Qkappa_ak135(133) =   182.030000000000
-  Mak135_V%Qkappa_ak135(134) =   1008.71000000000
-  Mak135_V%Qkappa_ak135(135) =   972.770000000000
-  Mak135_V%Qkappa_ak135(136) =   950.500000000000
-  Mak135_V%Qkappa_ak135(137) =   1368.02000000000
-  Mak135_V%Qkappa_ak135(138) =   1368.02000000000
-  Mak135_V%Qkappa_ak135(139) =   1478.30000000000
-  Mak135_V%Qkappa_ak135(140) =   1478.30000000000
-  Mak135_V%Qkappa_ak135(141) =   1478.30000000000
-  Mak135_V%Qkappa_ak135(142) =   1478.30000000000
-  Mak135_V%Qkappa_ak135(143) =   1478.30000000000
-  Mak135_V%Qkappa_ak135(144) =   1478.30000000000
-
-  Mak135_V%Qmu_ak135(  1) =   85.0300000000000
-  Mak135_V%Qmu_ak135(  2) =   85.0300000000000
-  Mak135_V%Qmu_ak135(  3) =   85.0300000000000
-  Mak135_V%Qmu_ak135(  4) =   85.0300000000000
-  Mak135_V%Qmu_ak135(  5) =   85.0300000000000
-  Mak135_V%Qmu_ak135(  6) =   85.0300000000000
-  Mak135_V%Qmu_ak135(  7) =   85.0300000000000
-  Mak135_V%Qmu_ak135(  8) =   85.0300000000000
-  Mak135_V%Qmu_ak135(  9) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 10) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 11) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 12) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 13) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 14) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 15) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 16) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 17) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 18) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 19) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 20) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 21) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 22) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 23) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 24) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 25) =   85.0300000000000
-  Mak135_V%Qmu_ak135( 26) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 27) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 28) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 29) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 30) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 31) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 32) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 33) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 34) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 35) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 36) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 37) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 38) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 39) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 40) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 41) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 42) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 43) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 44) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 45) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 46) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 47) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 48) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 49) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 50) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 51) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 52) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 53) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 54) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 55) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 56) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 57) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 58) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 59) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 60) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 61) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 62) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 63) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 64) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 65) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 66) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 67) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 68) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 69) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 70) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 71) =  0.000000000000000
-  Mak135_V%Qmu_ak135( 72) =   273.970000000000
-  Mak135_V%Qmu_ak135( 73) =   273.970000000000
-  Mak135_V%Qmu_ak135( 74) =   273.970000000000
-  Mak135_V%Qmu_ak135( 75) =   271.740000000000
-  Mak135_V%Qmu_ak135( 76) =   350.880000000000
-  Mak135_V%Qmu_ak135( 77) =   354.610000000000
-  Mak135_V%Qmu_ak135( 78) =   359.710000000000
-  Mak135_V%Qmu_ak135( 79) =   363.640000000000
-  Mak135_V%Qmu_ak135( 80) =   367.650000000000
-  Mak135_V%Qmu_ak135( 81) =   371.750000000000
-  Mak135_V%Qmu_ak135( 82) =   375.940000000000
-  Mak135_V%Qmu_ak135( 83) =   378.790000000000
-  Mak135_V%Qmu_ak135( 84) =   383.140000000000
-  Mak135_V%Qmu_ak135( 85) =   387.600000000000
-  Mak135_V%Qmu_ak135( 86) =   392.160000000000
-  Mak135_V%Qmu_ak135( 87) =   398.410000000000
-  Mak135_V%Qmu_ak135( 88) =   403.230000000000
-  Mak135_V%Qmu_ak135( 89) =   406.500000000000
-  Mak135_V%Qmu_ak135( 90) =   411.520000000000
-  Mak135_V%Qmu_ak135( 91) =   414.940000000000
-  Mak135_V%Qmu_ak135( 92) =   418.410000000000
-  Mak135_V%Qmu_ak135( 93) =   425.530000000000
-  Mak135_V%Qmu_ak135( 94) =   431.030000000000
-  Mak135_V%Qmu_ak135( 95) =   436.680000000000
-  Mak135_V%Qmu_ak135( 96) =   442.480000000000
-  Mak135_V%Qmu_ak135( 97) =   446.430000000000
-  Mak135_V%Qmu_ak135( 98) =   450.450000000000
-  Mak135_V%Qmu_ak135( 99) =   454.550000000000
-  Mak135_V%Qmu_ak135(100) =   458.720000000000
-  Mak135_V%Qmu_ak135(101) =   462.960000000000
-  Mak135_V%Qmu_ak135(102) =   467.290000000000
-  Mak135_V%Qmu_ak135(103) =   471.700000000000
-  Mak135_V%Qmu_ak135(104) =   476.190000000000
-  Mak135_V%Qmu_ak135(105) =   480.770000000000
-  Mak135_V%Qmu_ak135(106) =   485.440000000000
-  Mak135_V%Qmu_ak135(107) =   490.200000000000
-  Mak135_V%Qmu_ak135(108) =   495.050000000000
-  Mak135_V%Qmu_ak135(109) =   500.000000000000
-  Mak135_V%Qmu_ak135(110) =   505.050000000000
-  Mak135_V%Qmu_ak135(111) =   510.200000000000
-  Mak135_V%Qmu_ak135(112) =   515.460000000000
-  Mak135_V%Qmu_ak135(113) =   520.830000000000
-  Mak135_V%Qmu_ak135(114) =   526.320000000000
-  Mak135_V%Qmu_ak135(115) =   531.910000000000
-  Mak135_V%Qmu_ak135(116) =   537.630000000000
-  Mak135_V%Qmu_ak135(117) =   543.480000000000
-  Mak135_V%Qmu_ak135(118) =   549.450000000000
-  Mak135_V%Qmu_ak135(119) =   172.930000000000
-  Mak135_V%Qmu_ak135(120) =   170.820000000000
-  Mak135_V%Qmu_ak135(121) =   168.780000000000
-  Mak135_V%Qmu_ak135(122) =   166.800000000000
-  Mak135_V%Qmu_ak135(123) =   164.870000000000
-  Mak135_V%Qmu_ak135(124) =   162.500000000000
-  Mak135_V%Qmu_ak135(125) =   146.570000000000
-  Mak135_V%Qmu_ak135(126) =   142.760000000000
-  Mak135_V%Qmu_ak135(127) =   139.380000000000
-  Mak135_V%Qmu_ak135(128) =   136.380000000000
-  Mak135_V%Qmu_ak135(129) =   133.720000000000
-  Mak135_V%Qmu_ak135(130) =   79.4000000000000
-  Mak135_V%Qmu_ak135(131) =   76.5500000000000
-  Mak135_V%Qmu_ak135(132) =   76.0600000000000
-  Mak135_V%Qmu_ak135(133) =   75.6000000000000
-  Mak135_V%Qmu_ak135(134) =   417.590000000000
-  Mak135_V%Qmu_ak135(135) =   403.930000000000
-  Mak135_V%Qmu_ak135(136) =   394.620000000000
-  Mak135_V%Qmu_ak135(137) =   599.990000000000
-  Mak135_V%Qmu_ak135(138) =   599.990000000000
-  Mak135_V%Qmu_ak135(139) =   599.990000000000
-  Mak135_V%Qmu_ak135(140) =   599.990000000000
-  Mak135_V%Qmu_ak135(141) =   599.990000000000
-  Mak135_V%Qmu_ak135(142) =   599.990000000000
-  Mak135_V%Qmu_ak135(143) =   599.990000000000
-  Mak135_V%Qmu_ak135(144) =   599.990000000000
-
-! strip the crust and replace it by mantle
-  if(USE_EXTERNAL_CRUSTAL_MODEL) then
-    do i=NR_AK135-8,NR_AK135
-      Mak135_V%density_ak135(i) = Mak135_V%density_ak135(NR_AK135-9)
-      Mak135_V%vp_ak135(i) = Mak135_V%vp_ak135(NR_AK135-9)
-      Mak135_V%vs_ak135(i) = Mak135_V%vs_ak135(NR_AK135-9)
-      Mak135_V%Qkappa_ak135(i) = Mak135_V%Qkappa_ak135(NR_AK135-9)
-      Mak135_V%Qmu_ak135(i) = Mak135_V%Qmu_ak135(NR_AK135-9)
-    enddo
-  endif
-
-  end subroutine define_model_ak135
-

Deleted: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_iasp91.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/model_iasp91.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_iasp91.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -1,229 +0,0 @@
-!=====================================================================
-!
-!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
-!          --------------------------------------------------
-!
-!          Main authors: Dimitri Komatitsch and Jeroen Tromp
-!    Seismological Laboratory, California Institute of Technology, USA
-!             and University of Pau / CNRS / INRIA, France
-! (c) California Institute of Technology and University of Pau / CNRS / INRIA
-!                            February 2008
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-  subroutine model_iasp91(myrank,x,rho,vp,vs,Qkappa,Qmu,idoubling,ONE_CRUST,check_doubling_flag, &
-                     RICB,RCMB,RTOPDDOUBLEPRIME,R771,R670,R400,R220,R120,RMOHO,RMIDDLE_CRUST)
-
-  implicit none
-
-  include "constants.h"
-
-! given a normalized radius x, gives the non-dimesionalized density rho,
-! speeds vp and vs, and the quality factors Qkappa and Qmu
-
-  logical check_doubling_flag
-
-  integer idoubling,myrank
-
-  double precision x,rho,vp,vs,Qkappa,Qmu,RICB,RCMB,RTOPDDOUBLEPRIME,R771,R670,R400,R220,R120,RMOHO,RMIDDLE_CRUST
-
-  logical ONE_CRUST
-
-  double precision r,scaleval
-
-  double precision x1,x2
-
-! compute real physical radius in meters
-  r = x * R_EARTH
-
-  x1 = R120 / R_EARTH
-  x2 = RMOHO / R_EARTH
-
-! check flags to make sure we correctly honor the discontinuities
-! we use strict inequalities since r has been slighly changed in mesher
-
-  if(check_doubling_flag) then
-
-!
-!--- inner core
-!
-  if(r >= 0.d0 .and. r < RICB) then
-    if(idoubling /= IFLAG_INNER_CORE_NORMAL .and. &
-       idoubling /= IFLAG_MIDDLE_CENTRAL_CUBE .and. &
-       idoubling /= IFLAG_BOTTOM_CENTRAL_CUBE .and. &
-       idoubling /= IFLAG_TOP_CENTRAL_CUBE .and. &
-       idoubling /= IFLAG_IN_FICTITIOUS_CUBE) &
-         call exit_MPI(myrank,'wrong doubling flag for inner core point')
-!
-!--- outer core
-!
-  else if(r > RICB .and. r < RCMB) then
-    if(idoubling /= IFLAG_OUTER_CORE_NORMAL) &
-      call exit_MPI(myrank,'wrong doubling flag for outer core point')
-!
-!--- D" at the base of the mantle
-!
-  else if(r > RCMB .and. r < RTOPDDOUBLEPRIME) then
-    if(idoubling /= IFLAG_MANTLE_NORMAL) &
-      call exit_MPI(myrank,'wrong doubling flag for D" point')
-!
-!--- mantle: from top of D" to d670
-!
-  else if(r > RTOPDDOUBLEPRIME .and. r < R670) then
-    if(idoubling /= IFLAG_MANTLE_NORMAL) &
-      call exit_MPI(myrank,'wrong doubling flag for top D" -> d670 point')
-
-!
-!--- mantle: from d670 to d220
-!
-  else if(r > R670 .and. r < R220) then
-    if(idoubling /= IFLAG_670_220) &
-      call exit_MPI(myrank,'wrong doubling flag for d670 -> d220 point')
-
-!
-!--- mantle and crust: from d220 to MOHO and then to surface
-!
-  else if(r > R220) then
-    if(idoubling /= IFLAG_220_80 .and. idoubling /= IFLAG_80_MOHO .and. idoubling /= IFLAG_CRUST) &
-      call exit_MPI(myrank,'wrong doubling flag for d220 -> Moho -> surface point')
-
-  endif
-
-  endif
-
-!
-!--- inner core
-!
-  if(r >= 0.d0 .and. r <= RICB) then
-    rho=13.0885d0-8.8381d0*x*x
-    vp=11.24094-4.09689*x**2
-    vs=3.56454-3.45241*x**2
-    Qmu=84.6d0
-    Qkappa=1327.7d0
-!
-!--- outer core
-!
-  else if(r > RICB .and. r <= RCMB) then
-    rho=12.5815d0-1.2638d0*x-3.6426d0*x*x-5.5281d0*x*x*x
-    vp=10.03904+3.75665*x-13.67046*x**2
-    vs=0.0d0
-    Qmu=0.0d0
-    Qkappa=57827.0d0
-!
-!--- D" at the base of the mantle
-!
-  else if(r > RCMB .and. r <= RTOPDDOUBLEPRIME) then
-    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
-    vp=14.49470-1.47089*x
-    vs=8.16616-1.58206*x
-    Qmu=312.0d0
-    Qkappa=57827.0d0
-
-!
-!--- mantle: from top of D" to d670
-!
-  else if(r > RTOPDDOUBLEPRIME .and. r <= R771) then
-    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
-    vp=25.1486-41.1538*x+51.9932*x**2-26.6083*x**3
-    vs=12.9303-21.2590*x+27.8988*x**2-14.1080*x**3
-    Qmu=312.0d0
-    Qkappa=57827.0d0
-  else if(r > R771 .and. r <= R670) then
-    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
-    vp=25.96984-16.93412*x
-    vs=20.76890-16.53147*x
-    Qmu=312.0d0
-    Qkappa=57827.0d0
-!
-!--- mantle: above d670
-!
-  else if(r > R670 .and. r <= R400) then
-    rho=5.3197d0-1.4836d0*x
-    vp=29.38896-21.40656*x
-    vs=17.70732-13.50652*x
-    Qmu=143.0d0
-    Qkappa=57827.0d0
-  else if(r > R400 .and. r <= R220) then
-    rho=7.1089d0-3.8045d0*x
-    vp=30.78765-23.25415*x
-    vs=15.24213-11.08552*x
-    Qmu=143.0d0
-    Qkappa=57827.0d0
-
-! from Sebastien Chevrot: for the IASP91 model
-! Depth        R                Vp                    Vs
-! 0-20       6351-6371         5.80                  3.36
-! 20-35      6336-6351         6.50                  3.75
-! 35-120     6251-6336   8.78541-0.74953 x       6.706231-2.248585 x
-! with x = r / 6371
-
-  else if(r > R220 .and. r <= R120) then
-    rho=2.6910d0+0.6924d0*x
-    vp=25.41389-17.69722*x
-    vs=5.75020-1.27420*x
-    Qmu=80.0d0
-    Qkappa=57827.0d0
-
-  else if(r > R120 .and. r <= RMOHO) then
-      vp = 8.78541d0-0.74953d0*x
-      vs = 6.706231d0-2.248585d0*x
-      rho = 3.3713d0 + (3.3198d0-3.3713d0)*(x-x1)/(x2-x1)
-      if(rho < 3.30d0 .or. rho > 3.38d0) stop 'incorrect density computed for IASP91'
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-
-  else if (SUPPRESS_CRUSTAL_MESH) then
-!! DK DK extend the Moho up to the surface instead of the crust
-          vp = 8.78541d0-0.74953d0*(RMOHO / R_EARTH)
-          vs = 6.706231d0-2.248585d0*(RMOHO / R_EARTH)
-          rho = 3.3198d0
-          Qmu=600.0d0
-          Qkappa=57827.0d0
-
-  else if(r > RMOHO .and. r <= RMIDDLE_CRUST) then
-      vp = 6.5d0
-      vs = 3.75d0
-      rho = 2.92d0
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-
-! same properties everywhere in PREM crust if we decide to define only one layer in the crust
-      if(ONE_CRUST) then
-        vp = 5.8d0
-        vs = 3.36d0
-        rho = 2.72d0
-        Qmu=600.0d0
-        Qkappa=57827.0d0
-      endif
-
-  else
-      vp = 5.8d0
-      vs = 3.36d0
-      rho = 2.72d0
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-  endif
-
-! non-dimensionalize
-! time scaling (s^{-1}) is done with scaleval
-  scaleval=dsqrt(PI*GRAV*RHOAV)
-  rho=rho*1000.0d0/RHOAV
-  vp=vp*1000.0d0/(R_EARTH*scaleval)
-  vs=vs*1000.0d0/(R_EARTH*scaleval)
-
-  end subroutine model_iasp91
-

Deleted: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_prem.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/model_prem.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_prem.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -1,612 +0,0 @@
-!=====================================================================
-!
-!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
-!          --------------------------------------------------
-!
-!          Main authors: Dimitri Komatitsch and Jeroen Tromp
-!    Seismological Laboratory, California Institute of Technology, USA
-!             and University of Pau / CNRS / INRIA, France
-! (c) California Institute of Technology and University of Pau / CNRS / INRIA
-!                            February 2008
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-  subroutine prem_iso(myrank,x,rho,drhodr,vp,vs,Qkappa,Qmu,idoubling,CRUSTAL, &
-      ONE_CRUST,check_doubling_flag,RICB,RCMB,RTOPDDOUBLEPRIME, &
-      R600,R670,R220,R771,R400,R80,RMOHO,RMIDDLE_CRUST,ROCEAN)
-
-  implicit none
-
-  include "constants.h"
-
-! given a normalized radius x, gives the non-dimesionalized density rho,
-! speeds vp and vs, and the quality factors Qkappa and Qmu
-
-  logical CRUSTAL,ONE_CRUST,check_doubling_flag
-
-  integer idoubling,myrank
-
-  double precision x,rho,drhodr,vp,vs,Qkappa,Qmu,RICB,RCMB,RTOPDDOUBLEPRIME, &
-      R600,R670,R220,R771,R400,R80,RMOHO,RMIDDLE_CRUST,ROCEAN
-
-  double precision r,scaleval
-
-! compute real physical radius in meters
-  r = x * R_EARTH
-
-! check flags to make sure we correctly honor the discontinuities
-! we use strict inequalities since r has been slighly changed in mesher
-
- if(check_doubling_flag) then
-
-!
-!--- inner core
-!
-
-  if(r >= 0.d0 .and. r < RICB) then
-    if(idoubling /= IFLAG_INNER_CORE_NORMAL .and. &
-       idoubling /= IFLAG_MIDDLE_CENTRAL_CUBE .and. &
-       idoubling /= IFLAG_BOTTOM_CENTRAL_CUBE .and. &
-       idoubling /= IFLAG_TOP_CENTRAL_CUBE .and. &
-       idoubling /= IFLAG_IN_FICTITIOUS_CUBE) &
-         call exit_MPI(myrank,'wrong doubling flag for inner core point')
-!
-!--- outer core
-!
-  else if(r > RICB .and. r < RCMB) then
-    if(idoubling /= IFLAG_OUTER_CORE_NORMAL) &
-      call exit_MPI(myrank,'wrong doubling flag for outer core point')
-!
-!--- D" at the base of the mantle
-!
-  else if(r > RCMB .and. r < RTOPDDOUBLEPRIME) then
-    if(idoubling /= IFLAG_MANTLE_NORMAL) &
-      call exit_MPI(myrank,'wrong doubling flag for D" point')
-!
-!--- mantle: from top of D" to d670
-!
-  else if(r > RTOPDDOUBLEPRIME .and. r < R670) then
-    if(idoubling /= IFLAG_MANTLE_NORMAL) &
-      call exit_MPI(myrank,'wrong doubling flag for top D" -> d670 point')
-
-!
-!--- mantle: from d670 to d220
-!
-  else if(r > R670 .and. r < R220) then
-    if(idoubling /= IFLAG_670_220) &
-      call exit_MPI(myrank,'wrong doubling flag for d670 -> d220 point')
-
-!
-!--- mantle and crust: from d220 to MOHO and then to surface
-!
-  else if(r > R220) then
-    if(idoubling /= IFLAG_220_80 .and. idoubling /= IFLAG_80_MOHO .and. idoubling /= IFLAG_CRUST) &
-      call exit_MPI(myrank,'wrong doubling flag for d220 -> Moho -> surface point')
-
-  endif
-
-  endif
-
-!
-!--- inner core
-!
-  if(r >= 0.d0 .and. r <= RICB) then
-    drhodr=-2.0d0*8.8381d0*x
-    rho=13.0885d0-8.8381d0*x*x
-    vp=11.2622d0-6.3640d0*x*x
-    vs=3.6678d0-4.4475d0*x*x
-    Qmu=84.6d0
-    Qkappa=1327.7d0
-!
-!--- outer core
-!
-  else if(r > RICB .and. r <= RCMB) then
-    drhodr=-1.2638d0-2.0d0*3.6426d0*x-3.0d0*5.5281d0*x*x
-    rho=12.5815d0-1.2638d0*x-3.6426d0*x*x-5.5281d0*x*x*x
-    vp=11.0487d0-4.0362d0*x+4.8023d0*x*x-13.5732d0*x*x*x
-    vs=0.0d0
-    Qmu=0.0d0
-    Qkappa=57827.0d0
-!
-!--- D" at the base of the mantle
-!
-  else if(r > RCMB .and. r <= RTOPDDOUBLEPRIME) then
-    drhodr=-6.4761d0+2.0d0*5.5283d0*x-3.0d0*3.0807d0*x*x
-    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
-    vp=15.3891d0-5.3181d0*x+5.5242d0*x*x-2.5514d0*x*x*x
-    vs=6.9254d0+1.4672d0*x-2.0834d0*x*x+0.9783d0*x*x*x
-    Qmu=312.0d0
-    Qkappa=57827.0d0
-!
-!--- mantle: from top of D" to d670
-!
-  else if(r > RTOPDDOUBLEPRIME .and. r <= R771) then
-    drhodr=-6.4761d0+2.0d0*5.5283d0*x-3.0d0*3.0807d0*x*x
-    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
-    vp=24.9520d0-40.4673d0*x+51.4832d0*x*x-26.6419d0*x*x*x
-    vs=11.1671d0-13.7818d0*x+17.4575d0*x*x-9.2777d0*x*x*x
-    Qmu=312.0d0
-    Qkappa=57827.0d0
-  else if(r > R771 .and. r <= R670) then
-    drhodr=-6.4761d0+2.0d0*5.5283d0*x-3.0d0*3.0807d0*x*x
-    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
-    vp=29.2766d0-23.6027d0*x+5.5242d0*x*x-2.5514d0*x*x*x
-    vs=22.3459d0-17.2473d0*x-2.0834d0*x*x+0.9783d0*x*x*x
-    Qmu=312.0d0
-    Qkappa=57827.0d0
-!
-!--- mantle: above d670
-!
-  else if(r > R670 .and. r <= R600) then
-    drhodr=-1.4836d0
-    rho=5.3197d0-1.4836d0*x
-    vp=19.0957d0-9.8672d0*x
-    vs=9.9839d0-4.9324d0*x
-    Qmu=143.0d0
-    Qkappa=57827.0d0
-  else if(r > R600 .and. r <= R400) then
-    drhodr=-8.0298d0
-    rho=11.2494d0-8.0298d0*x
-    vp=39.7027d0-32.6166d0*x
-    vs=22.3512d0-18.5856d0*x
-    Qmu=143.0d0
-    Qkappa=57827.0d0
-  else if(r > R400 .and. r <= R220) then
-    drhodr=-3.8045d0
-    rho=7.1089d0-3.8045d0*x
-    vp=20.3926d0-12.2569d0*x
-    vs=8.9496d0-4.4597d0*x
-    Qmu=143.0d0
-    Qkappa=57827.0d0
-  else if(r > R220 .and. r <= R80) then
-    drhodr=0.6924d0
-    rho=2.6910d0+0.6924d0*x
-    vp=4.1875d0+3.9382d0*x
-    vs=2.1519d0+2.3481d0*x
-    Qmu=80.0d0
-    Qkappa=57827.0d0
-  else
-  if(CRUSTAL .and. .not. SUPPRESS_CRUSTAL_MESH) then
-! fill with PREM mantle and later add CRUST2.0
-    if(r > R80) then
-      drhodr=0.6924d0
-      rho=2.6910d0+0.6924d0*x
-      vp=4.1875d0+3.9382d0*x
-      vs=2.1519d0+2.3481d0*x
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-    endif
-  else
-! use PREM crust
-    if(r > R80 .and. r <= RMOHO) then
-      drhodr=0.6924d0
-      rho=2.6910d0+0.6924d0*x
-      vp=4.1875d0+3.9382d0*x
-      vs=2.1519d0+2.3481d0*x
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-
-
-    else if (SUPPRESS_CRUSTAL_MESH) then
-!! DK DK extend the Moho up to the surface instead of the crust
-      drhodr=0.6924d0
-      rho = 2.6910d0+0.6924d0*(RMOHO / R_EARTH)
-      vp = 4.1875d0+3.9382d0*(RMOHO / R_EARTH)
-      vs = 2.1519d0+2.3481d0*(RMOHO / R_EARTH)
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-
-    else if(r > RMOHO .and. r <= RMIDDLE_CRUST) then
-      drhodr=0.0d0
-      rho=2.9d0
-      vp=6.8d0
-      vs=3.9d0
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-
-! same properties everywhere in PREM crust if we decide to define only one layer in the crust
-      if(ONE_CRUST) then
-        drhodr=0.0d0
-        rho=2.6d0
-        vp=5.8d0
-        vs=3.2d0
-        Qmu=600.0d0
-        Qkappa=57827.0d0
-      endif
-
-    else if(r > RMIDDLE_CRUST .and. r <= ROCEAN) then
-      drhodr=0.0d0
-      rho=2.6d0
-      vp=5.8d0
-      vs=3.2d0
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-! for density profile for gravity, we do not check that r <= R_EARTH
-    else if(r > ROCEAN) then
-      drhodr=0.0d0
-      rho=2.6d0
-      vp=5.8d0
-      vs=3.2d0
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-
-    endif
-  endif
-  endif
-
-! non-dimensionalize
-! time scaling (s^{-1}) is done with scaleval
-  scaleval=dsqrt(PI*GRAV*RHOAV)
-  drhodr=drhodr*1000.0d0/RHOAV
-  rho=rho*1000.0d0/RHOAV
-  vp=vp*1000.0d0/(R_EARTH*scaleval)
-  vs=vs*1000.0d0/(R_EARTH*scaleval)
-
-  end subroutine prem_iso
-
-!
-!=====================================================================
-!
-
-  subroutine prem_aniso(myrank,x,rho,vpv,vph,vsv,vsh,eta_aniso,Qkappa,Qmu, &
-      idoubling,CRUSTAL,ONE_CRUST,RICB,RCMB,RTOPDDOUBLEPRIME, &
-      R600,R670,R220,R771,R400,R80,RMOHO,RMIDDLE_CRUST,ROCEAN)
-
-  implicit none
-
-  include "constants.h"
-
-! given a normalized radius x, gives the non-dimesionalized density rho,
-! speeds vp and vs, and the quality factors Qkappa and Qmu
-
-  logical CRUSTAL,ONE_CRUST
-
-  integer idoubling,myrank
-
-  double precision x,rho,Qkappa,Qmu,vpv,vph,vsv,vsh,eta_aniso,RICB,RCMB, &
-      RTOPDDOUBLEPRIME,R600,R670,R220,R771,R400,R80,RMOHO,RMIDDLE_CRUST,ROCEAN
-
-  double precision r
-  double precision scaleval
-
-! compute real physical radius in meters
-  r = x * R_EARTH
-
-! check flags to make sure we correctly honor the discontinuities
-! we use strict inequalities since r has been slighly changed in mesher
-
-!
-!--- inner core
-!
-  if(r >= 0.d0 .and. r < RICB) then
-    if(idoubling /= IFLAG_INNER_CORE_NORMAL .and. &
-       idoubling /= IFLAG_MIDDLE_CENTRAL_CUBE .and. &
-       idoubling /= IFLAG_BOTTOM_CENTRAL_CUBE .and. &
-       idoubling /= IFLAG_TOP_CENTRAL_CUBE .and. &
-       idoubling /= IFLAG_IN_FICTITIOUS_CUBE) &
-         call exit_MPI(myrank,'wrong doubling flag for inner core point')
-!
-!--- outer core
-!
-  else if(r > RICB .and. r < RCMB) then
-    if(idoubling /= IFLAG_OUTER_CORE_NORMAL) &
-      call exit_MPI(myrank,'wrong doubling flag for outer core point')
-!
-!--- D" at the base of the mantle
-!
-  else if(r > RCMB .and. r < RTOPDDOUBLEPRIME) then
-    if(idoubling /= IFLAG_MANTLE_NORMAL) &
-      call exit_MPI(myrank,'wrong doubling flag for D" point')
-!
-!--- mantle: from top of D" to d670
-!
-  else if(r > RTOPDDOUBLEPRIME .and. r < R670) then
-    if(idoubling /= IFLAG_MANTLE_NORMAL) &
-      call exit_MPI(myrank,'wrong doubling flag for top D" -> d670 point')
-
-!
-!--- mantle: from d670 to d220
-!
-  else if(r > R670 .and. r < R220) then
-    if(idoubling /= IFLAG_670_220) &
-      call exit_MPI(myrank,'wrong doubling flag for d670 -> d220 point')
-
-!
-!--- mantle and crust: from d220 to MOHO and then to surface
-!
-  else if(r > R220) then
-    if(idoubling /= IFLAG_220_80 .and. idoubling /= IFLAG_80_MOHO .and. idoubling /= IFLAG_CRUST) &
-      call exit_MPI(myrank,'wrong doubling flag for d220 -> Moho -> surface point')
-
-  endif
-
-! no anisotropy by default
-  eta_aniso = 1.d0
-
-!
-!--- inner core
-!
-  if(r >= 0.d0 .and. r <= RICB) then
-    rho=13.0885d0-8.8381d0*x*x
-    vpv=11.2622d0-6.3640d0*x*x
-    vsv=3.6678d0-4.4475d0*x*x
-    vph=vpv
-    vsh=vsv
-    Qmu=84.6d0
-    Qkappa=1327.7d0
-!
-!--- outer core
-!
-  else if(r > RICB .and. r <= RCMB) then
-    rho=12.5815d0-1.2638d0*x-3.6426d0*x*x-5.5281d0*x*x*x
-    vpv=11.0487d0-4.0362d0*x+4.8023d0*x*x-13.5732d0*x*x*x
-    vsv=0.0d0
-    vph=vpv
-    vsh=vsv
-    Qmu=0.0d0
-    Qkappa=57827.0d0
-!
-!--- D" at the base of the mantle
-!
-  else if(r > RCMB .and. r <= RTOPDDOUBLEPRIME) then
-    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
-    vpv=15.3891d0-5.3181d0*x+5.5242d0*x*x-2.5514d0*x*x*x
-    vsv=6.9254d0+1.4672d0*x-2.0834d0*x*x+0.9783d0*x*x*x
-    vph=vpv
-    vsh=vsv
-    Qmu=312.0d0
-    Qkappa=57827.0d0
-!
-!--- mantle: from top of D" to d670
-!
-  else if(r > RTOPDDOUBLEPRIME .and. r <= R771) then
-    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
-    vpv=24.9520d0-40.4673d0*x+51.4832d0*x*x-26.6419d0*x*x*x
-    vsv=11.1671d0-13.7818d0*x+17.4575d0*x*x-9.2777d0*x*x*x
-    vph=vpv
-    vsh=vsv
-    Qmu=312.0d0
-    Qkappa=57827.0d0
-  else if(r > R771 .and. r <= R670) then
-    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
-    vpv=29.2766d0-23.6027d0*x+5.5242d0*x*x-2.5514d0*x*x*x
-    vsv=22.3459d0-17.2473d0*x-2.0834d0*x*x+0.9783d0*x*x*x
-    vph=vpv
-    vsh=vsv
-    Qmu=312.0d0
-    Qkappa=57827.0d0
-!
-!--- mantle: above d670
-!
-  else if(r > R670 .and. r <= R600) then
-    rho=5.3197d0-1.4836d0*x
-    vpv=19.0957d0-9.8672d0*x
-    vsv=9.9839d0-4.9324d0*x
-    vph=vpv
-    vsh=vsv
-    Qmu=143.0d0
-    Qkappa=57827.0d0
-  else if(r > R600 .and. r <= R400) then
-    rho=11.2494d0-8.0298d0*x
-    vpv=39.7027d0-32.6166d0*x
-    vsv=22.3512d0-18.5856d0*x
-    vph=vpv
-    vsh=vsv
-    Qmu=143.0d0
-    Qkappa=57827.0d0
-  else if(r > R400 .and. r <= R220) then
-    rho=7.1089d0-3.8045d0*x
-    vpv=20.3926d0-12.2569d0*x
-    vsv=8.9496d0-4.4597d0*x
-    vph=vpv
-    vsh=vsv
-    Qmu=143.0d0
-    Qkappa=57827.0d0
-  else if(r > R220 .and. r <= R80) then
-
-! anisotropy in PREM only above 220 km
-
-    rho=2.6910d0+0.6924d0*x
-    vpv=0.8317d0+7.2180d0*x
-    vph=3.5908d0+4.6172d0*x
-    vsv=5.8582d0-1.4678d0*x
-    vsh=-1.0839d0+5.7176d0*x
-    eta_aniso=3.3687d0-2.4778d0*x
-    Qmu=80.0d0
-    Qkappa=57827.0d0
-
-  else
-  if(CRUSTAL) then
-! fill with PREM mantle and later add CRUST2.0
-    if(r > R80) then
-      rho=2.6910d0+0.6924d0*x
-      vpv=0.8317d0+7.2180d0*x
-      vph=3.5908d0+4.6172d0*x
-      vsv=5.8582d0-1.4678d0*x
-      vsh=-1.0839d0+5.7176d0*x
-      eta_aniso=3.3687d0-2.4778d0*x
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-    endif
-  else
-! use PREM crust
-    if(r > R80 .and. r <= RMOHO) then
-
-! anisotropy in PREM only above 220 km
-
-      rho=2.6910d0+0.6924d0*x
-      vpv=0.8317d0+7.2180d0*x
-      vph=3.5908d0+4.6172d0*x
-      vsv=5.8582d0-1.4678d0*x
-      vsh=-1.0839d0+5.7176d0*x
-      eta_aniso=3.3687d0-2.4778d0*x
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-
-! no anisotropy in the crust in PREM
-
-    else if(r > RMOHO .and. r <= RMIDDLE_CRUST) then
-      rho=2.9d0
-      vpv=6.8d0
-      vsv=3.9d0
-      vph=vpv
-      vsh=vsv
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-
-! same properties everywhere in PREM crust (only one layer in the crust)
-      if(ONE_CRUST) then
-        rho=2.6d0
-        vpv=5.8d0
-        vsv=3.2d0
-        vph=vpv
-        vsh=vsv
-        Qmu=600.0d0
-        Qkappa=57827.0d0
-      endif
-
-    else if(r > RMIDDLE_CRUST .and. r <= ROCEAN) then
-      rho=2.6d0
-      vpv=5.8d0
-      vsv=3.2d0
-      vph=vpv
-      vsh=vsv
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-    else if(r > ROCEAN) then
-      rho=2.6d0
-      vpv=5.8d0
-      vsv=3.2d0
-      vph=vpv
-      vsh=vsv
-      Qmu=600.0d0
-      Qkappa=57827.0d0
-    endif
-  endif
-  endif
-
-! non-dimensionalize
-! time scaling (s^{-1}) is done with scaleval
-! do not scale anisotropy parameter eta_aniso, which is dimensionless
-  scaleval=dsqrt(PI*GRAV*RHOAV)
-  rho=rho*1000.0d0/RHOAV
-  vpv=vpv*1000.0d0/(R_EARTH*scaleval)
-  vsv=vsv*1000.0d0/(R_EARTH*scaleval)
-  vph=vph*1000.0d0/(R_EARTH*scaleval)
-  vsh=vsh*1000.0d0/(R_EARTH*scaleval)
-
-  end subroutine prem_aniso
-
-!
-!=====================================================================
-!
-
-  subroutine prem_display_outer_core(myrank,x,rho,vp,vs,Qkappa,Qmu,idoubling)
-
-! routine used for AVS or DX display of stability condition
-! and number of points per wavelength only in the fluid outer core
-
-  implicit none
-
-  include "constants.h"
-
-! given a normalized radius x, gives the non-dimesionalized density rho,
-! speeds vp and vs, and the quality factors Qkappa and Qmu
-
-  integer idoubling,myrank
-  double precision x,rho,vp,vs,Qkappa,Qmu
-
-  double precision scaleval
-
-  if(idoubling /= IFLAG_OUTER_CORE_NORMAL) call exit_MPI(myrank,'wrong doubling flag for outer core point')
-
-!
-!--- outer core
-!
-  rho=12.5815d0-1.2638d0*x-3.6426d0*x*x-5.5281d0*x*x*x
-  vp=11.0487d0-4.0362d0*x+4.8023d0*x*x-13.5732d0*x*x*x
-  vs=0.0d0
-  Qmu=0.0d0
-  Qkappa=57827.0d0
-
-! non-dimensionalize
-! time scaling (s^{-1}) is done with scaleval
-  scaleval = dsqrt(PI*GRAV*RHOAV)
-  rho = rho*1000.0d0/RHOAV
-  vp = vp*1000.0d0/(R_EARTH*scaleval)
-  vs = vs*1000.0d0/(R_EARTH*scaleval)
-
-  end subroutine prem_display_outer_core
-
-!
-!=====================================================================
-!
-
-  subroutine prem_density(x,rho,ONE_CRUST,RICB,RCMB,RTOPDDOUBLEPRIME, &
-      R600,R670,R220,R771,R400,R80,RMOHO,RMIDDLE_CRUST,ROCEAN)
-
-  implicit none
-
-  include "constants.h"
-
-  double precision x,rho,RICB,RCMB,RTOPDDOUBLEPRIME, &
-      R600,R670,R220,R771,R400,R80,RMOHO,RMIDDLE_CRUST,ROCEAN
-
-  logical ONE_CRUST
-
-  double precision r
-
-  r = x * R_EARTH
-
-  if(r <= RICB) then
-    rho=13.0885d0-8.8381d0*x*x
-  else if(r > RICB .and. r <= RCMB) then
-    rho=12.5815d0-1.2638d0*x-3.6426d0*x*x-5.5281d0*x*x*x
-  else if(r > RCMB .and. r <= RTOPDDOUBLEPRIME) then
-    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
-  else if(r > RTOPDDOUBLEPRIME .and. r <= R771) then
-    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
-  else if(r > R771 .and. r <= R670) then
-    rho=7.9565d0-6.4761d0*x+5.5283d0*x*x-3.0807d0*x*x*x
-  else if(r > R670 .and. r <= R600) then
-    rho=5.3197d0-1.4836d0*x
-  else if(r > R600 .and. r <= R400) then
-    rho=11.2494d0-8.0298d0*x
-  else if(r > R400 .and. r <= R220) then
-    rho=7.1089d0-3.8045d0*x
-  else if(r > R220 .and. r <= R80) then
-    rho=2.6910d0+0.6924d0*x
-  else
-    if(r > R80 .and. r <= RMOHO) then
-      rho=2.6910d0+0.6924d0*x
-    else if(r > RMOHO .and. r <= RMIDDLE_CRUST) then
-      if(ONE_CRUST) then
-        rho=2.6d0
-      else
-        rho=2.9d0
-      endif
-    else if(r > RMIDDLE_CRUST .and. r <= ROCEAN) then
-      rho=2.6d0
-    else if(r > ROCEAN) then
-      rho=2.6d0
-    endif
-  endif
-
-  rho=rho*1000.0d0/RHOAV
-
-  end subroutine prem_density
-

Deleted: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_ref.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/model_ref.f90	2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/model_ref.f90	2008-11-08 00:24:07 UTC (rev 13275)
@@ -1,7371 +0,0 @@
-!=====================================================================
-!
-!          S p e c f e m 3 D  G l o b e  V e r s i o n  4 . 0
-!          --------------------------------------------------
-!
-!          Main authors: Dimitri Komatitsch and Jeroen Tromp
-!    Seismological Laboratory, California Institute of Technology, USA
-!             and University of Pau / CNRS / INRIA, France
-! (c) California Institute of Technology and University of Pau / CNRS / INRIA
-!                            February 2008
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-
-  subroutine model_ref(x,rho,vpv,vph,vsv,vsh,eta,Qkappa,Qmu,iregion_code,CRUSTAL,Mref_V)
-
-  implicit none
-
-  include "constants.h"
-
-! model_ref_variables
-  type model_ref_variables
-    sequence
-      double precision, dimension(NR_REF) :: radius_ref
-      double precision, dimension(NR_REF) :: density_ref
-      double precision, dimension(NR_REF) :: vpv_ref
-      double precision, dimension(NR_REF) :: vph_ref
-      double precision, dimension(NR_REF) :: vsv_ref
-      double precision, dimension(NR_REF) :: vsh_ref
-      double precision, dimension(NR_REF) :: eta_ref
-      double precision, dimension(NR_REF) :: Qkappa_ref
-      double precision, dimension(NR_REF) :: Qmu_ref
-  end type model_ref_variables
-
-  type (model_ref_variables) Mref_V
-! model_ref_variables
-
-! input:
-! dimensionless radius x
-
-! output: non-dimensionalized
-! mass density rho
-! compressional wave speed vpv
-! compressional wave speed vph
-! shear wave speed vsv
-! shear wave speed vsh
-! dimensionless parameter eta
-! shear quality factor Qmu
-! bulk quality factor Qkappa
-
-  integer iregion_code
-
-  double precision x,rho,vpv,vph,vsv,vsh,eta,Qmu,Qkappa
-
-  integer i
-
-  double precision r,frac,scaleval
-  logical CRUSTAL
-
-! compute real physical radius in meters
-  r = x * R_EARTH
-
-  i = 1
-  do while(r >= Mref_V%radius_ref(i) .and. i /= NR_REF)
-    i = i + 1
-  enddo
-
-! make sure we stay in the right region
-  if(iregion_code == IREGION_INNER_CORE .and. i > 180) i = 180
-
-  if(iregion_code == IREGION_OUTER_CORE .and. i < 182) i = 182
-  if(iregion_code == IREGION_OUTER_CORE .and. i > 358) i = 358
-
-  if(iregion_code == IREGION_CRUST_MANTLE .and. i < 360) i = 360
-  if(CRUSTAL .and. i > 717) i = 717
-
-  if(i == 1) then
-    rho = Mref_V%density_ref(i)
-    vpv = Mref_V%vpv_ref(i)
-    vph = Mref_V%vph_ref(i)
-    vsv = Mref_V%vsv_ref(i)
-    vsh = Mref_V%vsh_ref(i)
-    eta = Mref_V%eta_ref(i)
-    Qkappa = Mref_V%Qkappa_ref(i)
-    Qmu = Mref_V%Qmu_ref(i)
-  else
-
-! interpolate from radius_ref(i-1) to r using the values at i-1 and i
-    frac = (r-Mref_V%radius_ref(i-1))/(Mref_V%radius_ref(i)-Mref_V%radius_ref(i-1))
-
-    rho = Mref_V%density_ref(i-1) + frac * (Mref_V%density_ref(i)-Mref_V%density_ref(i-1))
-    vpv = Mref_V%vpv_ref(i-1) + frac * (Mref_V%vpv_ref(i)-Mref_V%vpv_ref(i-1))
-    vph = Mref_V%vph_ref(i-1) + frac * (Mref_V%vph_ref(i)-Mref_V%vph_ref(i-1))
-    vsv = Mref_V%vsv_ref(i-1) + frac * (Mref_V%vsv_ref(i)-Mref_V%vsv_ref(i-1))
-    vsh = Mref_V%vsh_ref(i-1) + frac * (Mref_V%vsh_ref(i)-Mref_V%vsh_ref(i-1))
-    eta = Mref_V%eta_ref(i-1) + frac * (Mref_V%eta_ref(i)-Mref_V%eta_ref(i-1))
-    Qkappa = Mref_V%Qkappa_ref(i-1) + frac * (Mref_V%Qkappa_ref(i)-Mref_V%Qkappa_ref(i-1))
-    Qmu = Mref_V%Qmu_ref(i-1) + frac * (Mref_V%Qmu_ref(i)-Mref_V%Qmu_ref(i-1))
-
-  endif
-
-! make sure Vs is zero in the outer core even if roundoff errors on depth
-! also set fictitious attenuation to a very high value (attenuation is not used in the fluid)
-  if(iregion_code == IREGION_OUTER_CORE) then
-    vsv = 0.d0
-    vsh = 0.d0
-    Qkappa = 3000.d0
-    Qmu = 3000.d0
-  endif
-
-! non-dimensionalize
-! time scaling (s^{-1}) is done with scaleval
-  scaleval=dsqrt(PI*GRAV*RHOAV)
-  rho=rho/RHOAV
-  vpv=vpv/(R_EARTH*scaleval)
-  vph=vph/(R_EARTH*scaleval)
-  vsv=vsv/(R_EARTH*scaleval)
-  vsh=vsh/(R_EARTH*scaleval)
-
-  end subroutine model_ref
-
-!-------------------
-
-  subroutine define_model_ref(Mref_V)
-
-  implicit none
-  include "constants.h"
-
-! model_ref_variables
-  type model_ref_variables
-    sequence
-      double precision, dimension(NR_REF) :: radius_ref
-      double precision, dimension(NR_REF) :: density_ref
-      double precision, dimension(NR_REF) :: vpv_ref
-      double precision, dimension(NR_REF) :: vph_ref
-      double precision, dimension(NR_REF) :: vsv_ref
-      double precision, dimension(NR_REF) :: vsh_ref
-      double precision, dimension(NR_REF) :: eta_ref
-      double precision, dimension(NR_REF) :: Qkappa_ref
-      double precision, dimension(NR_REF) :: Qmu_ref
-  end type model_ref_variables
-
-  type (model_ref_variables) Mref_V
-! model_ref_variables
-
-! define the 1D REF model of Kustowski et al. (2007)
-
- Mref_V%radius_ref( 1 : 30 ) = (/ &
- 0.000000000000000E+000 , &
- 6824.00000000000 , &
- 13648.0000000000 , &
- 20472.0000000000 , &
- 27296.0000000000 , &
- 34120.0000000000 , &
- 40944.0000000000 , &
- 47768.0000000000 , &
- 54592.0000000000 , &
- 61416.0000000000 , &
- 68240.0000000000 , &
- 75064.0000000000 , &
- 81888.0000000000 , &
- 88712.0000000000 , &
- 95536.0000000000 , &
- 102360.000000000 , &
- 109184.000000000 , &
- 116007.000000000 , &
- 122831.000000000 , &
- 129655.000000000 , &
- 136479.000000000 , &
- 143303.000000000 , &
- 150127.000000000 , &
- 156951.000000000 , &
- 163775.000000000 , &
- 170599.000000000 , &
- 177423.000000000 , &
- 184247.000000000 , &
- 191071.000000000 , &
- 197895.000000000 /)
-
- Mref_V%radius_ref( 31 : 60 ) = (/ &
- 204719.000000000 , &
- 211543.000000000 , &
- 218367.000000000 , &
- 225191.000000000 , &
- 232015.000000000 , &
- 238839.000000000 , &
- 245663.000000000 , &
- 252487.000000000 , &
- 259311.000000000 , &
- 266135.000000000 , &
- 272959.000000000 , &
- 279783.000000000 , &
- 286607.000000000 , &
- 293431.000000000 , &
- 300255.000000000 , &
- 307079.000000000 , &
- 313903.000000000 , &
- 320727.000000000 , &
- 327551.000000000 , &
- 334375.000000000 , &
- 341199.000000000 , &
- 348022.000000000 , &
- 354846.000000000 , &
- 361670.000000000 , &
- 368494.000000000 , &
- 375318.000000000 , &
- 382142.000000000 , &
- 388966.000000000 , &
- 395790.000000000 , &
- 402614.000000000 /)
-
- Mref_V%radius_ref( 61 : 90 ) = (/ &
- 409438.000000000 , &
- 416262.000000000 , &
- 423086.000000000 , &
- 429910.000000000 , &
- 436734.000000000 , &
- 443558.000000000 , &
- 450382.000000000 , &
- 457206.000000000 , &
- 464030.000000000 , &
- 470854.000000000 , &
- 477678.000000000 , &
- 484502.000000000 , &
- 491326.000000000 , &
- 498150.000000000 , &
- 504974.000000000 , &
- 511798.000000000 , &
- 518622.000000000 , &
- 525446.000000000 , &
- 532270.000000000 , &
- 539094.000000000 , &
- 545918.000000000 , &
- 552742.000000000 , &
- 559566.000000000 , &
- 566390.000000000 , &
- 573214.000000000 , &
- 580037.000000000 , &
- 586861.000000000 , &
- 593685.000000000 , &
- 600509.000000000 , &
- 607333.000000000 /)
-
- Mref_V%radius_ref( 91 : 120 ) = (/ &
- 614157.000000000 , &
- 620981.000000000 , &
- 627805.000000000 , &
- 634629.000000000 , &
- 641453.000000000 , &
- 648277.000000000 , &
- 655101.000000000 , &
- 661925.000000000 , &
- 668749.000000000 , &
- 675573.000000000 , &
- 682397.000000000 , &
- 689221.000000000 , &
- 696045.000000000 , &
- 702869.000000000 , &
- 709693.000000000 , &
- 716517.000000000 , &
- 723341.000000000 , &
- 730165.000000000 , &
- 736989.000000000 , &
- 743813.000000000 , &
- 750637.000000000 , &
- 757461.000000000 , &
- 764285.000000000 , &
- 771109.000000000 , &
- 777933.000000000 , &
- 784757.000000000 , &
- 791581.000000000 , &
- 798405.000000000 , &
- 805229.000000000 , &
- 812052.000000000 /)
-
- Mref_V%radius_ref( 121 : 150 ) = (/ &
- 818876.000000000 , &
- 825700.000000000 , &
- 832524.000000000 , &
- 839348.000000000 , &
- 846172.000000000 , &
- 852996.000000000 , &
- 859820.000000000 , &
- 866644.000000000 , &
- 873468.000000000 , &
- 880292.000000000 , &
- 887116.000000000 , &
- 893940.000000000 , &
- 900764.000000000 , &
- 907588.000000000 , &
- 914412.000000000 , &
- 921236.000000000 , &
- 928060.000000000 , &
- 934884.000000000 , &
- 941708.000000000 , &
- 948532.000000000 , &
- 955356.000000000 , &
- 962180.000000000 , &
- 969004.000000000 , &
- 975828.000000000 , &
- 982652.000000000 , &
- 989476.000000000 , &
- 996300.000000000 , &
- 1003124.00000000 , &
- 1009948.00000000 , &
- 1016772.00000000 /)
-
- Mref_V%radius_ref( 151 : 180 ) = (/ &
- 1023596.00000000 , &
- 1030420.00000000 , &
- 1037244.00000000 , &
- 1044067.00000000 , &
- 1050891.00000000 , &
- 1057715.00000000 , &
- 1064539.00000000 , &
- 1071363.00000000 , &
- 1078187.00000000 , &
- 1085011.00000000 , &
- 1091835.00000000 , &
- 1098659.00000000 , &
- 1105483.00000000 , &
- 1112307.00000000 , &
- 1119131.00000000 , &
- 1125955.00000000 , &
- 1132779.00000000 , &
- 1139603.00000000 , &
- 1146427.00000000 , &
- 1153251.00000000 , &
- 1160075.00000000 , &
- 1166899.00000000 , &
- 1173723.00000000 , &
- 1180547.00000000 , &
- 1187371.00000000 , &
- 1194195.00000000 , &
- 1201019.00000000 , &
- 1207843.00000000 , &
- 1214667.00000000 , &
- 1221491.00000000 /)
-
- Mref_V%radius_ref( 181 : 210 ) = (/ &
- 1221491.00000000 , &
- 1234250.00000000 , &
- 1247010.00000000 , &
- 1259770.00000000 , &
- 1272530.00000000 , &
- 1285289.00000000 , &
- 1298049.00000000 , &
- 1310809.00000000 , &
- 1323568.00000000 , &
- 1336328.00000000 , &
- 1349088.00000000 , &
- 1361847.00000000 , &
- 1374607.00000000 , &
- 1387367.00000000 , &
- 1400127.00000000 , &
- 1412886.00000000 , &
- 1425646.00000000 , &
- 1438406.00000000 , &
- 1451165.00000000 , &
- 1463925.00000000 , &
- 1476685.00000000 , &
- 1489444.00000000 , &
- 1502204.00000000 , &
- 1514964.00000000 , &
- 1527724.00000000 , &
- 1540483.00000000 , &
- 1553243.00000000 , &
- 1566003.00000000 , &
- 1578762.00000000 , &
- 1591522.00000000 /)
-
- Mref_V%radius_ref( 211 : 240 ) = (/ &
- 1604282.00000000 , &
- 1617041.00000000 , &
- 1629801.00000000 , &
- 1642561.00000000 , &
- 1655321.00000000 , &
- 1668080.00000000 , &
- 1680840.00000000 , &
- 1693600.00000000 , &
- 1706359.00000000 , &
- 1719119.00000000 , &
- 1731879.00000000 , &
- 1744638.00000000 , &
- 1757398.00000000 , &
- 1770158.00000000 , &
- 1782918.00000000 , &
- 1795677.00000000 , &
- 1808437.00000000 , &
- 1821197.00000000 , &
- 1833956.00000000 , &
- 1846716.00000000 , &
- 1859476.00000000 , &
- 1872235.00000000 , &
- 1884995.00000000 , &
- 1897755.00000000 , &
- 1910515.00000000 , &
- 1923274.00000000 , &
- 1936034.00000000 , &
- 1948794.00000000 , &
- 1961553.00000000 , &
- 1974313.00000000 /)
-
- Mref_V%radius_ref( 241 : 270 ) = (/ &
- 1987073.00000000 , &
- 1999832.00000000 , &
- 2012592.00000000 , &
- 2025352.00000000 , &
- 2038112.00000000 , &
- 2050871.00000000 , &
- 2063631.00000000 , &
- 2076391.00000000 , &
- 2089150.00000000 , &
- 2101910.00000000 , &
- 2114670.00000000 , &
- 2127429.00000000 , &
- 2140189.00000000 , &
- 2152949.00000000 , &
- 2165709.00000000 , &
- 2178468.00000000 , &
- 2191228.00000000 , &
- 2203988.00000000 , &
- 2216747.00000000 , &
- 2229507.00000000 , &
- 2242267.00000000 , &
- 2255026.00000000 , &
- 2267786.00000000 , &
- 2280546.00000000 , &
- 2293306.00000000 , &
- 2306065.00000000 , &
- 2318825.00000000 , &
- 2331585.00000000 , &
- 2344344.00000000 , &
- 2357104.00000000 /)
-
- Mref_V%radius_ref( 271 : 300 ) = (/ &
- 2369864.00000000 , &
- 2382623.00000000 , &
- 2395383.00000000 , &
- 2408143.00000000 , &
- 2420903.00000000 , &
- 2433662.00000000 , &
- 2446422.00000000 , &
- 2459182.00000000 , &
- 2471941.00000000 , &
- 2484701.00000000 , &
- 2497461.00000000 , &
- 2510220.00000000 , &
- 2522980.00000000 , &
- 2535740.00000000 , &
- 2548500.00000000 , &
- 2561259.00000000 , &
- 2574019.00000000 , &
- 2586779.00000000 , &
- 2599538.00000000 , &
- 2612298.00000000 , &
- 2625058.00000000 , &
- 2637818.00000000 , &
- 2650577.00000000 , &
- 2663337.00000000 , &
- 2676097.00000000 , &
- 2688856.00000000 , &
- 2701616.00000000 , &
- 2714376.00000000 , &
- 2727135.00000000 , &
- 2739895.00000000 /)
-
- Mref_V%radius_ref( 301 : 330 ) = (/ &
- 2752655.00000000 , &
- 2765415.00000000 , &
- 2778174.00000000 , &
- 2790934.00000000 , &
- 2803694.00000000 , &
- 2816453.00000000 , &
- 2829213.00000000 , &
- 2841973.00000000 , &
- 2854732.00000000 , &
- 2867492.00000000 , &
- 2880252.00000000 , &
- 2893012.00000000 , &
- 2905771.00000000 , &
- 2918531.00000000 , &
- 2931291.00000000 , &
- 2944050.00000000 , &
- 2956810.00000000 , &
- 2969570.00000000 , &
- 2982329.00000000 , &
- 2995089.00000000 , &
- 3007849.00000000 , &
- 3020609.00000000 , &
- 3033368.00000000 , &
- 3046128.00000000 , &
- 3058888.00000000 , &
- 3071647.00000000 , &
- 3084407.00000000 , &
- 3097167.00000000 , &
- 3109926.00000000 , &
- 3122686.00000000 /)
-
- Mref_V%radius_ref( 331 : 360 ) = (/ &
- 3135446.00000000 , &
- 3148206.00000000 , &
- 3160965.00000000 , &
- 3173725.00000000 , &
- 3186485.00000000 , &
- 3199244.00000000 , &
- 3212004.00000000 , &
- 3224764.00000000 , &
- 3237523.00000000 , &
- 3250283.00000000 , &
- 3263043.00000000 , &
- 3275803.00000000 , &
- 3288562.00000000 , &
- 3301322.00000000 , &
- 3314082.00000000 , &
- 3326841.00000000 , &
- 3339601.00000000 , &
- 3352361.00000000 , &
- 3365120.00000000 , &
- 3377880.00000000 , &
- 3390640.00000000 , &
- 3403400.00000000 , &
- 3416159.00000000 , &
- 3428919.00000000 , &
- 3441679.00000000 , &
- 3454438.00000000 , &
- 3467198.00000000 , &
- 3479958.00000000 , &
- 3479958.00000000 , &
- 3489335.00000000 /)
-
- Mref_V%radius_ref( 361 : 390 ) = (/ &
- 3498713.00000000 , &
- 3508091.00000000 , &
- 3517468.00000000 , &
- 3526846.00000000 , &
- 3536224.00000000 , &
- 3545601.00000000 , &
- 3554979.00000000 , &
- 3564357.00000000 , &
- 3573734.00000000 , &
- 3583112.00000000 , &
- 3592489.00000000 , &
- 3601867.00000000 , &
- 3611245.00000000 , &
- 3620622.00000000 , &
- 3630000.00000000 , &
- 3630000.00000000 , &
- 3639471.00000000 , &
- 3648942.00000000 , &
- 3658413.00000000 , &
- 3667885.00000000 , &
- 3677356.00000000 , &
- 3686827.00000000 , &
- 3696298.00000000 , &
- 3705769.00000000 , &
- 3715240.00000000 , &
- 3724712.00000000 , &
- 3734183.00000000 , &
- 3743654.00000000 , &
- 3753125.00000000 , &
- 3762596.00000000 /)
-
- Mref_V%radius_ref( 391 : 420 ) = (/ &
- 3772067.00000000 , &
- 3781538.00000000 , &
- 3791010.00000000 , &
- 3800481.00000000 , &
- 3809952.00000000 , &
- 3819423.00000000 , &
- 3828894.00000000 , &
- 3838365.00000000 , &
- 3847837.00000000 , &
- 3857308.00000000 , &
- 3866779.00000000 , &
- 3876250.00000000 , &
- 3885721.00000000 , &
- 3895192.00000000 , &
- 3904663.00000000 , &
- 3914135.00000000 , &
- 3923606.00000000 , &
- 3933077.00000000 , &
- 3942548.00000000 , &
- 3952019.00000000 , &
- 3961490.00000000 , &
- 3970962.00000000 , &
- 3980433.00000000 , &
- 3989904.00000000 , &
- 3999375.00000000 , &
- 4008846.00000000 , &
- 4018317.00000000 , &
- 4027788.00000000 , &
- 4037260.00000000 , &
- 4046731.00000000 /)
-
- Mref_V%radius_ref( 421 : 450 ) = (/ &
- 4056202.00000000 , &
- 4065673.00000000 , &
- 4075144.00000000 , &
- 4084615.00000000 , &
- 4094087.00000000 , &
- 4103558.00000000 , &
- 4113029.00000000 , &
- 4122500.00000000 , &
- 4131971.00000000 , &
- 4141442.00000000 , &
- 4150913.00000000 , &
- 4160385.00000000 , &
- 4169856.00000000 , &
- 4179327.00000000 , &
- 4188798.00000000 , &
- 4198269.00000000 , &
- 4207740.00000000 , &
- 4217212.00000000 , &
- 4226683.00000000 , &
- 4236154.00000000 , &
- 4245625.00000000 , &
- 4255096.00000000 , &
- 4264567.00000000 , &
- 4274038.00000000 , &
- 4283510.00000000 , &
- 4292981.00000000 , &
- 4302452.00000000 , &
- 4311923.00000000 , &
- 4321394.00000000 , &
- 4330865.00000000 /)
-
- Mref_V%radius_ref( 451 : 480 ) = (/ &
- 4340337.00000000 , &
- 4349808.00000000 , &
- 4359279.00000000 , &
- 4368750.00000000 , &
- 4378221.00000000 , &
- 4387692.00000000 , &
- 4397163.00000000 , &
- 4406635.00000000 , &
- 4416106.00000000 , &
- 4425577.00000000 , &
- 4435048.00000000 , &
- 4444519.00000000 , &
- 4453990.00000000 , &
- 4463462.00000000 , &
- 4472933.00000000 , &
- 4482404.00000000 , &
- 4491875.00000000 , &
- 4501346.00000000 , &
- 4510817.00000000 , &
- 4520288.00000000 , &
- 4529760.00000000 , &
- 4539231.00000000 , &
- 4548702.00000000 , &
- 4558173.00000000 , &
- 4567644.00000000 , &
- 4577115.00000000 , &
- 4586587.00000000 , &
- 4596058.00000000 , &
- 4605529.00000000 , &
- 4615000.00000000 /)
-
- Mref_V%radius_ref( 481 : 510 ) = (/ &
- 4624471.00000000 , &
- 4633942.00000000 , &
- 4643413.00000000 , &
- 4652885.00000000 , &
- 4662356.00000000 , &
- 4671827.00000000 , &
- 4681298.00000000 , &
- 4690769.00000000 , &
- 4700240.00000000 , &
- 4709712.00000000 , &
- 4719183.00000000 , &
- 4728654.00000000 , &
- 4738125.00000000 , &
- 4747596.00000000 , &
- 4757067.00000000 , &
- 4766538.00000000 , &
- 4776010.00000000 , &
- 4785481.00000000 , &
- 4794952.00000000 , &
- 4804423.00000000 , &
- 4813894.00000000 , &
- 4823365.00000000 , &
- 4832837.00000000 , &
- 4842308.00000000 , &
- 4851779.00000000 , &
- 4861250.00000000 , &
- 4870721.00000000 , &
- 4880192.00000000 , &
- 4889663.00000000 , &
- 4899135.00000000 /)
-
- Mref_V%radius_ref( 511 : 540 ) = (/ &
- 4908606.00000000 , &
- 4918077.00000000 , &
- 4927548.00000000 , &
- 4937019.00000000 , &
- 4946490.00000000 , &
- 4955962.00000000 , &
- 4965433.00000000 , &
- 4974904.00000000 , &
- 4984375.00000000 , &
- 4993846.00000000 , &
- 5003317.00000000 , &
- 5012788.00000000 , &
- 5022260.00000000 , &
- 5031731.00000000 , &
- 5041202.00000000 , &
- 5050673.00000000 , &
- 5060144.00000000 , &
- 5069615.00000000 , &
- 5079087.00000000 , &
- 5088558.00000000 , &
- 5098029.00000000 , &
- 5107500.00000000 , &
- 5116971.00000000 , &
- 5126442.00000000 , &
- 5135913.00000000 , &
- 5145385.00000000 , &
- 5154856.00000000 , &
- 5164327.00000000 , &
- 5173798.00000000 , &
- 5183269.00000000 /)
-
- Mref_V%radius_ref( 541 : 570 ) = (/ &
- 5192740.00000000 , &
- 5202212.00000000 , &
- 5211683.00000000 , &
- 5221154.00000000 , &
- 5230625.00000000 , &
- 5240096.00000000 , &
- 5249567.00000000 , &
- 5259038.00000000 , &
- 5268510.00000000 , &
- 5277981.00000000 , &
- 5287452.00000000 , &
- 5296923.00000000 , &
- 5306394.00000000 , &
- 5315865.00000000 , &
- 5325337.00000000 , &
- 5334808.00000000 , &
- 5344279.00000000 , &
- 5353750.00000000 , &
- 5363221.00000000 , &
- 5372692.00000000 , &
- 5382163.00000000 , &
- 5391635.00000000 , &
- 5401106.00000000 , &
- 5410577.00000000 , &
- 5420048.00000000 , &
- 5429519.00000000 , &
- 5438990.00000000 , &
- 5448462.00000000 , &
- 5457933.00000000 , &
- 5467404.00000000 /)
-
- Mref_V%radius_ref( 571 : 600 ) = (/ &
- 5476875.00000000 , &
- 5486346.00000000 , &
- 5495817.00000000 , &
- 5505288.00000000 , &
- 5514760.00000000 , &
- 5524231.00000000 , &
- 5533702.00000000 , &
- 5543173.00000000 , &
- 5552644.00000000 , &
- 5562115.00000000 , &
- 5571587.00000000 , &
- 5581058.00000000 , &
- 5590529.00000000 , &
- 5600000.00000000 , &
- 5600000.00000000 , &
- 5607562.00000000 , &
- 5615125.00000000 , &
- 5622688.00000000 , &
- 5630250.00000000 , &
- 5637812.00000000 , &
- 5645375.00000000 , &
- 5652938.00000000 , &
- 5660500.00000000 , &
- 5668062.00000000 , &
- 5675625.00000000 , &
- 5683188.00000000 , &
- 5690750.00000000 , &
- 5698312.00000000 , &
- 5705875.00000000 , &
- 5713438.00000000 /)
-
- Mref_V%radius_ref( 601 : 630 ) = (/ &
- 5721000.00000000 , &
- 5721000.00000000 , &
- 5724572.00000000 , &
- 5728143.00000000 , &
- 5731714.00000000 , &
- 5735286.00000000 , &
- 5738857.00000000 , &
- 5742428.00000000 , &
- 5746000.00000000 , &
- 5749572.00000000 , &
- 5753143.00000000 , &
- 5756714.00000000 , &
- 5760286.00000000 , &
- 5763857.00000000 , &
- 5767428.00000000 , &
- 5771000.00000000 , &
- 5771000.00000000 , &
- 5777334.00000000 , &
- 5783666.00000000 , &
- 5790000.00000000 , &
- 5796334.00000000 , &
- 5802666.00000000 , &
- 5809000.00000000 , &
- 5815334.00000000 , &
- 5821666.00000000 , &
- 5828000.00000000 , &
- 5834334.00000000 , &
- 5840666.00000000 , &
- 5847000.00000000 , &
- 5853334.00000000 /)
-
- Mref_V%radius_ref( 631 : 660 ) = (/ &
- 5859666.00000000 , &
- 5866000.00000000 , &
- 5872334.00000000 , &
- 5878666.00000000 , &
- 5885000.00000000 , &
- 5891334.00000000 , &
- 5897666.00000000 , &
- 5904000.00000000 , &
- 5910334.00000000 , &
- 5916666.00000000 , &
- 5923000.00000000 , &
- 5929334.00000000 , &
- 5935666.00000000 , &
- 5942000.00000000 , &
- 5948334.00000000 , &
- 5954666.00000000 , &
- 5961000.00000000 , &
- 5961000.00000000 , &
- 5967334.00000000 , &
- 5973666.00000000 , &
- 5980000.00000000 , &
- 5986334.00000000 , &
- 5992666.00000000 , &
- 5999000.00000000 , &
- 6005334.00000000 , &
- 6011666.00000000 , &
- 6018000.00000000 , &
- 6024334.00000000 , &
- 6030666.00000000 , &
- 6037000.00000000 /)
-
- Mref_V%radius_ref( 661 : 690 ) = (/ &
- 6043334.00000000 , &
- 6049666.00000000 , &
- 6056000.00000000 , &
- 6062334.00000000 , &
- 6068666.00000000 , &
- 6075000.00000000 , &
- 6081334.00000000 , &
- 6087666.00000000 , &
- 6094000.00000000 , &
- 6100334.00000000 , &
- 6106666.00000000 , &
- 6113000.00000000 , &
- 6119334.00000000 , &
- 6125666.00000000 , &
- 6132000.00000000 , &
- 6138334.00000000 , &
- 6144666.00000000 , &
- 6151000.00000000 , &
- 6151000.00000000 , &
- 6157087.00000000 , &
- 6163174.00000000 , &
- 6169261.00000000 , &
- 6175348.00000000 , &
- 6181435.00000000 , &
- 6187522.00000000 , &
- 6193609.00000000 , &
- 6199696.00000000 , &
- 6205783.00000000 , &
- 6211870.00000000 , &
- 6217957.00000000 /)
-
- Mref_V%radius_ref( 691 : 720 ) = (/ &
- 6224043.00000000 , &
- 6230130.00000000 , &
- 6236217.00000000 , &
- 6242304.00000000 , &
- 6248391.00000000 , &
- 6254478.00000000 , &
- 6260565.00000000 , &
- 6266652.00000000 , &
- 6272739.00000000 , &
- 6278826.00000000 , &
- 6284913.00000000 , &
- 6291000.00000000 , &
- 6291000.00000000 , &
- 6294971.00000000 , &
- 6298943.00000000 , &
- 6302914.00000000 , &
- 6306886.00000000 , &
- 6310857.00000000 , &
- 6314829.00000000 , &
- 6318800.00000000 , &
- 6322771.00000000 , &
- 6326743.00000000 , &
- 6330714.00000000 , &
- 6334686.00000000 , &
- 6338657.00000000 , &
- 6342629.00000000 , &
- 6346600.00000000 , &
- 6346600.00000000 , &
- 6347540.00000000 , &
- 6348480.00000000 /)
-
- Mref_V%radius_ref( 721 : 750 ) = (/ &
- 6349420.00000000 , &
- 6350360.00000000 , &
- 6351300.00000000 , &
- 6352240.00000000 , &
- 6353180.00000000 , &
- 6354120.00000000 , &
- 6355060.00000000 , &
- 6356000.00000000 , &
- 6356000.00000000 , &
- 6357200.00000000 , &
- 6358400.00000000 , &
- 6359600.00000000 , &
- 6360800.00000000 , &
- 6362000.00000000 , &
- 6363200.00000000 , &
- 6364400.00000000 , &
- 6365600.00000000 , &
- 6366800.00000000 , &
- 6368000.00000000 , &
- 6368000.00000000 , &
- 6368300.00000000 , &
- 6368600.00000000 , &
- 6368900.00000000 , &
- 6369200.00000000 , &
- 6369500.00000000 , &
- 6369800.00000000 , &
- 6370100.00000000 , &
- 6370400.00000000 , &
- 6370700.00000000 , &
- 6371000.00000000 /)
-
- Mref_V%density_ref( 1 : 30 ) = (/ &
- 13088.4800000000 , &
- 13088.4700000000 , &
- 13088.4400000000 , &
- 13088.3900000000 , &
- 13088.3200000000 , &
- 13088.2200000000 , &
- 13088.1100000000 , &
- 13087.9800000000 , &
- 13087.8300000000 , &
- 13087.6600000000 , &
- 13087.4600000000 , &
- 13087.2500000000 , &
- 13087.0200000000 , &
- 13086.7600000000 , &
- 13086.4900000000 , &
- 13086.2000000000 , &
- 13085.8800000000 , &
- 13085.5500000000 , &
- 13085.1900000000 , &
- 13084.8200000000 , &
- 13084.4200000000 , &
- 13084.0100000000 , &
- 13083.5700000000 , &
- 13083.1100000000 , &
- 13082.6400000000 , &
- 13082.1400000000 , &
- 13081.6200000000 , &
- 13081.0900000000 , &
- 13080.5300000000 , &
- 13079.9500000000 /)
-
- Mref_V%density_ref( 31 : 60 ) = (/ &
- 13079.3500000000 , &
- 13078.7300000000 , &
- 13078.0900000000 , &
- 13077.4400000000 , &
- 13076.7600000000 , &
- 13076.0600000000 , &
- 13075.3400000000 , &
- 13074.6000000000 , &
- 13073.8400000000 , &
- 13073.0600000000 , &
- 13072.2500000000 , &
- 13071.4300000000 , &
- 13070.5900000000 , &
- 13069.7300000000 , &
- 13068.8500000000 , &
- 13067.9500000000 , &
- 13067.0200000000 , &
- 13066.0800000000 , &
- 13065.1200000000 , &
- 13064.1300000000 , &
- 13063.1300000000 , &
- 13062.1000000000 , &
- 13061.0600000000 , &
- 13060.0000000000 , &
- 13058.9100000000 , &
- 13057.8100000000 , &
- 13056.6800000000 , &
- 13055.5300000000 , &
- 13054.3700000000 , &
- 13053.1800000000 /)
-
- Mref_V%density_ref( 61 : 90 ) = (/ &
- 13051.9800000000 , &
- 13050.7500000000 , &
- 13049.5000000000 , &
- 13048.2300000000 , &
- 13046.9500000000 , &
- 13045.6400000000 , &
- 13044.3100000000 , &
- 13042.9600000000 , &
- 13041.5900000000 , &
- 13040.2000000000 , &
- 13038.7900000000 , &
- 13037.3600000000 , &
- 13035.9100000000 , &
- 13034.4400000000 , &
- 13032.9500000000 , &
- 13031.4400000000 , &
- 13029.9100000000 , &
- 13028.3600000000 , &
- 13026.7900000000 , &
- 13025.2000000000 , &
- 13023.5800000000 , &
- 13021.9500000000 , &
- 13020.3000000000 , &
- 13018.6300000000 , &
- 13016.9300000000 , &
- 13015.2200000000 , &
- 13013.4900000000 , &
- 13011.7300000000 , &
- 13009.9600000000 , &
- 13008.1600000000 /)
-
- Mref_V%density_ref( 91 : 120 ) = (/ &
- 13006.3500000000 , &
- 13004.5100000000 , &
- 13002.6600000000 , &
- 13000.7800000000 , &
- 12998.8800000000 , &
- 12996.9700000000 , &
- 12995.0300000000 , &
- 12993.0700000000 , &
- 12991.1000000000 , &
- 12989.1000000000 , &
- 12987.0800000000 , &
- 12985.0400000000 , &
- 12982.9900000000 , &
- 12980.9100000000 , &
- 12978.8100000000 , &
- 12976.6900000000 , &
- 12974.5500000000 , &
- 12972.3900000000 , &
- 12970.2100000000 , &
- 12968.0100000000 , &
- 12965.7900000000 , &
- 12963.5500000000 , &
- 12961.2900000000 , &
- 12959.0100000000 , &
- 12956.7000000000 , &
- 12954.3800000000 , &
- 12952.0400000000 , &
- 12949.6800000000 , &
- 12947.2900000000 , &
- 12944.8900000000 /)
-
- Mref_V%density_ref( 121 : 150 ) = (/ &
- 12942.4700000000 , &
- 12940.0200000000 , &
- 12937.5600000000 , &
- 12935.0800000000 , &
- 12932.5700000000 , &
- 12930.0500000000 , &
- 12927.5000000000 , &
- 12924.9400000000 , &
- 12922.3500000000 , &
- 12919.7500000000 , &
- 12917.1200000000 , &
- 12914.4700000000 , &
- 12911.8100000000 , &
- 12909.1200000000 , &
- 12906.4100000000 , &
- 12903.6800000000 , &
- 12900.9400000000 , &
- 12898.1700000000 , &
- 12895.3800000000 , &
- 12892.5700000000 , &
- 12889.7400000000 , &
- 12886.8900000000 , &
- 12884.0200000000 , &
- 12881.1300000000 , &
- 12878.2200000000 , &
- 12875.2900000000 , &
- 12872.3400000000 , &
- 12869.3700000000 , &
- 12866.3800000000 , &
- 12863.3700000000 /)
-
- Mref_V%density_ref( 151 : 180 ) = (/ &
- 12860.3400000000 , &
- 12857.2900000000 , &
- 12854.2100000000 , &
- 12851.1200000000 , &
- 12848.0100000000 , &
- 12844.8800000000 , &
- 12841.7200000000 , &
- 12838.5500000000 , &
- 12835.3500000000 , &
- 12832.1400000000 , &
- 12828.9100000000 , &
- 12825.6500000000 , &
- 12822.3800000000 , &
- 12819.0800000000 , &
- 12815.7600000000 , &
- 12812.4300000000 , &
- 12809.0700000000 , &
- 12805.7000000000 , &
- 12802.3000000000 , &
- 12798.8800000000 , &
- 12795.4400000000 , &
- 12791.9900000000 , &
- 12788.5100000000 , &
- 12785.0100000000 , &
- 12781.4900000000 , &
- 12777.9500000000 , &
- 12774.4000000000 , &
- 12770.8200000000 , &
- 12767.2200000000 , &
- 12763.6000000000 /)
-
- Mref_V%density_ref( 181 : 210 ) = (/ &
- 12166.3500000000 , &
- 12159.7700000000 , &
- 12153.1400000000 , &
- 12146.4500000000 , &
- 12139.7100000000 , &
- 12132.9100000000 , &
- 12126.0500000000 , &
- 12119.1400000000 , &
- 12112.1800000000 , &
- 12105.1500000000 , &
- 12098.0700000000 , &
- 12090.9300000000 , &
- 12083.7300000000 , &
- 12076.4800000000 , &
- 12069.1700000000 , &
- 12061.8000000000 , &
- 12054.3700000000 , &
- 12046.8800000000 , &
- 12039.3300000000 , &
- 12031.7200000000 , &
- 12024.0500000000 , &
- 12016.3300000000 , &
- 12008.5400000000 , &
- 12000.6900000000 , &
- 11992.7800000000 , &
- 11984.8100000000 , &
- 11976.7800000000 , &
- 11968.6800000000 , &
- 11960.5300000000 , &
- 11952.3100000000 /)
-
- Mref_V%density_ref( 211 : 240 ) = (/ &
- 11944.0300000000 , &
- 11935.6900000000 , &
- 11927.2800000000 , &
- 11918.8100000000 , &
- 11910.2800000000 , &
- 11901.6800000000 , &
- 11893.0200000000 , &
- 11884.3000000000 , &
- 11875.5100000000 , &
- 11866.6600000000 , &
- 11857.7400000000 , &
- 11848.7500000000 , &
- 11839.7000000000 , &
- 11830.5800000000 , &
- 11821.4000000000 , &
- 11812.1500000000 , &
- 11802.8400000000 , &
- 11793.4500000000 , &
- 11784.0100000000 , &
- 11774.4900000000 , &
- 11764.9000000000 , &
- 11755.2500000000 , &
- 11745.5300000000 , &
- 11735.7400000000 , &
- 11725.8800000000 , &
- 11715.9500000000 , &
- 11705.9500000000 , &
- 11695.8900000000 , &
- 11685.7500000000 , &
- 11675.5400000000 /)
-
- Mref_V%density_ref( 241 : 270 ) = (/ &
- 11665.2600000000 , &
- 11654.9200000000 , &
- 11644.5000000000 , &
- 11634.0100000000 , &
- 11623.4400000000 , &
- 11612.8100000000 , &
- 11602.1000000000 , &
- 11591.3200000000 , &
- 11580.4700000000 , &
- 11569.5500000000 , &
- 11558.5500000000 , &
- 11547.4800000000 , &
- 11536.3400000000 , &
- 11525.1200000000 , &
- 11513.8300000000 , &
- 11502.4600000000 , &
- 11491.0200000000 , &
- 11479.5100000000 , &
- 11467.9100000000 , &
- 11456.2500000000 , &
- 11444.5000000000 , &
- 11432.6900000000 , &
- 11420.7900000000 , &
- 11408.8200000000 , &
- 11396.7700000000 , &
- 11384.6400000000 , &
- 11372.4400000000 , &
- 11360.1600000000 , &
- 11347.8000000000 , &
- 11335.3700000000 /)
-
- Mref_V%density_ref( 271 : 300 ) = (/ &
- 11322.8500000000 , &
- 11310.2600000000 , &
- 11297.5800000000 , &
- 11284.8300000000 , &
- 11272.0000000000 , &
- 11259.0900000000 , &
- 11246.1000000000 , &
- 11233.0300000000 , &
- 11219.8700000000 , &
- 11206.6400000000 , &
- 11193.3300000000 , &
- 11179.9300000000 , &
- 11166.4500000000 , &
- 11152.8900000000 , &
- 11139.2500000000 , &
- 11125.5300000000 , &
- 11111.7200000000 , &
- 11097.8300000000 , &
- 11083.8600000000 , &
- 11069.8000000000 , &
- 11055.6600000000 , &
- 11041.4400000000 , &
- 11027.1300000000 , &
- 11012.7400000000 , &
- 10998.2600000000 , &
- 10983.7000000000 , &
- 10969.0500000000 , &
- 10954.3200000000 , &
- 10939.5000000000 , &
- 10924.5900000000 /)
-
- Mref_V%density_ref( 301 : 330 ) = (/ &
- 10909.6000000000 , &
- 10894.5200000000 , &
- 10879.3500000000 , &
- 10864.1000000000 , &
- 10848.7600000000 , &
- 10833.3300000000 , &
- 10817.8100000000 , &
- 10802.2100000000 , &
- 10786.5100000000 , &
- 10770.7300000000 , &
- 10754.8600000000 , &
- 10738.9000000000 , &
- 10722.8500000000 , &
- 10706.7100000000 , &
- 10690.4800000000 , &
- 10674.1600000000 , &
- 10657.7500000000 , &
- 10641.2400000000 , &
- 10624.6500000000 , &
- 10607.9600000000 , &
- 10591.1900000000 , &
- 10574.3200000000 , &
- 10557.3600000000 , &
- 10540.3000000000 , &
- 10523.1600000000 , &
- 10505.9200000000 , &
- 10488.5800000000 , &
- 10471.1500000000 , &
- 10453.6300000000 , &
- 10436.0200000000 /)
-
- Mref_V%density_ref( 331 : 360 ) = (/ &
- 10418.3100000000 , &
- 10400.5100000000 , &
- 10382.6100000000 , &
- 10364.6100000000 , &
- 10346.5200000000 , &
- 10328.3400000000 , &
- 10310.0500000000 , &
- 10291.6800000000 , &
- 10273.2000000000 , &
- 10254.6300000000 , &
- 10235.9600000000 , &
- 10217.2000000000 , &
- 10198.3300000000 , &
- 10179.3700000000 , &
- 10160.3100000000 , &
- 10141.1500000000 , &
- 10121.9000000000 , &
- 10102.5400000000 , &
- 10083.0900000000 , &
- 10063.5300000000 , &
- 10043.8800000000 , &
- 10024.1200000000 , &
- 10004.2700000000 , &
- 9984.32000000000 , &
- 9964.26000000000 , &
- 9944.10000000000 , &
- 9923.84000000000 , &
- 9903.48000000000 , &
- 5566.45000000000 , &
- 5561.75000000000 /)
-
- Mref_V%density_ref( 361 : 390 ) = (/ &
- 5557.05000000000 , &
- 5552.36000000000 , &
- 5547.66000000000 , &
- 5542.97000000000 , &
- 5538.28000000000 , &
- 5533.59000000000 , &
- 5528.90000000000 , &
- 5524.21000000000 , &
- 5519.53000000000 , &
- 5514.85000000000 , &
- 5510.16000000000 , &
- 5505.48000000000 , &
- 5500.81000000000 , &
- 5496.13000000000 , &
- 5491.45000000000 , &
- 5491.45000000000 , &
- 5486.73000000000 , &
- 5482.01000000000 , &
- 5477.29000000000 , &
- 5472.57000000000 , &
- 5467.85000000000 , &
- 5463.13000000000 , &
- 5458.42000000000 , &
- 5453.70000000000 , &
- 5448.99000000000 , &
- 5444.27000000000 , &
- 5439.56000000000 , &
- 5434.85000000000 , &
- 5430.13000000000 , &
- 5425.42000000000 /)
-
- Mref_V%density_ref( 391 : 420 ) = (/ &
- 5420.71000000000 , &
- 5416.00000000000 , &
- 5411.29000000000 , &
- 5406.57000000000 , &
- 5401.86000000000 , &
- 5397.15000000000 , &
- 5392.44000000000 , &
- 5387.73000000000 , &
- 5383.02000000000 , &
- 5378.30000000000 , &
- 5373.59000000000 , &
- 5368.88000000000 , &
- 5364.17000000000 , &
- 5359.45000000000 , &
- 5354.74000000000 , &
- 5350.02000000000 , &
- 5345.31000000000 , &
- 5340.59000000000 , &
- 5335.87000000000 , &
- 5331.16000000000 , &
- 5326.44000000000 , &
- 5321.72000000000 , &
- 5317.00000000000 , &
- 5312.28000000000 , &
- 5307.55000000000 , &
- 5302.83000000000 , &
- 5298.10000000000 , &
- 5293.38000000000 , &
- 5288.65000000000 , &
- 5283.92000000000 /)
-
- Mref_V%density_ref( 421 : 450 ) = (/ &
- 5279.19000000000 , &
- 5274.45000000000 , &
- 5269.72000000000 , &
- 5264.98000000000 , &
- 5260.25000000000 , &
- 5255.51000000000 , &
- 5250.77000000000 , &
- 5246.02000000000 , &
- 5241.28000000000 , &
- 5236.53000000000 , &
- 5231.78000000000 , &
- 5227.03000000000 , &
- 5222.27000000000 , &
- 5217.52000000000 , &
- 5212.76000000000 , &
- 5208.00000000000 , &
- 5203.23000000000 , &
- 5198.47000000000 , &
- 5193.70000000000 , &
- 5188.93000000000 , &
- 5184.15000000000 , &
- 5179.38000000000 , &
- 5174.60000000000 , &
- 5169.82000000000 , &
- 5165.03000000000 , &
- 5160.24000000000 , &
- 5155.45000000000 , &
- 5150.65000000000 , &
- 5145.86000000000 , &
- 5141.06000000000 /)
-
- Mref_V%density_ref( 451 : 480 ) = (/ &
- 5136.25000000000 , &
- 5131.44000000000 , &
- 5126.63000000000 , &
- 5121.82000000000 , &
- 5117.00000000000 , &
- 5112.18000000000 , &
- 5107.35000000000 , &
- 5102.52000000000 , &
- 5097.69000000000 , &
- 5092.85000000000 , &
- 5088.01000000000 , &
- 5083.16000000000 , &
- 5078.31000000000 , &
- 5073.46000000000 , &
- 5068.60000000000 , &
- 5063.74000000000 , &
- 5058.87000000000 , &
- 5054.00000000000 , &
- 5049.13000000000 , &
- 5044.25000000000 , &
- 5039.36000000000 , &
- 5034.47000000000 , &
- 5029.58000000000 , &
- 5024.68000000000 , &
- 5019.78000000000 , &
- 5014.87000000000 , &
- 5009.96000000000 , &
- 5005.04000000000 , &
- 5000.12000000000 , &
- 4995.19000000000 /)
-
- Mref_V%density_ref( 481 : 510 ) = (/ &
- 4990.26000000000 , &
- 4985.32000000000 , &
- 4980.38000000000 , &
- 4975.43000000000 , &
- 4970.47000000000 , &
- 4965.51000000000 , &
- 4960.55000000000 , &
- 4955.58000000000 , &
- 4950.60000000000 , &
- 4945.62000000000 , &
- 4940.63000000000 , &
- 4935.64000000000 , &
- 4930.64000000000 , &
- 4925.63000000000 , &
- 4920.62000000000 , &
- 4915.60000000000 , &
- 4910.58000000000 , &
- 4905.55000000000 , &
- 4900.51000000000 , &
- 4895.47000000000 , &
- 4890.42000000000 , &
- 4885.37000000000 , &
- 4880.31000000000 , &
- 4875.24000000000 , &
- 4870.16000000000 , &
- 4865.08000000000 , &
- 4859.99000000000 , &
- 4854.90000000000 , &
- 4849.80000000000 , &
- 4844.69000000000 /)
-
- Mref_V%density_ref( 511 : 540 ) = (/ &
- 4839.57000000000 , &
- 4834.45000000000 , &
- 4829.32000000000 , &
- 4824.18000000000 , &
- 4819.04000000000 , &
- 4813.88000000000 , &
- 4808.73000000000 , &
- 4803.56000000000 , &
- 4798.39000000000 , &
- 4793.20000000000 , &
- 4788.02000000000 , &
- 4782.82000000000 , &
- 4777.61000000000 , &
- 4772.40000000000 , &
- 4767.18000000000 , &
- 4761.95000000000 , &
- 4756.72000000000 , &
- 4751.47000000000 , &
- 4746.22000000000 , &
- 4740.95000000000 , &
- 4735.68000000000 , &
- 4730.40000000000 , &
- 4725.10000000000 , &
- 4719.80000000000 , &
- 4714.48000000000 , &
- 4709.15000000000 , &
- 4703.81000000000 , &
- 4698.44000000000 , &
- 4693.08000000000 , &
- 4687.69000000000 /)
-
- Mref_V%density_ref( 541 : 570 ) = (/ &
- 4682.29000000000 , &
- 4676.87000000000 , &
- 4671.44000000000 , &
- 4665.99000000000 , &
- 4660.52000000000 , &
- 4655.03000000000 , &
- 4649.52000000000 , &
- 4644.00000000000 , &
- 4638.46000000000 , &
- 4632.89000000000 , &
- 4627.31000000000 , &
- 4621.70000000000 , &
- 4616.08000000000 , &
- 4610.44000000000 , &
- 4604.76000000000 , &
- 4599.08000000000 , &
- 4593.36000000000 , &
- 4587.63000000000 , &
- 4581.86000000000 , &
- 4576.07000000000 , &
- 4570.26000000000 , &
- 4564.43000000000 , &
- 4558.56000000000 , &
- 4552.67000000000 , &
- 4546.76000000000 , &
- 4540.82000000000 , &
- 4534.84000000000 , &
- 4528.85000000000 , &
- 4522.81000000000 , &
- 4516.76000000000 /)
-
- Mref_V%density_ref( 571 : 600 ) = (/ &
- 4510.67000000000 , &
- 4504.56000000000 , &
- 4498.41000000000 , &
- 4492.23000000000 , &
- 4486.02000000000 , &
- 4479.78000000000 , &
- 4473.51000000000 , &
- 4467.20000000000 , &
- 4460.87000000000 , &
- 4454.49000000000 , &
- 4448.08000000000 , &
- 4441.63000000000 , &
- 4435.13000000000 , &
- 4428.60000000000 , &
- 4428.59000000000 , &
- 4423.32000000000 , &
- 4418.01000000000 , &
- 4412.67000000000 , &
- 4407.30000000000 , &
- 4401.90000000000 , &
- 4396.45000000000 , &
- 4390.96000000000 , &
- 4385.40000000000 , &
- 4379.81000000000 , &
- 4374.16000000000 , &
- 4368.47000000000 , &
- 4362.72000000000 , &
- 4356.92000000000 , &
- 4351.08000000000 , &
- 4345.18000000000 /)
-
- Mref_V%density_ref( 601 : 630 ) = (/ &
- 4339.24000000000 , &
- 4047.01000000000 , &
- 4042.50000000000 , &
- 4037.98000000000 , &
- 4033.48000000000 , &
- 4028.95000000000 , &
- 4024.45000000000 , &
- 4019.93000000000 , &
- 4015.42000000000 , &
- 4010.90000000000 , &
- 4006.38000000000 , &
- 4001.87000000000 , &
- 3997.35000000000 , &
- 3992.84000000000 , &
- 3988.32000000000 , &
- 3983.80000000000 , &
- 3983.80000000000 , &
- 3975.79000000000 , &
- 3967.77000000000 , &
- 3959.76000000000 , &
- 3951.75000000000 , &
- 3943.73000000000 , &
- 3935.71000000000 , &
- 3927.69000000000 , &
- 3919.67000000000 , &
- 3911.65000000000 , &
- 3903.61000000000 , &
- 3895.58000000000 , &
- 3887.56000000000 , &
- 3879.53000000000 /)
-
- Mref_V%density_ref( 631 : 660 ) = (/ &
- 3871.50000000000 , &
- 3863.46000000000 , &
- 3855.42000000000 , &
- 3847.38000000000 , &
- 3839.33000000000 , &
- 3831.27000000000 , &
- 3823.22000000000 , &
- 3815.16000000000 , &
- 3807.09000000000 , &
- 3799.01000000000 , &
- 3790.94000000000 , &
- 3782.85000000000 , &
- 3774.78000000000 , &
- 3766.66000000000 , &
- 3758.56000000000 , &
- 3750.45000000000 , &
- 3742.34000000000 , &
- 3554.91000000000 , &
- 3551.00000000000 , &
- 3547.07000000000 , &
- 3543.16000000000 , &
- 3539.23000000000 , &
- 3535.32000000000 , &
- 3531.39000000000 , &
- 3527.46000000000 , &
- 3523.57000000000 , &
- 3519.67000000000 , &
- 3515.77000000000 , &
- 3511.91000000000 , &
- 3508.06000000000 /)
-
- Mref_V%density_ref( 661 : 690 ) = (/ &
- 3504.21000000000 , &
- 3500.39000000000 , &
- 3496.58000000000 , &
- 3492.80000000000 , &
- 3489.05000000000 , &
- 3485.32000000000 , &
- 3481.61000000000 , &
- 3477.88000000000 , &
- 3474.16000000000 , &
- 3470.41000000000 , &
- 3466.59000000000 , &
- 3462.74000000000 , &
- 3458.78000000000 , &
- 3454.75000000000 , &
- 3450.61000000000 , &
- 3446.33000000000 , &
- 3441.91000000000 , &
- 3437.35000000000 , &
- 3437.34000000000 , &
- 3432.81000000000 , &
- 3428.15000000000 , &
- 3423.37000000000 , &
- 3418.47000000000 , &
- 3413.47000000000 , &
- 3408.35000000000 , &
- 3403.15000000000 , &
- 3397.87000000000 , &
- 3392.50000000000 , &
- 3387.07000000000 , &
- 3381.58000000000 /)
-
- Mref_V%density_ref( 691 : 720 ) = (/ &
- 3376.03000000000 , &
- 3370.45000000000 , &
- 3364.87000000000 , &
- 3359.31000000000 , &
- 3353.79000000000 , &
- 3348.37000000000 , &
- 3343.03000000000 , &
- 3337.85000000000 , &
- 3332.83000000000 , &
- 3328.01000000000 , &
- 3323.39000000000 , &
- 3319.04000000000 , &
- 3319.03000000000 , &
- 3316.33000000000 , &
- 3313.75000000000 , &
- 3311.30000000000 , &
- 3308.97000000000 , &
- 3306.73000000000 , &
- 3304.58000000000 , &
- 3302.53000000000 , &
- 3300.55000000000 , &
- 3298.63000000000 , &
- 3296.79000000000 , &
- 3295.00000000000 , &
- 3293.25000000000 , &
- 3291.54000000000 , &
- 3289.84000000000 , &
- 2900.00000000000 , &
- 2900.00000000000 , &
- 2900.00000000000 /)
-
- Mref_V%density_ref( 721 : 750 ) = (/ &
- 2900.00000000000 , &
- 2900.00000000000 , &
- 2900.00000000000 , &
- 2900.00000000000 , &
- 2900.00000000000 , &
- 2900.00000000000 , &
- 2900.00000000000 , &
- 2900.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 , &
- 2600.00000000000 /)
-
- Mref_V%vpv_ref( 1 : 30 ) = (/ &
- 11262.2000000000 , &
- 11262.2000000000 , &
- 11262.1800000000 , &
- 11262.1400000000 , &
- 11262.0900000000 , &
- 11262.0200000000 , &
- 11261.9400000000 , &
- 11261.8500000000 , &
- 11261.7400000000 , &
- 11261.6100000000 , &
- 11261.4700000000 , &
- 11261.3200000000 , &
- 11261.1500000000 , &
- 11260.9700000000 , &
- 11260.7700000000 , &
- 11260.5600000000 , &
- 11260.3400000000 , &
- 11260.0900000000 , &
- 11259.8400000000 , &
- 11259.5700000000 , &
- 11259.2800000000 , &
- 11258.9900000000 , &
- 11258.6700000000 , &
- 11258.3400000000 , &
- 11258.0000000000 , &
- 11257.6400000000 , &
- 11257.2700000000 , &
- 11256.8800000000 , &
- 11256.4800000000 , &
- 11256.0600000000 /)
-
- Mref_V%vpv_ref( 31 : 60 ) = (/ &
- 11255.6300000000 , &
- 11255.1900000000 , &
- 11254.7300000000 , &
- 11254.2500000000 , &
- 11253.7600000000 , &
- 11253.2600000000 , &
- 11252.7400000000 , &
- 11252.2100000000 , &
- 11251.6600000000 , &
- 11251.1000000000 , &
- 11250.5200000000 , &
- 11249.9300000000 , &
- 11249.3300000000 , &
- 11248.7100000000 , &
- 11248.0700000000 , &
- 11247.4200000000 , &
- 11246.7600000000 , &
- 11246.0800000000 , &
- 11245.3800000000 , &
- 11244.6700000000 , &
- 11243.9500000000 , &
- 11243.2100000000 , &
- 11242.4600000000 , &
- 11241.7000000000 , &
- 11240.9100000000 , &
- 11240.1200000000 , &
- 11239.3100000000 , &
- 11238.4800000000 , &
- 11237.6400000000 , &
- 11236.7900000000 /)
-
- Mref_V%vpv_ref( 61 : 90 ) = (/ &
- 11235.9200000000 , &
- 11235.0400000000 , &
- 11234.1400000000 , &
- 11233.2300000000 , &
- 11232.3000000000 , &
- 11231.3600000000 , &
- 11230.4000000000 , &
- 11229.4300000000 , &
- 11228.4400000000 , &
- 11227.4400000000 , &
- 11226.4300000000 , &
- 11225.4000000000 , &
- 11224.3600000000 , &
- 11223.3000000000 , &
- 11222.2200000000 , &
- 11221.1400000000 , &
- 11220.0300000000 , &
- 11218.9200000000 , &
- 11217.7800000000 , &
- 11216.6400000000 , &
- 11215.4800000000 , &
- 11214.3000000000 , &
- 11213.1100000000 , &
- 11211.9100000000 , &
- 11210.6900000000 , &
- 11209.4500000000 , &
- 11208.2100000000 , &
- 11206.9400000000 , &
- 11205.6700000000 , &
- 11204.3700000000 /)
-
- Mref_V%vpv_ref( 91 : 120 ) = (/ &
- 11203.0700000000 , &
- 11201.7400000000 , &
- 11200.4100000000 , &
- 11199.0600000000 , &
- 11197.6900000000 , &
- 11196.3100000000 , &
- 11194.9200000000 , &
- 11193.5100000000 , &
- 11192.0900000000 , &
- 11190.6500000000 , &
- 11189.1900000000 , &
- 11187.7300000000 , &
- 11186.2400000000 , &
- 11184.7500000000 , &
- 11183.2400000000 , &
- 11181.7100000000 , &
- 11180.1700000000 , &
- 11178.6100000000 , &
- 11177.0400000000 , &
- 11175.4600000000 , &
- 11173.8600000000 , &
- 11172.2500000000 , &
- 11170.6200000000 , &
- 11168.9800000000 , &
- 11167.3200000000 , &
- 11165.6500000000 , &
- 11163.9600000000 , &
- 11162.2600000000 , &
- 11160.5400000000 , &
- 11158.8100000000 /)
-
- Mref_V%vpv_ref( 121 : 150 ) = (/ &
- 11157.0700000000 , &
- 11155.3100000000 , &
- 11153.5400000000 , &
- 11151.7500000000 , &
- 11149.9400000000 , &
- 11148.1300000000 , &
- 11146.2900000000 , &
- 11144.4500000000 , &
- 11142.5800000000 , &
- 11140.7100000000 , &
- 11138.8200000000 , &
- 11136.9100000000 , &
- 11134.9900000000 , &
- 11133.0600000000 , &
- 11131.1100000000 , &
- 11129.1400000000 , &
- 11127.1600000000 , &
- 11125.1700000000 , &
- 11123.1600000000 , &
- 11121.1400000000 , &
- 11119.1000000000 , &
- 11117.0500000000 , &
- 11114.9900000000 , &
- 11112.9000000000 , &
- 11110.8100000000 , &
- 11108.7000000000 , &
- 11106.5700000000 , &
- 11104.4400000000 , &
- 11102.2800000000 , &
- 11100.1100000000 /)
-
- Mref_V%vpv_ref( 151 : 180 ) = (/ &
- 11097.9300000000 , &
- 11095.7300000000 , &
- 11093.5200000000 , &
- 11091.2900000000 , &
- 11089.0500000000 , &
- 11086.8000000000 , &
- 11084.5300000000 , &
- 11082.2400000000 , &
- 11079.9400000000 , &
- 11077.6300000000 , &
- 11075.3000000000 , &
- 11072.9500000000 , &
- 11070.5900000000 , &
- 11068.2200000000 , &
- 11065.8300000000 , &
- 11063.4300000000 , &
- 11061.0200000000 , &
- 11058.5800000000 , &
- 11056.1400000000 , &
- 11053.6800000000 , &
- 11051.2000000000 , &
- 11048.7100000000 , &
- 11046.2100000000 , &
- 11043.6900000000 , &
- 11041.1600000000 , &
- 11038.6100000000 , &
- 11036.0500000000 , &
- 11033.4700000000 , &
- 11030.8800000000 , &
- 11028.2700000000 /)
-
- Mref_V%vpv_ref( 181 : 210 ) = (/ &
- 10355.6900000000 , &
- 10348.2800000000 , &
- 10340.8500000000 , &
- 10333.3900000000 , &
- 10325.9100000000 , &
- 10318.4000000000 , &
- 10310.8700000000 , &
- 10303.3000000000 , &
- 10295.7100000000 , &
- 10288.0900000000 , &
- 10280.4400000000 , &
- 10272.7600000000 , &
- 10265.0400000000 , &
- 10257.3000000000 , &
- 10249.5200000000 , &
- 10241.7100000000 , &
- 10233.8600000000 , &
- 10225.9800000000 , &
- 10218.0600000000 , &
- 10210.1100000000 , &
- 10202.1200000000 , &
- 10194.1000000000 , &
- 10186.0400000000 , &
- 10177.9400000000 , &
- 10169.7900000000 , &
- 10161.6100000000 , &
- 10153.3900000000 , &
- 10145.1300000000 , &
- 10136.8300000000 , &
- 10128.4800000000 /)
-
- Mref_V%vpv_ref( 211 : 240 ) = (/ &
- 10120.0900000000 , &
- 10111.6600000000 , &
- 10103.1800000000 , &
- 10094.6600000000 , &
- 10086.0900000000 , &
- 10077.4800000000 , &
- 10068.8200000000 , &
- 10060.1100000000 , &
- 10051.3500000000 , &
- 10042.5400000000 , &
- 10033.6900000000 , &
- 10024.7800000000 , &
- 10015.8200000000 , &
- 10006.8200000000 , &
- 9997.75000000000 , &
- 9988.64000000000 , &
- 9979.47000000000 , &
- 9970.25000000000 , &
- 9960.97000000000 , &
- 9951.64000000000 , &
- 9942.25000000000 , &
- 9932.81000000000 , &
- 9923.31000000000 , &
- 9913.75000000000 , &
- 9904.13000000000 , &
- 9894.45000000000 , &
- 9884.71000000000 , &
- 9874.91000000000 , &
- 9865.05000000000 , &
- 9855.13000000000 /)
-
- Mref_V%vpv_ref( 241 : 270 ) = (/ &
- 9845.14000000000 , &
- 9835.09000000000 , &
- 9824.98000000000 , &
- 9814.80000000000 , &
- 9804.56000000000 , &
- 9794.25000000000 , &
- 9783.87000000000 , &
- 9773.43000000000 , &
- 9762.92000000000 , &
- 9752.34000000000 , &
- 9741.69000000000 , &
- 9730.97000000000 , &
- 9720.18000000000 , &
- 9709.32000000000 , &
- 9698.39000000000 , &
- 9687.38000000000 , &
- 9676.31000000000 , &
- 9665.15000000000 , &
- 9653.93000000000 , &
- 9642.63000000000 , &
- 9631.25000000000 , &
- 9619.80000000000 , &
- 9608.27000000000 , &
- 9596.66000000000 , &
- 9584.97000000000 , &
- 9573.20000000000 , &
- 9561.36000000000 , &
- 9549.43000000000 , &
- 9537.43000000000 , &
- 9525.34000000000 /)
-
- Mref_V%vpv_ref( 271 : 300 ) = (/ &
- 9513.17000000000 , &
- 9500.91000000000 , &
- 9488.57000000000 , &
- 9476.15000000000 , &
- 9463.64000000000 , &
- 9451.05000000000 , &
- 9438.37000000000 , &
- 9425.61000000000 , &
- 9412.75000000000 , &
- 9399.81000000000 , &
- 9386.78000000000 , &
- 9373.66000000000 , &
- 9360.45000000000 , &
- 9347.15000000000 , &
- 9333.76000000000 , &
- 9320.27000000000 , &
- 9306.70000000000 , &
- 9293.03000000000 , &
- 9279.26000000000 , &
- 9265.40000000000 , &
- 9251.45000000000 , &
- 9237.40000000000 , &
- 9223.25000000000 , &
- 9209.00000000000 , &
- 9194.66000000000 , &
- 9180.22000000000 , &
- 9165.68000000000 , &
- 9151.03000000000 , &
- 9136.29000000000 , &
- 9121.45000000000 /)
-
- Mref_V%vpv_ref( 301 : 330 ) = (/ &
- 9106.50000000000 , &
- 9091.46000000000 , &
- 9076.30000000000 , &
- 9061.05000000000 , &
- 9045.69000000000 , &
- 9030.23000000000 , &
- 9014.65000000000 , &
- 8998.98000000000 , &
- 8983.19000000000 , &
- 8967.30000000000 , &
- 8951.30000000000 , &
- 8935.19000000000 , &
- 8918.97000000000 , &
- 8902.64000000000 , &
- 8886.20000000000 , &
- 8869.64000000000 , &
- 8852.98000000000 , &
- 8836.20000000000 , &
- 8819.31000000000 , &
- 8802.30000000000 , &
- 8785.18000000000 , &
- 8767.94000000000 , &
- 8750.59000000000 , &
- 8733.12000000000 , &
- 8715.53000000000 , &
- 8697.82000000000 , &
- 8680.00000000000 , &
- 8662.05000000000 , &
- 8643.99000000000 , &
- 8625.80000000000 /)
-
- Mref_V%vpv_ref( 331 : 360 ) = (/ &
- 8607.49000000000 , &
- 8589.06000000000 , &
- 8570.51000000000 , &
- 8551.83000000000 , &
- 8533.03000000000 , &
- 8514.10000000000 , &
- 8495.05000000000 , &
- 8475.87000000000 , &
- 8456.57000000000 , &
- 8437.14000000000 , &
- 8417.58000000000 , &
- 8397.89000000000 , &
- 8378.07000000000 , &
- 8358.12000000000 , &
- 8338.04000000000 , &
- 8317.83000000000 , &
- 8297.49000000000 , &
- 8277.01000000000 , &
- 8256.41000000000 , &
- 8235.66000000000 , &
- 8214.79000000000 , &
- 8193.77000000000 , &
- 8172.62000000000 , &
- 8151.34000000000 , &
- 8129.92000000000 , &
- 8108.36000000000 , &
- 8086.66000000000 , &
- 8064.82000000000 , &
- 13716.6000000000 , &
- 13714.2900000000 /)
-
- Mref_V%vpv_ref( 361 : 390 ) = (/ &
- 13712.0000000000 , &
- 13709.7000000000 , &
- 13707.4200000000 , &
- 13705.1400000000 , &
- 13702.8600000000 , &
- 13700.5900000000 , &
- 13698.3300000000 , &
- 13696.0700000000 , &
- 13693.8200000000 , &
- 13691.5700000000 , &
- 13689.3300000000 , &
- 13687.0900000000 , &
- 13684.8600000000 , &
- 13682.6300000000 , &
- 13680.4100000000 , &
- 13680.4100000000 , &
- 13668.9000000000 , &
- 13657.4300000000 , &
- 13645.9700000000 , &
- 13634.5400000000 , &
- 13623.1400000000 , &
- 13611.7600000000 , &
- 13600.4000000000 , &
- 13589.0700000000 , &
- 13577.7600000000 , &
- 13566.4700000000 , &
- 13555.2000000000 , &
- 13543.9500000000 , &
- 13532.7200000000 , &
- 13521.5100000000 /)
-
- Mref_V%vpv_ref( 391 : 420 ) = (/ &
- 13510.3200000000 , &
- 13499.1400000000 , &
- 13487.9900000000 , &
- 13476.8500000000 , &
- 13465.7300000000 , &
- 13454.6300000000 , &
- 13443.5400000000 , &
- 13432.4600000000 , &
- 13421.4100000000 , &
- 13410.3600000000 , &
- 13399.3300000000 , &
- 13388.3100000000 , &
- 13377.3100000000 , &
- 13366.3100000000 , &
- 13355.3300000000 , &
- 13344.3600000000 , &
- 13333.4000000000 , &
- 13322.4500000000 , &
- 13311.5100000000 , &
- 13300.5800000000 , &
- 13289.6600000000 , &
- 13278.7400000000 , &
- 13267.8400000000 , &
- 13256.9300000000 , &
- 13246.0400000000 , &
- 13235.1500000000 , &
- 13224.2700000000 , &
- 13213.3900000000 , &
- 13202.5100000000 , &
- 13191.6400000000 /)
-
- Mref_V%vpv_ref( 421 : 450 ) = (/ &
- 13180.7800000000 , &
- 13169.9100000000 , &
- 13159.0500000000 , &
- 13148.1900000000 , &
- 13137.3300000000 , &
- 13126.4700000000 , &
- 13115.6100000000 , &
- 13104.7500000000 , &
- 13093.8900000000 , &
- 13083.0200000000 , &
- 13072.1600000000 , &
- 13061.2900000000 , &
- 13050.4200000000 , &
- 13039.5500000000 , &
- 13028.6700000000 , &
- 13017.7800000000 , &
- 13006.9000000000 , &
- 12996.0000000000 , &
- 12985.1000000000 , &
- 12974.1900000000 , &
- 12963.2800000000 , &
- 12952.3600000000 , &
- 12941.4200000000 , &
- 12930.4800000000 , &
- 12919.5400000000 , &
- 12908.5800000000 , &
- 12897.6100000000 , &
- 12886.6300000000 , &
- 12875.6300000000 , &
- 12864.6300000000 /)
-
- Mref_V%vpv_ref( 451 : 480 ) = (/ &
- 12853.6100000000 , &
- 12842.5800000000 , &
- 12831.5400000000 , &
- 12820.4800000000 , &
- 12809.4100000000 , &
- 12798.3200000000 , &
- 12787.2200000000 , &
- 12776.1000000000 , &
- 12764.9600000000 , &
- 12753.8100000000 , &
- 12742.6300000000 , &
- 12731.4400000000 , &
- 12720.2400000000 , &
- 12709.0100000000 , &
- 12697.7600000000 , &
- 12686.4900000000 , &
- 12675.2000000000 , &
- 12663.8900000000 , &
- 12652.5600000000 , &
- 12641.2000000000 , &
- 12629.8200000000 , &
- 12618.4200000000 , &
- 12606.9900000000 , &
- 12595.5400000000 , &
- 12584.0600000000 , &
- 12572.5600000000 , &
- 12561.0300000000 , &
- 12549.4800000000 , &
- 12537.8900000000 , &
- 12526.2800000000 /)
-
- Mref_V%vpv_ref( 481 : 510 ) = (/ &
- 12514.6400000000 , &
- 12502.9800000000 , &
- 12491.2800000000 , &
- 12479.5500000000 , &
- 12467.7900000000 , &
- 12456.0100000000 , &
- 12444.1900000000 , &
- 12432.3300000000 , &
- 12420.4500000000 , &
- 12408.5300000000 , &
- 12396.5800000000 , &
- 12384.6000000000 , &
- 12372.5800000000 , &
- 12360.5200000000 , &
- 12348.4300000000 , &
- 12336.3000000000 , &
- 12324.1400000000 , &
- 12311.9400000000 , &
- 12299.7000000000 , &
- 12287.4200000000 , &
- 12275.1100000000 , &
- 12262.7500000000 , &
- 12250.3500000000 , &
- 12237.9200000000 , &
- 12225.4400000000 , &
- 12212.9200000000 , &
- 12200.3600000000 , &
- 12187.7600000000 , &
- 12175.1100000000 , &
- 12162.4300000000 /)
-
- Mref_V%vpv_ref( 511 : 540 ) = (/ &
- 12149.6900000000 , &
- 12136.9100000000 , &
- 12124.0900000000 , &
- 12111.2200000000 , &
- 12098.3100000000 , &
- 12085.3400000000 , &
- 12072.3400000000 , &
- 12059.2800000000 , &
- 12046.1700000000 , &
- 12033.0200000000 , &
- 12019.8200000000 , &
- 12006.5600000000 , &
- 11993.2600000000 , &
- 11979.9000000000 , &
- 11966.5000000000 , &
- 11953.0400000000 , &
- 11939.5300000000 , &
- 11925.9700000000 , &
- 11912.3500000000 , &
- 11898.6900000000 , &
- 11884.9600000000 , &
- 11871.1900000000 , &
- 11857.3700000000 , &
- 11843.4800000000 , &
- 11829.5500000000 , &
- 11815.5700000000 , &
- 11801.5300000000 , &
- 11787.4400000000 , &
- 11773.3000000000 , &
- 11759.1000000000 /)
-
- Mref_V%vpv_ref( 541 : 570 ) = (/ &
- 11744.8500000000 , &
- 11730.5500000000 , &
- 11716.1800000000 , &
- 11701.7800000000 , &
- 11687.3100000000 , &
- 11672.8000000000 , &
- 11658.2300000000 , &
- 11643.6000000000 , &
- 11628.9200000000 , &
- 11614.1900000000 , &
- 11599.4000000000 , &
- 11584.5700000000 , &
- 11569.6800000000 , &
- 11554.7200000000 , &
- 11539.7200000000 , &
- 11524.6700000000 , &
- 11509.5600000000 , &
- 11494.3900000000 , &
- 11479.1700000000 , &
- 11463.8900000000 , &
- 11448.5500000000 , &
- 11433.1700000000 , &
- 11417.7300000000 , &
- 11402.2300000000 , &
- 11386.6800000000 , &
- 11371.0700000000 , &
- 11355.4100000000 , &
- 11339.6900000000 , &
- 11323.9100000000 , &
- 11308.0900000000 /)
-
- Mref_V%vpv_ref( 571 : 600 ) = (/ &
- 11292.2000000000 , &
- 11276.2500000000 , &
- 11260.2500000000 , &
- 11244.1900000000 , &
- 11228.0800000000 , &
- 11211.9000000000 , &
- 11195.6700000000 , &
- 11179.3800000000 , &
- 11163.0400000000 , &
- 11146.6300000000 , &
- 11130.1800000000 , &
- 11113.6700000000 , &
- 11097.1100000000 , &
- 11080.5100000000 , &
- 11080.5100000000 , &
- 11063.0100000000 , &
- 11045.2200000000 , &
- 11026.8200000000 , &
- 11008.4700000000 , &
- 10989.0400000000 , &
- 10969.6300000000 , &
- 10948.7600000000 , &
- 10928.0200000000 , &
- 10907.4200000000 , &
- 10886.9400000000 , &
- 10866.6000000000 , &
- 10846.4100000000 , &
- 10826.3500000000 , &
- 10806.4200000000 , &
- 10786.6100000000 /)
-
- Mref_V%vpv_ref( 601 : 630 ) = (/ &
- 10766.9000000000 , &
- 10278.8800000000 , &
- 10261.8700000000 , &
- 10244.8400000000 , &
- 10227.8200000000 , &
- 10210.8000000000 , &
- 10193.7800000000 , &
- 10176.7700000000 , &
- 10159.7400000000 , &
- 10142.7200000000 , &
- 10125.7100000000 , &
- 10108.7000000000 , &
- 10091.6800000000 , &
- 10074.6800000000 , &
- 10057.6800000000 , &
- 10040.6400000000 , &
- 10040.6700000000 , &
- 10010.5200000000 , &
- 9980.51000000000 , &
- 9950.64000000000 , &
- 9920.91000000000 , &
- 9891.35000000000 , &
- 9861.96000000000 , &
- 9832.79000000000 , &
- 9803.79000000000 , &
- 9774.98000000000 , &
- 9746.41000000000 , &
- 9718.08000000000 , &
- 9689.96000000000 , &
- 9662.10000000000 /)
-
- Mref_V%vpv_ref( 631 : 660 ) = (/ &
- 9634.47000000000 , &
- 9607.11000000000 , &
- 9579.97000000000 , &
- 9553.08000000000 , &
- 9526.38000000000 , &
- 9499.78000000000 , &
- 9473.25000000000 , &
- 9446.74000000000 , &
- 9420.19000000000 , &
- 9393.55000000000 , &
- 9366.75000000000 , &
- 9339.76000000000 , &
- 9312.50000000000 , &
- 9284.96000000000 , &
- 9257.04000000000 , &
- 9228.73000000000 , &
- 9199.94000000000 , &
- 8940.94000000000 , &
- 8930.61000000000 , &
- 8920.22000000000 , &
- 8909.68000000000 , &
- 8898.47000000000 , &
- 8886.28000000000 , &
- 8873.03000000000 , &
- 8858.58000000000 , &
- 8842.82000000000 , &
- 8825.64000000000 , &
- 8806.94000000000 , &
- 8786.67000000000 , &
- 8764.85000000000 /)
-
- Mref_V%vpv_ref( 661 : 690 ) = (/ &
- 8741.49000000000 , &
- 8716.63000000000 , &
- 8690.30000000000 , &
- 8662.50000000000 , &
- 8633.28000000000 , &
- 8602.66000000000 , &
- 8570.81000000000 , &
- 8538.06000000000 , &
- 8504.66000000000 , &
- 8470.92000000000 , &
- 8437.13000000000 , &
- 8403.52000000000 , &
- 8370.42000000000 , &
- 8338.11000000000 , &
- 8306.25000000000 , &
- 8275.42000000000 , &
- 8241.77000000000 , &
- 8207.37000000000 , &
- 8207.01000000000 , &
- 8174.32000000000 , &
- 8141.99000000000 , &
- 8110.40000000000 , &
- 8079.71000000000 , &
- 8050.15000000000 , &
- 8021.89000000000 , &
- 7995.08000000000 , &
- 7969.97000000000 , &
- 7946.70000000000 , &
- 7925.45000000000 , &
- 7906.44000000000 /)
-
- Mref_V%vpv_ref( 691 : 720 ) = (/ &
- 7889.80000000000 , &
- 7875.56000000000 , &
- 7863.64000000000 , &
- 7853.87000000000 , &
- 7846.17000000000 , &
- 7840.38000000000 , &
- 7836.39000000000 , &
- 7834.11000000000 , &
- 7833.38000000000 , &
- 7834.11000000000 , &
- 7836.11000000000 , &
- 7839.12000000000 , &
- 7839.37000000000 , &
- 7841.82000000000 , &
- 7844.77000000000 , &
- 7848.07000000000 , &
- 7851.72000000000 , &
- 7855.75000000000 , &
- 7860.14000000000 , &
- 7864.89000000000 , &
- 7870.01000000000 , &
- 7875.49000000000 , &
- 7881.33000000000 , &
- 7887.54000000000 , &
- 7894.13000000000 , &
- 7901.10000000000 , &
- 7908.24000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 /)
-
- Mref_V%vpv_ref( 721 : 750 ) = (/ &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 /)
-
- Mref_V%vsv_ref( 1 : 30 ) = (/ &
- 3667.80000000000 , &
- 3667.79000000000 , &
- 3667.78000000000 , &
- 3667.75000000000 , &
- 3667.72000000000 , &
- 3667.67000000000 , &
- 3667.62000000000 , &
- 3667.55000000000 , &
- 3667.47000000000 , &
- 3667.39000000000 , &
- 3667.29000000000 , &
- 3667.18000000000 , &
- 3667.06000000000 , &
- 3666.94000000000 , &
- 3666.80000000000 , &
- 3666.65000000000 , &
- 3666.49000000000 , &
- 3666.32000000000 , &
- 3666.15000000000 , &
- 3665.96000000000 , &
- 3665.76000000000 , &
- 3665.55000000000 , &
- 3665.33000000000 , &
- 3665.10000000000 , &
- 3664.86000000000 , &
- 3664.61000000000 , &
- 3664.35000000000 , &
- 3664.08000000000 , &
- 3663.80000000000 , &
- 3663.51000000000 /)
-
- Mref_V%vsv_ref( 31 : 60 ) = (/ &
- 3663.21000000000 , &
- 3662.90000000000 , &
- 3662.57000000000 , &
- 3662.24000000000 , &
- 3661.90000000000 , &
- 3661.55000000000 , &
- 3661.19000000000 , &
- 3660.81000000000 , &
- 3660.43000000000 , &
- 3660.04000000000 , &
- 3659.64000000000 , &
- 3659.22000000000 , &
- 3658.80000000000 , &
- 3658.36000000000 , &
- 3657.92000000000 , &
- 3657.47000000000 , &
- 3657.00000000000 , &
- 3656.53000000000 , &
- 3656.04000000000 , &
- 3655.55000000000 , &
- 3655.04000000000 , &
- 3654.53000000000 , &
- 3654.00000000000 , &
- 3653.47000000000 , &
- 3652.92000000000 , &
- 3652.36000000000 , &
- 3651.80000000000 , &
- 3651.22000000000 , &
- 3650.63000000000 , &
- 3650.04000000000 /)
-
- Mref_V%vsv_ref( 61 : 90 ) = (/ &
- 3649.43000000000 , &
- 3648.81000000000 , &
- 3648.19000000000 , &
- 3647.55000000000 , &
- 3646.90000000000 , &
- 3646.24000000000 , &
- 3645.57000000000 , &
- 3644.89000000000 , &
- 3644.21000000000 , &
- 3643.51000000000 , &
- 3642.80000000000 , &
- 3642.08000000000 , &
- 3641.35000000000 , &
- 3640.61000000000 , &
- 3639.86000000000 , &
- 3639.10000000000 , &
- 3638.33000000000 , &
- 3637.55000000000 , &
- 3636.76000000000 , &
- 3635.96000000000 , &
- 3635.14000000000 , &
- 3634.32000000000 , &
- 3633.49000000000 , &
- 3632.65000000000 , &
- 3631.80000000000 , &
- 3630.93000000000 , &
- 3630.06000000000 , &
- 3629.18000000000 , &
- 3628.29000000000 , &
- 3627.38000000000 /)
-
- Mref_V%vsv_ref( 91 : 120 ) = (/ &
- 3626.47000000000 , &
- 3625.55000000000 , &
- 3624.61000000000 , &
- 3623.67000000000 , &
- 3622.71000000000 , &
- 3621.75000000000 , &
- 3620.78000000000 , &
- 3619.79000000000 , &
- 3618.80000000000 , &
- 3617.79000000000 , &
- 3616.78000000000 , &
- 3615.75000000000 , &
- 3614.71000000000 , &
- 3613.67000000000 , &
- 3612.61000000000 , &
- 3611.55000000000 , &
- 3610.47000000000 , &
- 3609.38000000000 , &
- 3608.28000000000 , &
- 3607.18000000000 , &
- 3606.06000000000 , &
- 3604.93000000000 , &
- 3603.79000000000 , &
- 3602.65000000000 , &
- 3601.49000000000 , &
- 3600.32000000000 , &
- 3599.14000000000 , &
- 3597.95000000000 , &
- 3596.75000000000 , &
- 3595.54000000000 /)
-
- Mref_V%vsv_ref( 121 : 150 ) = (/ &
- 3594.32000000000 , &
- 3593.10000000000 , &
- 3591.86000000000 , &
- 3590.61000000000 , &
- 3589.34000000000 , &
- 3588.07000000000 , &
- 3586.79000000000 , &
- 3585.50000000000 , &
- 3584.20000000000 , &
- 3582.89000000000 , &
- 3581.57000000000 , &
- 3580.24000000000 , &
- 3578.90000000000 , &
- 3577.54000000000 , &
- 3576.18000000000 , &
- 3574.81000000000 , &
- 3573.43000000000 , &
- 3572.03000000000 , &
- 3570.63000000000 , &
- 3569.22000000000 , &
- 3567.79000000000 , &
- 3566.36000000000 , &
- 3564.91000000000 , &
- 3563.46000000000 , &
- 3562.00000000000 , &
- 3560.52000000000 , &
- 3559.04000000000 , &
- 3557.54000000000 , &
- 3556.04000000000 , &
- 3554.52000000000 /)
-
- Mref_V%vsv_ref( 151 : 180 ) = (/ &
- 3553.00000000000 , &
- 3551.46000000000 , &
- 3549.91000000000 , &
- 3548.36000000000 , &
- 3546.79000000000 , &
- 3545.21000000000 , &
- 3543.63000000000 , &
- 3542.03000000000 , &
- 3540.42000000000 , &
- 3538.81000000000 , &
- 3537.18000000000 , &
- 3535.54000000000 , &
- 3533.89000000000 , &
- 3532.23000000000 , &
- 3530.57000000000 , &
- 3528.89000000000 , &
- 3527.20000000000 , &
- 3525.50000000000 , &
- 3523.79000000000 , &
- 3522.07000000000 , &
- 3520.34000000000 , &
- 3518.60000000000 , &
- 3516.85000000000 , &
- 3515.09000000000 , &
- 3513.32000000000 , &
- 3511.54000000000 , &
- 3509.75000000000 , &
- 3507.95000000000 , &
- 3506.13000000000 , &
- 3504.31000000000 /)
-
- Mref_V%vsv_ref( 181 : 210 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%vsv_ref( 211 : 240 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%vsv_ref( 241 : 270 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%vsv_ref( 271 : 300 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%vsv_ref( 301 : 330 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%vsv_ref( 331 : 360 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 7264.66000000000 , &
- 7264.75000000000 /)
-
- Mref_V%vsv_ref( 361 : 390 ) = (/ &
- 7264.85000000000 , &
- 7264.94000000000 , &
- 7265.03000000000 , &
- 7265.12000000000 , &
- 7265.21000000000 , &
- 7265.29000000000 , &
- 7265.38000000000 , &
- 7265.46000000000 , &
- 7265.54000000000 , &
- 7265.62000000000 , &
- 7265.69000000000 , &
- 7265.76000000000 , &
- 7265.84000000000 , &
- 7265.91000000000 , &
- 7265.97000000000 , &
- 7265.97000000000 , &
- 7261.63000000000 , &
- 7257.29000000000 , &
- 7252.97000000000 , &
- 7248.64000000000 , &
- 7244.33000000000 , &
- 7240.01000000000 , &
- 7235.71000000000 , &
- 7231.41000000000 , &
- 7227.12000000000 , &
- 7222.83000000000 , &
- 7218.55000000000 , &
- 7214.27000000000 , &
- 7210.00000000000 , &
- 7205.73000000000 /)
-
- Mref_V%vsv_ref( 391 : 420 ) = (/ &
- 7201.47000000000 , &
- 7197.21000000000 , &
- 7192.95000000000 , &
- 7188.70000000000 , &
- 7184.45000000000 , &
- 7180.21000000000 , &
- 7175.97000000000 , &
- 7171.73000000000 , &
- 7167.50000000000 , &
- 7163.27000000000 , &
- 7159.04000000000 , &
- 7154.81000000000 , &
- 7150.59000000000 , &
- 7146.37000000000 , &
- 7142.15000000000 , &
- 7137.93000000000 , &
- 7133.71000000000 , &
- 7129.50000000000 , &
- 7125.29000000000 , &
- 7121.07000000000 , &
- 7116.86000000000 , &
- 7112.65000000000 , &
- 7108.44000000000 , &
- 7104.23000000000 , &
- 7100.02000000000 , &
- 7095.81000000000 , &
- 7091.60000000000 , &
- 7087.39000000000 , &
- 7083.18000000000 , &
- 7078.96000000000 /)
-
- Mref_V%vsv_ref( 421 : 450 ) = (/ &
- 7074.75000000000 , &
- 7070.54000000000 , &
- 7066.32000000000 , &
- 7062.10000000000 , &
- 7057.88000000000 , &
- 7053.66000000000 , &
- 7049.44000000000 , &
- 7045.22000000000 , &
- 7040.99000000000 , &
- 7036.76000000000 , &
- 7032.52000000000 , &
- 7028.29000000000 , &
- 7024.05000000000 , &
- 7019.81000000000 , &
- 7015.56000000000 , &
- 7011.31000000000 , &
- 7007.06000000000 , &
- 7002.80000000000 , &
- 6998.54000000000 , &
- 6994.27000000000 , &
- 6990.00000000000 , &
- 6985.72000000000 , &
- 6981.44000000000 , &
- 6977.15000000000 , &
- 6972.86000000000 , &
- 6968.57000000000 , &
- 6964.26000000000 , &
- 6959.95000000000 , &
- 6955.64000000000 , &
- 6951.32000000000 /)
-
- Mref_V%vsv_ref( 451 : 480 ) = (/ &
- 6946.99000000000 , &
- 6942.66000000000 , &
- 6938.31000000000 , &
- 6933.97000000000 , &
- 6929.61000000000 , &
- 6925.25000000000 , &
- 6920.88000000000 , &
- 6916.50000000000 , &
- 6912.11000000000 , &
- 6907.72000000000 , &
- 6903.32000000000 , &
- 6898.91000000000 , &
- 6894.49000000000 , &
- 6890.06000000000 , &
- 6885.62000000000 , &
- 6881.17000000000 , &
- 6876.72000000000 , &
- 6872.25000000000 , &
- 6867.78000000000 , &
- 6863.29000000000 , &
- 6858.80000000000 , &
- 6854.29000000000 , &
- 6849.78000000000 , &
- 6845.25000000000 , &
- 6840.71000000000 , &
- 6836.16000000000 , &
- 6831.60000000000 , &
- 6827.03000000000 , &
- 6822.45000000000 , &
- 6817.85000000000 /)
-
- Mref_V%vsv_ref( 481 : 510 ) = (/ &
- 6813.25000000000 , &
- 6808.63000000000 , &
- 6804.00000000000 , &
- 6799.35000000000 , &
- 6794.70000000000 , &
- 6790.03000000000 , &
- 6785.34000000000 , &
- 6780.65000000000 , &
- 6775.94000000000 , &
- 6771.22000000000 , &
- 6766.48000000000 , &
- 6761.73000000000 , &
- 6756.97000000000 , &
- 6752.19000000000 , &
- 6747.40000000000 , &
- 6742.59000000000 , &
- 6737.76000000000 , &
- 6732.93000000000 , &
- 6728.07000000000 , &
- 6723.21000000000 , &
- 6718.32000000000 , &
- 6713.42000000000 , &
- 6708.51000000000 , &
- 6703.57000000000 , &
- 6698.62000000000 , &
- 6693.66000000000 , &
- 6688.68000000000 , &
- 6683.68000000000 , &
- 6678.66000000000 , &
- 6673.63000000000 /)
-
- Mref_V%vsv_ref( 511 : 540 ) = (/ &
- 6668.58000000000 , &
- 6663.51000000000 , &
- 6658.43000000000 , &
- 6653.32000000000 , &
- 6648.20000000000 , &
- 6643.06000000000 , &
- 6637.90000000000 , &
- 6632.73000000000 , &
- 6627.53000000000 , &
- 6622.31000000000 , &
- 6617.08000000000 , &
- 6611.82000000000 , &
- 6606.55000000000 , &
- 6601.26000000000 , &
- 6595.94000000000 , &
- 6590.61000000000 , &
- 6584.91000000000 , &
- 6579.51000000000 , &
- 6574.11000000000 , &
- 6568.67000000000 , &
- 6563.22000000000 , &
- 6557.74000000000 , &
- 6552.24000000000 , &
- 6546.73000000000 , &
- 6541.19000000000 , &
- 6535.63000000000 , &
- 6530.05000000000 , &
- 6524.44000000000 , &
- 6518.82000000000 , &
- 6513.17000000000 /)
-
- Mref_V%vsv_ref( 541 : 570 ) = (/ &
- 6507.50000000000 , &
- 6501.80000000000 , &
- 6496.09000000000 , &
- 6490.35000000000 , &
- 6484.59000000000 , &
- 6478.80000000000 , &
- 6472.99000000000 , &
- 6467.16000000000 , &
- 6461.30000000000 , &
- 6455.42000000000 , &
- 6449.51000000000 , &
- 6443.58000000000 , &
- 6437.63000000000 , &
- 6431.65000000000 , &
- 6425.65000000000 , &
- 6419.61000000000 , &
- 6413.56000000000 , &
- 6407.48000000000 , &
- 6401.37000000000 , &
- 6395.25000000000 , &
- 6389.09000000000 , &
- 6382.91000000000 , &
- 6376.70000000000 , &
- 6370.46000000000 , &
- 6364.20000000000 , &
- 6357.91000000000 , &
- 6351.59000000000 , &
- 6345.25000000000 , &
- 6338.88000000000 , &
- 6332.49000000000 /)
-
- Mref_V%vsv_ref( 571 : 600 ) = (/ &
- 6326.05000000000 , &
- 6319.60000000000 , &
- 6313.13000000000 , &
- 6306.62000000000 , &
- 6300.08000000000 , &
- 6293.52000000000 , &
- 6286.92000000000 , &
- 6280.29000000000 , &
- 6273.64000000000 , &
- 6266.96000000000 , &
- 6260.25000000000 , &
- 6253.51000000000 , &
- 6246.75000000000 , &
- 6239.95000000000 , &
- 6239.95000000000 , &
- 6219.68000000000 , &
- 6200.29000000000 , &
- 6181.16000000000 , &
- 6162.04000000000 , &
- 6143.01000000000 , &
- 6123.98000000000 , &
- 6103.71000000000 , &
- 6083.53000000000 , &
- 6063.45000000000 , &
- 6043.44000000000 , &
- 6023.52000000000 , &
- 6003.73000000000 , &
- 5984.03000000000 , &
- 5964.38000000000 , &
- 5944.81000000000 /)
-
- Mref_V%vsv_ref( 601 : 630 ) = (/ &
- 5925.27000000000 , &
- 5550.32000000000 , &
- 5541.20000000000 , &
- 5532.08000000000 , &
- 5522.96000000000 , &
- 5513.83000000000 , &
- 5504.71000000000 , &
- 5495.59000000000 , &
- 5486.47000000000 , &
- 5477.35000000000 , &
- 5468.22000000000 , &
- 5459.10000000000 , &
- 5449.97000000000 , &
- 5440.84000000000 , &
- 5431.71000000000 , &
- 5422.57000000000 , &
- 5422.59000000000 , &
- 5406.39000000000 , &
- 5390.30000000000 , &
- 5374.34000000000 , &
- 5358.52000000000 , &
- 5342.83000000000 , &
- 5327.31000000000 , &
- 5311.92000000000 , &
- 5296.73000000000 , &
- 5281.71000000000 , &
- 5266.86000000000 , &
- 5252.21000000000 , &
- 5237.78000000000 , &
- 5223.55000000000 /)
-
- Mref_V%vsv_ref( 631 : 660 ) = (/ &
- 5209.54000000000 , &
- 5195.72000000000 , &
- 5182.10000000000 , &
- 5168.69000000000 , &
- 5155.42000000000 , &
- 5142.22000000000 , &
- 5129.05000000000 , &
- 5115.84000000000 , &
- 5102.55000000000 , &
- 5089.14000000000 , &
- 5075.50000000000 , &
- 5061.63000000000 , &
- 5047.46000000000 , &
- 5032.93000000000 , &
- 5018.03000000000 , &
- 5002.66000000000 , &
- 4986.77000000000 , &
- 4802.15000000000 , &
- 4798.23000000000 , &
- 4794.28000000000 , &
- 4790.38000000000 , &
- 4785.95000000000 , &
- 4780.83000000000 , &
- 4775.01000000000 , &
- 4768.45000000000 , &
- 4761.12000000000 , &
- 4752.97000000000 , &
- 4744.01000000000 , &
- 4734.25000000000 , &
- 4723.77000000000 /)
-
- Mref_V%vsv_ref( 661 : 690 ) = (/ &
- 4712.70000000000 , &
- 4701.12000000000 , &
- 4689.11000000000 , &
- 4676.77000000000 , &
- 4664.20000000000 , &
- 4651.49000000000 , &
- 4638.69000000000 , &
- 4625.88000000000 , &
- 4613.07000000000 , &
- 4600.31000000000 , &
- 4587.67000000000 , &
- 4575.18000000000 , &
- 4562.88000000000 , &
- 4550.85000000000 , &
- 4539.08000000000 , &
- 4527.67000000000 , &
- 4516.65000000000 , &
- 4506.09000000000 , &
- 4506.00000000000 , &
- 4496.29000000000 , &
- 4487.00000000000 , &
- 4478.17000000000 , &
- 4469.83000000000 , &
- 4462.00000000000 , &
- 4454.69000000000 , &
- 4447.94000000000 , &
- 4441.76000000000 , &
- 4436.18000000000 , &
- 4431.20000000000 , &
- 4426.83000000000 /)
-
- Mref_V%vsv_ref( 691 : 720 ) = (/ &
- 4423.12000000000 , &
- 4420.09000000000 , &
- 4417.81000000000 , &
- 4416.30000000000 , &
- 4415.67000000000 , &
- 4415.93000000000 , &
- 4417.15000000000 , &
- 4419.42000000000 , &
- 4422.78000000000 , &
- 4427.25000000000 , &
- 4432.88000000000 , &
- 4439.57000000000 , &
- 4439.74000000000 , &
- 4444.71000000000 , &
- 4450.28000000000 , &
- 4456.35000000000 , &
- 4462.89000000000 , &
- 4469.94000000000 , &
- 4477.40000000000 , &
- 4485.33000000000 , &
- 4493.69000000000 , &
- 4502.48000000000 , &
- 4511.66000000000 , &
- 4521.24000000000 , &
- 4531.23000000000 , &
- 4541.57000000000 , &
- 4552.08000000000 , &
- 3900.00000000000 , &
- 3900.00000000000 , &
- 3900.00000000000 /)
-
- Mref_V%vsv_ref( 721 : 750 ) = (/ &
- 3900.00000000000 , &
- 3900.00000000000 , &
- 3900.00000000000 , &
- 3900.00000000000 , &
- 3900.00000000000 , &
- 3900.00000000000 , &
- 3900.00000000000 , &
- 3900.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 , &
- 3200.00000000000 /)
-
- Mref_V%Qkappa_ref( 1 : 30 ) = (/ &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 /)
-
- Mref_V%Qkappa_ref( 31 : 60 ) = (/ &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 /)
-
- Mref_V%Qkappa_ref( 61 : 90 ) = (/ &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 /)
-
- Mref_V%Qkappa_ref( 91 : 120 ) = (/ &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 /)
-
- Mref_V%Qkappa_ref( 121 : 150 ) = (/ &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 /)
-
- Mref_V%Qkappa_ref( 151 : 180 ) = (/ &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 , &
- 1327.60000000000 /)
-
- Mref_V%Qkappa_ref( 181 : 210 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 211 : 240 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 241 : 270 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 271 : 300 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 301 : 330 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 331 : 360 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 361 : 390 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 391 : 420 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 421 : 450 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 451 : 480 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 481 : 510 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 511 : 540 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 541 : 570 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 571 : 600 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 601 : 630 ) = (/ &
- 57822.5000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 /)
-
- Mref_V%Qkappa_ref( 631 : 660 ) = (/ &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 /)
-
- Mref_V%Qkappa_ref( 661 : 690 ) = (/ &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 /)
-
- Mref_V%Qkappa_ref( 691 : 720 ) = (/ &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 943.000000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qkappa_ref( 721 : 750 ) = (/ &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 , &
- 57822.5000000000 /)
-
- Mref_V%Qmu_ref( 1 : 30 ) = (/ &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 /)
-
- Mref_V%Qmu_ref( 31 : 60 ) = (/ &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 /)
-
- Mref_V%Qmu_ref( 61 : 90 ) = (/ &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 /)
-
- Mref_V%Qmu_ref( 91 : 120 ) = (/ &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 /)
-
- Mref_V%Qmu_ref( 121 : 150 ) = (/ &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 /)
-
- Mref_V%Qmu_ref( 151 : 180 ) = (/ &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 , &
- 104.000000000000 /)
-
- Mref_V%Qmu_ref( 181 : 210 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%Qmu_ref( 211 : 240 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%Qmu_ref( 241 : 270 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%Qmu_ref( 271 : 300 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%Qmu_ref( 301 : 330 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%Qmu_ref( 331 : 360 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 355.000000000000 , &
- 355.000000000000 /)
-
- Mref_V%Qmu_ref( 361 : 390 ) = (/ &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 /)
-
- Mref_V%Qmu_ref( 391 : 420 ) = (/ &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 /)
-
- Mref_V%Qmu_ref( 421 : 450 ) = (/ &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 /)
-
- Mref_V%Qmu_ref( 451 : 480 ) = (/ &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 /)
-
- Mref_V%Qmu_ref( 481 : 510 ) = (/ &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 /)
-
- Mref_V%Qmu_ref( 511 : 540 ) = (/ &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 /)
-
- Mref_V%Qmu_ref( 541 : 570 ) = (/ &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 /)
-
- Mref_V%Qmu_ref( 571 : 600 ) = (/ &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 , &
- 355.000000000000 /)
-
- Mref_V%Qmu_ref( 601 : 630 ) = (/ &
- 355.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 /)
-
- Mref_V%Qmu_ref( 631 : 660 ) = (/ &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 /)
-
- Mref_V%Qmu_ref( 661 : 690 ) = (/ &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 165.000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 /)
-
- Mref_V%Qmu_ref( 691 : 720 ) = (/ &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 70.0000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 191.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 /)
-
- Mref_V%Qmu_ref( 721 : 750 ) = (/ &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 , &
- 300.000000000000 /)
-
- Mref_V%vph_ref( 1 : 30 ) = (/ &
- 11262.2000000000 , &
- 11262.2000000000 , &
- 11262.1800000000 , &
- 11262.1400000000 , &
- 11262.0900000000 , &
- 11262.0200000000 , &
- 11261.9400000000 , &
- 11261.8500000000 , &
- 11261.7400000000 , &
- 11261.6100000000 , &
- 11261.4700000000 , &
- 11261.3200000000 , &
- 11261.1500000000 , &
- 11260.9700000000 , &
- 11260.7700000000 , &
- 11260.5600000000 , &
- 11260.3400000000 , &
- 11260.0900000000 , &
- 11259.8400000000 , &
- 11259.5700000000 , &
- 11259.2800000000 , &
- 11258.9900000000 , &
- 11258.6700000000 , &
- 11258.3400000000 , &
- 11258.0000000000 , &
- 11257.6400000000 , &
- 11257.2700000000 , &
- 11256.8800000000 , &
- 11256.4800000000 , &
- 11256.0600000000 /)
-
- Mref_V%vph_ref( 31 : 60 ) = (/ &
- 11255.6300000000 , &
- 11255.1900000000 , &
- 11254.7300000000 , &
- 11254.2500000000 , &
- 11253.7600000000 , &
- 11253.2600000000 , &
- 11252.7400000000 , &
- 11252.2100000000 , &
- 11251.6600000000 , &
- 11251.1000000000 , &
- 11250.5200000000 , &
- 11249.9300000000 , &
- 11249.3300000000 , &
- 11248.7100000000 , &
- 11248.0700000000 , &
- 11247.4200000000 , &
- 11246.7600000000 , &
- 11246.0800000000 , &
- 11245.3800000000 , &
- 11244.6700000000 , &
- 11243.9500000000 , &
- 11243.2100000000 , &
- 11242.4600000000 , &
- 11241.7000000000 , &
- 11240.9100000000 , &
- 11240.1200000000 , &
- 11239.3100000000 , &
- 11238.4800000000 , &
- 11237.6400000000 , &
- 11236.7900000000 /)
-
- Mref_V%vph_ref( 61 : 90 ) = (/ &
- 11235.9200000000 , &
- 11235.0400000000 , &
- 11234.1400000000 , &
- 11233.2300000000 , &
- 11232.3000000000 , &
- 11231.3600000000 , &
- 11230.4000000000 , &
- 11229.4300000000 , &
- 11228.4400000000 , &
- 11227.4400000000 , &
- 11226.4300000000 , &
- 11225.4000000000 , &
- 11224.3600000000 , &
- 11223.3000000000 , &
- 11222.2200000000 , &
- 11221.1400000000 , &
- 11220.0300000000 , &
- 11218.9200000000 , &
- 11217.7800000000 , &
- 11216.6400000000 , &
- 11215.4800000000 , &
- 11214.3000000000 , &
- 11213.1100000000 , &
- 11211.9100000000 , &
- 11210.6900000000 , &
- 11209.4500000000 , &
- 11208.2100000000 , &
- 11206.9400000000 , &
- 11205.6700000000 , &
- 11204.3700000000 /)
-
- Mref_V%vph_ref( 91 : 120 ) = (/ &
- 11203.0700000000 , &
- 11201.7400000000 , &
- 11200.4100000000 , &
- 11199.0600000000 , &
- 11197.6900000000 , &
- 11196.3100000000 , &
- 11194.9200000000 , &
- 11193.5100000000 , &
- 11192.0900000000 , &
- 11190.6500000000 , &
- 11189.1900000000 , &
- 11187.7300000000 , &
- 11186.2400000000 , &
- 11184.7500000000 , &
- 11183.2400000000 , &
- 11181.7100000000 , &
- 11180.1700000000 , &
- 11178.6100000000 , &
- 11177.0400000000 , &
- 11175.4600000000 , &
- 11173.8600000000 , &
- 11172.2500000000 , &
- 11170.6200000000 , &
- 11168.9800000000 , &
- 11167.3200000000 , &
- 11165.6500000000 , &
- 11163.9600000000 , &
- 11162.2600000000 , &
- 11160.5400000000 , &
- 11158.8100000000 /)
-
- Mref_V%vph_ref( 121 : 150 ) = (/ &
- 11157.0700000000 , &
- 11155.3100000000 , &
- 11153.5400000000 , &
- 11151.7500000000 , &
- 11149.9400000000 , &
- 11148.1300000000 , &
- 11146.2900000000 , &
- 11144.4500000000 , &
- 11142.5800000000 , &
- 11140.7100000000 , &
- 11138.8200000000 , &
- 11136.9100000000 , &
- 11134.9900000000 , &
- 11133.0600000000 , &
- 11131.1100000000 , &
- 11129.1400000000 , &
- 11127.1600000000 , &
- 11125.1700000000 , &
- 11123.1600000000 , &
- 11121.1400000000 , &
- 11119.1000000000 , &
- 11117.0500000000 , &
- 11114.9900000000 , &
- 11112.9000000000 , &
- 11110.8100000000 , &
- 11108.7000000000 , &
- 11106.5700000000 , &
- 11104.4400000000 , &
- 11102.2800000000 , &
- 11100.1100000000 /)
-
- Mref_V%vph_ref( 151 : 180 ) = (/ &
- 11097.9300000000 , &
- 11095.7300000000 , &
- 11093.5200000000 , &
- 11091.2900000000 , &
- 11089.0500000000 , &
- 11086.8000000000 , &
- 11084.5300000000 , &
- 11082.2400000000 , &
- 11079.9400000000 , &
- 11077.6300000000 , &
- 11075.3000000000 , &
- 11072.9500000000 , &
- 11070.5900000000 , &
- 11068.2200000000 , &
- 11065.8300000000 , &
- 11063.4300000000 , &
- 11061.0200000000 , &
- 11058.5800000000 , &
- 11056.1400000000 , &
- 11053.6800000000 , &
- 11051.2000000000 , &
- 11048.7100000000 , &
- 11046.2100000000 , &
- 11043.6900000000 , &
- 11041.1600000000 , &
- 11038.6100000000 , &
- 11036.0500000000 , &
- 11033.4700000000 , &
- 11030.8800000000 , &
- 11028.2700000000 /)
-
- Mref_V%vph_ref( 181 : 210 ) = (/ &
- 10355.6900000000 , &
- 10348.2800000000 , &
- 10340.8500000000 , &
- 10333.3900000000 , &
- 10325.9100000000 , &
- 10318.4000000000 , &
- 10310.8700000000 , &
- 10303.3000000000 , &
- 10295.7100000000 , &
- 10288.0900000000 , &
- 10280.4400000000 , &
- 10272.7600000000 , &
- 10265.0400000000 , &
- 10257.3000000000 , &
- 10249.5200000000 , &
- 10241.7100000000 , &
- 10233.8600000000 , &
- 10225.9800000000 , &
- 10218.0600000000 , &
- 10210.1100000000 , &
- 10202.1200000000 , &
- 10194.1000000000 , &
- 10186.0400000000 , &
- 10177.9400000000 , &
- 10169.7900000000 , &
- 10161.6100000000 , &
- 10153.3900000000 , &
- 10145.1300000000 , &
- 10136.8300000000 , &
- 10128.4800000000 /)
-
- Mref_V%vph_ref( 211 : 240 ) = (/ &
- 10120.0900000000 , &
- 10111.6600000000 , &
- 10103.1800000000 , &
- 10094.6600000000 , &
- 10086.0900000000 , &
- 10077.4800000000 , &
- 10068.8200000000 , &
- 10060.1100000000 , &
- 10051.3500000000 , &
- 10042.5400000000 , &
- 10033.6900000000 , &
- 10024.7800000000 , &
- 10015.8200000000 , &
- 10006.8200000000 , &
- 9997.75000000000 , &
- 9988.64000000000 , &
- 9979.47000000000 , &
- 9970.25000000000 , &
- 9960.97000000000 , &
- 9951.64000000000 , &
- 9942.25000000000 , &
- 9932.81000000000 , &
- 9923.31000000000 , &
- 9913.75000000000 , &
- 9904.13000000000 , &
- 9894.45000000000 , &
- 9884.71000000000 , &
- 9874.91000000000 , &
- 9865.05000000000 , &
- 9855.13000000000 /)
-
- Mref_V%vph_ref( 241 : 270 ) = (/ &
- 9845.14000000000 , &
- 9835.09000000000 , &
- 9824.98000000000 , &
- 9814.80000000000 , &
- 9804.56000000000 , &
- 9794.25000000000 , &
- 9783.87000000000 , &
- 9773.43000000000 , &
- 9762.92000000000 , &
- 9752.34000000000 , &
- 9741.69000000000 , &
- 9730.97000000000 , &
- 9720.18000000000 , &
- 9709.32000000000 , &
- 9698.39000000000 , &
- 9687.38000000000 , &
- 9676.31000000000 , &
- 9665.15000000000 , &
- 9653.93000000000 , &
- 9642.63000000000 , &
- 9631.25000000000 , &
- 9619.80000000000 , &
- 9608.27000000000 , &
- 9596.66000000000 , &
- 9584.97000000000 , &
- 9573.20000000000 , &
- 9561.36000000000 , &
- 9549.43000000000 , &
- 9537.43000000000 , &
- 9525.34000000000 /)
-
- Mref_V%vph_ref( 271 : 300 ) = (/ &
- 9513.17000000000 , &
- 9500.91000000000 , &
- 9488.57000000000 , &
- 9476.15000000000 , &
- 9463.64000000000 , &
- 9451.05000000000 , &
- 9438.37000000000 , &
- 9425.61000000000 , &
- 9412.75000000000 , &
- 9399.81000000000 , &
- 9386.78000000000 , &
- 9373.66000000000 , &
- 9360.45000000000 , &
- 9347.15000000000 , &
- 9333.76000000000 , &
- 9320.27000000000 , &
- 9306.70000000000 , &
- 9293.03000000000 , &
- 9279.26000000000 , &
- 9265.40000000000 , &
- 9251.45000000000 , &
- 9237.40000000000 , &
- 9223.25000000000 , &
- 9209.00000000000 , &
- 9194.66000000000 , &
- 9180.22000000000 , &
- 9165.68000000000 , &
- 9151.03000000000 , &
- 9136.29000000000 , &
- 9121.45000000000 /)
-
- Mref_V%vph_ref( 301 : 330 ) = (/ &
- 9106.50000000000 , &
- 9091.46000000000 , &
- 9076.30000000000 , &
- 9061.05000000000 , &
- 9045.69000000000 , &
- 9030.23000000000 , &
- 9014.65000000000 , &
- 8998.98000000000 , &
- 8983.19000000000 , &
- 8967.30000000000 , &
- 8951.30000000000 , &
- 8935.19000000000 , &
- 8918.97000000000 , &
- 8902.64000000000 , &
- 8886.20000000000 , &
- 8869.64000000000 , &
- 8852.98000000000 , &
- 8836.20000000000 , &
- 8819.31000000000 , &
- 8802.30000000000 , &
- 8785.18000000000 , &
- 8767.94000000000 , &
- 8750.59000000000 , &
- 8733.12000000000 , &
- 8715.53000000000 , &
- 8697.82000000000 , &
- 8680.00000000000 , &
- 8662.05000000000 , &
- 8643.99000000000 , &
- 8625.80000000000 /)
-
- Mref_V%vph_ref( 331 : 360 ) = (/ &
- 8607.49000000000 , &
- 8589.06000000000 , &
- 8570.51000000000 , &
- 8551.83000000000 , &
- 8533.03000000000 , &
- 8514.10000000000 , &
- 8495.05000000000 , &
- 8475.87000000000 , &
- 8456.57000000000 , &
- 8437.14000000000 , &
- 8417.58000000000 , &
- 8397.89000000000 , &
- 8378.07000000000 , &
- 8358.12000000000 , &
- 8338.04000000000 , &
- 8317.83000000000 , &
- 8297.49000000000 , &
- 8277.01000000000 , &
- 8256.41000000000 , &
- 8235.66000000000 , &
- 8214.79000000000 , &
- 8193.77000000000 , &
- 8172.62000000000 , &
- 8151.34000000000 , &
- 8129.92000000000 , &
- 8108.36000000000 , &
- 8086.66000000000 , &
- 8064.82000000000 , &
- 13716.6000000000 , &
- 13714.2900000000 /)
-
- Mref_V%vph_ref( 361 : 390 ) = (/ &
- 13712.0000000000 , &
- 13709.7000000000 , &
- 13707.4200000000 , &
- 13705.1400000000 , &
- 13702.8600000000 , &
- 13700.5900000000 , &
- 13698.3300000000 , &
- 13696.0700000000 , &
- 13693.8200000000 , &
- 13691.5700000000 , &
- 13689.3300000000 , &
- 13687.0900000000 , &
- 13684.8600000000 , &
- 13682.6300000000 , &
- 13680.4100000000 , &
- 13680.4100000000 , &
- 13668.9000000000 , &
- 13657.4300000000 , &
- 13645.9700000000 , &
- 13634.5400000000 , &
- 13623.1400000000 , &
- 13611.7600000000 , &
- 13600.4000000000 , &
- 13589.0700000000 , &
- 13577.7600000000 , &
- 13566.4700000000 , &
- 13555.2000000000 , &
- 13543.9500000000 , &
- 13532.7200000000 , &
- 13521.5100000000 /)
-
- Mref_V%vph_ref( 391 : 420 ) = (/ &
- 13510.3200000000 , &
- 13499.1400000000 , &
- 13487.9900000000 , &
- 13476.8500000000 , &
- 13465.7300000000 , &
- 13454.6300000000 , &
- 13443.5400000000 , &
- 13432.4600000000 , &
- 13421.4100000000 , &
- 13410.3600000000 , &
- 13399.3300000000 , &
- 13388.3100000000 , &
- 13377.3100000000 , &
- 13366.3100000000 , &
- 13355.3300000000 , &
- 13344.3600000000 , &
- 13333.4000000000 , &
- 13322.4500000000 , &
- 13311.5100000000 , &
- 13300.5800000000 , &
- 13289.6600000000 , &
- 13278.7400000000 , &
- 13267.8400000000 , &
- 13256.9300000000 , &
- 13246.0400000000 , &
- 13235.1500000000 , &
- 13224.2700000000 , &
- 13213.3900000000 , &
- 13202.5100000000 , &
- 13191.6400000000 /)
-
- Mref_V%vph_ref( 421 : 450 ) = (/ &
- 13180.7800000000 , &
- 13169.9100000000 , &
- 13159.0500000000 , &
- 13148.1900000000 , &
- 13137.3300000000 , &
- 13126.4700000000 , &
- 13115.6100000000 , &
- 13104.7500000000 , &
- 13093.8900000000 , &
- 13083.0200000000 , &
- 13072.1600000000 , &
- 13061.2900000000 , &
- 13050.4200000000 , &
- 13039.5500000000 , &
- 13028.6700000000 , &
- 13017.7800000000 , &
- 13006.9000000000 , &
- 12996.0000000000 , &
- 12985.1000000000 , &
- 12974.1900000000 , &
- 12963.2800000000 , &
- 12952.3600000000 , &
- 12941.4200000000 , &
- 12930.4800000000 , &
- 12919.5400000000 , &
- 12908.5800000000 , &
- 12897.6100000000 , &
- 12886.6300000000 , &
- 12875.6300000000 , &
- 12864.6300000000 /)
-
- Mref_V%vph_ref( 451 : 480 ) = (/ &
- 12853.6100000000 , &
- 12842.5800000000 , &
- 12831.5400000000 , &
- 12820.4800000000 , &
- 12809.4100000000 , &
- 12798.3200000000 , &
- 12787.2200000000 , &
- 12776.1000000000 , &
- 12764.9600000000 , &
- 12753.8100000000 , &
- 12742.6300000000 , &
- 12731.4400000000 , &
- 12720.2400000000 , &
- 12709.0100000000 , &
- 12697.7600000000 , &
- 12686.4900000000 , &
- 12675.2000000000 , &
- 12663.8900000000 , &
- 12652.5600000000 , &
- 12641.2000000000 , &
- 12629.8200000000 , &
- 12618.4200000000 , &
- 12606.9900000000 , &
- 12595.5400000000 , &
- 12584.0600000000 , &
- 12572.5600000000 , &
- 12561.0300000000 , &
- 12549.4800000000 , &
- 12537.8900000000 , &
- 12526.2800000000 /)
-
- Mref_V%vph_ref( 481 : 510 ) = (/ &
- 12514.6400000000 , &
- 12502.9800000000 , &
- 12491.2800000000 , &
- 12479.5500000000 , &
- 12467.7900000000 , &
- 12456.0100000000 , &
- 12444.1900000000 , &
- 12432.3300000000 , &
- 12420.4500000000 , &
- 12408.5300000000 , &
- 12396.5800000000 , &
- 12384.6000000000 , &
- 12372.5800000000 , &
- 12360.5200000000 , &
- 12348.4300000000 , &
- 12336.3000000000 , &
- 12324.1400000000 , &
- 12311.9400000000 , &
- 12299.7000000000 , &
- 12287.4200000000 , &
- 12275.1100000000 , &
- 12262.7500000000 , &
- 12250.3500000000 , &
- 12237.9200000000 , &
- 12225.4400000000 , &
- 12212.9200000000 , &
- 12200.3600000000 , &
- 12187.7600000000 , &
- 12175.1100000000 , &
- 12162.4300000000 /)
-
- Mref_V%vph_ref( 511 : 540 ) = (/ &
- 12149.6900000000 , &
- 12136.9100000000 , &
- 12124.0900000000 , &
- 12111.2200000000 , &
- 12098.3100000000 , &
- 12085.3400000000 , &
- 12072.3400000000 , &
- 12059.2800000000 , &
- 12046.1700000000 , &
- 12033.0200000000 , &
- 12019.8200000000 , &
- 12006.5600000000 , &
- 11993.2600000000 , &
- 11979.9000000000 , &
- 11966.5000000000 , &
- 11953.0400000000 , &
- 11939.5300000000 , &
- 11925.9700000000 , &
- 11912.3500000000 , &
- 11898.6900000000 , &
- 11884.9600000000 , &
- 11871.1900000000 , &
- 11857.3700000000 , &
- 11843.4800000000 , &
- 11829.5500000000 , &
- 11815.5700000000 , &
- 11801.5300000000 , &
- 11787.4400000000 , &
- 11773.3000000000 , &
- 11759.1000000000 /)
-
- Mref_V%vph_ref( 541 : 570 ) = (/ &
- 11744.8500000000 , &
- 11730.5500000000 , &
- 11716.1800000000 , &
- 11701.7800000000 , &
- 11687.3100000000 , &
- 11672.8000000000 , &
- 11658.2300000000 , &
- 11643.6000000000 , &
- 11628.9200000000 , &
- 11614.1900000000 , &
- 11599.4000000000 , &
- 11584.5700000000 , &
- 11569.6800000000 , &
- 11554.7200000000 , &
- 11539.7200000000 , &
- 11524.6700000000 , &
- 11509.5600000000 , &
- 11494.3900000000 , &
- 11479.1700000000 , &
- 11463.8900000000 , &
- 11448.5500000000 , &
- 11433.1700000000 , &
- 11417.7300000000 , &
- 11402.2300000000 , &
- 11386.6800000000 , &
- 11371.0700000000 , &
- 11355.4100000000 , &
- 11339.6900000000 , &
- 11323.9100000000 , &
- 11308.0900000000 /)
-
- Mref_V%vph_ref( 571 : 600 ) = (/ &
- 11292.2000000000 , &
- 11276.2500000000 , &
- 11260.2500000000 , &
- 11244.1900000000 , &
- 11228.0800000000 , &
- 11211.9000000000 , &
- 11195.6700000000 , &
- 11179.3800000000 , &
- 11163.0400000000 , &
- 11146.6300000000 , &
- 11130.1800000000 , &
- 11113.6700000000 , &
- 11097.1100000000 , &
- 11080.5100000000 , &
- 11080.5100000000 , &
- 11063.0100000000 , &
- 11045.2200000000 , &
- 11026.8200000000 , &
- 11008.4700000000 , &
- 10989.0400000000 , &
- 10969.6300000000 , &
- 10948.7600000000 , &
- 10928.0200000000 , &
- 10907.4200000000 , &
- 10886.9400000000 , &
- 10866.6000000000 , &
- 10846.4100000000 , &
- 10826.3500000000 , &
- 10806.4200000000 , &
- 10786.6100000000 /)
-
- Mref_V%vph_ref( 601 : 630 ) = (/ &
- 10766.9000000000 , &
- 10278.8800000000 , &
- 10261.8700000000 , &
- 10244.8400000000 , &
- 10227.8200000000 , &
- 10210.8000000000 , &
- 10193.7800000000 , &
- 10176.7700000000 , &
- 10159.7400000000 , &
- 10142.7200000000 , &
- 10125.7100000000 , &
- 10108.7000000000 , &
- 10091.6800000000 , &
- 10074.6800000000 , &
- 10057.6800000000 , &
- 10040.6400000000 , &
- 10040.6700000000 , &
- 10010.5200000000 , &
- 9980.51000000000 , &
- 9950.64000000000 , &
- 9920.91000000000 , &
- 9891.35000000000 , &
- 9861.96000000000 , &
- 9832.79000000000 , &
- 9803.79000000000 , &
- 9774.98000000000 , &
- 9746.41000000000 , &
- 9718.08000000000 , &
- 9689.96000000000 , &
- 9662.10000000000 /)
-
- Mref_V%vph_ref( 631 : 660 ) = (/ &
- 9634.47000000000 , &
- 9607.11000000000 , &
- 9579.97000000000 , &
- 9553.08000000000 , &
- 9526.38000000000 , &
- 9499.78000000000 , &
- 9473.25000000000 , &
- 9446.74000000000 , &
- 9420.19000000000 , &
- 9393.55000000000 , &
- 9366.75000000000 , &
- 9339.76000000000 , &
- 9312.50000000000 , &
- 9284.96000000000 , &
- 9257.04000000000 , &
- 9228.73000000000 , &
- 9199.94000000000 , &
- 8940.94000000000 , &
- 8930.61000000000 , &
- 8920.22000000000 , &
- 8909.68000000000 , &
- 8898.47000000000 , &
- 8886.28000000000 , &
- 8873.03000000000 , &
- 8858.58000000000 , &
- 8842.82000000000 , &
- 8825.64000000000 , &
- 8806.94000000000 , &
- 8786.67000000000 , &
- 8764.85000000000 /)
-
- Mref_V%vph_ref( 661 : 690 ) = (/ &
- 8741.49000000000 , &
- 8716.63000000000 , &
- 8690.30000000000 , &
- 8662.50000000000 , &
- 8633.28000000000 , &
- 8602.66000000000 , &
- 8570.81000000000 , &
- 8538.06000000000 , &
- 8504.66000000000 , &
- 8470.92000000000 , &
- 8437.13000000000 , &
- 8403.52000000000 , &
- 8370.42000000000 , &
- 8338.11000000000 , &
- 8307.42000000000 , &
- 8278.36000000000 , &
- 8255.33000000000 , &
- 8236.90000000000 , &
- 8236.81000000000 , &
- 8222.27000000000 , &
- 8210.47000000000 , &
- 8201.14000000000 , &
- 8193.99000000000 , &
- 8188.67000000000 , &
- 8184.92000000000 , &
- 8182.39000000000 , &
- 8180.79000000000 , &
- 8179.83000000000 , &
- 8179.17000000000 , &
- 8178.54000000000 /)
-
- Mref_V%vph_ref( 691 : 720 ) = (/ &
- 8177.64000000000 , &
- 8176.30000000000 , &
- 8174.55000000000 , &
- 8172.42000000000 , &
- 8169.91000000000 , &
- 8167.05000000000 , &
- 8163.88000000000 , &
- 8160.37000000000 , &
- 8156.58000000000 , &
- 8152.57000000000 , &
- 8148.41000000000 , &
- 8144.20000000000 , &
- 8144.32000000000 , &
- 8141.60000000000 , &
- 8139.01000000000 , &
- 8136.50000000000 , &
- 8134.11000000000 , &
- 8131.82000000000 , &
- 8129.66000000000 , &
- 8127.60000000000 , &
- 8125.65000000000 , &
- 8123.87000000000 , &
- 8122.23000000000 , &
- 8120.74000000000 , &
- 8119.38000000000 , &
- 8118.22000000000 , &
- 8117.13000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 /)
-
- Mref_V%vph_ref( 721 : 750 ) = (/ &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 6800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 , &
- 5800.00000000000 /)
-
- Mref_V%vsh_ref( 1 : 30 ) = (/ &
- 3667.80000000000 , &
- 3667.79000000000 , &
- 3667.78000000000 , &
- 3667.75000000000 , &
- 3667.72000000000 , &
- 3667.67000000000 , &
- 3667.62000000000 , &
- 3667.55000000000 , &
- 3667.47000000000 , &
- 3667.39000000000 , &
- 3667.29000000000 , &
- 3667.18000000000 , &
- 3667.06000000000 , &
- 3666.94000000000 , &
- 3666.80000000000 , &
- 3666.65000000000 , &
- 3666.49000000000 , &
- 3666.32000000000 , &
- 3666.15000000000 , &
- 3665.96000000000 , &
- 3665.76000000000 , &
- 3665.55000000000 , &
- 3665.33000000000 , &
- 3665.10000000000 , &
- 3664.86000000000 , &
- 3664.61000000000 , &
- 3664.35000000000 , &
- 3664.08000000000 , &
- 3663.80000000000 , &
- 3663.51000000000 /)
-
- Mref_V%vsh_ref( 31 : 60 ) = (/ &
- 3663.21000000000 , &
- 3662.90000000000 , &
- 3662.57000000000 , &
- 3662.24000000000 , &
- 3661.90000000000 , &
- 3661.55000000000 , &
- 3661.19000000000 , &
- 3660.81000000000 , &
- 3660.43000000000 , &
- 3660.04000000000 , &
- 3659.64000000000 , &
- 3659.22000000000 , &
- 3658.80000000000 , &
- 3658.36000000000 , &
- 3657.92000000000 , &
- 3657.47000000000 , &
- 3657.00000000000 , &
- 3656.53000000000 , &
- 3656.04000000000 , &
- 3655.55000000000 , &
- 3655.04000000000 , &
- 3654.53000000000 , &
- 3654.00000000000 , &
- 3653.47000000000 , &
- 3652.92000000000 , &
- 3652.36000000000 , &
- 3651.80000000000 , &
- 3651.22000000000 , &
- 3650.63000000000 , &
- 3650.04000000000 /)
-
- Mref_V%vsh_ref( 61 : 90 ) = (/ &
- 3649.43000000000 , &
- 3648.81000000000 , &
- 3648.19000000000 , &
- 3647.55000000000 , &
- 3646.90000000000 , &
- 3646.24000000000 , &
- 3645.57000000000 , &
- 3644.89000000000 , &
- 3644.21000000000 , &
- 3643.51000000000 , &
- 3642.80000000000 , &
- 3642.08000000000 , &
- 3641.35000000000 , &
- 3640.61000000000 , &
- 3639.86000000000 , &
- 3639.10000000000 , &
- 3638.33000000000 , &
- 3637.55000000000 , &
- 3636.76000000000 , &
- 3635.96000000000 , &
- 3635.14000000000 , &
- 3634.32000000000 , &
- 3633.49000000000 , &
- 3632.65000000000 , &
- 3631.80000000000 , &
- 3630.93000000000 , &
- 3630.06000000000 , &
- 3629.18000000000 , &
- 3628.29000000000 , &
- 3627.38000000000 /)
-
- Mref_V%vsh_ref( 91 : 120 ) = (/ &
- 3626.47000000000 , &
- 3625.55000000000 , &
- 3624.61000000000 , &
- 3623.67000000000 , &
- 3622.71000000000 , &
- 3621.75000000000 , &
- 3620.78000000000 , &
- 3619.79000000000 , &
- 3618.80000000000 , &
- 3617.79000000000 , &
- 3616.78000000000 , &
- 3615.75000000000 , &
- 3614.71000000000 , &
- 3613.67000000000 , &
- 3612.61000000000 , &
- 3611.55000000000 , &
- 3610.47000000000 , &
- 3609.38000000000 , &
- 3608.28000000000 , &
- 3607.18000000000 , &
- 3606.06000000000 , &
- 3604.93000000000 , &
- 3603.79000000000 , &
- 3602.65000000000 , &
- 3601.49000000000 , &
- 3600.32000000000 , &
- 3599.14000000000 , &
- 3597.95000000000 , &
- 3596.75000000000 , &
- 3595.54000000000 /)
-
- Mref_V%vsh_ref( 121 : 150 ) = (/ &
- 3594.32000000000 , &
- 3593.10000000000 , &
- 3591.86000000000 , &
- 3590.61000000000 , &
- 3589.34000000000 , &
- 3588.07000000000 , &
- 3586.79000000000 , &
- 3585.50000000000 , &
- 3584.20000000000 , &
- 3582.89000000000 , &
- 3581.57000000000 , &
- 3580.24000000000 , &
- 3578.90000000000 , &
- 3577.54000000000 , &
- 3576.18000000000 , &
- 3574.81000000000 , &
- 3573.43000000000 , &
- 3572.03000000000 , &
- 3570.63000000000 , &
- 3569.22000000000 , &
- 3567.79000000000 , &
- 3566.36000000000 , &
- 3564.91000000000 , &
- 3563.46000000000 , &
- 3562.00000000000 , &
- 3560.52000000000 , &
- 3559.04000000000 , &
- 3557.54000000000 , &
- 3556.04000000000 , &
- 3554.52000000000 /)
-
- Mref_V%vsh_ref( 151 : 180 ) = (/ &
- 3553.00000000000 , &
- 3551.46000000000 , &
- 3549.91000000000 , &
- 3548.36000000000 , &
- 3546.79000000000 , &
- 3545.21000000000 , &
- 3543.63000000000 , &
- 3542.03000000000 , &
- 3540.42000000000 , &
- 3538.81000000000 , &
- 3537.18000000000 , &
- 3535.54000000000 , &
- 3533.89000000000 , &
- 3532.23000000000 , &
- 3530.57000000000 , &
- 3528.89000000000 , &
- 3527.20000000000 , &
- 3525.50000000000 , &
- 3523.79000000000 , &
- 3522.07000000000 , &
- 3520.34000000000 , &
- 3518.60000000000 , &
- 3516.85000000000 , &
- 3515.09000000000 , &
- 3513.32000000000 , &
- 3511.54000000000 , &
- 3509.75000000000 , &
- 3507.95000000000 , &
- 3506.13000000000 , &
- 3504.31000000000 /)
-
- Mref_V%vsh_ref( 181 : 210 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%vsh_ref( 211 : 240 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%vsh_ref( 241 : 270 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%vsh_ref( 271 : 300 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%vsh_ref( 301 : 330 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 /)
-
- Mref_V%vsh_ref( 331 : 360 ) = (/ &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 0.000000000000000E+000 , &
- 7264.66000000000 , &
- 7264.75000000000 /)
-
- Mref_V%vsh_ref( 361 : 390 ) = (/ &
- 7264.85000000000 , &
- 7264.94000000000 , &
- 7265.03000000000 , &
- 7265.12000000000 , &
- 7265.21000000000 , &
- 7265.29000000000 , &
- 7265.38000000000 , &
- 7265.46000000000 , &
- 7265.54000000000 , &
- 7265.62000000000 , &
- 7265.69000000000 , &
- 7265.76000000000 , &
- 7265.84000000000 , &
- 7265.91000000000 , &
- 7265.97000000000 , &
- 7265.97000000000 , &
- 7261.63000000000 , &
- 7257.29000000000 , &
- 7252.97000000000 , &
- 7248.64000000000 , &
- 7244.33000000000 , &
- 7240.01000000000 , &
- 7235.71000000000 , &
- 7231.41000000000 , &
- 7227.12000000000 , &
- 7222.83000000000 , &
- 7218.55000000000 , &
- 7214.27000000000 , &
- 7210.00000000000 , &
- 7205.73000000000 /)
-
- Mref_V%vsh_ref( 391 : 420 ) = (/ &
- 7201.47000000000 , &
- 7197.21000000000 , &
- 7192.95000000000 , &
- 7188.70000000000 , &
- 7184.45000000000 , &
- 7180.21000000000 , &
- 7175.97000000000 , &
- 7171.73000000000 , &
- 7167.50000000000 , &
- 7163.27000000000 , &
- 7159.04000000000 , &
- 7154.81000000000 , &
- 7150.59000000000 , &
- 7146.37000000000 , &
- 7142.15000000000 , &
- 7137.93000000000 , &
- 7133.71000000000 , &
- 7129.50000000000 , &
- 7125.29000000000 , &
- 7121.07000000000 , &
- 7116.86000000000 , &
- 7112.65000000000 , &
- 7108.44000000000 , &
- 7104.23000000000 , &
- 7100.02000000000 , &
- 7095.81000000000 , &
- 7091.60000000000 , &
- 7087.39000000000 , &
- 7083.18000000000 , &
- 7078.96000000000 /)
-
- Mref_V%vsh_ref( 421 : 450 ) = (/ &
- 7074.75000000000 , &
- 7070.54000000000 , &
- 7066.32000000000 , &
- 7062.10000000000 , &
- 7057.88000000000 , &
- 7053.66000000000 , &
- 7049.44000000000 , &
- 7045.22000000000 , &
- 7040.99000000000 , &
- 7036.76000000000 , &
- 7032.52000000000 , &
- 7028.29000000000 , &
- 7024.05000000000 , &
- 7019.81000000000 , &
- 7015.56000000000 , &
- 7011.31000000000 , &
- 7007.06000000000 , &
- 7002.80