bcs0.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	bcs0 (icode, icodt, icodr, icode_ply, icodt_ply, ibc_ply)

Function/Subroutine Documentation

bcs0()

subroutine bcs0	(	integer, dimension(*)	icode,
		integer, dimension(*)	icodt,
		integer, dimension(*)	icodr,
		integer, dimension(*)	icode_ply,
		integer, dimension(*)	icodt_ply,
		integer, dimension(*)	ibc_ply )

Definition at line 28 of file bcs0.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 ICODE(*), ICODT(*), ICODR(*), ICODE_PLY(*), ICODT_PLY(*),
     .        IBC_PLY(*)
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com01_c.inc"
#include      "com04_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, M, II
C-----------------------------------------------
      DO 10 n=1,numnod
       icodt(n)=icode(n)/512
   10 CONTINUE
C       
      IF(iplybcs > 0) THEN
         DO  n=1,numnod
             ii = mod(icode_ply(n),512)
             icodt_ply(n) = (icode_ply(n)- ii) /512
             IF(ii > 10 ) ibc_ply(n) = 2
             IF(ii == 10 ) ibc_ply(n) = 1
             IF(ii == 1 ) ibc_ply(n) = -1
         ENDDO
      ENDIF 
      IF(iroddl>0)THEN
       DO 20 n=1,numnod
       icodr(n)=(icode(n)-512*(icode(n)/512))/64
   20  CONTINUE
      END IF
C
      IF(iale>0) THEN
      DO 30 n=1,numnod
      m=n+numnod
      icodt(m)=(icode(n)-64*(icode(n)/64))/8
   30 CONTINUE
      DO 40 n=1,numnod
      m=n+numnod+numnod
      icodt(m)=(icode(n)-8*(icode(n)/8))
   40 CONTINUE
      END IF
C
      RETURN