c_ngroup.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	c_ngroup (iparg, proc, numlocgroup, ngroup_l)

Function/Subroutine Documentation

c_ngroup()

subroutine c_ngroup	(	integer, dimension(nparg,*)	iparg,
		integer	proc,
		integer, dimension(ngroup)	numlocgroup,
		integer	ngroup_l )

Definition at line 29 of file c_ngroup.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 PROC, NGROUP_L, IPARG(NPARG,*)
      INTEGER NUMLOCGROUP(NGROUP)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NG, NG_L
C
      numlocgroup(1:ngroup) = 0
      ng_l = 0
      DO ng = 1, ngroup
        IF(iparg(32,ng)==proc) THEN 
          ng_l = ng_l + 1
          numlocgroup(ng) = ng_l
        ENDIF
      ENDDO
      ngroup_l = ng_l
C
      RETURN