Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	filtrez/eigen.F	Lines:	0	17	0.0 %
Date:	2023-06-30 12:56:34	Branches:	0	10	0.0 %


!
! $Header$
!
      SUBROUTINE eigen( e,d)
      IMPLICIT NONE
      INCLUDE "dimensions.h"
      real :: e( iim,iim ), d( iim )
      real :: asm( iim )
      integer :: im,i,j
      im=iim
c
      DO 48 i = 1,im
	 asm( i ) = d( im-i+1 )
 48   CONTINUE
      DO 49 i = 1,iim
	 d( i ) = asm( i )
 49   CONTINUE
c
c     PRINT 70,d
 70   FORMAT(5x,'Valeurs propres',/,8(1x,8f10.4,/),/)
		print *
c
      DO 51 i = 1,im
	 DO 52 j = 1,im
            asm( j ) = e( i , im-j+1 )
 52      CONTINUE
	 DO 50 j = 1,im
	    e( i,j ) = asm( j )
 50      CONTINUE
 51   CONTINUE

      RETURN
      END


Generated by: GCOVR (Version 4.2)

Line	Branch	Exec	Source
1			!
2			! $Header$
3			!
4			SUBROUTINE eigen( e,d)
5			IMPLICIT NONE
6			INCLUDE "dimensions.h"
7			real :: e( iim,iim ), d( iim )
8			real :: asm( iim )
9			integer :: im,i,j
10			im=iim
11			c
12			DO 48 i = 1,im
13			asm( i ) = d( im-i+1 )
14			48 CONTINUE
15			DO 49 i = 1,iim
16			d( i ) = asm( i )
17			49 CONTINUE
18			c
19			c PRINT 70,d
20			70 FORMAT(5x,'Valeurs propres',/,8(1x,8f10.4,/),/)
21			print *
22			c
23			DO 51 i = 1,im
24			DO 52 j = 1,im
25			asm( j ) = e( i , im-j+1 )
26			52 CONTINUE
27			DO 50 j = 1,im
28			e( i,j ) = asm( j )
29			50 CONTINUE
30			51 CONTINUE
31
32			RETURN
33			END