223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

introduced error 667 for out of bounds user result requesting

This commit is contained in:
Philip Eisenlohr 2011-05-04 16:02:18 +00:00
parent 2fa4a344b9
commit 660c9212f8
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/IO.f90
View File

@ -1323,6 +1323,8 @@ endfunction
case (666) case (666)
msg = 'Memory leak detected' msg = 'Memory leak detected'
case (667)
msg = 'Invalid materialpoint result requested'
case (670) case (670)
msg = 'math_check: quat -> axisAngle -> quat failed' msg = 'math_check: quat -> axisAngle -> quat failed'

5
code/mpie_cpfem_marc.f90
View File

@ -392,13 +392,16 @@ subroutine plotv(&
) )
use prec, only: pReal,pInt use prec, only: pReal,pInt
use mesh, only: mesh_FEasCP use mesh, only: mesh_FEasCP
use homogenization, only: materialpoint_results use IO, only: IO_error
use homogenization, only: materialpoint_results,materialpoint_sizeResults
implicit none implicit none
real(pReal) s(*),etot(*),eplas(*),ecreep(*),sp(*) real(pReal) s(*),etot(*),eplas(*),ecreep(*),sp(*)
real(pReal) v, t(*) real(pReal) v, t(*)
integer(pInt) m, nn, layer, ndi, nshear, jpltcd integer(pInt) m, nn, layer, ndi, nshear, jpltcd
if (jpltcd > materialpoint_sizeResults) IO_error(667,jpltcd) ! complain about out of bounds error
v = materialpoint_results(jpltcd,nn,mesh_FEasCP('elem', m)) v = materialpoint_results(jpltcd,nn,mesh_FEasCP('elem', m))
return return