FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
line2n.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_line2n(lcoord,func)
12 real(kind=kreal), intent(in) :: lcoord(1)
13 real(kind=kreal) :: func(2)
14 func(1) = 0.5d0*(1.d0-lcoord(1))
15 func(2) = 0.5d0*(1.d0+lcoord(1))
16 end subroutine
17
18 subroutine shapederiv_line2n(func)
19 real(kind=kreal) :: func(2,1)
20 func(1,1) = -0.5d0
21 func(2,1) = 0.5d0
22 end subroutine
23
24 subroutine shape2ndderiv_line2n(func)
25 real(kind=kreal) :: func(2,1,1)
26 func(:,:,:) = 0.d0
27 end subroutine
28
29end module
This module contains functions for interpolation in 2 node line element (Langrange interpolation)
Definition: line2n.f90:7
subroutine shapefunc_line2n(lcoord, func)
Definition: line2n.f90:12
subroutine shapederiv_line2n(func)
Definition: line2n.f90:19
subroutine shape2ndderiv_line2n(func)
Definition: line2n.f90:25