Skip to main content

Calling VGETVRM

Submitted by sujan on

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)

end do

 

Please note that it always shows zero value which means that it's not working.

Thank you.

Sincerely-

sujan