trirap.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	trirap (n, tab, n2)

Function/Subroutine Documentation

trirap()

subroutine trirap	(	integer	n,
			tab,
		integer	n2 )

Definition at line 30 of file trirap.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        INTEGER N, N2
C     REAL
        my_real
     .     tab(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER SEUIL, SEPAR, I, J, ISUIV, JSUIV, NIVPIL, PILE(40)
C-----------------------------------------------
C   E x t e r n a l   F u n c t i o n s
C-----------------------------------------------
        INTEGER IPARTI
        DATA seuil/15/
C-----------------------------------------------
C   S o u r c e  L i n e s
C-----------------------------------------------
C
        nivpil=0
        IF(n-1>seuil) THEN
          i=1
          j=n
 100      CONTINUE
          separ=iparti(i,j,tab,n2)
          IF(separ-i<=j-separ) THEN
            isuiv=separ+1
            jsuiv=j
            j=separ-1
          ELSE
            isuiv=i
            jsuiv=separ-1
            i=separ+1
          ENDIF
          IF(jsuiv-isuiv>seuil) THEN
            nivpil=nivpil+2
            pile(nivpil)=isuiv
            pile(nivpil-1)=jsuiv
          ENDIF
          IF(j-i>seuil) GO TO 100
          IF(nivpil/=0) THEN
            i=pile(nivpil)
            j=pile(nivpil-1)
            nivpil=nivpil-2
            GO TO 100
          ENDIF
        ENDIF
        CALL triins(n,tab,n2)
        RETURN