prodmat.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	prodmat (a, b, c, nel)

Function/Subroutine Documentation

prodmat()

subroutine prodmat	(		a,
			b,
			c,
		integer	nel )

Definition at line 34 of file prodmat.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
      INTEGER NEL, I, J, K, N
      my_real   a(nel,3, 3), b(nel,3, 3), c(nel,3, 3)
C
      DO i = 1, 3
         DO j = 1, 3
             DO n =1, nel
               c(n,i,j) = zero
             ENDDO
         ENDDO
      ENDDO
      DO i = 1, 3
         DO j = 1, 3
            DO k = 1, 3
             DO n =1, nel
               c(n,i,j) = c(n,i,j) + a(n,i,k) * b(n,k,j)
             ENDDO
            ENDDO
         ENDDO
      ENDDO
C
      RETURN