FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
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!-------------------------------------------------------------------------------
8function 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
16end function
17
19function 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
27end function
28
30function 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
38end function
Definition: hecmw.f90:6
real(kind=kreal) function ukhardening(matl, pstrain)
This subroutine calculate kinematic hardening tangent.
Definition: uhardening.f90:20
real(kind=kreal) function ucurryield(matl, pstrain)
This subroutine calculate current yield value.
Definition: uhardening.f90:31
real(kind=kreal) function uhardening(matl, pstrain)
This function provides user interface to define hardening tangent This subroutine calculate isotropic...
Definition: uhardening.f90:9