ccoli3.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	ccoli3 (ixi, nvci, lft, llt)

Function/Subroutine Documentation

ccoli3()

subroutine ccoli3	(	integer, dimension(*)	ixi,
		integer	nvci,
		integer	lft,
		integer	llt )

Definition at line 31 of file ccoli3.F.

C
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 NVCI, LFT, LLT
      INTEGER IXI(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I2, I, J1, II, J, IJ
      i2=llt-1
      nvci=0
      DO 20 i=lft,i2
      IF(nvci/=0) GO TO 20
      j1=i+1
      ii=ixi(i)
      DO 10 j=j1,llt
      ij=ixi(j)
      IF(ij/=ii) GO TO 10
      nvci=1
   10 CONTINUE
   20 CONTINUE
C
      RETURN