FrontISTR  5.7.0
Large-scale structural analysis program with finit element method
uyield.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 !-------------------------------------------------------------------------------
7 module muyield
8  use hecmw
9  implicit none
10 
11  private
12  public :: uelastoplasticnumstatus
13  public :: uelastoplasticmatrix
14  public :: ubackwardeuler
15 
16  ! system-defined material properties are saved in matl(1:100)
17  integer, parameter :: M_YOUNGS = 1
18  integer, parameter :: M_POISSON = 2
19 
20  ! user-defined material properties are saved in matl(101:200)
21 
22 contains
24  integer(kind=kint) function uelastoplasticnumstatus( matl )
25  real(kind=kreal), intent(in) :: matl(:)
26 
27  uelastoplasticnumstatus = 0
28  end function uelastoplasticnumstatus
29 
31  subroutine uelastoplasticmatrix( matl, stress, istat, fstat, plstrain, D, temp, hdflag )
32  real(kind=kreal), intent(in) :: matl(:)
33  real(kind=kreal), intent(in) :: stress(6)
34  integer(kind=kint), intent(in) :: istat
35  real(kind=kreal), intent(in) :: fstat(:)
36  real(kind=kreal), intent(in) :: plstrain
37  real(kind=kreal), intent(out) :: d(:,:)
38  real(kind=kreal), intent(in) :: temp
39  integer(kind=kint), intent(in) :: hdflag
40 
41  end subroutine uelastoplasticmatrix
42 
44  subroutine ubackwardeuler( matl, stress, plstrain, istat, fstat, temp, hdflag )
45  real(kind=kreal), intent(in) :: matl(:)
46  real(kind=kreal), intent(inout) :: stress(6)
47  real(kind=kreal), intent(in) :: plstrain
48  integer(kind=kint), intent(inout) :: istat
49  real(kind=kreal), intent(inout) :: fstat(:)
50  real(kind=kreal), intent(in) :: temp
51  integer(kind=kint), intent(in) :: hdflag
52 
53  end subroutine ubackwardeuler
54 
55 end module muyield
muyield::ubackwardeuler
subroutine, public ubackwardeuler(matl, stress, plstrain, istat, fstat, temp, hdflag)
This subroutine does backward-Euler return calculation.
Definition: uyield.f90:45
muyield
This subroutine read in used-defined material properties tangent.
Definition: uyield.f90:7
muyield::uelastoplasticnumstatus
integer(kind=kint) function, public uelastoplasticnumstatus(matl)
This function returns the number of real state variables.
Definition: uyield.f90:25
muyield::uelastoplasticmatrix
subroutine, public uelastoplasticmatrix(matl, stress, istat, fstat, plstrain, D, temp, hdflag)
This subroutine calculates elastoplastic constitutive relation.
Definition: uyield.f90:32
hecmw
Definition: hecmw.f90:6