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

Go to the source code of this file.

Functions/Subroutines

subroutine ruser32mat3 (kx, jft, jlt, uvar, nuvar)

Function/Subroutine Documentation

◆ ruser32mat3()

subroutine ruser32mat3 ( kx,
integer jft,
integer jlt,
uvar,
integer nuvar )

Definition at line 28 of file ruser32mat3.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 NUVAR, JFT, JLT
38 . uvar(nuvar,*),kx(*)
39C-----------------------------------------------
40C L o c a l V a r i a b l e s
41C-----------------------------------------------
42 INTEGER I
43C-----------------------------------------------
44C
45 DO i=jft,jlt
46 kx(i) = uvar(4,i)
47 ENDDO
48
49 RETURN
#define my_real
Definition cppsort.cpp:32