OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
analyse_arret.F File Reference
#include "implicit_f.inc"
#include "warn_c.inc"
#include "units_c.inc"
#include "titr_c.inc"
#include "r2r_c.inc"

Go to the source code of this file.

Functions/Subroutines

integer function anaderr ()
integer function anadwar ()
integer function angetnb (nberr, nbwarn)
subroutine anprint ()
subroutine anfile ()
integer function anend ()
subroutine f_anend (filename, len_filename, rootname, rootlen, enddate, endtime, output)

Function/Subroutine Documentation

◆ anaderr()

integer function anaderr

Definition at line 28 of file analyse_arret.F.

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
anaderr
integer function anaderr()
Definition analyse_arret.F:29
message_mod
Definition message_mod.F:1249

◆ anadwar()

integer function anadwar

Definition at line 49 of file analyse_arret.F.

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
anadwar
integer function anadwar()
Definition analyse_arret.F:50

◆ anend()

integer function anend

Definition at line 193 of file analyse_arret.F.

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)
my_exit
void my_exit(int *i)
Definition analyse.c:1038
anprint
subroutine anprint()
Definition analyse_arret.F:104
anend
integer function anend()
Definition analyse_arret.F:194
anfile
subroutine anfile()
Definition analyse_arret.F:167

◆ anfile()

subroutine anfile

Definition at line 166 of file analyse_arret.F.

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

◆ angetnb()

integer function angetnb ( integer nberr,
integer nbwarn )

Definition at line 71 of file analyse_arret.F.

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
angetnb
integer function angetnb(nberr, nbwarn)
Definition analyse_arret.F:72

◆ anprint()

subroutine anprint

Definition at line 103 of file analyse_arret.F.

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
summsg
subroutine summsg()
Definition summsg.F:33

◆ f_anend()

subroutine f_anend ( character(len=len_filename), intent(in), target filename,
integer, intent(in) len_filename,
character(len=rootlen), intent(in) rootname,
integer, intent(in) rootlen,
character(len=8), intent(in) enddate,
character(len=10), intent(in) endtime,
type(output_), intent(inout) output )

Definition at line 250 of file analyse_arret.F.

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)
compute_binary_checksum
void compute_binary_checksum(checksum *cs_output_files, char *file, int len, int izip)
Definition checksum.cpp:78