! $Header$



 FUNCTION heavyside(a)

   ! ...   P. Le Van  ....

   IMPLICIT NONE

   REAL(KIND=8) heavyside , a

   IF ( a<=0. )  THEN
     heavyside = 0.
   ELSE
     heavyside = 1.
   ENDIF

   RETURN
END FUNCTION heavyside