umat.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 mumat
  implicit none
 
  integer, parameter, private :: kreal = kind(0.0d0)
 
contains
 
  subroutine umatlmatrix( mname, matl, strain, stress, fstat, D  &
      , dtime, ttime, temperature )
    character(len=*), intent(in)  :: mname
    real(kind=kreal), intent(in)  :: matl(:)   
    real(kind=kreal), intent(in)  :: strain(6) 
    real(kind=kreal), intent(in)  :: stress(6) 
    real(kind=kreal), intent(in)  :: fstat(:)  
    real(kind=kreal), intent(out) :: d(:,:)    
    real(kind=kreal), intent(in)  :: dtime     
    real(kind=kreal), intent(in)  :: ttime     
    real(kind=kreal), optional    :: temperature 
 
  end subroutine
 
  subroutine uupdate(  mname, matl, strain, stress, fstat, dtime, ttime, temperature )
    character(len=*), intent(in)    :: mname
    real(kind=kreal), intent(in)    :: matl(:)    
    real(kind=kreal), intent(in)    :: strain(6)  
    real(kind=kreal), intent(inout) :: stress(6)  
    real(kind=kreal), intent(inout) :: fstat(:)   
    real(kind=kreal), intent(in)    :: dtime     
    real(kind=kreal), intent(in)    :: ttime     
    real(kind=kreal), optional      :: temperature 
 
  end subroutine
 
end module