more systematic naming

This commit is contained in:
Martin Diehl 2022-05-02 09:51:10 +02:00
parent e29a732d9f
commit be39865ff7
3 changed files with 6 additions and 7 deletions

View File

@ -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 config
use YAML_types
use discretization_marc
use discretization_Marc
use homogenization
use materialpoint
use materialpoint_Marc
implicit none
include "omp_lib.h" ! the openMP function library
@ -406,8 +406,8 @@ subroutine flux(f,ts,n,time)
!--------------------------------------------------------------------------------------------------
subroutine uedinc(inc,incsub)
use prec
use materialpoint
use discretization_marc
use materialpoint_Marc
use discretization_Marc
implicit none
integer, intent(in) :: inc, incsub

View File

@ -1212,5 +1212,4 @@ logical function containsRange(str,chunkPos)
end function containsRange
end module discretization_Marc

View File

@ -3,7 +3,7 @@
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @brief materialpoint engine
!--------------------------------------------------------------------------------------------------
module materialpoint
module materialpoint_Marc
use DAMASK_interface
use prec
use IO
@ -277,4 +277,4 @@ subroutine materialpoint_results(inc,time)
end subroutine materialpoint_results
end module materialpoint
end module materialpoint_Marc