uyield.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
module muyield
  use hecmw
  implicit none
 
  private
  public :: uelastoplasticnumstatus
  public :: uelastoplasticmatrix
  public :: ubackwardeuler
 
  ! system-defined material properties are saved in matl(1:100)
  integer, parameter :: M_YOUNGS   = 1
  integer, parameter :: M_POISSON  = 2
 
  ! user-defined material properties are saved in matl(101:200)
 
contains
  integer(kind=kint) function uelastoplasticnumstatus( matl )
    real(kind=kreal),   intent(in)    :: matl(:)   
 
    uelastoplasticnumstatus = 0
  end function uelastoplasticnumstatus
 
  subroutine uelastoplasticmatrix( matl, stress, istat, fstat, plstrain, D, temp, hdflag )
    real(kind=kreal),   intent(in)  :: matl(:)   
    real(kind=kreal),   intent(in)  :: stress(6) 
    integer(kind=kint), intent(in)  :: istat
    real(kind=kreal),   intent(in)  :: fstat(:)  
    real(kind=kreal),   intent(in)  :: plstrain  
    real(kind=kreal),   intent(out) :: d(:,:)    
    real(kind=kreal),   intent(in)  :: temp
    integer(kind=kint), intent(in)  :: hdflag
 
  end subroutine uelastoplasticmatrix
 
  subroutine ubackwardeuler( matl, stress, plstrain, istat, fstat, temp, hdflag )
    real(kind=kreal),   intent(in)    :: matl(:)   
    real(kind=kreal),   intent(inout) :: stress(6) 
    real(kind=kreal),   intent(in)    :: plstrain  
    integer(kind=kint), intent(inout) :: istat
    real(kind=kreal),   intent(inout) :: fstat(:)  
    real(kind=kreal),   intent(in)    :: temp      
    integer(kind=kint), intent(in)    :: hdflag
 
  end subroutine ubackwardeuler
 
end module muyield