OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
c_h3d_update_oned_scalar.cpp File Reference
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <math.h>
#include <fcntl.h>
#include <sys/resource.h>
#include <sys/types.h>
#include <time.h>
#include <sys/stat.h>
#include <unistd.h>
#include <dlfcn.h>
#include <stdbool.h>
#include "h3dpublic_defs.h"
#include "h3dpublic_export.h"
#include "h3d_values.h"

Go to the source code of this file.

Macros

#define _FCALL
#define _FCALL

Functions

void c_h3d_update_oned_scalar_ (my_real *TT, int *IH3D, int *ITAB, int *NUMELT, int *NUMELP, int *NUMELR, my_real *FUNC, int *ID_ELEM, int *CPT_DATATYPE, int *ITY_ELEM, int *IS_WRITTEN)
void _FCALL C_H3D_UPDATE_ONED_SCALAR (my_real *TT, int *IH3D, int *ITAB, int *NUMELT, int *NUMELP, int *NUMELR, my_real *FUNC, int *ID_ELEM, int *CPT_DATATYPE, int *ITY_ELEM, int *IS_WRITTEN)
void c_h3d_update_oned_scalar__ (my_real *TT, int *IH3D, int *ITAB, int *NUMELT, int *NUMELP, int *NUMELR, my_real *FUNC, int *ID_ELEM, int *CPT_DATATYPE, int *ITY_ELEM, int *IS_WRITTEN)
void c_h3d_update_oned_scalar (my_real *TT, int *IH3D, int *ITAB, int *NUMELT, int *NUMELP, int *NUMELR, my_real *FUNC, int *ID_ELEM, int *CPT_DATATYPE, int *ITY_ELEM, int *IS_WRITTEN)

Macro Definition Documentation

◆ _FCALL [1/2]

#define _FCALL

Definition at line 50 of file c_h3d_update_oned_scalar.cpp.

◆ _FCALL [2/2]

#define _FCALL

Definition at line 50 of file c_h3d_update_oned_scalar.cpp.

Function Documentation

◆ C_H3D_UPDATE_ONED_SCALAR()

void _FCALL C_H3D_UPDATE_ONED_SCALAR ( my_real * TT,
int * IH3D,
int * ITAB,
int * NUMELT,
int * NUMELP,
int * NUMELR,
my_real * FUNC,
int * ID_ELEM,
int * CPT_DATATYPE,
int * ITY_ELEM,
int * IS_WRITTEN )

Definition at line 192 of file c_h3d_update_oned_scalar.cpp.

194{c_h3d_update_oned_scalar_ (TT,IH3D,ITAB,NUMELT,NUMELP,NUMELR,FUNC,ID_ELEM,CPT_DATATYPE,ITY_ELEM,IS_WRITTEN);}
c_h3d_update_oned_scalar_
void c_h3d_update_oned_scalar_(my_real *TT, int *IH3D, int *ITAB, int *NUMELT, int *NUMELP, int *NUMELR, my_real *FUNC, int *ID_ELEM, int *CPT_DATATYPE, int *ITY_ELEM, int *IS_WRITTEN)
Definition c_h3d_update_oned_scalar.cpp:81
FUNC
#define FUNC
Definition clamov.c:8

◆ c_h3d_update_oned_scalar()

void c_h3d_update_oned_scalar ( my_real * TT,
int * IH3D,
int * ITAB,
int * NUMELT,
int * NUMELP,
int * NUMELR,
my_real * FUNC,
int * ID_ELEM,
int * CPT_DATATYPE,
int * ITY_ELEM,
int * IS_WRITTEN )

Definition at line 200 of file c_h3d_update_oned_scalar.cpp.

202{c_h3d_update_oned_scalar_ (TT,IH3D,ITAB,NUMELT,NUMELP,NUMELR,FUNC,ID_ELEM,CPT_DATATYPE,ITY_ELEM,IS_WRITTEN);}

◆ c_h3d_update_oned_scalar_()

void c_h3d_update_oned_scalar_ ( my_real * TT,
int * IH3D,
int * ITAB,
int * NUMELT,
int * NUMELP,
int * NUMELR,
my_real * FUNC,
int * ID_ELEM,
int * CPT_DATATYPE,
int * ITY_ELEM,
int * IS_WRITTEN )

Definition at line 81 of file c_h3d_update_oned_scalar.cpp.

