subroutine uservp (ix,iy,iz,ieg)
      include 'SIZE'
      include 'TOTAL'
      include 'NEKUSE'
C
      udiff =0.
      utrans=0.
      return
      end
c-----------------------------------------------------------------------
      subroutine userf  (ix,iy,iz,ieg)
      include 'SIZE'
      include 'TOTAL'
      include 'NEKUSE'
C
      ffx = 0.0
      ffy = 0.0
      ffz = 0.0
      return
      end
c-----------------------------------------------------------------------
      subroutine userq  (ix,iy,iz,ieg)
      include 'SIZE'
      include 'TOTAL'
      include 'NEKUSE'
C
      qvol   = 0.0
      source = 0.0
      return
      end
c-----------------------------------------------------------------------
      subroutine userchk
      include 'SIZE'  
      include 'TOTAL' 
c
      parameter (nd=2,nord=1)
      real timval(0:nd)
      save timval
      real c(0:nd,0:nord)
      real ddt(lx1*ly1*lz1*lelt)
      integer ntot,n2
      real tlagr(lx1,ly1,lz1,lelt,2,ldimt)
      common /sclag/ tlagr
c     tlagr to store the scalar from 2 previous steps

      ntot = lx1*ly1*lz1*nelt
      timval(0) = timval(1)
      timval(1) = timval(2)
      timval(2) = time

      if (istep.gt.3) then
       call fd_weights_full(timval(2),timval,nd,nord,c)
       call copy(ddt,t(1,1,1,1,2),ntot)
       call cmult(ddt,c(2,1),ntot)
       call add2s2(ddt,tlagr(1,1,1,1,1,2),c(1,1),ntot)
       call add2s2(ddt,tlagr(1,1,1,1,2,2),c(0,1),ntot)
      endif

c     copy information to be used in next time-step
      call copy(tlagr(1,1,1,1,2,2),tlagr(1,1,1,1,1,2),ntot)
      call copy(tlagr(1,1,1,1,1,2),t(1,1,1,1,2),ntot)

      return
      end
c-----------------------------------------------------------------------
      subroutine userbc (ix,iy,iz,iside,ieg)
c     NOTE ::: This subroutine MAY NOT be called by every process
      include 'SIZE'
      include 'TOTAL'
      include 'NEKUSE'
      ux=0.0
      uy=0.0
      uz=0.0
      temp=0.0
      return
      end
c-----------------------------------------------------------------------
      subroutine useric (ix,iy,iz,ieg)
      include 'SIZE'
      include 'TOTAL'
      include 'NEKUSE'

      ux=0.0
      uy=0.0
      uz=0.0
      temp=0

      return
      end
c-----------------------------------------------------------------------
      subroutine usrdat
      include 'SIZE'
      include 'TOTAL'
      integer e

      return
      end
c-----------------------------------------------------------------------
      subroutine usrdat2
      include 'SIZE'
      include 'TOTAL'
      return
      end
c-----------------------------------------------------------------------
      subroutine usrdat3
      return
      end
c-----------------------------------------------------------------------