s8egetbij.F

Go to the documentation of this file.

Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2025 Altair Engineering Inc.
Copyright>
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>
Copyright>
Copyright>        Commercial Alternative: Altair Radioss Software
Copyright>
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss
Copyright>        software under a commercial license.  Contact Altair to discuss further if the
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.
!||====================================================================
!||    s8egetbij   ../engine/source/elements/solid/solide8e/s8egetbij.F
!||--- called by ------------------------------------------------------
!||    s8eforc3    ../engine/source/elements/solid/solide8e/s8eforc3.F
!||====================================================================
      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)
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
      END