OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
s8esigp3i.F File Reference
#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine s8esigp3i (lft, llt, sigp, sigpi, epsip, ip, nel)

Function/Subroutine Documentation

◆ s8esigp3i()

subroutine s8esigp3i ( integer lft,
integer llt,
sigp,
sigpi,
integer, dimension(*) epsip,
integer ip,
integer nel )

Definition at line 28 of file s8esigp3i.F.

29C-----------------------------------------------
30C I m p l i c i t T y p e s
31C-----------------------------------------------
32#include "implicit_f.inc"
33C-----------------------------------------------
34C D u m m y A r g u m e n t s
35C-----------------------------------------------
36 INTEGER LFT,LLT,NEL,EPSIP(*),IP
38 . sigp(nel,6),sigpi(nel,6)
39C-----------------------------------------------
40C L o c a l V a r i a b l e s
41C-----------------------------------------------
42 INTEGER I
43C REAL
44C-----------------------------------------------
45 DO i=lft,llt
46 IF (epsip(i)==ip) THEN
47 sigp(i,1:6) = sigpi(i,1:6)
48 END IF
49 END DO
50C-----------
51 RETURN
#define my_real
Definition cppsort.cpp:32