164 real ,
intent( in),
dimension(IG_NDOF,ig_ngll_total) :: gll_all_values
165 integer,
intent( in),
dimension( IG_NGLL,IG_NGLL,IG_NGLL) :: gll_global_number
166 real ,
intent(out),
dimension(IG_NDOF,IG_NGLL,IG_NGLL,IG_NGLL) :: gll_selected_values
177 igll = gll_global_number(m,l,k)
179 gll_selected_values(1,m,l,k) = gll_all_values(1,igll)
180 gll_selected_values(2,m,l,k) = gll_all_values(2,igll)
181 gll_selected_values(3,m,l,k) = gll_all_values(3,igll)
210 real ,
intent( in),
dimension(IG_NDOF,ig_ngll_total) :: gll_all_values
211 integer,
intent( in),
dimension( IG_NGLL,IG_NGLL) :: gll_global_number
212 real ,
intent(out),
dimension(IG_NDOF,IG_NGLL,IG_NGLL) :: gll_selected_values
221 igll = gll_global_number(l,k)
223 gll_selected_values(1,l,k) = gll_all_values(1,igll)
224 gll_selected_values(2,l,k) = gll_all_values(2,igll)
225 gll_selected_values(3,l,k) = gll_all_values(3,igll)
251 real ,
intent( in),
dimension(ig_ngll_total) :: gll_all_values
252 integer,
intent( in),
dimension(:) :: gll_global_number
253 real ,
intent(out),
dimension(:) :: gll_selected_values
258 do k = 1,
size(gll_global_number)
260 igll = gll_global_number(k)
262 gll_selected_values(k) = gll_all_values(igll)
288 real ,
intent( in),
dimension(IG_NDOF,ig_ngll_total) :: gll_all_values
289 integer,
intent( in),
dimension(:) :: gll_global_number
290 real ,
intent(out),
dimension(:,:) :: gll_selected_values
295 do k = 1,
size(gll_global_number)
297 igll = gll_global_number(k)
299 gll_selected_values(1,k) = gll_all_values(1,igll)
300 gll_selected_values(2,k) = gll_all_values(2,igll)
301 gll_selected_values(3,k) = gll_all_values(3,igll)
subroutine, public get_hexa_gll_value(gll_all_values, gll_global_number, gll_selected_values)
subroutine to get hexahedron element GLL values from an array ordered by global GLL nodes numbering...
This module defines all global variables of EFISPEC3D. Scalar variables are initialized directly in t...
Interface for redirection to subroutines mod_gll_value::get_node_gll_value_x or mod_gll_value::get_no...
subroutine get_node_gll_value_xyz(gll_all_values, gll_global_number, gll_selected_values)
subroutine to get GLL node values from an array ordered by global GLL nodes numbering.
subroutine get_node_gll_value_x(gll_all_values, gll_global_number, gll_selected_values)
subroutine to get GLL node values from an array ordered by global GLL nodes numbering.
This module contains subroutines to get GLL nodes values from global GLL nodes numbering.
subroutine, public get_quad_gll_value(gll_all_values, gll_global_number, gll_selected_values)
subroutine to get quadrangle element GLL values from an array ordered by global GLL nodes numbering...