! $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