rbyac_imp.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	rbyac_imp (npby, itab, nrbyac, irbyac, nsmax)

Function/Subroutine Documentation

rbyac_imp()

subroutine rbyac_imp	(	integer, dimension(nnpby,*)	npby,
		integer, dimension(*)	itab,
		integer	nrbyac,
		integer, dimension(*)	irbyac,
		integer	nsmax )

Definition at line 28 of file rbyac_imp.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      "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 NPBY(NNPBY,*),ITAB(*),NRBYAC,IRBYAC(*),NSMAX
C     REAL
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, N,K,IACTI,ISENS,M
C-----------------------------------------------
         k=0
         nrbyac=0
         nsmax=0
         DO n=1,nrbykin
         IF (npby(1,n)>0) THEN
          iacti=npby(7,n)
          isens=npby(4,n)
          IF(iacti>0)THEN
           nrbyac=nrbyac+1
           irbyac(nrbyac)=n
           irbyac(nrbyac+nrbykin)=k
           nsmax=nsmax+npby(2,n)
          ENDIF
         ENDIF 
         k=k+npby(2,n)
         ENDDO 
C
      RETURN