allocating to wrong size

This commit is contained in:
Martin Diehl 2018-10-03 07:36:57 +02:00
parent ba383336f5
commit 0cac6ce0d2
1 changed files with 1 additions and 1 deletions

View File

@ -376,7 +376,7 @@ subroutine plastic_phenopowerlaw_init
!--------------------------------------------------------------------------------------------------
! calculate hardening matrices
allocate(temp1(prm%totalNslip,prm%totalNslip),source = 0.0_pReal)
allocate(temp1(prm%totalNslip,prm%totalNtwin),source = 0.0_pReal)
allocate(prm%nonSchmid_pos(3,3,prm%totalNslip),source = 0.0_pReal)
allocate(prm%nonSchmid_neg(3,3,prm%totalNslip),source = 0.0_pReal)
i = 0_pInt