Hello 

I am trying to find the problem with my simple subroutine using abaqus explicit: My aim is to call  PE23 as my user defined field variable.

subroutine vusdfld(

c Read only variables -

 nblock, nstatev, nfieldv, nprops, ndir, nshr, jElem, kIntPt, kLayer, kSecPt, stepTime, totalTime, dt, cmname, coordMp, direct, T, charLength, props, stateOld,

c Write only variables -

 stateNew, field )

include 'vaba_param.inc'

dimension jElem(nblock), coordMp(nblock,*),

direct(nblock,3,3), T(nblock,3,3),

charLength(nblock), props(nprops),

stateOld(nblock,nstatev),

stateNew(nblock,nstatev),

field(nblock,nfieldv)

character*80 cmname

c Local arrays from vgetvrm are dimensioned to maximum block size(maxblk)

parameter( nrData=6 )

character*3 cData(maxblk*nrData)

dimension rData(maxblk*nrData), jData(maxblk*nrData)

c

do 100 k = 1, nblock

jStatus = 1

call vgetvrm( 'PE', strain, jData, cData, jStatus )

field(k,1) = abs(PE23)

100 continue

return

end