s8ederish2.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine

s8ederish2 (pxy1, pxy2, pxy3, pxy4, pxy5, pxy6, pxy7, pxy8, pyx1, pyx2, pyx3, pyx4, pyx5, pyx6, pyx7, pyx8, pxz1, pxz2, pxz3, pxz4, pxz5, pxz6, pxz7, pxz8, pzx1, pzx2, pzx3, pzx4, pzx5, pzx6, pzx7, pzx8, pyz1, pyz2, pyz3, pyz4, pyz5, pyz6, pyz7, pyz8, pzy1, pzy2, pzy3, pzy4, pzy5, pzy6, pzy7, pzy8, p0xy1, p0xy2, p0xy3, p0xy4, p0xy5, p0xy6, p0xy7, p0xy8, p0yx1, p0yx2, p0yx3, p0yx4, p0yx5, p0yx6, p0yx7, p0yx8, p0xz1, p0xz2, p0xz3, p0xz4, p0xz5, p0xz6, p0xz7, p0xz8, p0zx1, p0zx2, p0zx3, p0zx4, p0zx5, p0zx6, p0zx7, p0zx8, p0yz1, p0yz2, p0yz3, p0yz4, p0yz5, p0yz6, p0yz7, p0yz8, p0zy1, p0zy2, p0zy3, p0zy4, p0zy5, p0zy6, p0zy7, p0zy8, nel)

Function/Subroutine Documentation

s8ederish2()

subroutine s8ederish2	(		pxy1,
			pxy2,
			pxy3,
			pxy4,
			pxy5,
			pxy6,
			pxy7,
			pxy8,
			pyx1,
			pyx2,
			pyx3,
			pyx4,
			pyx5,
			pyx6,
			pyx7,
			pyx8,
			pxz1,
			pxz2,
			pxz3,
			pxz4,
			pxz5,
			pxz6,
			pxz7,
			pxz8,
			pzx1,
			pzx2,
			pzx3,
			pzx4,
			pzx5,
			pzx6,
			pzx7,
			pzx8,
			pyz1,
			pyz2,
			pyz3,
			pyz4,
			pyz5,
			pyz6,
			pyz7,
			pyz8,
			pzy1,
			pzy2,
			pzy3,
			pzy4,
			pzy5,
			pzy6,
			pzy7,
			pzy8,
			p0xy1,
			p0xy2,
			p0xy3,
			p0xy4,
			p0xy5,
			p0xy6,
			p0xy7,
			p0xy8,
			p0yx1,
			p0yx2,
			p0yx3,
			p0yx4,
			p0yx5,
			p0yx6,
			p0yx7,
			p0yx8,
			p0xz1,
			p0xz2,
			p0xz3,
			p0xz4,
			p0xz5,
			p0xz6,
			p0xz7,
			p0xz8,
			p0zx1,
			p0zx2,
			p0zx3,
			p0zx4,
			p0zx5,
			p0zx6,
			p0zx7,
			p0zx8,
			p0yz1,
			p0yz2,
			p0yz3,
			p0yz4,
			p0yz5,
			p0yz6,
			p0yz7,
			p0yz8,
			p0zy1,
			p0zy2,
			p0zy3,
			p0zy4,
			p0zy5,
			p0zy6,
			p0zy7,
			p0zy8,
		integer, intent(in)	nel )

Definition at line 30 of file s8ederish2.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, INTENT(IN) :: NEL
      my_real
     .   pxy1(*),pxy2(*),pxy3(*),pxy4(*),
     .   pxy5(*),pxy6(*),pxy7(*),pxy8(*),
     .   pyx1(*),pyx2(*),pyx3(*),pyx4(*),
     .   pyx5(*),pyx6(*),pyx7(*),pyx8(*),
     .   pxz1(*),pxz2(*),pxz3(*),pxz4(*),
     .   pxz5(*),pxz6(*),pxz7(*),pxz8(*),
     .   pzx1(*),pzx2(*),pzx3(*),pzx4(*),
     .   pzx5(*),pzx6(*),pzx7(*),pzx8(*),
     .   pyz1(*),pyz2(*),pyz3(*),pyz4(*),
     .   pyz5(*),pyz6(*),pyz7(*),pyz8(*),
     .   pzy1(*),pzy2(*),pzy3(*),pzy4(*),
     .   pzy5(*),pzy6(*),pzy7(*),pzy8(*),
     .   p0xy1(*),p0xy2(*),p0xy3(*),p0xy4(*),
     .   p0xy5(*),p0xy6(*),p0xy7(*),p0xy8(*),
     .   p0yx1(*),p0yx2(*),p0yx3(*),p0yx4(*),
     .   p0yx5(*),p0yx6(*),p0yx7(*),p0yx8(*),
     .   p0xz1(*),p0xz2(*),p0xz3(*),p0xz4(*),
     .   p0xz5(*),p0xz6(*),p0xz7(*),p0xz8(*),
     .   p0zx1(*),p0zx2(*),p0zx3(*),p0zx4(*),
     .   p0zx5(*),p0zx6(*),p0zx7(*),p0zx8(*),
     .   p0yz1(*),p0yz2(*),p0yz3(*),p0yz4(*),
     .   p0yz5(*),p0yz6(*),p0yz7(*),p0yz8(*),
     .   p0zy1(*),p0zy2(*),p0zy3(*),p0zy4(*),
     .   p0zy5(*),p0zy6(*),p0zy7(*),p0zy8(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, J 
C                                                                     12
          CALL s8ea2bp8(
     1   pxy1,    pxy2,    pxy3,    pxy4,
     2   pxy5,    pxy6,    pxy7,    pxy8,
     3   p0xy1,   p0xy2,   p0xy3,   p0xy4,
     4   p0xy5,   p0xy6,   p0xy7,   p0xy8,
     5   nel)
          CALL s8ea2bp8(
     1   pyx1,    pyx2,    pyx3,    pyx4,
     2   pyx5,    pyx6,    pyx7,    pyx8,
     3   p0yx1,   p0yx2,   p0yx3,   p0yx4,
     4   p0yx5,   p0yx6,   p0yx7,   p0yx8,
     5   nel)
          CALL s8ea2bp8(
     1   pxz1,    pxz2,    pxz3,    pxz4,
     2   pxz5,    pxz6,    pxz7,    pxz8,
     3   p0xz1,   p0xz2,   p0xz3,   p0xz4,
     4   p0xz5,   p0xz6,   p0xz7,   p0xz8,
     5   nel)
          CALL s8ea2bp8(
     1   pzx1,    pzx2,    pzx3,    pzx4,
     2   pzx5,    pzx6,    pzx7,    pzx8,
     3   p0zx1,   p0zx2,   p0zx3,   p0zx4,
     4   p0zx5,   p0zx6,   p0zx7,   p0zx8,
     5   nel)
          CALL s8ea2bp8(
     1   pyz1,    pyz2,    pyz3,    pyz4,
     2   pyz5,    pyz6,    pyz7,    pyz8,
     3   p0yz1,   p0yz2,   p0yz3,   p0yz4,
     4   p0yz5,   p0yz6,   p0yz7,   p0yz8,
     5   nel)
          CALL s8ea2bp8(
     1   pzy1,    pzy2,    pzy3,    pzy4,
     2   pzy5,    pzy6,    pzy7,    pzy8,
     3   p0zy1,   p0zy2,   p0zy3,   p0zy4,
     4   p0zy5,   p0zy6,   p0zy7,   p0zy8,
     5   nel)
C
      RETURN