wrweight_rm.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	wrweight_rm (front_rm, nr, proc)

Function/Subroutine Documentation

wrweight_rm()

subroutine wrweight_rm	(	integer, dimension(nr,*)	front_rm,
		integer	nr,
		integer	proc )

Definition at line 30 of file wrweight_rm.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------        
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 NR,FRONT_RM(NR,*),PROC
C-----------------------------------------------
C   F u n c t i o n
C-----------------------------------------------
      INTEGER  NLOCAL
      EXTERNAL nlocal
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER WEIGHT(NR),I,N,P,G
      DO i = 1, nr
        weight(i) = 0
        DO p = 1, proc-1
          IF(nlocal(i,p)==1)GOTO 10
        ENDDO
        weight(i) = 1
 10     CONTINUE
      ENDDO
      CALL write_i_c(weight,nr)
      RETURN