OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
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.

34C-----------------------------------------------
35C I m p l i c i t T y p e s
36C-----------------------------------------------
37#include "implicit_f.inc"
38C-----------------------------------------------
39C C o m m o n B l o c k s
40C-----------------------------------------------
41C-----------------------------------------------
42C D u m m y A r g u m e n t s
43C-----------------------------------------------
44 INTEGER, INTENT(IN) :: NEL
45C REAL
47 . px1(*), px2(*), px3(*), px4(*),
48 . px5(*), px6(*), px7(*), px8(*),
49 . p0x1(*), p0x2(*), p0x3(*), p0x4(*),
50 . p0x5(*), p0x6(*), p0x7(*), p0x8(*)
51C-----------------------------------------------
52C L o c a l V a r i a b l e s
53C-----------------------------------------------
54 INTEGER I
55C
56 px1(1:nel) = p0x1(1:nel)
57 px2(1:nel) = p0x2(1:nel)
58 px3(1:nel) = p0x3(1:nel)
59 px4(1:nel) = p0x4(1:nel)
60 px5(1:nel) = p0x5(1:nel)
61 px6(1:nel) = p0x6(1:nel)
62 px7(1:nel) = p0x7(1:nel)
63 px8(1:nel) = p0x8(1:nel)
64C
65 RETURN
#define my_real
Definition cppsort.cpp:32