!-----------------------------------------------------------------------
      subroutine dtime(cpu)

!  Return the elapsed cpu + system time since the previous call

      real cpu(2)
      cpu(1)=1.
      cpu(2)=0.
      end
!-----------------------------------------------------------------------
      subroutine etime(cpu)

!  Return the elapsed cpu + system time since the previous call

      real cpu(2)
      cpu(1)=1.
      cpu(2)=0.
      end
!-----------------------------------------------------------------------
      function elapsed()

!  Return the elapsed cpu + system time since the previous call
      common /celapsed/prev
      call cpu_time(cpu)
      elapsed = cpu-prev
      prev=cpu
      return
      end
!-----------------------------------------------------------------------
      function lrec(m)

!  Return the elapsed cpu + system time since the previous call
      lrec=m
      return
      end
!-----------------------------------------------------------------------
      function findgen(n)

!  Return a sequence of integers, converted to floats

      real, dimension(n):: findgen
      findgen = (/(i, i=0,n-1)/)
      end
!-----------------------------------------------------------------------
      subroutine oflush
 
*  flush stdout
 
*  15-aug-98/aake: SGI now uses 101 rather than 6

!     call flush(101)
      end