diff --git a/code/constitutive.f90 b/code/constitutive.f90 index 988c14549..ff571fb11 100644 --- a/code/constitutive.f90 +++ b/code/constitutive.f90 @@ -327,6 +327,12 @@ endif constitutive_sizePostResults(g,i,e) = constitutive_dislotwin_sizePostResults(myInstance) case (constitutive_nonlocal_label) + select case(mesh_element(2,e)) + case (1_pInt,6_pInt,7_pInt,8_pInt,9_pInt) + ! all fine + case default + call IO_error(253_pInt,e,i,g) + end select allocate(constitutive_state0(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance))) allocate(constitutive_partionedState0(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance))) allocate(constitutive_subState0(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance))) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index 2b4e6587b..a5cd4382b 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -1694,12 +1694,6 @@ logical considerEnteringFlux, & endif #endif -select case(mesh_element(2,el)) - case (1_pInt,6_pInt,7_pInt,8_pInt,9_pInt) - ! all fine - case default - call IO_error(253_pInt,el,ip,g) -end select myInstance = phase_plasticityInstance(material_phase(g,ip,el)) myStructure = constitutive_nonlocal_structure(myInstance)