56 REAL(DP),
PARAMETER ::
euler=2.718281828459045235360287471352662497757_dp
57 REAL(DP),
PARAMETER ::
pi=3.141592653589793238462643383279502884197_dp
58 REAL(DP),
PARAMETER ::
twopi=6.283185307179586476925286766559005768394_dp
263 &
global_deriv_s1_s2,
global_deriv_s3,0,
global_deriv_s1_s3,
global_deriv_s2_s3,
global_deriv_s1_s2_s3,0,0,0,0,0,0,0,0,0 ]
275 INTEGER(INTG) ::
other_xi_directions3(3,3,2) = reshape([ 1,2,3,2,1,1,3,3,2,0,3,2,3,0,1,2,1,0 ],[3,3,2])
277 INTEGER(INTG) ::
other_xi_directions4(4,3) = reshape([ 2,3,4,1,3,4,1,2,4,1,2,3 ],[4,3])
280 INTEGER(INTG) ::
other_xi_orientations3(3,3) = reshape([0,-1,1,1,0,-1,-1,1,0],[3,3])
286 INTEGER(INTG),
PARAMETER ::
tensor_to_voigt3(3,3)=reshape([1,4,5,4,2,6,5,6,3],[3,3])
287 INTEGER(INTG),
PARAMETER ::
voigt_to_tensor3(2,6)=reshape([1,1,2,2,3,3,1,2,1,3,2,3],[2,6])
integer(intg), parameter signed_magnitude_integer
Signed magnitude integer type.
integer(intg), parameter second_part_deriv
Second partial derivative i.e., d^2u/ds^2.
integer(intg), dimension(2) other_xi_directions2
OTHER_XI_DIRECTIONS2(ni) gives the other xi direction for direction ni for a two dimensional element...
integer(intg), parameter c_int_type
C integer data type.
integer(intg), parameter no_physical_deriv
No physical derivative i.e., u.
integer(intg), parameter global_deriv_s1_s2_s3
Cross derivative in the s1, s2 and s3 direction i.e., d^3u/ds1ds2ds3.
integer(intg), dimension(20) partial_derivative_global_derivative_map
PARTIAL_DERIVATIVE_GLOBAL_DERIVATIVE_MAP(nu) gives the global derivative index for the the nu'th part...
integer(intg), parameter cray_computer
Cray computer system type.
integer(intg), parameter no_global_deriv
No global derivative i.e., u.
real(sp), parameter zero_tolerance_sp
The zero tolerance for single precision zero tests i.e., if(abs(x)>zero_tolerance) then...
integer(intg), parameter twos_complement_integer
Twos complement integer type.
integer(intg), parameter linux_os
Linux operating system type.
integer(intg), parameter sgi_computer
Silicon Graphics computer system type.
integer(intg), parameter library_cmiss_type
CMISS (internal) library type.
real(dp), parameter pi
The double precision value of pi.
integer(intg), parameter no_part_deriv
No partial derivative i.e., u.
integer(intg), parameter part_deriv_s4_s4_s4
Third partial derivative in the s4 direction i.e., d^3u/ds4^3.
integer(intg), parameter part_deriv_s4
First partial derivative in the s4 direction i.e., du/ds4.
integer(intg), parameter short_integer_type
Short integer data type.
integer(intg), parameter library_lusol_type
LUSOL library type.
integer(intg), dimension(4) partial_derivative_second_derivative_map
PARTIAL_DERIVATIVE_SECOND_DERIVATIVE_MAP(nic) gives the partial derivative index for the second deriv...
integer(intg), parameter maximum_physical_deriv_number
The maximum physical derivative number.
integer(intg), parameter library_mumps_type
MUMPS library type.
integer(intg), parameter library_umfpack_type
UMFPack library type.
integer(intg), parameter double_real_type
Double precision real data type.
integer(intg), parameter part_deriv_s3_s4
Cross derivative in the s3 and s4 direction i.e., d^2u/ds3ds4.
integer(intg), dimension(2, 3), parameter voigt_to_tensor2
integer(intg), parameter first_part_deriv
First partial derivative i.e., du/ds.
integer(intg), parameter long_integer_type
Long integer data type.
integer(intg), parameter part_deriv_s2
First partial derivative in the s2 direction i.e., du/ds2.
integer(intg), parameter part_deriv_s3_s4_s4
Cross derivative in the s3, s4 and s4 direction i.e., d^3u/ds3ds4^2.
integer(intg), parameter part_deriv_s4_s4
Second partial derivative in the s4 direction i.e., d^2u/ds4ds4.
integer(intg), parameter part_deriv_s1_s4_s4
Cross derivative in the s2, s4 and s4 direction i.e., d^3u/ds1ds4^2.
integer(intg), parameter global_deriv_s2
First global derivative in the s2 direction i.e., du/ds2.
integer(intg), dimension(3) global_derivative_maximum_map
GLOBAL_DERIVATIVE_MAXIMUM_MAP(ni) gives the maximum of global derivative index for the the ni'th dire...
integer(intg), parameter global_deriv_s2_s3
Global Cross derivative in the s2 and s3 direction i.e., d^2u/ds2ds3.
integer(intg), dimension(3, 3) other_xi_orientations3
OTHER_XI_ORIENTATIONSS3(ni,nii) gives the orientation of the given two xi directions. Is equal to leviCivita(ni,nii,OTHER_XI_DIRECTIONS3(ni,nii,2)) where leviCivita is the Levi-Civita or alternating symbol.
integer(intg), parameter library_essl_type
ESSL library type.
integer(intg), dimension(2, 2), parameter tensor_to_voigt2
This module contains all program wide constants.
integer(intg), parameter part_deriv_s1
First partial derivative in the s1 direction i.e., du/ds1.
real(sp) loose_tolerance_sp
The loose tolerance for single precision convergence calculations. Loose tolerance is to be used in t...
integer(intg), parameter double_complex_type
Double precision complex data type.
integer(intg), parameter pc_computer
PC computer system type.
integer(intg), parameter maxstrlen
Maximum string length fro character strings.
integer(intg), dimension(3, 3), parameter tensor_to_voigt3
integer(intg), parameter logical_type
Logical/boolean data type.
integer(intg), parameter windows_os
Windows operating system type.
integer(intg), dimension(8) global_derivative_partial_derivative_map
GLOBAL_DERIVATIVE_PARTIAL_DERIVATIVE_MAP(nk) gives the partial derivative index for the the nk'th glo...
real(dp), parameter zero_tolerance_dp
The zero tolerance for double precision zero tests i.e., if(abs(x)>zero_tolerance) then...
integer(intg), parameter part_deriv_s1_s3_s4
Cross derivative in the s1, s3 and s4 direction i.e., d^3u/ds1ds3ds4.
integer(intg), parameter part_deriv_s3
First partial derivative in the s3 direction i.e., du/ds3.
integer(intg), parameter irix_os
IRIX operating system type.
integer(intg), dimension(3, 3, 2) other_xi_directions3
OTHER_XI_DIRECTIONS3(ni,nii,type) gives the other xi directions for direction ni for a three dimensio...
integer(intg), parameter quadruple_real_type
Quadruple precision real data type.
integer(intg), parameter part_deriv_s1_s1
Second partial derivative in the s1 direction i.e., d^2u/ds1ds1.
integer(intg), parameter library_hypre_type
Hypre library type.
integer(intg), parameter part_deriv_s2_s3
Cross derivative in the s2 and s3 direction i.e., d^2u/ds2ds3.
integer(intg), parameter library_petsc_type
PETSc library type.
integer(intg), parameter part_deriv_s2_s3_s4
Cross derivative in the s2, s3 and s4 direction i.e., d^3u/ds2ds3ds4.
integer(intg), parameter part_deriv_s1_s3
Cross derivative in the s1 and s3 direction i.e., d^2u/ds1ds3.
integer(intg), dimension(4) partial_derivative_first_derivative_map
PARTIAL_DERIVATIVE_FIRST_DERIVATIVE_MAP(nic) gives the partial derivative index for the first derivat...
integer(intg), parameter unknown_computer
Unknown computer system type.
integer(intg), parameter third_part_deriv
Third partial derivative i.e., d^3u/ds^3.
integer(intg), parameter ibm_computer
IBM system type.
real(dp), parameter convergence_tolerance_dp
The convergence tolerance for double precision convergence calculations. Convergence tests should be ...
integer(intg), parameter unknown_os
Unknown operating system type.
real(dp), parameter convergence_tolerance
integer(intg), parameter global_deriv_s1_s2
Global Cross derivative in the s1 and s2 direction i.e., d^2u/ds1ds2.
integer(intg), parameter library_spooles_type
SPOOLES library type.
integer(intg), dimension(4, 3) other_xi_directions4
OTHER_XI_DIRECTIONS4(nic,nii) gives the other xi coordinates for coordinate nic for a simplex element...
integer(intg), parameter part_deriv_s1_s4
Cross derivative in the s1 and s4 direction i.e., d^2u/ds1ds4.
real(dp), parameter euler
The double precision value of e.
integer(intg), parameter global_deriv_s1
First global derivative in the s1 direction i.e., du/ds1.
integer(intg), dimension(4) partial_derivative_maximum_map
PARTIAL_DERIVATIVE_MAXIMUM_MAP(nic) gives the maximum of partial derivative index for the the ni(c)'t...
integer(intg), parameter single_complex_type
Single precision complex data type.
real(dp), parameter convergence_tolerance_sp
The convergence tolerance for single precision convergence calculations. Convergence tests should be ...
real(dp), parameter twopi
The double value of 2pi.
integer(intg), parameter library_lapack_type
LAPACK library type.
integer(intg), parameter part_deriv_s2_s4
Cross derivative in the s2 and s4 direction i.e., d^2u/ds2ds4.
real(dp) loose_tolerance
The loose tolerance for double precision convergence calculations. Loose tolerance is to be used in t...
integer(intg), parameter part_deriv_s1_s2
Cross derivative in the s1 and s2 direction i.e., d^2u/ds1ds2.
integer(intg), parameter part_deriv_s2_s2
Second partial derivative in the s2 direction i.e., d^2u/ds2ds2.
integer(intg), parameter vms_os
VMS operating system type.
integer(intg), parameter global_deriv_s3
First global derivative in the s3 direction i.e., du/ds3.
integer(intg), dimension(2) other_xi_orientations2
OTHER_XI_ORIENTATIONSS2(ni) gives the orientation of the given xi direction and the other xi directio...
integer(intg), parameter part_deriv_s3_s3
Second partial derivative in the s3 direction i.e., d^2u/ds3ds3.
integer(intg), parameter maximum_global_deriv_number
The maximum global derivative number.
integer(intg), parameter gradient_physical_deriv
Gradient physical derivative i.e., grad u.
integer(intg), parameter character_type
Character data type.
integer(intg), dimension(2, 6), parameter voigt_to_tensor3
integer(intg), parameter single_real_type
Single precision real data type.
integer(intg), parameter part_deriv_s2_s4_s4
Cross derivative in the s2, s4 and s4 direction i.e., d^3u/ds2ds4^2.
integer(intg), parameter library_superlu_type
SuperLU library type.
integer(intg), parameter little_endian_number
Little endian number type.
integer(intg), parameter aix_os
AIX operating system type.
integer(intg), parameter dec_computer
Digital computer system type.
integer(intg), parameter global_deriv_s1_s3
Global Cross derivative in the s1 and s3 direction i.e., d^2u/ds1ds3.
integer(intg), dimension(23, 4) partial_derivative_index
Partial derivative index map. PARTIAL_DERIVATIVE_INDEX(idx,nic) gives the order of the partial deriva...
integer(intg), parameter library_pastix_type
PaStiX library type.
integer(intg), parameter integer_type
Integer data type.
integer(intg), parameter big_endian_number
Big endian number type.
real(dp), parameter zero_tolerance
integer(intg), parameter library_tao_type
TAO library type.
integer(intg), parameter quadruple_complex_type
Quadruple precision complex data type.
This module contains all kind definitions.
integer(intg), parameter part_deriv_s1_s2_s3
Cross derivative in the s1, s2 and s3 direction i.e., d^3u/ds1ds2ds3.
integer(intg), parameter part_deriv_s1_s2_s4
Cross derivative in the s1, s2 and s4 direction i.e., d^3u/ds1ds2ds4.
1.8.11