| GCC Code Coverage Report | |||||||||||||||||||||
|
|||||||||||||||||||||
| Line | Branch | Exec | Source |
1 |
! |
||
2 |
! $Header$ |
||
3 |
! |
||
4 |
2 |
SUBROUTINE eigen_sort(d,v,n,np) |
|
5 |
INTEGER n,np |
||
6 |
REAL d(np),v(np,np) |
||
7 |
INTEGER i,j,k |
||
8 |
REAL p |
||
9 |
|||
10 |
✓✓ | 64 |
DO i=1,n-1 |
11 |
k=i |
||
12 |
62 |
p=d(i) |
|
13 |
✓✓ | 1054 |
DO j=i+1,n |
14 |
✓✓ | 1054 |
IF(d(j).ge.p) THEN |
15 |
k=j |
||
16 |
p=d(j) |
||
17 |
ENDIF |
||
18 |
ENDDO |
||
19 |
|||
20 |
✓✓ | 64 |
IF(k.ne.i) THEN |
21 |
52 |
d(k)=d(i) |
|
22 |
52 |
d(i)=p |
|
23 |
✓✓ | 1716 |
DO j=1,n |
24 |
1664 |
p=v(j,i) |
|
25 |
1664 |
v(j,i)=v(j,k) |
|
26 |
1716 |
v(j,k)=p |
|
27 |
ENDDO |
||
28 |
ENDIF |
||
29 |
ENDDO |
||
30 |
|||
31 |
2 |
RETURN |
|
32 |
END |
| Generated by: GCOVR (Version 4.2) |