vbajpai007
2012-03-02 11:54:11 UTC
Dear All,
I want to use VUMAT to set status equal to zero based on damage (SDEG). Aim of the work is to delete the elements based on damage. I am using following codes:
subroutine vumat
include 'vaba_param_sp.inc'
real::sdeg
integer::status
read*,sdeg
if (sdeg.le.0.8) then
status=1
else
status=0
end if
end
This is not working.
can anyone help me to find out any solution.
I want to use VUMAT to set status equal to zero based on damage (SDEG). Aim of the work is to delete the elements based on damage. I am using following codes:
subroutine vumat
include 'vaba_param_sp.inc'
real::sdeg
integer::status
read*,sdeg
if (sdeg.le.0.8) then
status=1
else
status=0
end if
end
This is not working.
can anyone help me to find out any solution.