s8egetpij.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s8egetpij (px1, px2, px3, px4, px5, px6, px7, px8, py1, py2, py3, py4, py5, py6, py7, py8, pz1, pz2, pz3, pz4, pz5, pz6, pz7, pz8, pij, nel)

Function/Subroutine Documentation

s8egetpij()

subroutine s8egetpij	(		px1,
			px2,
			px3,
			px4,
			px5,
			px6,
			px7,
			px8,
			py1,
			py2,
			py3,
			py4,
			py5,
			py6,
			py7,
			py8,
			pz1,
			pz2,
			pz3,
			pz4,
			pz5,
			pz6,
			pz7,
			pz8,
			pij,
		integer	nel )

Definition at line 28 of file s8egetpij.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NEL
C     REAL
      my_real
     .  px1(mvsiz),px2(mvsiz),px3(mvsiz),px4(mvsiz),
     .  px5(mvsiz),px6(mvsiz),px7(mvsiz),px8(mvsiz),
     .  py1(mvsiz),py2(mvsiz),py3(mvsiz),py4(mvsiz),
     .  py5(mvsiz),py6(mvsiz),py7(mvsiz),py8(mvsiz),
     .  pz1(mvsiz),pz2(mvsiz),pz3(mvsiz),pz4(mvsiz),
     .  pz5(mvsiz),pz6(mvsiz),pz7(mvsiz),pz8(mvsiz),
     .  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
        px1(i) = pij(i,1) 
        py1(i) = pij(i,2) 
        pz1(i) = pij(i,3) 
        px2(i) = pij(i,4) 
        py2(i) = pij(i,5) 
        pz2(i) = pij(i,6) 
        px3(i) = pij(i,7) 
        py3(i) = pij(i,8) 
        pz3(i) = pij(i,9) 
        px4(i) = pij(i,10) 
        py4(i) = pij(i,11) 
        pz4(i) = pij(i,12) 
        px5(i) = pij(i,13) 
        py5(i) = pij(i,14) 
        pz5(i) = pij(i,15) 
        px6(i) = pij(i,16) 
        py6(i) = pij(i,17) 
        pz6(i) = pij(i,18) 
        px7(i) = pij(i,19) 
        py7(i) = pij(i,20) 
        pz7(i) = pij(i,21) 
        px8(i) = pij(i,22) 
        py8(i) = pij(i,23) 
        pz8(i) = pij(i,24) 
       END DO
C-----------
      RETURN