Hi!
Can please help me regarding usage of VGETVRM? I am trying to get material point data of EVF in an eulerian analysis using VUSDFLD but failed. Details is below:
parameter( nrData=6 )
character*3 cData(maxblk*nrData)
dimension rData(maxblk*nrData), jData(maxblk*nrData)
do k = 1, nblock
c jStatus = 1
call vgetvrm('EVF',rdata,jData,cData,jStatus)
EVF=rdata(1)
FIELD(k,1)=EVF
stateNew(k,1)=FIELD(k,1)
Recent comments