OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
c_h3d_update_oned_tensor.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_tensor_ (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_TENSOR (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_tensor__ (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_tensor (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_tensor.cpp.

◆ _FCALL [2/2]

#define _FCALL

Definition at line 50 of file c_h3d_update_oned_tensor.cpp.

Function Documentation

◆ C_H3D_UPDATE_ONED_TENSOR()

void _FCALL C_H3D_UPDATE_ONED_TENSOR ( 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 207 of file c_h3d_update_oned_tensor.cpp.

209{c_h3d_update_oned_tensor_ (TT,IH3D,ITAB,NUMELT,NUMELP,NUMELR,FUNC,ID_ELEM,CPT_DATATYPE,ITY_ELEM,IS_WRITTEN);}
c_h3d_update_oned_tensor_
void c_h3d_update_oned_tensor_(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_tensor.cpp:81
FUNC
#define FUNC
Definition clamov.c:8

◆ c_h3d_update_oned_tensor()

void c_h3d_update_oned_tensor ( 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 215 of file c_h3d_update_oned_tensor.cpp.

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

◆ c_h3d_update_oned_tensor_()

void c_h3d_update_oned_tensor_ ( 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_tensor.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[6] = { 0.0f, 0.0f, 0.0f, 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_TENSOR3D, 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[6*i];
135 elem_result[1] = FUNC[6*i+1];
136 elem_result[2] = FUNC[6*i+2];
137 elem_result[3] = FUNC[6*i+3];
138 elem_result[4] = FUNC[6*i+4];
139 elem_result[5] = FUNC[6*i+5];
140 rc = Hyper3DDatasetWrite(h3d_file, elem_id, &elem_result[0]);
141 }
142 }
143
144 rc = Hyper3DDatasetEnd(h3d_file);
145 if( !rc ) throw rc;
146 }
147
148 if( *NUMELP != 0)
149 {
150
151 rc = Hyper3DDatasetBegin(h3d_file, *NUMELP, sim_idx, subcase_id, H3D_DS_ELEM,
152 H3D_DS_TENSOR3D, num_corners, num_modes, *CPT_DATATYPE,
153 0, beam_poolname_id, complex);
154 if( !rc ) throw rc;
155
156 for( i = 0; i < *NUMELT + *NUMELP + *NUMELR; i++ )
157 {
158 if( ITY_ELEM[i] == 5 && IS_WRITTEN[i] == 1)
159 {
160 elem_id = ID_ELEM[i];
161 elem_result[0] = FUNC[6*i];
162 elem_result[1] = FUNC[6*i+1];
163 elem_result[2] = FUNC[6*i+2];
164 elem_result[3] = FUNC[6*i+3];
165 elem_result[4] = FUNC[6*i+4];
166 elem_result[5] = FUNC[6*i+5];
167 rc = Hyper3DDatasetWrite(h3d_file, elem_id, &elem_result[0]);
168 }
169 }
170 rc = Hyper3DDatasetEnd(h3d_file);
171 if( !rc ) throw rc;
172 }
173
174 if( *NUMELR != 0)
175 {
176
177 rc = Hyper3DDatasetBegin(h3d_file, *NUMELR, sim_idx, subcase_id, H3D_DS_ELEM,
178 H3D_DS_TENSOR3D, num_corners, num_modes, *CPT_DATATYPE,
179 0, spring_poolname_id, complex);
180 if( !rc ) throw rc;
181
182 for( i = 0; i < *NUMELT + *NUMELP + *NUMELR; i++ )
183 {
184 if( ITY_ELEM[i] == 6 && IS_WRITTEN[i] == 1)
185 {
186 elem_id = ID_ELEM[i];
187 elem_result[0] = FUNC[6*i];
188 elem_result[1] = FUNC[6*i+1];
189 elem_result[2] = FUNC[6*i+2];
190 elem_result[3] = FUNC[6*i+3];
191 elem_result[4] = FUNC[6*i+4];
192 elem_result[5] = FUNC[6*i+5];
193 rc = Hyper3DDatasetWrite(h3d_file, elem_id, &elem_result[0]);
194 }
195 }
196 rc = Hyper3DDatasetEnd(h3d_file);
197 if( !rc ) throw rc;
198 }
199
200 } // end of try
201
202 catch(...) {
203 Hyper3DExportClearError(h3d_file);
204 }
205}
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_tensor__()

void c_h3d_update_oned_tensor__ ( 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 211 of file c_h3d_update_oned_tensor.cpp.

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