bcs1th_imp.F File Reference

#include "implicit_f.inc"
#include "vectorize.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	bcs1th_imp (nindx, indx, a, fthreac, nodreac, n, fthdtm, dt3)
subroutine	bcs1an_imp (nindx, indx, a, fanreac, n)

Function/Subroutine Documentation

bcs1an_imp()

subroutine bcs1an_imp	(	integer	nindx,
		integer, dimension(*)	indx,
			a,
			fanreac,
		integer	n )

Definition at line 68 of file bcs1th_imp.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NINDX, N, INDX(*)
      my_real
     .   a(3,*),fanreac(6,*)
C-----------------------------------------------
      INTEGER K, L
C-----------------------------------------------
C
#include "vectorize.inc"
      DO k = 1, nindx
        l = indx(k)
        fanreac(n+1,l) = - a(1,l)
        fanreac(n+2,l) = - a(2,l)
        fanreac(n+3,l) = - a(3,l)
      ENDDO
C
      RETURN

bcs1th_imp()

subroutine bcs1th_imp	(	integer	nindx,
		integer, dimension(*)	indx,
			a,
			fthreac,
		integer, dimension(*)	nodreac,
		integer	n,
			fthdtm,
			dt3 )

Definition at line 28 of file bcs1th_imp.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NINDX, N, INDX(*),NODREAC(*)
      my_real a(3,*),fthreac(6,*),dt3,fthdtm(6,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER K, L
C-----------------------------------------------
C
#include "vectorize.inc"
      DO k = 1, nindx
        l = indx(k)
        fthreac(n+1,nodreac(l)) = fthreac(n+1,nodreac(l))
     &                           - a(1,l)*dt3/two
     &                           - fthdtm(n+1,nodreac(l))*dt3/two
        fthreac(n+2,nodreac(l)) = fthreac(n+2,nodreac(l))
     &                           - a(2,l)*dt3/two
     &                           - fthdtm(n+2,nodreac(l))*dt3/two
        fthreac(n+3,nodreac(l)) = fthreac(n+3,nodreac(l))
     &                           - a(3,l)*dt3/two
     &                           - fthdtm(n+3,nodreac(l))*dt3/two
        fthdtm(n+1,nodreac(l)) = a(1,l)
        fthdtm(n+2,nodreac(l)) = a(2,l)
        fthdtm(n+3,nodreac(l)) = a(3,l)
      ENDDO
C
      RETURN