subroutine upostv(n,ndeg,ncrd,numnp,iantyp,jnode,iuid,upost,
     * xord,vector,incz,cptim)
      implicit real*8 (a-h,o-z)
c
c     User subroutine to define nodal post variables
c
c     This upostv routine is set up to extract the displacement
c     correction (aka displacement change). This is the numerator 
c     of the displacement residual. Your Marc run must ask for one
c     post vector.  Post-process displacement correction using 
c     contour or vector plotting, etc. Created for K73, 01/14/98.
c
c     n        user node number
c     ndeg     number of degrees of freedom per node
c     ncrd     number of coordinates per node
c     numnp    number of nodal points (total)
c     iantyp   analysis type - see PLDUMP in volume D
c     jnode    number of vector quantities already defined - see PLDUMP in vol D
c     iuid     user vector number
c     upost    user defined components of vector for this node
c     xord     coordinates of this node
c     vector   displacement, etc of this node.
c              see iantyp/jnode table in PLDUMP section in volume D
c     incz     increment number
c     cptim    total time
c
      dimension upost(ndeg),xord(ncrd),vector(ndeg,jnode)
      include '../common/space'
      include '../common/concom'
      include '../common/dyns'
c      include '../common/dimen'
      include '../common/arrays'
      include '../common/develp'
      include '../common/strvar'
      if(ncycle.eq.1) then
         ipoint=idsxs
      else
         ipoint=idynd
      endif
      lint=ibsrch(n,ints(inoids),numnp,1)
      if(joptit.ne.0) then
         la2=inpnum+lint-1
         lint=igetsh(ints(la2),0)
      endif
      la3=ipoint+(lint-1)*ndeg
      do kk=1,ndeg
         upost(kk)=vars(la3)
         la3=la3+1
      enddo
      return
      end