drbe2cnt.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	drbe2cnt (nerbe2, irbe2, lrbe2, weight)

Function/Subroutine Documentation

drbe2cnt()

subroutine drbe2cnt	(	integer	nerbe2,
		integer, dimension(nrbe2l,*)	irbe2,
		integer, dimension(*)	lrbe2,
		integer, dimension(*)	weight )

Definition at line 32 of file drbe2cnt.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 NERBE2,NERWL,IRBE2(NRBE2L,*),WEIGHT(*),
     .        LRBE2(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,N,NSN
C-----------------------------------------------
C seul le proc 0 effectue le traitement
        DO i=1,nrbe2
          nsn = irbe2(5,i)
          DO n=1,nsn
           IF (weight(lrbe2(irbe2(1,i)+n))==1) nerbe2 = nerbe2 + 1
           ENDDO
        ENDDO
        IF(nspmd > 1) CALL spmd_glob_isum9(nerbe2,1)
        IF(nspmd > 1) CALL spmd_ibcast(nerbe2,nerbe2,1,1,0,2)
 
      RETURN