Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	filtrez/acc.F	Lines:	9	9	100.0 %
Date:	2023-06-30 12:56:34	Branches:	6	6	100.0 %


!
! $Header$
!
        subroutine acc(vec,d,im)
        implicit none
        integer :: im
        real :: vec(im,im),d(im)
        integer :: i,j
        real ::sum
        real,external :: ssum
        do j=1,im
          do i=1,im
            d(i)=vec(i,j)*vec(i,j)
          enddo
          sum=ssum(im,d,1)
          sum=sqrt(sum)
          do i=1,im
            vec(i,j)=vec(i,j)/sum
          enddo
        enddo
        return
        end


Generated by: GCOVR (Version 4.2)

Line	Branch	Exec	Source
1			!
2			! $Header$
3			!
4		2	subroutine acc(vec,d,im)
5			implicit none
6			integer :: im
7			real :: vec(im,im),d(im)
8			integer :: i,j
9			real ::sum
10			real,external :: ssum
11	✓✓	66	do j=1,im
12	✓✓	2112	do i=1,im
13		2112	d(i)=vec(i,j)*vec(i,j)
14			enddo
15		64	sum=ssum(im,d,1)
16		64	sum=sqrt(sum)
17	✓✓	2114	do i=1,im
18		2112	vec(i,j)=vec(i,j)/sum
19			enddo
20			enddo
21		2	return
22			end