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

Go to the source code of this file.

Functions/Subroutines

subroutine scre_sig3 (sig, sig_c, istab, offg, ismstr, nel)

Function/Subroutine Documentation

◆ scre_sig3()

subroutine scre_sig3 ( intent(in) sig,
intent(in) sig_c,
integer, dimension(mvsiz), intent(out) istab,
intent(in) offg,
integer, intent(in) ismstr,
integer, intent(in) nel )

Definition at line 28 of file scre_sig3.F.

29C-----------------------------------------------
30C I m p l i c i t T y p e s
31C-----------------------------------------------
32#include "implicit_f.inc"
33C-----------------------------------------------
34C G l o b a l P a r a m e t e r s
35C-----------------------------------------------
36#include "mvsiz_p.inc"
37C-----------------------------------------------
38C C o m m o n B l o c k s
39C-----------------------------------------------
40C-----------------------------------------------
41C D u m m y A r g u m e n t s
42C-----------------------------------------------
43 INTEGER, INTENT(IN) :: NEL,ISMSTR
44 my_real, INTENT(IN) :: sig_c
45 my_real, DIMENSION(NEL,6), INTENT(IN) :: sig
46 my_real, DIMENSION(NEL), INTENT(IN) :: offg
47 INTEGER, DIMENSION(MVSIZ), INTENT(OUT) :: ISTAB
48C-----------------------------------------------
49C L o c a l V a r i a b l e s
50C-----------------------------------------------
51 INTEGER I,J
53 . smin
54C-----------------------------------------------
55 istab(1:nel) = 0
56 IF (ismstr==12) THEN
57 DO i=1,nel
58 IF (offg(i)==zero) cycle
59 smin = min(sig(i,1),sig(i,2),sig(i,3),
60 1 sig(i,4),sig(i,5),sig(i,6))
61 IF (offg(i)>one.OR.sig_c<-smin) istab(i) = 1
62 END DO
63 ELSE
64 DO i=1,nel
65 IF (offg(i)==zero) cycle
66 smin = min(sig(i,1),sig(i,2),sig(i,3),
67 1 sig(i,4),sig(i,5),sig(i,6))
68 IF (sig_c<-smin) istab(i) = 1
69 END DO
70 END IF
71
72 RETURN
#define my_real
Definition cppsort.cpp:32
#define min(a, b)
Definition macros.h:20