added missing allocation of outputID caused crashing

This commit is contained in:
Martin Diehl 2013-12-17 08:02:21 +00:00
parent ba89df7784
commit 7b9d76cdcc
1 changed files with 1 additions and 1 deletions

View File

@ -382,7 +382,7 @@ allocate(constitutive_nonlocal_sizePostResult(maxval(phase_Noutput), maxNmatIDs)
allocate(Noutput(maxNmatIDs), source=0_pInt) allocate(Noutput(maxNmatIDs), source=0_pInt)
allocate(constitutive_nonlocal_output(maxval(phase_Noutput), maxNmatIDs)) allocate(constitutive_nonlocal_output(maxval(phase_Noutput), maxNmatIDs))
constitutive_nonlocal_output = '' constitutive_nonlocal_output = ''
allocate(constitutive_nonlocal_outputID(maxval(phase_Noutput), maxNmatIDs), source=undefined_ID)
allocate(constitutive_nonlocal_structureID(maxNmatIDs), source=LATTICE_undefined_ID) allocate(constitutive_nonlocal_structureID(maxNmatIDs), source=LATTICE_undefined_ID)
allocate(constitutive_nonlocal_structure(maxNmatIDs), source=0_pInt) allocate(constitutive_nonlocal_structure(maxNmatIDs), source=0_pInt)
allocate(Nslip(lattice_maxNslipFamily,maxNmatIDs), source=0_pInt) allocate(Nslip(lattice_maxNslipFamily,maxNmatIDs), source=0_pInt)