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

wrong assignmen (scalar to vector)

This commit is contained in:
Martin Diehl 2019-03-19 14:56:36 +01:00
parent 8a07ff4617
commit 5f53147e96
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/plastic_dislotwin.f90
View File

@ -581,7 +581,7 @@ subroutine plastic_dislotwin_init
allocate(dst%Lambda_sl (prm%totalNslip, NipcMyPhase),source=0.0_pReal) allocate(dst%Lambda_sl (prm%totalNslip, NipcMyPhase),source=0.0_pReal)
allocate(dst%tau_pass (prm%totalNslip, NipcMyPhase),source=0.0_pReal) allocate(dst%tau_pass (prm%totalNslip, NipcMyPhase),source=0.0_pReal)
allocate(dst%Lambda_tw (prm%totalNtwin, NipcMyPhase),source=0.0_pReal) allocate(dst%Lambda_tw (prm%totalNtwin, NipcMyPhase),source=0.0_pReal)
allocate(dst%threshold_stress_twin (prm%totalNtwin, NipcMyPhase),source=0.0_pReal) allocate(dst%threshold_stress_twin (prm%totalNtwin, NipcMyPhase),source=0.0_pReal)
allocate(dst%tau_r_twin (prm%totalNtwin, NipcMyPhase),source=0.0_pReal) allocate(dst%tau_r_twin (prm%totalNtwin, NipcMyPhase),source=0.0_pReal)
allocate(dst%twinVolume (prm%totalNtwin, NipcMyPhase),source=0.0_pReal) allocate(dst%twinVolume (prm%totalNtwin, NipcMyPhase),source=0.0_pReal)
@ -921,7 +921,7 @@ subroutine plastic_dislotwin_dependentState(temperature,instance,of)
forall (i = 1:prm%totalNslip) & forall (i = 1:prm%totalNslip) &
lambda_sl_sl_inv = & lambda_sl_sl_inv(i) = &
sqrt(dot_product((stt%rhoEdge(1:prm%totalNslip,of)+stt%rhoEdgeDip(1:prm%totalNslip,of)),& sqrt(dot_product((stt%rhoEdge(1:prm%totalNslip,of)+stt%rhoEdgeDip(1:prm%totalNslip,of)),&
prm%forestProjection(1:prm%totalNslip,i)))/prm%CLambdaSlip(i) ! change order and use matmul prm%forestProjection(1:prm%totalNslip,i)))/prm%CLambdaSlip(i) ! change order and use matmul