drbe3cnt.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	drbe3cnt (nerbe3, irbe3, lrbe3, weight)

Function/Subroutine Documentation

drbe3cnt()

subroutine drbe3cnt	(	integer	nerbe3,
		integer, dimension(nrbe3l,*)	irbe3,
		integer, dimension(*)	lrbe3,
		integer, dimension(*)	weight )

Definition at line 32 of file drbe3cnt.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      "com04_c.inc"
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NERBE3,NERWL,IRBE3(NRBE3L,*),WEIGHT(*),
     .        LRBE3(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,N,MSN
C-----------------------------------------------
C seul le proc 0 effectue le traitement
        DO i=1,nrbe3
          msn = irbe3(5,i)
          DO n=1,msn
           IF (weight(lrbe3(irbe3(1,i)+n))==1)
     .        nerbe3 = nerbe3 + 1
           ENDDO
        ENDDO
        IF(nspmd > 1) CALL spmd_glob_isum9(nerbe3,1)
        IF(nspmd > 1) CALL spmd_ibcast(nerbe3,nerbe3,1,1,0,2)
 
      RETURN