more systematic naming
This commit is contained in:
parent
e29a732d9f
commit
be39865ff7
|
@ -205,9 +205,9 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, &
|
||||||
use DAMASK_interface
|
use DAMASK_interface
|
||||||
use config
|
use config
|
||||||
use YAML_types
|
use YAML_types
|
||||||
use discretization_marc
|
use discretization_Marc
|
||||||
use homogenization
|
use homogenization
|
||||||
use materialpoint
|
use materialpoint_Marc
|
||||||
|
|
||||||
implicit none
|
implicit none
|
||||||
include "omp_lib.h" ! the openMP function library
|
include "omp_lib.h" ! the openMP function library
|
||||||
|
@ -406,8 +406,8 @@ subroutine flux(f,ts,n,time)
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine uedinc(inc,incsub)
|
subroutine uedinc(inc,incsub)
|
||||||
use prec
|
use prec
|
||||||
use materialpoint
|
use materialpoint_Marc
|
||||||
use discretization_marc
|
use discretization_Marc
|
||||||
|
|
||||||
implicit none
|
implicit none
|
||||||
integer, intent(in) :: inc, incsub
|
integer, intent(in) :: inc, incsub
|
||||||
|
|
|
@ -1212,5 +1212,4 @@ logical function containsRange(str,chunkPos)
|
||||||
|
|
||||||
end function containsRange
|
end function containsRange
|
||||||
|
|
||||||
|
|
||||||
end module discretization_Marc
|
end module discretization_Marc
|
||||||
|
|
|
@ -3,7 +3,7 @@
|
||||||
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
|
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
|
||||||
!> @brief materialpoint engine
|
!> @brief materialpoint engine
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
module materialpoint
|
module materialpoint_Marc
|
||||||
use DAMASK_interface
|
use DAMASK_interface
|
||||||
use prec
|
use prec
|
||||||
use IO
|
use IO
|
||||||
|
@ -277,4 +277,4 @@ subroutine materialpoint_results(inc,time)
|
||||||
|
|
||||||
end subroutine materialpoint_results
|
end subroutine materialpoint_results
|
||||||
|
|
||||||
end module materialpoint
|
end module materialpoint_Marc
|
||||||
|
|
Loading…
Reference in New Issue