FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
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
7subroutine 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 orginal 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 PARTIRION 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
154end
155
156
subroutine hecmw_adapt_error_exit(hecmesh, iflag)
Adaptive Mesh Refinement.
I/O and Utility.
Definition: hecmw_util_f.F90:7