OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
count_nb_elem_edge.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!|| count_nb_elem_edge ../engine/source/interfaces/interf/count_nb_elem_edge.F
25!||--- called by ------------------------------------------------------
26!|| init_nodal_state ../engine/source/interfaces/interf/init_nodal_state.F
27!||--- uses -----------------------------------------------------
28!|| shooting_node_mod ../engine/share/modules/shooting_node_mod.F
29!||====================================================================
30 SUBROUTINE count_nb_elem_edge( MODE,SIZE_BUFFER,BUFFER,SHOOT_STRUCT,CHUNK)
31!$COMMENT
32! COUNT_NB_ELEM_EDGE description
33! count the number of element associated to an edge
34! mode=1 : secondary node / mode=2 : main node
35! COUNT_NB_ELEM_EDGE organization
36!$ENDCOMMENT
38C-----------------------------------------------
39C I m p l i c i t T y p e s
40C-----------------------------------------------
41#include "implicit_f.inc"
42C-----------------------------------------------
43C D u m m y A r g u m e n t s
44C-----------------------------------------------
45 INTEGER :: MODE ! mode = 1 --> main node / mode = 2 --> secondary node
46 INTEGER, INTENT(in) :: CHUNK ! chunk size : 1-> interface id, 2-> surface id, 3:6-> node id (for type11, 5&6 values are equal to 0)
47 TYPE(shooting_node_type), INTENT(inout) :: SHOOT_STRUCT ! structure for shooting node algo
48 INTEGER, INTENT(in) :: SIZE_BUFFER ! size of buffer array
49 INTEGER, DIMENSION(SIZE_BUFFER), INTENT(inout) :: BUFFER ! list of nin/edge id/number of remote element
50C-----------------------------------------------
51C L o c a l V a r i a b l e s
52C-----------------------------------------------
53 INTEGER :: I
54 INTEGER :: NIN
55 INTEGER :: IRECT_ID,NB_REMOTE_ELEM
56C-----------------------------------------------
57
58 DO i=1,size_buffer,chunk
59 nin = buffer(i)
60 irect_id = buffer(i+1)
61 nb_remote_elem = buffer(i+2)
62 IF(mode==1) THEN
63 shoot_struct%INTER(nin)%REMOTE_ELM_M(irect_id) = shoot_struct%INTER(nin)%REMOTE_ELM_M(irect_id) + nb_remote_elem
64 ELSE
65 shoot_struct%INTER(nin)%REMOTE_ELM_S(irect_id) = shoot_struct%INTER(nin)%REMOTE_ELM_S(irect_id) + nb_remote_elem
66 ENDIF
67 ENDDO
68
69 RETURN
70 END SUBROUTINE count_nb_elem_edge
71
subroutine count_nb_elem_edge(mode, size_buffer, buffer, shoot_struct, chunk)