OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
arret.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!|| arret ../starter/source/system/arret.F
25!||--- called by ------------------------------------------------------
26!|| ancmsg ../starter/source/output/message/message.F
27!|| ani_fasolfr1 ../starter/source/output/anim/ani_fasolfr.F
28!|| arret_message ../starter/source/interfaces/int24/arret_message.F
29!|| arret_message_slid ../starter/source/interfaces/int24/arret_message.F
30!|| c3grtails ../starter/source/elements/sh3n/coque3n/c3grtails.F
31!|| c_tricall ../starter/stub/fvmbags_stub.F
32!|| cgrtails ../starter/source/elements/shell/coque/cgrtails.F
33!|| contrl ../starter/source/starter/contrl.F
34!|| error_alloc ../starter/source/system/error_alloc.F
35!|| facepoly ../starter/source/airbag/facepoly.F
36!|| fredec2im ../starter/source/output/message/fredec2im.F
37!|| fredec3m ../starter/source/output/message/fredec3m.F
38!|| fvbric0 ../starter/source/airbag/fvbric0.F
39!|| fvbric01 ../starter/source/airbag/fvbric01.F
40!|| hm_preread_bem ../starter/source/loads/bem/hm_read_bem.F
41!|| hm_preread_pblast ../starter/source/loads/pblast/hm_preread_pblast.F
42!|| hm_read_bem ../starter/source/loads/bem/hm_read_bem.F
43!|| hm_read_fail_user ../starter/source/materials/fail/failuser/hm_read_fail_user.F
44!|| hm_read_mat29_31 ../starter/source/materials/mat/matuser/hm_read_mat_user29_31.F
45!|| hm_read_mat_99 ../starter/source/materials/mat/matuser/hm_read_mat_user_99.F
46!|| hm_read_pblast ../starter/source/loads/pblast/hm_read_pblast.F
47!|| hm_read_prop06 ../starter/source/properties/solid/hm_read_prop06.F
48!|| hm_read_prop14 ../starter/source/properties/solid/hm_read_prop14.F
49!|| hm_read_prop19 ../starter/source/properties/shell/hm_read_prop19.F
50!|| hm_read_prop_user ../starter/source/properties/user_spring_solid/hm_read_prop_user.F
51!|| hm_read_retractor ../starter/source/tools/seatbelts/hm_read_retractor.F
52!|| hm_read_slipring ../starter/source/tools/seatbelts/hm_read_slipring.F
53!|| hm_read_window_user ../starter/source/tools/userwi/hm_read_window_user.F
54!|| i24fic_getn ../starter/source/interfaces/inter3d1/i24surfi.F
55!|| initia ../starter/source/elements/initia/initia.F
56!|| law111_upd ../starter/source/materials/mat/mat111/law111_upd.F
57!|| law69_upd ../starter/source/materials/mat/mat069/law69_upd.F
58!|| law88_upd ../starter/source/materials/mat/mat088/law88_upd.f
59!|| lecstack_ply ../starter/source/properties/composite_options/stack/lecstack_ply.F
60!|| lectur ../starter/source/starter/lectur.F
61!|| m20dcod ../starter/source/system/fsdcod.F
62!|| matini ../starter/source/materials/mat_share/matini.F
63!|| monvol_orient_surf ../starter/share/modules1/monvol_struct_mod.F
64!|| polyhedr1 ../starter/source/airbag/polyhedr1.F
65!|| rbe3cl ../starter/source/constraints/general/kinchk.F
66!|| read_msgfile ../starter/source/output/message/read_msgfile.F
67!|| read_sensor_user ../starter/source/tools/sensor/read_sensor_user.F
68!|| sgrtails ../starter/source/elements/solid/solide/sgrtails.F
69!|| sms_ini_jad_3 ../starter/source/ams/sms_init.F
70!|| sort_set ../starter/source/model/sets/sort_sets.F
71!|| sptri ../starter/source/elements/sph/sptri.F
72!|| t3grtails ../starter/source/elements/solid_2d/tria/t3grtails.F
73!|| table_interp ../starter/source/tools/curve/table_tools.F
74!|| table_vinterp ../starter/source/tools/curve/table_tools.F
75!|| tribox3 ../starter/stub/fvmbags_stub.F
76!|| tritri3 ../starter/stub/fvmbags_stub.F
77!|| w_bufbric_22 ../starter/source/interfaces/inter3d1/w_bufbric_22.F
78!|| w_front ../starter/source/restart/ddsplit/w_front.F
79!|| w_intbuf_size ../starter/source/restart/ddsplit/inter_tools.F
80!||--- calls -----------------------------------------------------
81!|| my_exit ../starter/source/output/analyse/analyse.c
82!|| summsg ../starter/source/output/message/summsg.F
83!||--- uses -----------------------------------------------------
84!|| message_mod ../starter/share/message_module/message_mod.F
85!||====================================================================
86 SUBROUTINE arret (NN)
87 USE message_mod
88C-----------------------------------------------
89C I m p l i c i t T y p e s
90C-----------------------------------------------
91#include "implicit_f.inc"
92C-----------------------------------------------
93C D u m m y A r g u m e n t s
94C-----------------------------------------------
95 INTEGER NN
96C-----------------------------------------------
97C C o m m o n B l o c k s
98C-----------------------------------------------
99#include "units_c.inc"
100#include "titr_c.inc"
101C-----------------------------------------------
102C L o c a l V a r i a b l e s
103C-----------------------------------------------
104 INTEGER N
105 INTEGER EXIT_VALUE
106#ifdef DNC
107 CALL starter_lic_release()
108#endif
109 n=nn
110 !-------------------------!
111 ! ARRET DU CALCUL !
112 !-------------------------!
113 IF(n==2 .OR. n==3) THEN
114 WRITE(istdo,1000)
115 WRITE(iout,1000)
116 1000 FORMAT(//,' RADIOSS STOP DUE TO INPUT ERROR')
117 ENDIF
118
119 IF(n/=3 .AND. ierr>0)n=2
120
121C-----------------------------------------------
122C Summary Errors/Warnings
123C-----------------------------------------------
124 CALL summsg()
125C-----------------------------------------------
126
127 IF(n==2) THEN
128 ierr=max0(ierr,1)
129 WRITE(istdo,'(///A/A/,5X,I10,A)')titre(7)(1:40),titre(5),ierr,titre(7)(41:60)
130 WRITE(iout ,'(///A/A/,5X,I10,A)')titre(7)(1:40),titre(5),ierr,titre(7)(41:60)
131 ENDIF
132
133 IF(n==1.OR.iwarn>0) THEN
134 IF(iwarn==0) THEN
135 WRITE(istdo,'(///A/A)')titre(6),titre(5)
136 WRITE(iout ,'(///A/A)')titre(6),titre(5)
137 ELSE
138 WRITE(istdo,'(///A/A/,5X,I10,A)')titre(8)(1:40),titre(5),iwarn,titre(8)(41:60)
139 WRITE(iout ,'(///A/A/,5X,I10,A)')titre(8)(1:40),titre(5),iwarn,titre(8)(41:60)
140 ENDIF
141 ENDIF
142 CLOSE (unit=iout)
143
144
145 IF(n == 2.OR. n ==3 )THEN
146 CALL my_exit(n)
147 ELSE
148 exit_value=0
149 CALL my_exit(exit_value)
150 ENDIF
151 END
my_exit
void my_exit(int *i)
Definition analyse.c:1038
law88_upd
subroutine law88_upd(iout, titr, uparam, npc, pld, nfunc, ifunc, mat_id, func_id, pm, nfunct)
Definition law88_upd.F:40
message_mod
Definition message_mod.F:1249
arret
subroutine arret(nn)
Definition arret.F:87
starter
program starter
Definition starter.F:39
summsg
subroutine summsg()
Definition summsg.F:33