OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
analyse_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!|| anaderr ../starter/source/output/analyse/analyse_arret.F
25!||--- uses -----------------------------------------------------
26!|| message_mod ../starter/share/message_module/message_mod.F
27!||====================================================================
28 INTEGER FUNCTION anaderr()
29 USE message_mod
30C-----------------------------------------------
31C I m p l i c i t T y p e s
32C-----------------------------------------------
33#include "implicit_f.inc"
34C-----------------------------------------------
35C C o m m o n B l o c k s
36C-----------------------------------------------
37#include "warn_c.inc"
38C
39 ierr = ierr +1
40 anaderr = 0
41 RETURN
42C
43 END
44!||====================================================================
45!|| anadwar ../starter/source/output/analyse/analyse_arret.F
46!||--- uses -----------------------------------------------------
47!|| message_mod ../starter/share/message_module/message_mod.F
48!||====================================================================
49 INTEGER FUNCTION anadwar()
50 USE message_mod
51C-----------------------------------------------
52C I m p l i c i t T y p e s
53C-----------------------------------------------
54#include "implicit_f.inc"
55C-----------------------------------------------
56C C o m m o n B l o c k s
57C-----------------------------------------------
58#include "warn_c.inc"
59C
60 iwarn = iwarn +1
61 anadwar = 0
62 RETURN
63C
64 END
65C
66!||====================================================================
67!|| angetnb ../starter/source/output/analyse/analyse_arret.F
68!||--- uses -----------------------------------------------------
69!|| message_mod ../starter/share/message_module/message_mod.F
70!||====================================================================
71 INTEGER FUNCTION angetnb(NBERR,NBWARN)
72 USE message_mod
73C-----------------------------------------------
74C I m p l i c i t T y p e s
75C-----------------------------------------------
76#include "implicit_f.inc"
77C-----------------------------------------------
78C C o m m o n B l o c k s
79C-----------------------------------------------
80#include "warn_c.inc"
81C-----------------------------------------------
82C D u m m y A r g u m e n t s
83C-----------------------------------------------
84 INTEGER nberr,nbwarn
85c
86 nberr=ierr
87 nbwarn=iwarn
88 angetnb = 0
89 RETURN
90C
91 END
92C
93!||====================================================================
94!|| anprint ../starter/source/output/analyse/analyse_arret.F
95!||--- called by ------------------------------------------------------
96!|| anend ../starter/source/output/analyse/analyse_arret.F
97!|| f_anend ../starter/source/output/analyse/analyse_arret.F
98!||--- calls -----------------------------------------------------
99!|| summsg ../starter/source/output/message/summsg.F
100!||--- uses -----------------------------------------------------
101!|| message_mod ../starter/share/message_module/message_mod.f
102!||====================================================================
103 SUBROUTINE anprint()
104 USE message_mod
105C-----------------------------------------------
106C I m p l i c i t T y p e s
107C-----------------------------------------------
108#include "implicit_f.inc"
109C-----------------------------------------------
110C C o m m o n B l o c k s
111C-----------------------------------------------
112#include "units_c.inc"
113#include "titr_c.inc"
114#include "r2r_c.inc"
115C-----------------------------------------------
116C L o c a l V a r i a b l e s
117C-----------------------------------------------
118 CHARACTER MESS*45
119 DATA mess /'PLEASE CHECK LISTING FILE FOR FURTHER DETAILS'/
120C-----------------------------------------------
121C Print Title
122C-----------------------------------------------
123 IF (ierr > 0) THEN
124 WRITE(istdo,'(///A/A)') titre(7)(1:40),titre(5)
125 WRITE(iout,'(///a/a)') TITRE(7)(1:40),TITRE(5)
126 ELSE
127 IF ( IWARN > 0) THEN
128 WRITE(ISTDO,'(///a/a)') TITRE(8)(1:40),TITRE(5)
129 WRITE(IOUT,'(///a/a)') TITRE(8)(1:40),TITRE(5)
130 ELSE
131 WRITE(ISTDO,'(///a/a)') TITRE(6),TITRE(5)
132 WRITE(IOUT,'(///a/a)') TITRE(6),TITRE(5)
133 ENDIF
134 ENDIF
135C-----------------------------------------------
136C Summary Errors/Warnings
137C-----------------------------------------------
138 CALL SUMMSG()
139C-----------------------------------------------
140C Print Nb Errors
141C-----------------------------------------------
142 WRITE(ISTDO,'(5x,i10,1x,a)') IERR,TITRE(7)(41:60)
143 WRITE(IOUT ,'(5x,i10,1x,a)') IERR,TITRE(7)(41:60)
144c CALL ANCHECK(90)
145C-----------------------------------------------
146C Print Nb Warnings
147C-----------------------------------------------
148 WRITE(ISTDO,'(5x,i10,1x,a//)') IWARN,TITRE(8)(41:60)
149 WRITE(IOUT ,'(5x,i10,1x,a//)') IWARN,TITRE(8)(41:60)
150c CALL ANCHECK(91)
151C
152C-----------------------------------------------
153C Print CHECK L00
154C-----------------------------------------------
155 IF (IPID/=0) WRITE(ISTDO,'(//a//)') MESS
156
157 RETURN
158 END
159C
160!||====================================================================
161!|| anfile ../starter/source/output/analyse/analyse_arret.F
162!||--- called by ------------------------------------------------------
163!|| anend ../starter/source/output/analyse/analyse_arret.F
164!|| f_anend ../starter/source/output/analyse/analyse_arret.F
165!||====================================================================
166 SUBROUTINE ANFILE ()
167C-----------------------------------------------
168C I m p l i c i t T y p e s
169C-----------------------------------------------
170#include "implicit_f.inc"
171#include "r2r_c.inc"
172C-----------------------------------------------
173C C o m m o n B l o c k s
174C-----------------------------------------------
175#include "units_c.inc"
176C
177 CLOSE (UNIT=IOUT)
178C
179 RETURN
180 END
181C
182!||====================================================================
183!|| anend ../starter/source/output/analyse/analyse_arret.F
184!||--- called by ------------------------------------------------------
185!|| starter0 ../starter/source/starter/starter0.F
186!||--- calls -----------------------------------------------------
187!|| anfile ../starter/source/output/analyse/analyse_arret.F
188!|| anprint ../starter/source/output/analyse/analyse_arret.F
189!|| my_exit ../starter/source/output/analyse/analyse.c
190!||--- uses -----------------------------------------------------
191!|| message_mod ../starter/share/message_module/message_mod.F
192!||====================================================================
193 INTEGER FUNCTION ANEND()
194 USE MESSAGE_MOD
195C-----------------------------------------------
196C I m p l i c i t T y p e s
197C-----------------------------------------------
198#include "implicit_f.inc"
199C-----------------------------------------------
200C C o m m o n B l o c k s
201C-----------------------------------------------
202#include "units_c.inc"
203#include "warn_c.inc"
204#include "r2r_c.inc"
205C-----------------------------------------------
206C L o c a l V a r i a b l e s
207C-----------------------------------------------
208 INTEGER IEX
209 LOGICAL :: FILE_EXIST
210C
211 CALL ANPRINT()
212C
213 CALL ANFILE()
214C
215 ANEND = 0
216#ifdef DNC
217 CALL starter_lic_release();
218#endif
219 IF(IERR==0)THEN
220 IEX=0
221 ELSE
222 IEX=2
223 END IF
224c
225 IF (IPID/=0) THEN
226 INQUIRE(UNIT=RES_MES, EXIST=FILE_EXIST)
227 IF (FILE_EXIST) CLOSE(UNIT=RES_MES,STATUS='delete')
228 INQUIRE(UNIT=RES_CHECK, EXIST=FILE_EXIST)
229 IF (FILE_EXIST) CLOSE(UNIT=RES_CHECK,STATUS='delete')
230 INQUIRE(UNIT=RES_TMP, EXIST=FILE_EXIST)
231 IF (FILE_EXIST) CLOSE(UNIT=RES_TMP,STATUS='delete')
232 ENDIF
233c
234 CALL MY_EXIT(IEX)
235 END
236
237!||====================================================================
238!|| f_anend ../starter/source/output/analyse/analyse_arret.F
239!||--- called by ------------------------------------------------------
240!|| starter0 ../starter/source/starter/starter0.F
241!||--- calls -----------------------------------------------------
242!|| anfile ../starter/source/output/analyse/analyse_arret.F
243!|| anprint ../starter/source/output/analyse/analyse_arret.F
244!|| my_exit ../starter/source/output/analyse/analyse.c
245!|| st_checksum_file_print ../starter/source/output/checksum/checksum_option.F90
246!||--- uses -----------------------------------------------------
247!|| checksum_starter_option_mod ../starter/source/output/checksum/checksum_option.F90
248!|| message_mod ../starter/share/message_module/message_mod.F
249!||====================================================================
250 SUBROUTINE F_ANEND(FILENAME,LEN_FILENAME,ROOTNAME,ROOTLEN,ENDDATE,ENDTIME,OUTPUT)
251C-----------------------------------------------
252C M o d u l e s
253C-----------------------------------------------
254 USE MESSAGE_MOD
255 USE checksum_starter_option_mod
256 USE output_mod
257C-----------------------------------------------
258C I m p l i c i t T y p e s
259C-----------------------------------------------
260#include "implicit_f.inc"
261C-----------------------------------------------
262C C o m m o n B l o c k s
263C-----------------------------------------------
264#include "units_c.inc"
265#include "warn_c.inc"
266#include "r2r_c.inc"
267C-----------------------------------------------
268C D u m m y A r g u m e n t s
269C-----------------------------------------------
270 INTEGER,INTENT(IN) :: ROOTLEN
271 INTEGER,INTENT(IN) :: LEN_FILENAME
272 CHARACTER(LEN=ROOTLEN),INTENT(IN) :: ROOTNAME
273 CHARACTER(LEN=LEN_FILENAME),INTENT(IN),TARGET :: FILENAME
274 CHARACTER(LEN=8),INTENT(IN) :: ENDDATE
275 CHARACTER(LEN=10),INTENT(IN) :: ENDTIME
276 TYPE(OUTPUT_),INTENT(INOUT) :: OUTPUT
277C-----------------------------------------------
278C L o c a l V a r i a b l e s
279C-----------------------------------------------
280 INTEGER IEX
281 LOGICAL :: FILE_EXIST
282 CHARACTER(LEN=4)::CHRUN
283 INTEGER IZIP
284C
285 CALL ANPRINT()
286C
287 CALL ANFILE() ! Closes *000.out file
288 IF (OUTPUT%CHECKSUM%checksum_count >0)THEN
289 IZIP=0
290 CALL COMPUTE_BINARY_CHECKSUM(OUTPUT%CHECKSUM%FILES_CHECKSUM,C_LOC(FILENAME),LEN_FILENAME,IZIP )
291 CALL st_checksum_file_print(output,rootname,ROOTLEN,ENDDATE,ENDTIME)
292 ENDIF
293C
294#ifdef DNC
295 CALL starter_lic_release();
296#endif
297 IF(IERR==0)THEN
298 IEX=0
299 ELSE
300 IEX=2
301 END IF
302c
303 IF (IPID/=0) THEN
304 INQUIRE(UNIT=RES_MES, EXIST=FILE_EXIST)
305 IF (FILE_EXIST) CLOSE(UNIT=RES_MES,STATUS='delete')
306 INQUIRE(UNIT=RES_CHECK, EXIST=FILE_EXIST)
307 IF (FILE_EXIST) CLOSE(UNIT=RES_CHECK,STATUS='delete')
308 INQUIRE(UNIT=RES_TMP, EXIST=FILE_EXIST)
309 IF (FILE_EXIST) CLOSE(UNIT=RES_TMP,STATUS='delete')
310 ENDIF
311c
312 CALL MY_EXIT(IEX)
313 END
anadwar
integer function anadwar()
Definition analyse_arret.F:50
angetnb
integer function angetnb(nberr, nbwarn)
Definition analyse_arret.F:72
anprint
subroutine anprint()
Definition analyse_arret.F:104
anaderr
integer function anaderr()
Definition analyse_arret.F:29
message_mod
Definition message_mod.F:1249
starter
program starter
Definition starter.F:39