diff --git a/src/material.f90 b/src/material.f90 index 15912741e..48e71af07 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -225,7 +225,7 @@ module material phase_localPlasticity !< flags phases with local constitutive law - character(len=256), dimension(:), allocatable, private :: & + character(len=65536), dimension(:), allocatable, private :: & texture_ODFfile !< name of each ODF file integer(pInt), private :: & @@ -760,7 +760,7 @@ subroutine material_parsePhase implicit none integer(pInt) :: sourceCtr, kinematicsCtr, stiffDegradationCtr, p - character(len=256), dimension(:), allocatable :: str + character(len=65536), dimension(:), allocatable :: str allocate(phase_elasticity(material_Nphase),source=ELASTICITY_undefined_ID)