FrontISTR  5.7.1
Large-scale structural analysis program with finit element method
uhardening.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 function uhardening( matl, pstrain )
9  use hecmw
10  implicit none
11  real( kind=kreal ), intent(in) :: matl(:)
12  real( kind=kreal ), intent(in) :: pstrain
13  real(kind=kreal) :: uhardening
14 
15  uhardening = 0.d0
16 end function
17 
19 function ukhardening( matl, pstrain )
20  use hecmw
21  implicit none
22  real( kind=kreal ), intent(in) :: matl(:)
23  real( kind=kreal ), intent(in) :: pstrain
24  real(kind=kreal) :: ukhardening
25 
26  ukhardening = 0.d0
27 end function
28 
30 function ucurryield( matl, pstrain )
31  use hecmw
32  implicit none
33  real( kind=kreal ), intent(in) :: matl(:)
34  real( kind=kreal ), intent(in) :: pstrain
35  real(kind=kreal) :: ucurryield
36 
37  ucurryield = 0.d0
38 end function
hecmw
Definition: hecmw.f90:6
ukhardening
real(kind=kreal) function ukhardening(matl, pstrain)
This subroutine calculate kinematic hardening tangent.
Definition: uhardening.f90:20
ucurryield
real(kind=kreal) function ucurryield(matl, pstrain)
This subroutine calculate current yield value.
Definition: uhardening.f90:31
uhardening
real(kind=kreal) function uhardening(matl, pstrain)
This function provides user interface to define hardening tangent This subroutine calculate isotropic...
Definition: uhardening.f90:9