subroutine vutrs(
c Read only variables -
1 nblock, nstatev, nfieldv, nprops,
2 stepTime, totalTime, dt,
3 cmname, props, density, coordMp,
4 tempOld, fieldOld, stateOld,
5 tempNew, fieldNew,
c Write only variables -
6 shift, stateNew )
c
include 'vaba_param.inc'
c
dimension props(nprops), density(nblock), coordMp(nblock,*),
1 tempOld(nblock),tempNew(nblock),
2 fieldOld(nblock,nfieldv), fieldNew(nblock,nfieldv),
3 stateOld(nblock,nstatev), stateNew(nblock,nstatev),
4 shift(nblock,2)
c
character*80 cmname
c
do 100 k=1, nblock
user coding to define shift(k,1) and shift(k,2)
100 continue
c
return
end