Xerf , by the way , here is the attachment of UVARM they were talking about
subroutine uvarm(uvar,direct,t,time,dtime,cmname,orname,
1 nuvarm,noel,npt,layer,kspt,kstep,kinc,ndi,nshr,coord,
2 jmac,jmatyp,matlayo,laccfla)
c
include 'aba_param.inc'
c
character*80 cmname,orname
character*3 flgray(15)
dimension uvar(nuvarm),direct(3,3),t(3,3),time(2)
dimension array(15),jarray(15),jmac(*),jmatyp(*),coord(*)
c
c error counter:
jerror = 0
c stress invariants:
call getvrm('SINV',array,jarray,flgray,jrcd,jmac,jmatyp,
1 matlayo,laccfla)
jerror = jerror + jrcd
press = array(3)
c pore pressure:
call getvrm('POR',array,jarray,flgray,jrcd,jmac,jmatyp,
1 matlayo,laccfla)
jerror = jerror + jrcd
por = array(1)
uvar(1) = press/por
c if error, write comment to .dat file:
if(jerror.ne.0)then
write(6,*) 'request error in uvarm for element number ',
1 noel,'integration point number ',npt
endif
return
end