223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

outputID is not of default integer type (causes trouble with MSC.Marc)

This commit is contained in:
Martin Diehl 2018-07-20 04:02:49 +02:00
parent 3f285d3a3f
commit 8554279351
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/plastic_dislotwin.f90
View File

@ -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