s8ederi_2.F File Reference

#include "implicit_f.inc"
#include "comlock.inc"
#include "scr17_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine

s8ederi_2 (offg, off, vol, ksi, eta, zeta, wi, px1, px2, px3, px4, px5, px6, px7, px8, py1, py2, py3, py4, py5, py6, py7, py8, pz1, pz2, pz3, pz4, pz5, pz6, pz7, pz8, pxc1, pxc2, pxc3, pxc4, pyc1, pyc2, pyc3, pyc4, pzc1, pzc2, pzc3, pzc4, 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, bxx1, bxx2, bxx3, bxx4, bxx5, bxx6, bxx7, bxx8, byy1, byy2, byy3, byy4, byy5, byy6, byy7, byy8, bzz1, bzz2, bzz3, bzz4, bzz5, bzz6, bzz7, bzz8, aj4, aj5, aj6, aj7, aj8, aj9, rx, ry, rz, sx, sy, sz, smax, deltax, icp, ideg, nu, volp, nel)

Function/Subroutine Documentation

s8ederi_2()

subroutine s8ederi_2	(		offg,
			off,
			vol,
			ksi,
			eta,
			zeta,
			wi,
			px1,
			px2,
			px3,
			px4,
			px5,
			px6,
			px7,
			px8,
			py1,
			py2,
			py3,
			py4,
			py5,
			py6,
			py7,
			py8,
			pz1,
			pz2,
			pz3,
			pz4,
			pz5,
			pz6,
			pz7,
			pz8,
			pxc1,
			pxc2,
			pxc3,
			pxc4,
			pyc1,
			pyc2,
			pyc3,
			pyc4,
			pzc1,
			pzc2,
			pzc3,
			pzc4,
			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,
			bxx1,
			bxx2,
			bxx3,
			bxx4,
			bxx5,
			bxx6,
			bxx7,
			bxx8,
			byy1,
			byy2,
			byy3,
			byy4,
			byy5,
			byy6,
			byy7,
			byy8,
			bzz1,
			bzz2,
			bzz3,
			bzz4,
			bzz5,
			bzz6,
			bzz7,
			bzz8,
			aj4,
			aj5,
			aj6,
			aj7,
			aj8,
			aj9,
			rx,
			ry,
			rz,
			sx,
			sy,
			sz,
			smax,
			deltax,
		integer	icp,
		integer, dimension(*)	ideg,
			nu,
		double precision, dimension(*)	volp,
		integer, intent(in)	nel )

Definition at line 31 of file s8ederi_2.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "comlock.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "scr17_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: NEL
      INTEGER ICP,IDEG(*)
C     REAL
      my_real
     .   off(*),offg(*),vol(*),ksi,eta,zeta,wi,
     .   px1(*), px2(*), px3(*), px4(*),
     .   px5(*), px6(*), px7(*), px8(*),
     .   py1(*), py2(*), py3(*), py4(*),
     .   py5(*), py6(*), py7(*), py8(*),
     .   pz1(*), pz2(*), pz3(*), pz4(*), 
     .   pz5(*), pz6(*), pz7(*), pz8(*),
     .   aj4(*),aj5(*),aj6(*),
     .   aj7(*),aj8(*),aj9(*),
     .   rx(*)    ,ry(*)    ,rz(*)    ,
     .   sx(*)    ,sy(*)    ,sz(*)    ,
     .   smax(*),deltax(*),
     .   pxc1(*), pxc2(*), pxc3(*), pxc4(*),
     .   pyc1(*), pyc2(*), pyc3(*), pyc4(*),
     .   pzc1(*), pzc2(*), pzc3(*), pzc4(*),
     .   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(*),
     .   bxx1(*),bxx2(*),bxx3(*),bxx4(*),
     .   bxx5(*),bxx6(*),bxx7(*),bxx8(*),
     .   byy1(*),byy2(*),byy3(*),byy4(*),
     .   byy5(*),byy6(*),byy7(*),byy8(*),
     .   bzz1(*),bzz2(*),bzz3(*),bzz4(*),
     .   bzz5(*),bzz6(*),bzz7(*),bzz8(*),nu(*)
      DOUBLE PRECISION 
     .   VOLP(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER  I, J ,ICOR
C     REAL
C                                                                     12
      my_real
     .   a1pr1,a1pr3,a1pr5,a1pr7,
     .   a4pr1,a4pr3,a4pr5,a4pr7,
     .   a7pr1,a7pr3,a7pr5,a7pr7,
     .   a2ps1,a2ps2,a2ps5,a2ps6,
     .   a5ps1,a5ps2,a5ps5,a5ps6,
     .   a8ps1,a8ps2,a8ps5,a8ps6,
     .   a3pt1,a3pt2,a3pt3,a3pt4,
     .   a6pt1,a6pt2,a6pt3,a6pt4,
     .   a9pt1,a9pt2,a9pt3,a9pt4,
     .   bxhi,byhi,bzhi,tmp,deti
C-----------------------------------------------
      DO i=1,nel
       rx(i) = aj4(i)
       ry(i) = aj5(i)
       rz(i) = aj6(i)
       sx(i) = aj7(i)
       sy(i) = aj8(i)
       sz(i) = aj9(i)
      ENDDO
C
      DO i=1,nel
       off(i) = offg(i)
       vol(i) = volp(i)
      ENDDO
      IF (idts6==0) THEN
       DO i=1,nel
        deltax(i)=min(deltax(i),hundred28*vol(i)*smax(i)/wi)
       ENDDO
      ELSE
      DO i=1,nel
       IF (ideg(i)==0) deltax(i)=min(deltax(i),hundred28*vol(i)*smax(i)/wi)
      ENDDO
      END IF
C-----------for the imcompressible laws
C-------|BXX BYX BZX |
C-------|BXY BYY BZY |  same than H8A
C-------|BXZ BYZ BZZ |
      IF (icp==11) THEN
       CALL s8bicp11(
     1   px1,     px2,     px3,     px4,
     2   px5,     px6,     px7,     px8,
     3   py1,     py2,     py3,     py4,
     4   py5,     py6,     py7,     py8,
     5   pz1,     pz2,     pz3,     pz4,
     6   pz5,     pz6,     pz7,     pz8,
     7   pxc1,    pxc2,    pxc3,    pxc4,
     8   pyc1,    pyc2,    pyc3,    pyc4,
     9   pzc1,    pzc2,    pzc3,    pzc4,
     a   bxy1,    bxy2,    bxy3,    bxy4,
     b   bxy5,    bxy6,    bxy7,    bxy8,
     c   byx1,    byx2,    byx3,    byx4,
     d   byx5,    byx6,    byx7,    byx8,
     e   bxz1,    bxz2,    bxz3,    bxz4,
     f   bxz5,    bxz6,    bxz7,    bxz8,
     g   bzx1,    bzx2,    bzx3,    bzx4,
     h   bzx5,    bzx6,    bzx7,    bzx8,
     i   byz1,    byz2,    byz3,    byz4,
     j   byz5,    byz6,    byz7,    byz8,
     k   bzy1,    bzy2,    bzy3,    bzy4,
     l   bzy5,    bzy6,    bzy7,    bzy8,
     m   bxx1,    bxx2,    bxx3,    bxx4,
     n   bxx5,    bxx6,    bxx7,    bxx8,
     o   byy1,    byy2,    byy3,    byy4,
     p   byy5,    byy6,    byy7,    byy8,
     q   bzz1,    bzz2,    bzz3,    bzz4,
     r   bzz5,    bzz6,    bzz7,    bzz8,
     s   nu,      nel)
      ENDIF
C
      RETURN