OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
hm_debug_print_option.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!|| hm_debug_print_option ../starter/source/devtools/hm_reader/hm_debug_print_option.F
25!||--- calls -----------------------------------------------------
26!|| hm_option_count ../starter/source/devtools/hm_reader/hm_option_count.F
27!|| hm_option_start ../starter/source/devtools/hm_reader/hm_option_start.F
28!||--- uses -----------------------------------------------------
29!|| message_mod ../starter/share/message_module/message_mod.F
30!|| submodel_mod ../starter/share/modules1/submodel_mod.F
31!||====================================================================
32 SUBROUTINE hm_debug_print_option(OPTION)
33C-----------------------------------------------
34C M o d u l e s
35C-----------------------------------------------
36 USE message_mod
37 USE groupdef_mod
38 USE submodel_mod
39 USE unitab_mod
40C-----------------------------------------------
41C I m p l i c i t T y p e s
42C-----------------------------------------------
43#include "implicit_f.inc"
44C-----------------------------------------------
45C D u m m y A r g u m e n t s
46C-----------------------------------------------
47C INPUT ARGUMENTS
48 CHARACTER*(*),INTENT(IN)::OPTION
49C-----------------------------------------------
50C L o c a l V a r i a b l e s
51C-----------------------------------------------
52 CHARACTER FILNAM*512
53 INTEGER I,LEN_FILNAM,CPT
54C=======================================================================
55C WRITE /ANIM OPTIONS THAT ARE IN MEMORY(HM MODEL) IN 1.RAD FILE
56C=======================================================================
57C-----------------------------------------------
58C OPEN debug_hm.txt
59C-----------------------------------------------
60 filnam ='debug_hm.txt'
61 len_filnam=12
62 CALL cpp_debug_model_open_file(filnam,len_filnam)
63C--------------------------------------------------
64C START BROWSING OPTIONS
65C--------------------------------------------------
66 CALL hm_option_count(option(1:len_trim(option)),cpt)
67 CALL hm_option_start(option(1:len_trim(option)))
68C--------------------------------------------------
69C WRITE INd ebug_hm.txt
70C--------------------------------------------------
71 DO i=1,cpt
72 CALL cpp_debug_global_entity_sdi_write()
73 ENDDO
74C-----------------------------------------------
75C CLOSE debug_hm.txt
76C-----------------------------------------------
77 CALL cpp_debug_model_close_file()
78C-----------------------------------------------
79 RETURN
80 END
subroutine hm_debug_print_option(option)
subroutine hm_option_count(entity_type, hm_option_number)
subroutine hm_option_start(entity_type)