s8etotsh10.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s8etotsh10 (mb, bxx, byy, bzz, bxy, byz, bxz, nel)

Function/Subroutine Documentation

s8etotsh10()

subroutine s8etotsh10	(		mb,
			bxx,
			byy,
			bzz,
			bxy,
			byz,
			bxz,
		integer	nel )

Definition at line 28 of file s8etotsh10.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-----------------------------------------------
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NEL
C     REAL
      my_real
     .  mb(nel,6),bxx(*),byy(*),bzz(*),
     .  bxy(*),bxz(*),byz(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C
        DO i=1,nel
            mb(i,1) = bxx(i)
            mb(i,2) = byy(i)
            mb(i,3) = bzz(i)
            mb(i,4) = bxy(i)
            mb(i,5) = byz(i)
            mb(i,6) = bxz(i)
        END DO
C       
      RETURN