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

Go to the source code of this file.

Functions/Subroutines

subroutine xyznod (x)

Function/Subroutine Documentation

◆ xyznod()

subroutine xyznod ( x)

Definition at line 29 of file xyznod.F.

30C-----------------------------------------------
31C I m p l i c i t T y p e s
32C-----------------------------------------------
33#include "implicit_f.inc"
34C-----------------------------------------------
35C D u m m y A r g u m e n t s
36C-----------------------------------------------
38 . x(3,*)
39 REAL R4
40 INTEGER I
41C-----------------------------------------------
42C C o m m o n B l o c k s
43C-----------------------------------------------
44#include "com04_c.inc"
45C-----------------------------------------------
46 DO 100 i=1,numnod
47 r4 = x(1,i)
48 CALL write_r_c(r4,1)
49 r4 = x(2,i)
50 CALL write_r_c(r4,1)
51 r4 = x(3,i)
52 CALL write_r_c(r4,1)
53 100 CONTINUE
54C-----------------------------------------------
55 RETURN
#define my_real
Definition cppsort.cpp:32
void write_r_c(float *w, int *len)