w_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	w_bufel (iparg, proc, lbufel_l, elbuf, len_am)

Function/Subroutine Documentation

w_bufel()

subroutine w_bufel	(	integer, dimension(nparg,*)	iparg,
		integer	proc,
		integer	lbufel_l,
			elbuf,
		integer	len_am )

Definition at line 30 of file w_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, LEN_AM,
     .        IPARG(NPARG,*)
      my_real
     .        elbuf(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NG, P, LB_L, LEN, J, IAD
      my_real,
     .    DIMENSION(:),ALLOCATABLE :: elbuf_l
 
      ALLOCATE(elbuf_l(lbufel_l))
C
      lb_l = 0
      DO ng=1,ngroup
        p   = iparg(32,ng)
        IF(p==proc) THEN
          iad = iparg(4,ng)
          IF(ng<ngroup) THEN
            len = iparg(4,ng+1) - iparg(4,ng)
          ELSE
             len =lbufel + 1 - iparg(4,ng)
          ENDIF
          DO j = 1, len
            elbuf_l(lb_l+j) = elbuf(iad+j-1)
          ENDDO
          lb_l = lb_l + len
        ENDIF
      ENDDO
C
      CALL write_db(elbuf_l,lbufel_l)
      len_am = len_am + lbufel_l
 
      DEALLOCATE(elbuf_l)
C
      RETURN