From c7703d7aaf09338b5d53af82e488c29d19368f82 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Fri, 7 Jun 2019 07:45:54 +0200
Subject: [PATCH] preprocessor statements need to start at column 0

---
 src/DAMASK_marc.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/DAMASK_marc.f90 b/src/DAMASK_marc.f90
index 228398969..72017011d 100644
--- a/src/DAMASK_marc.f90
+++ b/src/DAMASK_marc.f90
@@ -30,7 +30,7 @@
 
 module DAMASK_interface
  use prec
- #if __INTEL_COMPILER >= 1800
+#if __INTEL_COMPILER >= 1800
  use, intrinsic :: iso_fortran_env, only: &
    compiler_version, &
    compiler_options
@@ -280,10 +280,10 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, &
          computationMode = ior(computationMode,CPFEM_BACKUPJACOBIAN)                                ! collect and backup Jacobian after convergence
          lastIncConverged = .false.                                                                 ! reset flag
        endif
-       do node = 1,theMesh%elem%nNodes
+       !do node = 1,theMesh%elem%nNodes
          !CPnodeID = mesh_element(4+node,cp_en)
          !mesh_node(1:ndeg,CPnodeID) = mesh_node0(1:ndeg,CPnodeID) + numerics_unitlength * dispt(1:ndeg,node)
-       enddo
+       !enddo
      endif
 
    else                                                                                             ! --- PLAIN MODE ---