i15marq.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i15marq (ksi, nsc, ksc, ntc, ktc, iactiv, nsn, ksn, imarqnd, nnc, knc)

Function/Subroutine Documentation

i15marq()

subroutine i15marq	(	integer, dimension(4,*)	ksi,
		integer	nsc,
		integer, dimension(*)	ksc,
		integer	ntc,
		integer, dimension(*)	ktc,
		integer, dimension(4,*)	iactiv,
		integer	nsn,
		integer, dimension(*)	ksn,
		integer, dimension(*)	imarqnd,
		integer	nnc,
		integer, dimension(*)	knc )

Definition at line 28 of file i15marq.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 KSI(4,*),NSC,KSC(*),NTC,KTC(*),
     .        IACTIV(4,*),IMARQND(*),NSN,KSN(*),NNC,
     .        KNC(*)
C     REAL
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, IL, IN, IN1, IN2, IN3, IN4
C-----------------------------------------------
      DO i=1,nsn
       in=ksn(i)
       imarqnd(in)=0
      ENDDO
C-----
      DO i=1,nsc
       il=ksc(i)
       in1=ksi(1,il)
       in2=ksi(2,il)
       in3=ksi(3,il)
       in4=ksi(4,il)
       IF (iactiv(1,il)>0
     . .OR.iactiv(2,il)>0    
     . .OR.iactiv(3,il)>0    
     . .OR.iactiv(4,il)>0) THEN
        imarqnd(in1)=1
        imarqnd(in2)=1
        imarqnd(in3)=1
        imarqnd(in4)=1
       ENDIF
      ENDDO
      DO i=1,ntc
       il=ktc(i)
       in1=ksi(1,il)
       in2=ksi(2,il)
       in3=ksi(3,il)
       IF (iactiv(1,il)>0) THEN
        imarqnd(in1)=1
        imarqnd(in2)=1
        imarqnd(in3)=1
       ENDIF   
      ENDDO
C-----
      nnc=0
      DO i=1,nsn
       in=ksn(i)
       IF (imarqnd(in)/=0) THEN
        nnc=nnc+1
        knc(nnc)=in
       ENDIF
      ENDDO
C----------------------------------
      RETURN