FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
uload.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!-------------------------------------------------------------------------------
7module muload
8 use hecmw
9 implicit none
10
13 type tuload
14 integer, pointer :: nodeid(:)=>null()
15 integer, pointer :: dof(:)=>null()
16 ! == add futher defintiions here ==
17 end type
18
19 type(tuload), pointer, save :: uloads(:)=>null()
20
21contains
22
24 integer function ureadload( fname )
25 character(len=*), intent(in) :: fname
26 ureadload = 0
27 end function
28
30 subroutine uloading( cstep, factor, exForce )
31 integer, intent(in) :: cstep
32 real(kind=kreal), intent(in) :: factor
33 real(kind=kreal), intent(inout) :: exforce(:)
34
35 end subroutine
36
38 subroutine uresidual( cstep, factor, residual )
39 integer, intent(in) :: cstep
40 real(kind=kreal), intent(in) :: factor
41 real(kind=kreal), intent(inout) :: residual(:)
42
43 end subroutine
44
45end module
46
Definition: hecmw.f90:6
This subroutine read in used-defined loading tangent.
Definition: uload.f90:7
type(tuload), dimension(:), pointer, save uloads
Definition: uload.f90:19
integer function ureadload(fname)
This suborutine read in variables needs to define user-defined external loads.
Definition: uload.f90:25
subroutine uloading(cstep, factor, exforce)
This subroutine take consider of user-defined external loading.
Definition: uload.f90:31
subroutine uresidual(cstep, factor, residual)
This subroutine take consider of user-defined external loading.
Definition: uload.f90:39
Structure for user defines load. User may need to fill in it according to specified loads.
Definition: uload.f90:13