uload.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 muload
  use hecmw
  implicit none
 
  type tuload
    integer, pointer :: nodeid(:)=>null()    
    integer, pointer :: dof(:)=>null()       
    ! == add further definitions here ==
  end type
 
  type(tuload), pointer, save :: uloads(:)=>null()
 
contains
 
  integer function ureadload( fname )
    character(len=*), intent(in)    :: fname
    ureadload = 0
  end function
 
  subroutine uloading( cstep, factor, exForce )
    integer, intent(in)             :: cstep
    real(kind=kreal), intent(in)    :: factor     
    real(kind=kreal), intent(inout) :: exforce(:) 
 
  end subroutine
 
  subroutine uresidual( cstep, factor, residual )
    integer, intent(in)             :: cstep
    real(kind=kreal), intent(in)    :: factor       
    real(kind=kreal), intent(inout) :: residual(:)  
 
  end subroutine
 
end module