Commit a299fd3b authored by Sebastian Pech's avatar Sebastian Pech
Browse files

Check for allocation on first run

parent 7276b8ad
Pipeline #181 passed with stages
in 48 seconds
......@@ -24,7 +24,7 @@ subroutine UMAT(STRESS, STATEV, ddsdde, SSE, SPD, SCD, RPL, &
call update(conf,PROPS)
call update(res,STATEV)
if (size(element_failure_mode) <= NOEL) then
if (allocated(element_failure_mode) .and. size(element_failure_mode) <= NOEL) then
failure_mode = element_failure_mode(NOEL)
else
failure_mode = UNDEFINED_FAILURE
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment