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.ou 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
my_exit
void my_exit(int *i)
Definition analyse.c:1038
f_anend
subroutine f_anend(filename, len_filename, rootname, rootlen, enddate, endtime, output)
Definition analyse_arret.F:251
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
anend
integer function anend()
Definition analyse_arret.F:194
anaderr
integer function anaderr()
Definition analyse_arret.F:29
anfile
subroutine anfile()
Definition analyse_arret.F:167
compute_binary_checksum
void compute_binary_checksum(checksum *cs_output_files, char *file, int len, int izip)
Definition checksum.cpp:78
message_mod
Definition message_mod.F:1257
summsg
subroutine summsg()
Definition summsg.F:33