FrontISTR  5.7.0
Large-scale structural analysis program with finit element method
hecmw_adapt_error_exit.f90
Go to the documentation of this file.
1 !-------------------------------------------------------------------------------
2 ! Copyright (c) 2019 FrontISTR Commons
3 ! This software is released under the MIT License, see LICENSE.txt
4 !-------------------------------------------------------------------------------
6 
7 subroutine hecmw_adapt_error_exit (hecMESH, IFLAG)
8  use hecmw_util
9  type (hecmwST_local_mesh) :: hecMESH
10 
11  write (*,'(/,a, i8)') &
12  & "********** MESSAGE from HEC-MW ADAPTATION **********", &
13  & hecmesh%my_rank
14 
15  if (iflag.ge. 1001) then
16  write (*,'(/,a)') &
17  & " ### ABORT : unexpected ZERO/minus in the original file"
18  if (iflag.eq.1001) write (*,'( a,/)') &
19  & " TOTAL NODE and/or ELEMENT NUMBER"
20  if (iflag.eq.1002) write (*,'( a,/)') &
21  & " BOUNDARY GROUP NUMBER"
22  if (iflag.eq.1003) write (*,'( a,/)') &
23  & " BOUNDARY info ITEMs"
24  if (iflag.eq.1004) write (*,'( a,/)') &
25  & " ELEMENT type"
26  if (iflag.eq.1005) write (*,'( a,/)') &
27  & " ELEMENT connectivity"
28  endif
29 
30  if (iflag.eq. 1) then
31  write (*,'(/,a,/)') &
32  & " ### ABORT : ERROR in ORIGINAL GRID FILE : Parallel Info"
33  endif
34 
35  if (iflag.eq. 2) then
36  write (*,'(/,a,/)') &
37  & " ### ABORT : ERROR in ORIGINAL GRID FILE : Parallel Info"
38  endif
39 
40  if (iflag.eq.11) then
41  write (*,'(/,a,/)') &
42  & " ### ABORT : ERROR in ORIGINAL GRID FILE"
43  endif
44 
45  if (iflag.eq.12) then
46  write (*,'(/,a,/)') &
47  & " ### ABORT : UNEXPECTED EOF in ORIGINAL GRID FILE"
48  endif
49 
50  if (iflag.eq.21) then
51  write (*,'(/,a,/)') &
52  & " ### ABORT : ERROR in MeTiS PARTITION FILE"
53  endif
54 
55  if (iflag.eq.99) then
56  write (*,'(/,a,/)') &
57  & " ### ABORT : ERROR allocating ieaddrs in load_mesh.f90"
58  endif
59 
60  if (iflag.eq. 101) then
61  write (*,'(/,a,/)') &
62  & " ### ABORT : file not found : GRID FILE"
63  endif
64 
65  if (iflag.eq. 102) then
66  write (*,'(/,a,/)') &
67  & " ### ABORT : file not found : RESTART FILE"
68  endif
69 
70  if (iflag.eq. 20) then
71  write (*,'(/,a,/)') &
72  & " ### ABORT : invalid file format : CNTL FILE"
73  endif
74 
75  if (iflag.eq. 22) then
76  write (*,'(/,a,/)') &
77  & " ### ABORT : invalid file format : RESTART FILE"
78  endif
79 
80  if (iflag.eq. 94) then
81  write (*,'(/,a,/)') &
82  & " ### ABORT : invalid value : CNTL. FILE"
83  endif
84 
85  if (iflag.eq.61) then
86  write (*,'(/,a,/)') &
87  & " ### ABORT : array overflow (CELL)"
88  endif
89 
90  if (iflag.eq.62) then
91  write (*,'(/,a,/)') &
92  & " ### ABORT : array overflow (NODES)"
93  endif
94 
95  if (iflag.eq.63) then
96  write (*,'(/,a,/)') &
97  & " ### ABORT : array overflow (LAYER)"
98  endif
99 
100  if (iflag.eq.64) then
101  write (*,'(/,a,/)') &
102  & " ### ABORT : array overflow (EDGES)"
103  endif
104 
105  if (iflag.eq.81) then
106  write (*,'(/,a,/)') &
107  & " ### ABORT : arithmetic overflow : Zero Volume"
108  endif
109 
110  if (iflag.eq.82) then
111  write (*,'(/,a,/)') &
112  & " ### ABORT : arithmetic overflow : Zero Density"
113  endif
114 
115  if (iflag.eq.9) then
116  write (*,'(/,a,/)') &
117  & " ### ABORT : adaptation level exceeded"
118  endif
119 
120  if (iflag.eq.95) then
121  write (*,'(/,a,/)') &
122  & " ### ABORT : inconsistent grid-result files"
123  endif
124 
125  if (iflag.eq.7) then
126  write (*,'(/,a,/)') &
127  & " ### ABORT : iteration failed"
128  endif
129 
130  if (iflag.eq.201) then
131  write (*,'(/,a,/)') &
132  & " ### ABORT : initial conditions"
133  endif
134 
135  if (iflag.eq.202) then
136  write (*,'(/,a,/)') &
137  & " ### ABORT : element-based partition"
138  endif
139 
140  if (iflag.eq.203) then
141  write (*,'(/,a,/)') &
142  & " ### ABORT : multiple DOF group"
143  endif
144 
145  if (iflag.eq.204) then
146  write (*,'(/,a,/)') &
147  & " ### ABORT : composite material"
148  endif
149 
150 
151  call mpi_finalize ( ier1 )
152 
153  stop
154 end
155 
156 
hecmw_adapt_error_exit
subroutine hecmw_adapt_error_exit(hecMESH, IFLAG)
Adaptive Mesh Refinement.
Definition: hecmw_adapt_error_exit.f90:8
hecmw_util
I/O and Utility.
Definition: hecmw_util_f.F90:7