Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	dyn3d_common/heavyside.F	Lines:	2	2	100.0 %
Date:	2023-06-30 12:56:34	Branches:	1	2	50.0 %


!
! $Header$
!
c
c
       FUNCTION heavyside(a)

c      ...   P. Le Van  ....
c
       IMPLICIT NONE

       REAL(KIND=8) heavyside , a

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

       RETURN
       END




Generated by: GCOVR (Version 4.2)

Line	Branch	Exec	Source
1			!
2			! $Header$
3			!
4			c
5			c
6		2	FUNCTION heavyside(a)
7
8			c ... P. Le Van ....
9			c
10			IMPLICIT NONE
11
12			REAL(KIND=8) heavyside , a
13
14	✗✓	2	IF ( a.LE.0. ) THEN
15			heavyside = 0.
16			ELSE
17			heavyside = 1.
18			ENDIF
19
20			RETURN
21			END
22
23