ProductsAbaqus/Explicit User subroutine interface      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
 Variables to be defined
 
 Variables that can be updated
 
 Variables passed in for information
  | ||||||||||||||