s8egetbij.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s8egetbij (bxy1, bxy2, bxy3, bxy4, bxy5, bxy6, bxy7, bxy8, byx1, byx2, byx3, byx4, byx5, byx6, byx7, byx8, bxz1, bxz2, bxz3, bxz4, bxz5, bxz6, bxz7, bxz8, bzx1, bzx2, bzx3, bzx4, bzx5, bzx6, bzx7, bzx8, byz1, byz2, byz3, byz4, byz5, byz6, byz7, byz8, bzy1, bzy2, bzy3, bzy4, bzy5, bzy6, bzy7, bzy8, pij, nel)

Function/Subroutine Documentation

s8egetbij()

subroutine s8egetbij	(		bxy1,
			bxy2,
			bxy3,
			bxy4,
			bxy5,
			bxy6,
			bxy7,
			bxy8,
			byx1,
			byx2,
			byx3,
			byx4,
			byx5,
			byx6,
			byx7,
			byx8,
			bxz1,
			bxz2,
			bxz3,
			bxz4,
			bxz5,
			bxz6,
			bxz7,
			bxz8,
			bzx1,
			bzx2,
			bzx3,
			bzx4,
			bzx5,
			bzx6,
			bzx7,
			bzx8,
			byz1,
			byz2,
			byz3,
			byz4,
			byz5,
			byz6,
			byz7,
			byz8,
			bzy1,
			bzy2,
			bzy3,
			bzy4,
			bzy5,
			bzy6,
			bzy7,
			bzy8,
			pij,
		integer	nel )

Definition at line 28 of file s8egetbij.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 NEL
C     REAL
      my_real
     .   bxy1(*),bxy2(*),bxy3(*),bxy4(*),
     .   bxy5(*),bxy6(*),bxy7(*),bxy8(*),
     .   byx1(*),byx2(*),byx3(*),byx4(*),
     .   byx5(*),byx6(*),byx7(*),byx8(*),
     .   bxz1(*),bxz2(*),bxz3(*),bxz4(*),
     .   bxz5(*),bxz6(*),bxz7(*),bxz8(*),
     .   bzx1(*),bzx2(*),bzx3(*),bzx4(*),
     .   bzx5(*),bzx6(*),bzx7(*),bzx8(*),
     .   byz1(*),byz2(*),byz3(*),byz4(*),
     .   byz5(*),byz6(*),byz7(*),byz8(*),
     .   bzy1(*),bzy2(*),bzy3(*),bzy4(*),
     .   bzy5(*),bzy6(*),bzy7(*),bzy8(*),
     .   pij(nel,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,K
C-----------------------------------------------
       DO i=1,nel
C       
        bxy1(i) = pij(i,25) 
        byx1(i) = pij(i,26) 
        bxz1(i) = pij(i,27) 
        bzx1(i) = pij(i,28) 
        byz1(i) = pij(i,29) 
        bzy1(i) = pij(i,30) 
C                
        bxy2(i) = pij(i,31) 
        byx2(i) = pij(i,32) 
        bxz2(i) = pij(i,33) 
        bzx2(i) = pij(i,34) 
        byz2(i) = pij(i,35) 
        bzy2(i) = pij(i,36) 
C                
        bxy3(i) = pij(i,37) 
        byx3(i) = pij(i,38) 
        bxz3(i) = pij(i,39) 
        bzx3(i) = pij(i,40) 
        byz3(i) = pij(i,41) 
        bzy3(i) = pij(i,42) 
C                
        bxy4(i) = pij(i,43) 
        byx4(i) = pij(i,44) 
        bxz4(i) = pij(i,45) 
        bzx4(i) = pij(i,46) 
        byz4(i) = pij(i,47) 
        bzy4(i) = pij(i,48) 
C                
        bxy5(i) = pij(i,49) 
        byx5(i) = pij(i,50) 
        bxz5(i) = pij(i,51) 
        bzx5(i) = pij(i,52) 
        byz5(i) = pij(i,53) 
        bzy5(i) = pij(i,54) 
C                
        bxy6(i) = pij(i,55) 
        byx6(i) = pij(i,56) 
        bxz6(i) = pij(i,57) 
        bzx6(i) = pij(i,58) 
        byz6(i) = pij(i,59) 
        bzy6(i) = pij(i,60) 
C                
        bxy7(i) = pij(i,61) 
        byx7(i) = pij(i,62) 
        bxz7(i) = pij(i,63) 
        bzx7(i) = pij(i,64) 
        byz7(i) = pij(i,65) 
        bzy7(i) = pij(i,66) 
C                
        bxy8(i) = pij(i,67) 
        byx8(i) = pij(i,68) 
        bxz8(i) = pij(i,69) 
        bzx8(i) = pij(i,70) 
        byz8(i) = pij(i,71) 
        bzy8(i) = pij(i,72) 
       END DO
C-----------
      RETURN