subroutine upostv(n,ndeg,ncrd,numnp,iantyp,jnode,iuid,upost,
     * xord,vector,inc,cptim)
c
c CONTACT: ap@marc.de
c      
c
      implicit real*8 (a-h,o-z)
c
c     user subroutine to define nodal post variables
c     n        user node number
c     ndeg     number of degrees of freedom per node
c     ncrd     number of coordinates per node
c     iantyp   analysis type - see PLDUMP in volume D
c     jnode    number of vector quantities already defined - 
c              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     inc      increment number
c     cptim    total time
c
      dimension upost(ndeg),xord(ncrd),vector(ndeg,jnode)
c
      include '../common/form'
      include '../common/array4'
      include '../common/blnk'
      include '../common/space'
c
c... determine internal node number of user node number n.
c... n1 is internal number of node n.
      call nodnum(n,idum,n1,1)
c
c... determine contact status of this node.
c... iflag=0: node n (internal nr: n1) is not contacting another body
c... iflag>0: node n (internal nr: n1) is     contacting another body
      ijk=0
      md =0
      call coinfo(ijk,n1,n,md,idie,ints(inf),ints(itouch),
     $            nbcn,ints(inbct),ints(inseg),iflag,
     $            idum1,idum2,idum3,irigid1,irigid2,irigid3)
c
      if (iflag.eq.0) then
       upost(1)=0d0
      else
       upost(1)=1d0
      endif 
c
      do 123, i1=2,ndeg
       upost(i1)=0d0
  123 continue
c
      return
      end