OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
sensor_user_alloc.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!|| sensor_user_alloc ../starter/source/tools/sensor/sensor_user_alloc.F
25!||--- called by ------------------------------------------------------
26!|| read_sensor_user ../starter/source/tools/sensor/read_sensor_user.F
27!||--- uses -----------------------------------------------------
28!||====================================================================
29 SUBROUTINE sensor_user_alloc(ALREADY_DONE,SENSOR_USER_STRUCT)
30!$COMMENT
31! SENSOR_USER_ALLOC description
32! allocation of array for user sensor
33!
34! SENSOR_USER_ALLOC organization :
35!$ENDCOMMENT
36C-----------------------------------------------
37C M o d u l e s
38C-----------------------------------------------
39 USE sensor_mod
40C-----------------------------------------------
41C I m p l i c i t T y p e s
42C-----------------------------------------------
43#include "implicit_f.inc"
44C-----------------------------------------------
45C A n a l y s e M o d u l e
46C-----------------------------------------------
47#include "com04_c.inc"
48C-----------------------------------------------
49C D u m m y A r g u m e n t s
50C-----------------------------------------------
51 LOGICAL, INTENT(inout) :: ALREADY_DONE
52 TYPE(sensor_user_struct_), INTENT(inout) :: SENSOR_USER_STRUCT
53C-----------------------------------------------
54C L o c a l V a r i a b l e s
55C-----------------------------------------------
56 INTEGER :: SIZE_LOCAL
57! -------------------------------
58
59 already_done = .true.
60 sensor_user_struct%IS_USED = .true.
61
62 size_local = numnod
63 ALLOCATE( sensor_user_struct%NODE_LIST(size_local) )
64 ALLOCATE( sensor_user_struct%NODE_PER_PART_LIST(size_local) )
65
66 sensor_user_struct%NUMBER_NODE = size_local
67 sensor_user_struct%NUMBER_NODE_PER_PART = size_local
68
69 size_local = npart
70 ALLOCATE( sensor_user_struct%PART_LIST(size_local) )
71 sensor_user_struct%NUMBER_PART = size_local
72
73
74 RETURN
75 END SUBROUTINE sensor_user_alloc
subroutine sensor_user_alloc(already_done, sensor_user_struct)