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!|| lecstack_ply ../starter/source/properties/composite_options/stack/lecstack_ply.F
59!|| lectur ../starter/source/starter/lectur.F
60!|| m20dcod ../starter/source/system/fsdcod.F
61!|| matini ../starter/source/materials/mat_share/matini.F
62!|| monvol_orient_surf ../starter/share/modules1/monvol_struct_mod.f
63!|| polyhedr1 ../starter/source/airbag/polyhedr1.F
64!|| rbe3cl ../starter/source/constraints/general/kinchk.F
65!|| read_msgfile ../starter/source/output/message/read_msgfile.F
66!|| read_sensor_user ../starter/source/tools/sensor/read_sensor_user.F
67!|| sgrtails ../starter/source/elements/solid/solide/sgrtails.F
68!|| sms_ini_jad_3 ../starter/source/ams/sms_init.F
69!|| sort_set ../starter/source/model/sets/sort_sets.F
70!|| sptri ../starter/source/elements/sph/sptri.F
71!|| t3grtails ../starter/source/elements/solid_2d/tria/t3grtails.F
72!|| table_interp ../starter/source/tools/curve/table_tools.F
73!|| table_vinterp ../starter/source/tools/curve/table_tools.F
74!|| tribox3 ../starter/stub/fvmbags_stub.F
75!|| tritri3 ../starter/stub/fvmbags_stub.F
76!|| w_bufbric_22 ../starter/source/interfaces/inter3d1/w_bufbric_22.F
77!|| w_front ../starter/source/restart/ddsplit/w_front.F
78!|| w_intbuf_size ../starter/source/restart/ddsplit/inter_tools.f
79!||--- calls -----------------------------------------------------
80!|| my_exit ../starter/source/output/analyse/analyse.c
81!|| summsg ../starter/source/output/message/summsg.F
82!||--- uses -----------------------------------------------------
83!|| message_mod ../starter/share/message_module/message_mod.F
84!||====================================================================
85 SUBROUTINE arret (NN)
86 USE message_mod
87C-----------------------------------------------
88C I m p l i c i t T y p e s
89C-----------------------------------------------
90#include "implicit_f.inc"
91C-----------------------------------------------
92C D u m m y A r g u m e n t s
93C-----------------------------------------------
94 INTEGER NN
95C-----------------------------------------------
96C C o m m o n B l o c k s
97C-----------------------------------------------
98#include "units_c.inc"
99#include "titr_c.inc"
100C-----------------------------------------------
101C L o c a l V a r i a b l e s
102C-----------------------------------------------
103 INTEGER N
104 INTEGER EXIT_VALUE
105#ifdef DNC
106 CALL starter_lic_release()
107#endif
108 n=nn
109 !-------------------------!
110 ! STOPPING COMPUTATION !
111 !-------------------------!
112 IF(n==2 .OR. n==3) THEN
113 WRITE(istdo,1000)
114 WRITE(iout,1000)
115 1000 FORMAT(//,' RADIOSS STOP DUE TO INPUT ERROR')
116 ENDIF
117
118 IF(n/=3 .AND. ierr>0)n=2
119
120C-----------------------------------------------
121C Summary Errors/Warnings
122C-----------------------------------------------
123 CALL summsg()
124C-----------------------------------------------
125
126 IF(n==2) THEN
127 ierr=max0(ierr,1)
128 WRITE(istdo,'(///A/A/,5X,I10,A)')titre(7)(1:40),titre(5),ierr,titre(7)(41:60)
129 WRITE(iout ,'(///A/A/,5X,I10,A)')titre(7)(1:40),titre(5),ierr,titre(7)(41:60)
130 ENDIF
131
132 IF(n==1.OR.iwarn>0) THEN
133 IF(iwarn==0) THEN
134 WRITE(istdo,'(///A/A)')titre(6),titre(5)
135 WRITE(iout ,'(///A/A)')titre(6),titre(5)
136 ELSE
137 WRITE(istdo,'(///A/A/,5X,I10,A)')titre(8)(1:40),titre(5),iwarn,titre(8)(41:60)
138 WRITE(iout ,'(///A/A/,5X,I10,A)')titre(8)(1:40),titre(5),iwarn,titre(8)(41:60)
139 ENDIF
140 ENDIF
141 CLOSE (unit=iout)
142
143
144 IF(n == 2.OR. n ==3 )THEN
145 CALL my_exit(n)
146 ELSE
147 exit_value=0
148 CALL my_exit(exit_value)
149 ENDIF
150 END
void my_exit(int *i)
Definition analyse.c:1038
subroutine ddsplit(p, cep, cel, igeo, mat_elem, ipm, icode, iskew, iskn, insel, ibcslag, ipart, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, iparttg, detonators, ipartx, npc, ixtg, group_param_tab, ixtg6, ixs, ixs10, ixs20, ixs16, ixq, ixc, ixt, ixp, ixr, itab, itabm1, gjbufi, nale, ale_connectivity, kxx, ixx, ibcl, ibfv, las, laccelm, nnlink, lllink, iparg, igrav, lgrav, ibvel, lbvel, iactiv, factiv, kinet, ipari, nprw, lprw, iexmad, npby, lpby, ixri, nstrf, ljoint, pornod, monvol, icontact, lagbuf, fr_iad, x, d, v, vr, dr, thke, dampr, damp, ms, in, tf, pm, skew, xframe, geo, eani, bufmat, bufgeo, bufsf, brmpc, gjbufr, w, veul, fill, dfill, wb, dsav, asav, msnf, spbuf, fac, vel, fsav, fzero, xlas, accelm, fbvel, gravfac, fr_wave, failwave, parts0, elbuf, rwl, rwsav, rby, rivet, secbuf, rvolu, rconx, nloc_dmg, fvmain, libagale, lenthg, lbufmat, lbufgeo, lbufsf, lenxlas, lnom_opt, lenlas, lenvolu, npts, cne, lcne, addcne, cni2, lcni2g, addcni2, cepi2, celi2, i2nsnt, probint, ddstat, pm1shf, dd_iad, kxsp, ixsp, nod2sp, cepsp, nthwa, nairwa, nmnt, l_mul_lag1, l_mul_lag, lwaspio, ipartsp, ispcond, pm1sph, wma, eigipm, eigibuf, eigrpm, iflow, rflow, memflow, iexlnk, fasolfr, iparth, fxbipm, fxbrpm, fxbnod, fxbmod, fxbglm, fxbcpm, fxbcps, fxblm, fxbfls, fxbdls, fxbdep, fxbvit, fxbacc, fxbelm, fxbsig, fxbgrvi, fxbgrvr, iadll, lll, ibmpc, lambda, lrbagale, iskwp, nskwp, isensp, nsensp, iaccp, naccp, ipart_state, mcp, temp, unitab, intstamp, iframe, clusters, partsav, ibft, fbft, ibcv, fconv, irbe3, lrbe3, frbe3, front_rm, rbym, irbym, lcrbym, inoise, fnoise, ms0, admsms, nom_sect, ispsym, sh4tree, sh3tree, ipadmesh, ibfflux, fbfflux, sh4trim, sh3trim, padmesh, msc, mstg, inc, intg, ptg, mcpc, mcptg, rcontact, acontact, pcontact, mscnd, incnd, mssa, mstr, msp, msrt, ibcr, fradia, dmelc, dmeltg, dmels, dmeltr, dmelp, dmelrt, res_sms, isphio, lprtsph, lonfsph, vsphio, sphveln, alph, ifill, ims, irbe2, lrbe2, ms_ply, zi_ply, inod_pxfem, iel_pxfem, icodply, iskwply, addcne_pxfem, cne_pxfem, cel_pxfem, ithvar, xdp, table, celsph, icfield, lcfield, cfield, msz2, itask, diag_sms, iloadp, lloadp, loadp, inod_crkxfem, iel_crkxfem, addcne_crkxfem, cne_crkxfem, cel_crkxfem, ibufssg_io, intercep, ibordnode, iedgesh, ibordedge, linale, nodedge, iedge, cep_crkxfem, iedge_tmp, crknodiad, elbuf_tab, nom_opt, lgauge, gauge, igaup, ngaup, nodlevxf, frontb_r2r, dflow, vflow, wflow, sph2sol, sol2sph, irst, elcutc, nodenr, kxfenod2elc, enrtag, intbuf_tab, i11flag, xfem_tab, lenthgr, rthbuf, ixig3d, kxig3d, knot, ipartig3d, wige, ncrkpart, indx_crk, crklvset, crkshell, crksky, crkavx, crkedge, sensors, stack, xfem_phantom, t8, tab_ump, poin_ump, sol2sph_typ, addcsrect, csrect, drape, loads, itagnd, icnds10, addcncnd, cepcnd, celcnd, cncnd, nativ_sms, i24maxnsne, multi_fvm, segquadfr, intbuf_fric_tab, subset, igrnod, igrbric, igrquad, igrsh4n, igrsh3n, igrtruss, igrbeam, igrspring, igrpart, igrsurf, igrslin, poin_part_shell, poin_part_tri, poin_part_sol, mid_pid_shell, mid_pid_tri, mid_pid_sol, tag_nm, nindx_nm, indx_nm, tag_scratch, nindx_scrt, indx_scrt, flag_24_25, numnod_l, tag_skn, multiple_skew, igrsurf_proc, knotlocpc, knotlocel, ale_elm, size_ale_elm, pinch_data, tag_skins6, ibcscyc, lbcscyc, t_monvol, indx_s, indx_q, indx_tg, face_elm_s, face_elm_q, face_elm_tg, nbr_th_monvol, ebcs_tab, kloadpinter, loadpinter, dgaploadint, s_loadpinter, len_cep, dynain_data, drapeg, user_windows, output, interfaces, number_load_cyl, loads_per_proc, python, dpl0cld, vel0cld, names_and_titles, bcs_per_proc, constraint_struct, glob_therm, pblast, rwstif_pen, sln_pen)
Definition ddsplit.F:337
subroutine w_intbuf_size(intbuf_tab_l)
Definition inter_tools.F:32
subroutine monvol_orient_surf(t_monvoln, title, ivolu, itab, surf, ixc, ixtg, x, itype)
subroutine arret(nn)
Definition arret.F:86
subroutine c_tricall(pnodes, pseg, pholes, ptri, nnp, nseg, nhol, nelp)
program starter
Definition starter.F:39
subroutine summsg()
Definition summsg.F:33