aninflow.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"
#include "flowcom.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	aninflow (ifunc, wa4, iflow, rflow)

Function/Subroutine Documentation

aninflow()

subroutine aninflow	(	integer	ifunc,
		real, dimension(*)	wa4,
		integer, dimension(*)	iflow,
			rflow )

Definition at line 28 of file aninflow.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      "flowcom.inc"
* debug SPMD
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IFUNC, IFLOW(*)
      my_real
     .        rflow(*)
      REAL WA4(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IADI, IADR, I, ITYP, NINOUT, NNO, NEL, II1, II2,
     .        IR1, IR2, J, JJ, NNO_L, NNI_L, II3, II4, JJJ, NNI
 
         iadi=0
         iadr=0
         DO i=1,nflow
            ityp=iflow(iadi+2)
            IF (ityp==1) THEN
               ninout=iflow(iadi+4)
               nno=iflow(iadi+5)
               nel=iflow(iadi+6)
               nni=iflow(iadi+7)
               nno_l=iflow(iadi+16)
               nni_l=iflow(iadi+22)
               ii1=iadi+niflow
               ii2=ii1+nno+3*nel+ninout*niioflow
               IF(nspmd == 1) THEN
                  ii3=ii2+nni+nel
                  ii4=ii3+nno
               ELSE
                  ii3=ii2+nni+nel+2*nno
                  ii4=ii3+2*nno
               ENDIF
               ir1=iadr+nrflow
               ir2=ir1+nno+nni
               IF (ifunc==3) THEN
                  DO j=1,nno_l
                     jj=iflow(ii3+j)
                     jjj=iflow(ii1+jj)
                     wa4(jjj)=rflow(ir2+jj)
                  ENDDO
                  DO j=1,nni_l
                     jj=iflow(ii4+j)
                     jjj=iflow(ii2+jj)
                     wa4(jjj)=rflow(ir2+nno+jj)
                  ENDDO
               ELSEIF (ifunc==13) THEN
                  DO j=1,nno_l
                     jj=iflow(ii3+j)
                     jjj=iflow(ii1+jj)
                     wa4(jjj)=rflow(ir1+jj)
                  ENDDO
                  DO j=1,nni_l
                     jj=iflow(ii4+j)
                     jjj=iflow(ii2+jj)
                     wa4(jjj)=rflow(ir1+nno+jj)
                  ENDDO
               ENDIF
            ENDIF
            iadr=iadr+iflow(iadi+15)
            iadi=iadi+iflow(iadi+14)
         ENDDO
 
      RETURN