FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
tet4n.f90
Go to the documentation of this file.
1!-------------------------------------------------------------------------------
2! Copyright (c) 2019 FrontISTR Commons
3! This software is released under the MIT License, see LICENSE.txt
4!-------------------------------------------------------------------------------
8 integer, parameter, private :: kreal = kind(0.0d0)
9
10contains
11 subroutine shapefunc_tet4n(volcoord,func)
12 real(kind=kreal), intent(in) :: volcoord(3)
13 real(kind=kreal) :: func(4)
14 func(2:4) = volcoord(1:3)
15 func(1) = 1.d0-volcoord(1)-volcoord(2)-volcoord(3)
16 end subroutine
17
18 subroutine shapederiv_tet4n(func)
19 real(kind=kreal), intent(out) :: func(4,3)
20 func(1,1) = -1.d0
21 func(2,1) = 1.d0
22 func(3,1) = 0.d0
23 func(4,1) = 0.d0
24
25 func(1,2) = -1.d0
26 func(2,2) = 0.d0
27 func(3,2) = 1.d0
28 func(4,2) = 0.d0
29
30 func(1,3) = -1.d0
31 func(2,3) = 0.d0
32 func(3,3) = 0.d0
33 func(4,3) = 1.d0
34 end subroutine
35
36end module
This module contains functions for interpolation in 4 node tetrahedron element (Langrange interpolati...
Definition: tet4n.f90:7
subroutine shapefunc_tet4n(volcoord, func)
Definition: tet4n.f90:12
subroutine shapederiv_tet4n(func)
Definition: tet4n.f90:19