c=======================================================================
c     this is a function that monitors collisions with the infinite
c     wall in the driven triangle well
c=======================================================================
      real function g(t, y)

      implicit none

c-----------------------------------------------------------------------
c     common commmunication with main program
c-----------------------------------------------------------------------
      include 'fcn.inc'

      integer n
      parameter (n = 2)
      real t
      real y(n)

      g = y(1) - l

      return

      end