c_bufel.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_bufel (iparg, proc, lbufel_l)

Function/Subroutine Documentation

c_bufel()

subroutine c_bufel	(	integer, dimension(nparg,*)	iparg,
		integer	proc,
		integer	lbufel_l )

Definition at line 29 of file c_bufel.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, LBUFEL_L,
     .        IPARG(NPARG,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NG, P
C
      lbufel_l = 0
      DO ng=1,ngroup
        p   = iparg(32,ng)
        IF(p==proc) THEN
          IF(ng<ngroup) THEN
            lbufel_l = lbufel_l + iparg(4,ng+1) - iparg(4,ng)
          ELSE
             lbufel_l = lbufel_l + lbufel + 1 - iparg(4,ng)
          ENDIF
        ENDIF
      ENDDO
C
      RETURN