      subroutine second( time )
*
*    HSL compatible timing routine
*
      real     time
      real     tarray(2), etime
      external etime

      time = 1000.0 * etime(tarray)

      return

      end