GCC Code Coverage Report


Directory: ./
File: dyn3d_common/heavyside.f
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 2 2 100.0%
Branches: 1 2 50.0%

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
1/2
✗ Branch 0 not taken.
✓ Branch 1 taken 2 times.
2 IF ( a.LE.0. ) THEN
15 heavyside = 0.
16 ELSE
17 heavyside = 1.
18 ENDIF
19
20 RETURN
21 END
22
23
24