Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	misc/cray.F	Lines:	12	12	100.0 %
Date:	2023-06-30 12:51:15	Branches:	4	4	100.0 %


!
! $Header$
!
#ifdef CRAY
      SUBROUTINE riencray
      END
#else
      subroutine scopy(n,sx,incx,sy,incy)
c
      IMPLICIT NONE
c
      integer n,incx,incy,ix,iy,i
      real sx((n-1)*incx+1),sy((n-1)*incy+1)
c
      iy=1
      ix=1
      do 10 i=1,n
         sy(iy)=sx(ix)
         ix=ix+incx
         iy=iy+incy
10    continue
c
      return
      end

      function ssum(n,sx,incx)
c
      IMPLICIT NONE
c
      integer n,incx,i,ix
      real ssum,sx((n-1)*incx+1)
c
      ssum=0.
      ix=1
      do 10 i=1,n
         ssum=ssum+sx(ix)
         ix=ix+incx
10    continue
c
      return
      end
#endif


Generated by: GCOVR (Version 4.2)

Line	Branch	Exec	Source
1			!
2			! $Header$
3			!
4			#ifdef CRAY
5			SUBROUTINE riencray
6			END
7			#else
8		882583	subroutine scopy(n,sx,incx,sy,incy)
9			c
10			IMPLICIT NONE
11			c
12			integer n,incx,incy,ix,iy,i
13			real sx((n-1)incx+1),sy((n-1)incy+1)
14			c
15			iy=1
16			ix=1
17	✓✓	600613646	do 10 i=1,n
18		599731063	sy(iy)=sx(ix)
19		599731063	ix=ix+incx
20		599731063	iy=iy+incy
21		882583	10 continue
22			c
23		882583	return
24			end
25
26		2297322	function ssum(n,sx,incx)
27			c
28			IMPLICIT NONE
29			c
30			integer n,incx,i,ix
31			real ssum,sx((n-1)*incx+1)
32			c
33			ssum=0.
34			ix=1
35	✓✓	89931396	do 10 i=1,n
36		87634074	ssum=ssum+sx(ix)
37		87634074	ix=ix+incx
38		2297322	10 continue
39			c
40			return
41			end
42			#endif