!-----------------------------------------------------------------------
      function elapsed(idum)

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

      real cpu(2)
      call dtime(cpu)
      elapsed = cpu(1)+cpu(2)
      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
!-----------------------------------------------------------------------
      integer function lrec(m)

!  Return the RECL=LREC(M) value, for M words.

      lrec = 4*m
      end