Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	misc/sort.F	Lines:	0	9	0.0 %
Date:	2023-06-30 12:56:34	Branches:	0	8	0.0 %


!
! $Header$
!
C
C
      SUBROUTINE sort(n,d)
c
c     P.Le Van
c
c...  cette routine met le tableau d  dans l'ordre croissant  ....
cc   ( pour avoir l'ordre decroissant,il suffit de remplacer l'instruc
c      tion  situee + bas  IF(d(j).LE.p)  THEN     par
c                           IF(d(j).GE.p)  THEN
c

      INTEGER n
      REAL d(n) , p
      INTEGER i,j,k

      DO i=1,n-1
        k=i
        p=d(i)
        DO j=i+1,n
         IF(d(j).LE.p) THEN
           k=j
           p=d(j)
         ENDIF
        ENDDO

       IF(k.ne.i) THEN
         d(k)=d(i)
         d(i)=p
       ENDIF
      ENDDO

       RETURN
       END


Generated by: GCOVR (Version 4.2)

Line	Branch	Exec	Source
1			!
2			! $Header$
3			!
4			C
5			C
6			SUBROUTINE sort(n,d)
7			c
8			c P.Le Van
9			c
10			c... cette routine met le tableau d dans l'ordre croissant ....
11			cc ( pour avoir l'ordre decroissant,il suffit de remplacer l'instruc
12			c tion situee + bas IF(d(j).LE.p) THEN par
13			c IF(d(j).GE.p) THEN
14			c
15
16			INTEGER n
17			REAL d(n) , p
18			INTEGER i,j,k
19
20			DO i=1,n-1
21			k=i
22			p=d(i)
23			DO j=i+1,n
24			IF(d(j).LE.p) THEN
25			k=j
26			p=d(j)
27			ENDIF
28			ENDDO
29
30			IF(k.ne.i) THEN
31			d(k)=d(i)
32			d(i)=p
33			ENDIF
34			ENDDO
35
36			RETURN
37			END