bcs10.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	bcs10 (nodft, nodlt, icodt, icodr, iskew, skew, a, ar, ms, v, vr)

Function/Subroutine Documentation

bcs10()

subroutine bcs10	(	integer	nodft,
		integer	nodlt,
		integer, dimension(*)	icodt,
		integer, dimension(*)	icodr,
		integer, dimension(*)	iskew,
			skew,
			a,
			ar,
			ms,
			v,
			vr )

Definition at line 30 of file bcs10.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com01_c.inc"
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NODFT,NODLT,ICODT(*),ICODR(*),ISKEW(*)
      my_real
     .    a(3,*), ar(3,*), ms(*), v(3,*), vr(3,*),skew(lskew,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, N, K, ISK, LCOD, NINDX,
     .        INDX(1024),L,J
C-----------------------------------------------
      DO 420 i = nodft,nodlt,1024
        nindx = 0
        DO 400 n=i,min(nodlt,i+1023)
          IF (icodt(n)/=0)THEN
            nindx = nindx + 1
            indx(nindx) = n
          ENDIF
  400   CONTINUE
        CALL bcs1v(nindx,indx,iskew,icodt,
     .             a    ,skew,v          )
  420 CONTINUE
C
      IF(iroddl/=0) THEN
        DO 440 i = nodft,nodlt,1024
          nindx = 0
          DO 430 n=i,min(nodlt,i+1023)
            IF (icodr(n)/=0)THEN
              nindx = nindx + 1
              indx(nindx) = n
            ENDIF
  430     CONTINUE
        CALL bcs1v(nindx,indx,iskew,icodr,
     .             ar   ,skew,vr         )
  440   CONTINUE
      ENDIF
C
      RETURN