c_rwall.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	c_rwall (nprw, lprw, rwl, cep, proc, nslaw_l, neslaw_l, lwsav_l, nskyrw_l, lrw_pen_l, nrw_pen_l)

Function/Subroutine Documentation

c_rwall()

subroutine c_rwall	(	integer, dimension(*)	nprw,
		integer, dimension(*)	lprw,
			rwl,
		integer, dimension(*)	cep,
		integer	proc,
		integer	nslaw_l,
		integer	neslaw_l,
		integer	lwsav_l,
		integer	nskyrw_l,
		integer, intent(inout)	lrw_pen_l,
		integer, intent(inout)	nrw_pen_l )

Definition at line 31 of file c_rwall.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   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  PROC, NSLAW_L, NESLAW_L, LWSAV_L,
     .          NSKYRW_L, 
     .          LPRW(*), NPRW(*), 
     .          CEP(*)
       INTEGER,  INTENT(INOUT) :: LRW_PEN_L, NRW_PEN_L
       my_real
     .          rwl(nrwlp,*)
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 NSL, K, KK, N, NN, N2, N3, N4, IE, NE, ITY,
     .        NSL_L, IFQ, MSR,IPEN
C
      nslaw_l = 0
      nskyrw_l= 0
      neslaw_l= 0
      lwsav_l = 0
      lrw_pen_l = 0
      nrw_pen_l = 0
      k = 0
      DO n = 1, nrwall
        n2=n +nrwall
        n3=n2+nrwall
        n4=n3+nrwall
        nsl=nprw(n)
        msr = nprw(n3)
        ity=nprw(n4)
        ipen = nprw(n + 8*nrwall)
        nsl_l=0
        DO kk = 1, nsl
          nn = lprw(k+kk)
          IF(nlocal(nn,proc+1)==1)THEN
            nsl_l = nsl_l + 1
          ENDIF
        ENDDO
        nslaw_l = nslaw_l + nsl_l
        IF (ipen/=0) THEN 
           lrw_pen_l = lrw_pen_l + nsl_l
           IF (nsl_l>0) nrw_pen_l = nrw_pen_l + 1
        ENDIF
C memory space p/we
        IF(ipari0/=0.AND.msr/=0) nskyrw_l = nskyrw_l + nsl_l
        k = k + nsl
C
        ifq = nint(rwl(15,n))
        IF(ifq>0) THEN
          lwsav_l = lwsav_l + nsl_l
        ENDIF
C
        IF(ity==-1)THEN
          ne = nint(rwl(8,n))
          IF(ne/=0) THEN
            DO kk = 1, ne
              ie = lprw(k+kk)/10
C             IR = LPRW(K+KK)-10*IE
              IF(cep(ie)==proc)THEN
                neslaw_l = neslaw_l+1
              ENDIF
            ENDDO
            k = k + ne
          ENDIF
        ENDIF
      ENDDO
C
      RETURN