OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
h3d_write_sh_tensor.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| h3d_write_sh_tensor ../engine/source/output/h3d/h3d_results/h3d_write_sh_tensor.F
25!||--- called by ------------------------------------------------------
26!|| h3d_shell_tensor ../engine/source/output/h3d/h3d_results/h3d_shell_tensor.f
27!||====================================================================
28 SUBROUTINE h3d_write_sh_tensor(
29 . IOK_PART ,ISELECT, IS_WRITTEN ,TENSOR ,I ,OFFSET ,NFT,
30 . VALUE)
31C-----------------------------------------------
32C I m p l i c i t T y p e s
33C-----------------------------------------------
34#include "implicit_f.inc"
35C-----------------------------------------------
36C D u m m y A r g u m e n t s
37C-----------------------------------------------
38 my_real
39 . tensor(3,*),value(5)
40 INTEGER IOK_PART(*),IS_WRITTEN(*)
41 INTEGER I,OFFSET,NFT,ISELECT
42C-----------------------------------------------
43C L o c a l V a r i a b l e s
44C-----------------------------------------------
45 tensor(1,offset+nft+i) = value(1)
46 tensor(2,offset+nft+i) = value(2)
47 tensor(3,offset+nft+i) = value(3)
48 IF(iok_part(i) == 1 .AND. iselect == 1) is_written(offset+nft+i)= 1
49 value(1:5) = zero
50
51 RETURN
52 END
my_real
#define my_real
Definition cppsort.cpp:32
h3d_shell_tensor
subroutine h3d_shell_tensor(elbuf_tab, shell_tensor, iparg, itens, invert, nelcut, el2fa, nbf, tens, epsdot, iadp, nbf_l, nbpart, iadg, x, ixc, igeo, ixtg, ipm, stack, id_elem, ity_elem, info1, info2, is_written_shell, ipartc, iparttg, layer_input, ipt_input, ply_input, gauss_input, iuvar_input, h3d_part, keyword, d, id, bufmat, mat_param, geo, drape_sh4n, drape_sh3n, drapeg)
Definition h3d_shell_tensor.F:51
h3d_write_sh_tensor
subroutine h3d_write_sh_tensor(iok_part, iselect, is_written, tensor, i, offset, nft, value)
Definition h3d_write_sh_tensor.F:31