[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.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_model_ref
-
Copied: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/prem_common.f90 (from rev 13199, seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/model_prem.f90)
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/prem_common.f90 (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/prem_common.f90 2008-11-08 00:24:07 UTC (rev 13275)
@@ -0,0 +1,363 @@
+!=====================================================================
+!
+! 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)
+
+ 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 R120,RHO_TOP_OC,RHO_BOTTOM_OC
+
+ double precision r,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
+
+ 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_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
+
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/read_compute_parameters.f90 2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/read_compute_parameters.f90 2008-11-08 00:24:07 UTC (rev 13275)
@@ -42,7 +42,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, &
@@ -666,11 +666,8 @@
endif
endif
- if (REFERENCE_1D_MODEL == REFERENCE_MODEL_1066A) then
- DT = DT*0.20d0
- endif
+ call reference_1d_model_adjust_time_step(DT)
-
if( .not. ATTENUATION_RANGE_PREDEFINED ) then
call auto_attenuation_periods(ANGULAR_WIDTH_XI_IN_DEGREES, NEX_MAX, &
MIN_ATTENUATION_PERIOD, MAX_ATTENUATION_PERIOD)
@@ -780,121 +777,10 @@
! value common to all models
RHO_OCEANS = 1020.0 / RHOAV
- if(REFERENCE_1D_MODEL == REFERENCE_MODEL_IASP91) then
+ 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)
-! 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
-
- else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_AK135) then
-
-! 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
-
- else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_1066A) then
-
-! 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
-
- else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_REF) then
-
-! 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
-
- else
-
-! 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
-
- endif
-
! honor the PREM Moho or define a fictitious Moho in order to have even radial sampling
! from the d220 to the Earth surface
if(HONOR_1D_SPHERICAL_MOHO) then
@@ -1059,12 +945,6 @@
if(NCHUNKS > 2 .and. NEX_XI /= NEX_ETA) stop 'must have NEX_XI = NEX_ETA for more than two chunks'
if(NCHUNKS > 2 .and. NPROC_XI /= NPROC_ETA) stop 'must have NPROC_XI = NPROC_ETA for more than two chunks'
-! check that IASP91, AK135, or 1066A is isotropic
- if((REFERENCE_1D_MODEL == REFERENCE_MODEL_IASP91 .or. &
- REFERENCE_1D_MODEL == REFERENCE_MODEL_AK135 .or. &
- REFERENCE_1D_MODEL == REFERENCE_MODEL_1066A) .and. TRANSVERSE_ISOTROPY) &
- stop 'models IASP91, AK135 and 1066A are currently isotropic'
-
ELEMENT_WIDTH = ANGULAR_WIDTH_XI_IN_DEGREES/dble(NEX_MAX) * DEGREES_TO_RADIANS
!
Deleted: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/s362ani.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/s362ani.f90 2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/s362ani.f90 2008-11-08 00:24:07 UTC (rev 13275)
@@ -1,1784 +0,0 @@
-
- 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, &
- maxhpa,maxker,maxcoe, &
- numhpa,numker,numcoe,lmxhpa, &
- ihpakern,itypehpa,coe, &
- itpspl,xlatspl,xlonspl,radispl, &
- numvar,ivarkern,varstr, &
- refmdl,kerstr,hsplfl,dskker,ierror)
-
- 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) targetfile
-
- integer numhpa,numker,maxhpa,maxker,maxcoe
-
- integer numcoe(maxhpa)
- integer lmxhpa(maxhpa)
- integer ihpakern(maxker)
- integer itypehpa(maxhpa)
- integer itpspl(maxcoe,maxhpa)
- integer ivarkern(maxker)
-
- real(kind=4) coe(maxcoe,maxker)
- real(kind=4) xlatspl(maxcoe,maxhpa)
- real(kind=4) xlonspl(maxcoe,maxhpa)
- real(kind=4) radispl(maxcoe,maxhpa)
-
- character(len=80) refmdl
- character(len=80) kerstr
- character(len=80) hsplfl(maxhpa)
- character(len=40) dskker(maxker)
- character(len=40) string
- character(len=40) varstr(maxker)
-
- 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_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)
-
- 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
-
- integer, parameter :: maxker=200
- integer, parameter :: maxl=72
- integer, parameter :: maxcoe=2000
- integer, parameter :: maxver=1000
- integer, parameter :: maxhpa=2
-
- integer numker
- integer numhpa
- integer ihpa
- integer lmxhpa(maxhpa)
- integer itypehpa(maxhpa)
- integer ihpakern(maxker)
- integer numcoe(maxhpa)
- integer ivarkern(maxker)
- integer itpspl(maxcoe,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)
-
- character(len=80) kerstr
- character(len=80) refmdl
- character(len=40) varstr(maxker)
-
-! -------------------------------------
-
- 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, &
- maxhpa,maxker,maxcoe, &
- numhpa,numker,numcoe,lmxhpa, &
- ihpakern,itypehpa,coe, &
- itpspl,xlaspl,xlospl,radspl, &
- numvar,ivarkern,varstr, &
- refmdl,kerstr,hsplfl,dskker,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
-
-
-! --- evaluate perturbations in per cent
-
- subroutine 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)
-
- implicit none
-
- 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)
-
- 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, &
- 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
-
- 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)
-
- 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/specfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/specfem3D.f90 2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/specfem3D.f90 2008-11-08 00:24:07 UTC (rev 13275)
@@ -706,7 +706,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, &
@@ -782,7 +782,7 @@
logical :: CASE_3D
! arrays for BCAST
- integer, dimension(38) :: bcast_integer
+ integer, dimension(37) :: bcast_integer
double precision, dimension(30) :: bcast_double_precision
logical, dimension(33) :: bcast_logical
@@ -837,7 +837,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_computed, &
@@ -867,7 +867,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/)
@@ -892,7 +892,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)
@@ -959,16 +959,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)
@@ -2500,8 +2499,7 @@
! use PREM density profile to calculate gravity (fine for other 1D models)
call prem_iso(myrank,radius,rho,drhodr,vp,vs,Qkappa,Qmu,idoubling,.false., &
- ONE_CRUST,.false.,RICB,RCMB,RTOPDDOUBLEPRIME, &
- R600,R670,R220,R771,R400,R80,RMOHO,RMIDDLE_CRUST,ROCEAN)
+ ONE_CRUST,.false.)
dg = 4.0d0*rho - 2.0d0*g/radius
minus_gravity_table(int_radius) = - g
@@ -2543,8 +2541,7 @@
radius = dble(int_radius) / (R_EARTH_KM * 10.d0)
idoubling = 0
call prem_iso(myrank,radius,rho,drhodr,vp,vs,Qkappa,Qmu,idoubling,.false., &
- ONE_CRUST,.false.,RICB,RCMB,RTOPDDOUBLEPRIME, &
- R600,R670,R220,R771,R400,R80,RMOHO,RMIDDLE_CRUST,ROCEAN)
+ ONE_CRUST,.false.)
d_ln_density_dr_table(int_radius) = drhodr/rho
enddo
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/write_AVS_DX_global_chunks_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/write_AVS_DX_global_chunks_data.f90 2008-10-31 03:55:49 UTC (rev 13199)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/write_AVS_DX_global_chunks_data.f90 2008-11-08 00:24:07 UTC (rev 13275)
@@ -28,24 +28,24 @@
! create AVS or DX 2D data for the faces of the global chunks,
! to be recombined in postprocessing
subroutine write_AVS_DX_global_chunks_data(myrank,prname,nspec,iboun, &
- ibool,idoubling,xstore,ystore,zstore,num_ibool_AVS_DX,mask_ibool, &
+ ibool,iregion_code,idoubling,xstore,ystore,zstore,num_ibool_AVS_DX,mask_ibool, &
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)
implicit none
include "constants.h"
- integer nspec,myrank,REFERENCE_1D_MODEL
+ integer nspec,myrank,iregion_code
integer ibool(NGLLX,NGLLY,NGLLZ,nspec)
integer idoubling(nspec)
- logical iboun(6,nspec),ELLIPTICITY,ISOTROPIC_3D_MANTLE,CRUSTAL,ONE_CRUST
+ logical iboun(6,nspec),ELLIPTICITY,ISOTROPIC_3D_MANTLE,CRUSTAL,ONE_CRUST, &
+ TRANSVERSE_ISOTROPY
- double precision RICB,RCMB,RTOPDDOUBLEPRIME,R600,R670,R220,R771,R400,R120,R80,RMOHO,RMIDDLE_CRUST,ROCEAN
+ double precision RCMB
double precision xstore(NGLLX,NGLLY,NGLLZ,nspec)
double precision ystore(NGLLX,NGLLY,NGLLZ,nspec)
@@ -81,51 +81,6 @@
! processor identification
character(len=150) prname
-! 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
-
! writing points
open(unit=10,file=prname(1:len_trim(prname))//'AVS_DXpointschunks.txt',status='unknown')
open(unit=11,file=prname(1:len_trim(prname))//'AVS_DXpointschunks_stability.txt',status='unknown')
@@ -599,29 +554,12 @@
r=r/factor
endif
- if(REFERENCE_1D_MODEL == REFERENCE_MODEL_IASP91) then
- call model_iasp91(myrank,r,rho,vp,vs,Qkappa,Qmu,idoubling(ispec),ONE_CRUST, &
- .true.,RICB,RCMB,RTOPDDOUBLEPRIME,R771,R670,R400,R220,R120,RMOHO,RMIDDLE_CRUST)
+ call get_reference_1d_model(myrank,r,rho,vpv,vph,vsv,vsh,eta_aniso, &
+ Qkappa,Qmu,idoubling(ispec),iregion_code,CRUSTAL,ONE_CRUST,TRANSVERSE_ISOTROPY, &
+ ISOTROPIC_3D_MANTLE)
+ vp = vpv
+ vs = vsv
- else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_PREM) then
- call prem_iso(myrank,r,rho,vp,vs,Qkappa,Qmu,idoubling(ispec), &
- CRUSTAL,ONE_CRUST,.true.,RICB,RCMB,RTOPDDOUBLEPRIME, &
- R600,R670,R220,R771,R400,R80,RMOHO,RMIDDLE_CRUST,ROCEAN)
-
- else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_1066A) then
- call model_1066a(r,rho,vp,vs,Qkappa,Qmu,idoubling(ispec),M1066a_V)
-
- else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_AK135) then
- call model_ak135(r,rho,vp,vs,Qkappa,Qmu,idoubling(ispec),Mak135_V)
-
- else if(REFERENCE_1D_MODEL == REFERENCE_MODEL_REF) then
- call model_ref(r,rho,vpv,vph,vsv,vsh,eta_aniso,Qkappa,Qmu,idoubling(ispec),CRUSTAL,Mref_V)
- vp = vpv
- vs = vsv
- else
- call exit_MPI(myrank,'unknown 1D reference Earth model in writing of AVS/DX data')
- endif
-
dvp = dvp + (sqrt((kappavstore(i,j,k,ispec)+4.*muvstore(i,j,k,ispec)/3.)/rhostore(i,j,k,ispec)) - sngl(vp))/sngl(vp)
dvs = dvs + (sqrt(muvstore(i,j,k,ispec)/rhostore(i,j,k,ispec)) - sngl(vs))/sngl(vs)
enddo
More information about the CIG-COMMITS
mailing list