83{
84 int i;
85 int offset;
86 H3D_ID elem_id;
87 H3D_ID comp_id;
88//
89 // initialize
90
91 try {
92 // create Subcase (Loadcase)
93 unsigned int max_sims = 10;
94 unsigned int sub_count = 1;
95 float elem_result[] = { 0.0f, 0.0f, 0.0f };
96
97 // create Result Data sets
98 unsigned int num_corners = 0;
99 unsigned int num_modes = 0;
100 bool complex = false;
101 float value[1] ;
102
103 sim_idx = *IH3D;
104
105 char TRUSSPOOL[] = "TRUSS";
106 rc = Hyper3DAddString(h3d_file, TRUSSPOOL, &truss_poolname_id);
107 if( !rc ) throw rc;
108
109 char BEAMPOOL[] = "BEAM";
110 rc = Hyper3DAddString(h3d_file, BEAMPOOL, &beam_poolname_id);
111 if( !rc ) throw rc;
112
113 char SPRINGPOOL[] = "SPRING";
114 rc = Hyper3DAddString(h3d_file, SPRINGPOOL, &spring_poolname_id);
115 if( !rc ) throw rc;
116
117
118
119 if( *NUMELT != 0)
120 {
121
122 rc = Hyper3DDatasetBegin(h3d_file, *NUMELT, sim_idx, subcase_id, H3D_DS_ELEM,
123 H3D_DS_SCALAR, num_corners, num_modes, *CPT_DATATYPE,
124 0, truss_poolname_id, complex);
125 if( !rc ) throw rc;
126
127 offset = 0;
128
129 for( i = 0; i < *NUMELT + *NUMELP + *NUMELR; i++ )
130 {
131 if( ITY_ELEM[i] == 4 && IS_WRITTEN[i] == 1)
132 {
133 elem_id = ID_ELEM[i];
134 elem_result[0] = FUNC[i];
135 rc = Hyper3DDatasetWrite(h3d_file, elem_id, &elem_result[0]);
136 }
137 }
138
139 rc = Hyper3DDatasetEnd(h3d_file);
140 if( !rc ) throw rc;
141 }
142
143 if( *NUMELP != 0)
144 {
145
146 rc = Hyper3DDatasetBegin(h3d_file, *NUMELP, sim_idx, subcase_id, H3D_DS_ELEM,
147 H3D_DS_SCALAR, num_corners, num_modes, *CPT_DATATYPE,
148 0, beam_poolname_id, complex);
149 if( !rc ) throw rc;
150
151 for( i = 0; i < *NUMELT + *NUMELP + *NUMELR; i++ )
152 {
153 if( ITY_ELEM[i] == 5 && IS_WRITTEN[i] == 1)
154 {
155 elem_id = ID_ELEM[i];
156 elem_result[0] = FUNC[i];
157 rc = Hyper3DDatasetWrite(h3d_file, elem_id, &elem_result[0]);
158 }
159 }
160 rc = Hyper3DDatasetEnd(h3d_file);
161 if( !rc ) throw rc;
162 }
163
164 if( *NUMELR != 0)
165 {
166
167 rc = Hyper3DDatasetBegin(h3d_file, *NUMELR, sim_idx, subcase_id, H3D_DS_ELEM,
168 H3D_DS_SCALAR, num_corners, num_modes, *CPT_DATATYPE,
169 0, spring_poolname_id, complex);
170 if( !rc ) throw rc;
171
172 for( i = 0; i < *NUMELT + *NUMELP + *NUMELR; i++ )
173 {
174 if( ITY_ELEM[i] == 6 && IS_WRITTEN[i] == 1)
175 {
176 elem_id = ID_ELEM[i];
177 elem_result[0] = FUNC[i];
178 rc = Hyper3DDatasetWrite(h3d_file, elem_id, &elem_result[0]);
179 }
180 }
181 rc = Hyper3DDatasetEnd(h3d_file);
182 if( !rc ) throw rc;
183 }
184
185 } // end of try
186
187 catch(...) {
188 Hyper3DExportClearError(h3d_file);
189 }
190}
h3d_file
H3DFileInfo * h3d_file
Definition c_h3d_open_file.cpp:69
rc
bool rc
Definition c_h3d_open_file.cpp:70
spring_poolname_id
H3D_ID spring_poolname_id
Definition c_h3d_open_file.cpp:100
beam_poolname_id
H3D_ID beam_poolname_id
Definition c_h3d_open_file.cpp:101
comp_id
H3D_ID comp_id
Definition c_h3d_open_file.cpp:92
sim_idx
H3D_SIM_IDX sim_idx
Definition c_h3d_open_file.cpp:95
subcase_id
H3D_ID subcase_id
Definition c_h3d_open_file.cpp:71
truss_poolname_id
H3D_ID truss_poolname_id
Definition c_h3d_open_file.cpp:102
Hyper3DAddString
bool Hyper3DAddString(H3DFileInfo *h3d_file, const char *const string, H3D_ID *const str_id)
Definition h3d_dl.c:955
Hyper3DDatasetBegin
bool Hyper3DDatasetBegin(H3DFileInfo *h3d_file, unsigned int count, H3D_SIM_IDX idx, H3D_ID subcase_id, H3D_DS_TYPE type, H3D_DS_FORMAT format, unsigned int num_corners, unsigned int num_modes, H3D_ID dt_id, int layer_idx, H3D_ID data_poolname_id, bool complex)
Definition h3d_dl.c:1352
Hyper3DExportClearError
bool Hyper3DExportClearError(H3DFileInfo *h3d_file)
Definition h3d_dl.c:939
Hyper3DDatasetEnd
bool Hyper3DDatasetEnd(H3DFileInfo *h3d_file)
Definition h3d_dl.c:1400
Hyper3DDatasetWrite
bool Hyper3DDatasetWrite(H3DFileInfo *h3d_file, H3D_ID id, const float *data)
Definition h3d_dl.c:1372
rad2r_mod::offset
integer, dimension(:), allocatable offset
Definition rad2r.F:53

◆ c_h3d_update_oned_scalar__()

void c_h3d_update_oned_scalar__ ( my_real * TT,
int * IH3D,
int * ITAB,
int * NUMELT,
int * NUMELP,
int * NUMELR,
my_real * FUNC,
int * ID_ELEM,
int * CPT_DATATYPE,
int * ITY_ELEM,
int * IS_WRITTEN )

Definition at line 196 of file c_h3d_update_oned_scalar.cpp.

198{c_h3d_update_oned_scalar_ (TT,IH3D,ITAB,NUMELT,NUMELP,NUMELR,FUNC,ID_ELEM,CPT_DATATYPE,ITY_ELEM,IS_WRITTEN);}