Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	phylmd/zilch.F90	Lines:	4	4	100.0 %
Date:	2023-06-30 12:56:34	Branches:	2	2	100.0 %



! $Header$

SUBROUTINE zilch(x, m)

  ! Zero the real array x dimensioned m.

  IMPLICIT NONE

  INTEGER m, i
  REAL x(m)

  DO i = 1, m
    x(i) = 0.0
  END DO
  RETURN
END SUBROUTINE zilch


Generated by: GCOVR (Version 4.2)

Line	Branch	Exec	Source
1
2			! $Header$
3
4		3315	SUBROUTINE zilch(x, m)
5
6			! Zero the real array x dimensioned m.
7
8			IMPLICIT NONE
9
10			INTEGER m, i
11			REAL x(m)
12
13	✓✓	12617810	DO i = 1, m
14		12617810	x(i) = 0.0
15			END DO
16		3315	RETURN
17			END SUBROUTINE zilch