From 855427935173a4fad816cd67e4edac3c1f5610cf Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Fri, 20 Jul 2018 04:02:49 +0200
Subject: [PATCH] outputID is not of default integer type (causes trouble with
 MSC.Marc)

---
 src/plastic_dislotwin.f90 | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/plastic_dislotwin.f90 b/src/plastic_dislotwin.f90
index 9fe7893ca..1b91516bf 100644
--- a/src/plastic_dislotwin.f90
+++ b/src/plastic_dislotwin.f90
@@ -57,12 +57,12 @@ module plastic_dislotwin
  
   type,private :: tParameters
    integer(kind(undefined_ID)),         dimension(:),         allocatable,          private :: &
-   outputID                                                                                      !< ID of each post result output
+     outputID                                                                                       !< ID of each post result output
    
    real(pReal) :: &
-     CAtomicVolume, &                                                                           !< atomic volume in Bugers vector unit
-     D0, &                                                                                        !< prefactor for self-diffusion coefficient
-     Qsd, &                                                                                              !< activation energy for dislocation climb
+     CAtomicVolume, &                                                                               !< atomic volume in Bugers vector unit
+     D0, &                                                                                          !< prefactor for self-diffusion coefficient
+     Qsd, &                                                                                         !< activation energy for dislocation climb
      GrainSize, &                                                                                  !<grain size
      pShearBand, &                                                                                 !< p-exponent in shear band velocity
      qShearBand, &                                                                                 !< q-exponent in shear band velocity
@@ -230,9 +230,10 @@ subroutine plastic_dislotwin_init(fileUnit)
  integer(pInt) :: maxNinstance,&
                   f,instance,j,i,k,l,m,n,o,p,q,r,s,p1, &
                   offset_slip, index_myFamily, index_otherFamily, &
-                  startIndex, endIndex, outputID,outputSize
+                  startIndex, endIndex, outputSize
  integer(pInt) :: sizeState, sizeDotState, sizeDeltaState
  integer(pInt) :: NofMyPhase   
+ integer(kind(undefined_ID)) outputID
  
   real(pReal),                         dimension(:,:,:,:,:), allocatable :: &
    Ctwin3333, &                                                                 !< twin elasticity matrix for each instance