s8ea2bp8.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s8ea2bp8 (px1, px2, px3, px4, px5, px6, px7, px8, p0x1, p0x2, p0x3, p0x4, p0x5, p0x6, p0x7, p0x8, nel)

Function/Subroutine Documentation

s8ea2bp8()

subroutine s8ea2bp8	(		px1,
			px2,
			px3,
			px4,
			px5,
			px6,
			px7,
			px8,
			p0x1,
			p0x2,
			p0x3,
			p0x4,
			p0x5,
			p0x6,
			p0x7,
			p0x8,
		integer, intent(in)	nel )

Definition at line 28 of file s8ea2bp8.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: NEL
C     REAL
      my_real
     .   px1(*), px2(*), px3(*), px4(*),
     .   px5(*), px6(*), px7(*), px8(*),
     .   p0x1(*), p0x2(*), p0x3(*), p0x4(*),
     .   p0x5(*), p0x6(*), p0x7(*), p0x8(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C      
        px1(1:nel) = p0x1(1:nel)  
        px2(1:nel) = p0x2(1:nel)  
        px3(1:nel) = p0x3(1:nel)  
        px4(1:nel) = p0x4(1:nel)  
        px5(1:nel) = p0x5(1:nel)  
        px6(1:nel) = p0x6(1:nel)  
        px7(1:nel) = p0x7(1:nel)  
        px8(1:nel) = p0x8(1:nel)  
C
      RETURN