triins.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

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

Function/Subroutine Documentation

triins()

subroutine triins	(	integer	n,
			tab,
		integer	n2 )

Definition at line 32 of file triins.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 K, L
C-----------------------------------------------
C   E x t e r n a l   F u n c t i o n s
C-----------------------------------------------
        INTEGER ICOMPC
C-----------------------------------------------
C   S o u r c e  L i n e s
C-----------------------------------------------
        DO 10 k=2,n
          l=k-1
 150      IF(l>=1) THEN
            IF(icompc(l,l+1,tab)>0) THEN
              CALL echang(l,l+1,tab)
              CALL echang(n2+l,n2+l+1,tab)
              l=l-1
              GO TO 150
            ENDIF
          ENDIF
   10   CONTINUE
        RETURN