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

11
src/plastic_dislotwin.f90
View File

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