FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
line3n.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_line3n(lcoord,func)
12 real(kind=kreal), intent(in) :: lcoord(1)
13 real(kind=kreal) :: func(3)
14 func(1) =-0.5d0*(1.d0-lcoord(1))*lcoord(1)
15 func(2) = 0.5d0*(1.d0+lcoord(1))*lcoord(1)
16 func(3) = 1.0d0-lcoord(1)*lcoord(1)
17 end subroutine
18
19 subroutine shapederiv_line3n(lcoord,func)
20 real(kind=kreal), intent(in) :: lcoord(1)
21 real(kind=kreal) :: func(3,1)
22 func(1,1) = lcoord(1)-0.5d0
23 func(2,1) = lcoord(1)+0.5d0
24 func(3,1) =-2.d0*lcoord(1)
25 end subroutine
26
27 subroutine shape2ndderiv_line3n(func)
28 real(kind=kreal) :: func(3,1,1)
29 func(1,1,1) = 1.d0
30 func(2,1,1) = 1.d0
31 func(3,1,1) = -2.d0
32 end subroutine
33
34end module
This module contains functions for interpolation in 3 nodes line element (Langrange interpolation)
Definition: line3n.f90:7
subroutine shapefunc_line3n(lcoord, func)
Definition: line3n.f90:12
subroutine shape2ndderiv_line3n(func)
Definition: line3n.f90:28
subroutine shapederiv_line3n(lcoord, func)
Definition: line3n.f90:20