From fc4619189f3236d777125bb2eabc531aca23d051 Mon Sep 17 00:00:00 2001
From: Franz Roters <f.roters@mpie.de>
Date: Tue, 3 May 2022 12:55:27 +0200
Subject: [PATCH] unified capitalization

---
 src/Marc/DAMASK_Marc.f90         | 6 +++---
 src/Marc/discretization_Marc.f90 | 4 ++--
 src/Marc/materialpoint_Marc.f90  | 4 ++--
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/Marc/DAMASK_Marc.f90 b/src/Marc/DAMASK_Marc.f90
index cc68dbbb1..4a42120ee 100644
--- a/src/Marc/DAMASK_Marc.f90
+++ b/src/Marc/DAMASK_Marc.f90
@@ -46,7 +46,7 @@ subroutine DAMASK_interface_init
   integer                 :: ierr
   character(len=pPathLen) :: wd
 
-  print'(/,1x,a)', '<<<+-  DAMASK_marc init -+>>>'
+  print'(/,1x,a)', '<<<+-  DAMASK_Marc init -+>>>'
 
   print*, 'Roters et al., Computational Materials Science 158:420–478, 2019'
   print*, 'https://doi.org/10.1016/j.commatsci.2018.04.030'
@@ -380,7 +380,7 @@ end subroutine hypela2
 subroutine flux(f,ts,n,time)
   use prec
   use homogenization
-  use discretization_marc
+  use discretization_Marc
 
   implicit none
   real(pReal), dimension(6),           intent(in) :: &
@@ -426,7 +426,7 @@ subroutine uedinc(inc,incsub)
       endif
     enddo
 
-    call discretization_marc_UpdateNodeAndIpCoords(d_n)
+    call discretization_Marc_UpdateNodeAndIpCoords(d_n)
     call materialpoint_results(inc,cptim)
 
     inc_written = inc
diff --git a/src/Marc/discretization_Marc.f90 b/src/Marc/discretization_Marc.f90
index 53be07a6f..c1525b05e 100644
--- a/src/Marc/discretization_Marc.f90
+++ b/src/Marc/discretization_Marc.f90
@@ -136,7 +136,7 @@ end subroutine discretization_Marc_updateNodeAndIpCoords
 !--------------------------------------------------------------------------------------------------
 !> @brief Calculate and set current nodal and IP positions (including cell nodes)
 !--------------------------------------------------------------------------------------------------
-function discretization_marc_FEM2DAMASK_cell(IP_FEM,elem_FEM) result(cell)
+function discretization_Marc_FEM2DAMASK_cell(IP_FEM,elem_FEM) result(cell)
 
   integer, intent(in) :: IP_FEM, elem_FEM
   integer :: cell
@@ -147,7 +147,7 @@ function discretization_marc_FEM2DAMASK_cell(IP_FEM,elem_FEM) result(cell)
   cell = (discretization_Marc_FEM2DAMASK_elem(elem_FEM)-1)*discretization_nIPs + IP_FEM
 
 
-end function discretization_marc_FEM2DAMASK_cell
+end function discretization_Marc_FEM2DAMASK_cell
 
 
 !--------------------------------------------------------------------------------------------------
diff --git a/src/Marc/materialpoint_Marc.f90 b/src/Marc/materialpoint_Marc.f90
index 1501d981d..79b06b80d 100644
--- a/src/Marc/materialpoint_Marc.f90
+++ b/src/Marc/materialpoint_Marc.f90
@@ -21,7 +21,7 @@ module materialpoint_Marc
   use homogenization
 
   use discretization
-  use discretization_marc
+  use discretization_Marc
 
   implicit none
   private
@@ -86,7 +86,7 @@ subroutine materialpoint_initAll
   call rotations_init
   call polynomials_init
   call lattice_init
-  call discretization_marc_init
+  call discretization_Marc_init
   call material_init(.false.)
   call phase_init
   call homogenization_init