6 # A | # Clan McCloog Castle
7 # /.\ [""M# [Generated by Clan 0.7.1]
20 # :::::::::SUNDOGa8a::::. ..
21 # :::::8::::888:Y8888:::::::::...
22 #::':::88::::888::Y88a______________________________________________________
23 #:: ::::88a::::88a:Y88a __---__-- __
24 #' .: ::Y88a:::::8a:Y88a __----_-- -------_-__
25 # :' ::::8P::::::::::88aa. _ _- -- --_ --- __ --- __--
26 #.:: :::::::::::::::::::Y88as88a...s88aa.
28 # [File generated by the OpenScop Library 0.8.4]
33 # =============================================== Global
40 # Parameters are provided
43 i NSECTIONS imod8 imodNSECTIONS
45 # Number of statements
48 # =============================================== Statement 1
49 # ---------------------------------------------- 1.1 Domain
53 0 1 0 0 0 0 0 ## fakeiter == 0
55 # ---------------------------------------------- 1.2 Scattering
56 # Scattering function is provided
59 # e/i| i NSE. imo. imo.| 1
60 0 0 0 0 0 0 0 ## c1 == 0
64 # ---------------------------------------------- 1.3 Access
65 # Access informations are provided
67 # Read access informations
69 2 0 1 0 0 0 0 ## [1] == i
70 # Write access informations
72 1 0 0 0 0 0 0 ## Arr == sum
74 # ---------------------------------------------- 1.4 Body
75 # Statement body is provided
78 # Statement body expression
81 # =============================================== Statement 2
82 # ---------------------------------------------- 2.1 Domain
86 # e/i| j | i NSE. imo. imo.| 1
87 1 1 0 0 0 0 0 ## j >= 0
88 1 -1 0 1 0 0 -1 ## -j+NSECTIONS-1 >= 0
89 1 0 0 1 0 0 -1 ## NSECTIONS-1 >= 0
91 # ---------------------------------------------- 2.2 Scattering
92 # Scattering function is provided
95 # e/i| j | i NSE. imo. imo.| 1
96 0 0 0 0 0 0 1 ## c1 == 1
97 0 1 0 0 0 0 0 ## c2 == j
98 0 0 0 0 0 0 0 ## c3 == 0
100 # ---------------------------------------------- 2.3 Access
101 # Access informations are provided
103 # Read access informations
105 7 0 0 0 1 0 0 ## [1] == imod8
106 0 1 0 0 0 0 0 ## [2] == j
107 0 0 0 0 0 0 0 ## [3] == 0
108 # Write access informations
110 6 0 0 0 0 0 0 ## Arr == state_2
112 # ---------------------------------------------- 2.4 Body
113 # Statement body is provided
115 # List of original iterators
117 # Statement body expression
118 state_2=internal_state[imod8][j][0];
120 # =============================================== Statement 3
121 # ---------------------------------------------- 3.1 Domain
125 # e/i| j | i NSE. imo. imo.| 1
126 1 1 0 0 0 0 0 ## j >= 0
127 1 -1 0 1 0 0 -1 ## -j+NSECTIONS-1 >= 0
128 1 0 0 1 0 0 -1 ## NSECTIONS-1 >= 0
130 # ---------------------------------------------- 3.2 Scattering
131 # Scattering function is provided
134 # e/i| j | i NSE. imo. imo.| 1
135 0 0 0 0 0 0 1 ## c1 == 1
136 0 1 0 0 0 0 0 ## c2 == j
137 0 0 0 0 0 0 1 ## c3 == 1
139 # ---------------------------------------------- 3.3 Access
140 # Access informations are provided
142 # Read access informations
144 7 0 0 0 1 0 0 ## [1] == imod8
145 0 1 0 0 0 0 0 ## [2] == j
146 0 0 0 0 0 0 1 ## [3] == 1
147 # Write access informations
149 9 0 0 0 0 0 0 ## Arr == state_1
151 # ---------------------------------------------- 3.4 Body
152 # Statement body is provided
154 # List of original iterators
156 # Statement body expression
157 state_1=internal_state[imod8][j][1];
159 # =============================================== Statement 4
160 # ---------------------------------------------- 4.1 Domain
164 # e/i| j | i NSE. imo. imo.| 1
165 1 1 0 0 0 0 0 ## j >= 0
166 1 -1 0 1 0 0 -1 ## -j+NSECTIONS-1 >= 0
167 1 0 0 1 0 0 -1 ## NSECTIONS-1 >= 0
169 # ---------------------------------------------- 4.2 Scattering
170 # Scattering function is provided
173 # e/i| j | i NSE. imo. imo.| 1
174 0 0 0 0 0 0 1 ## c1 == 1
175 0 1 0 0 0 0 0 ## c2 == j
176 0 0 0 0 0 0 2 ## c3 == 2
178 # ---------------------------------------------- 4.3 Access
179 # Access informations are provided
181 # Read access informations
183 1 0 0 0 0 0 0 ## Arr == sum
184 7 0 0 0 1 0 0 ## [1] == imod8
185 0 1 0 0 0 0 0 ## [2] == j
186 0 0 0 0 0 0 0 ## [3] == 0
187 10 0 0 0 0 1 0 ## [1] == imodNSECTIONS
188 0 1 0 0 0 0 0 ## [2] == j
189 0 0 0 0 0 0 0 ## [3] == 0
190 7 0 0 0 1 0 0 ## [1] == imod8
191 0 1 0 0 0 0 0 ## [2] == j
192 0 0 0 0 0 0 1 ## [3] == 1
193 10 0 0 0 0 1 0 ## [1] == imodNSECTIONS
194 0 1 0 0 0 0 0 ## [2] == j
195 0 0 0 0 0 0 1 ## [3] == 1
196 # Write access informations
198 1 0 0 0 0 0 0 ## Arr == sum
200 # ---------------------------------------------- 4.4 Body
201 # Statement body is provided
203 # List of original iterators
205 # Statement body expression
206 sum-=internal_state[imod8][j][0]*coefficient[imodNSECTIONS][j][0]+internal_state[imod8][j][1]*coefficient[imodNSECTIONS][j][1];
208 # =============================================== Statement 5
209 # ---------------------------------------------- 5.1 Domain
213 # e/i| j | i NSE. imo. imo.| 1
214 1 1 0 0 0 0 0 ## j >= 0
215 1 -1 0 1 0 0 -1 ## -j+NSECTIONS-1 >= 0
216 1 0 0 1 0 0 -1 ## NSECTIONS-1 >= 0
218 # ---------------------------------------------- 5.2 Scattering
219 # Scattering function is provided
222 # e/i| j | i NSE. imo. imo.| 1
223 0 0 0 0 0 0 1 ## c1 == 1
224 0 1 0 0 0 0 0 ## c2 == j
225 0 0 0 0 0 0 3 ## c3 == 3
227 # ---------------------------------------------- 5.3 Access
228 # Access informations are provided
230 # Read access informations
232 7 0 0 0 1 0 0 ## [1] == imod8
233 0 1 0 0 0 0 0 ## [2] == j
234 0 0 0 0 0 0 1 ## [3] == 1
235 # Write access informations
237 7 0 0 0 1 0 0 ## [1] == imod8
238 0 1 0 0 0 0 0 ## [2] == j
239 0 0 0 0 0 0 0 ## [3] == 0
241 # ---------------------------------------------- 5.4 Body
242 # Statement body is provided
244 # List of original iterators
246 # Statement body expression
247 internal_state[imod8][j][0]=internal_state[imod8][j][1];
249 # =============================================== Statement 6
250 # ---------------------------------------------- 6.1 Domain
254 # e/i| j | i NSE. imo. imo.| 1
255 1 1 0 0 0 0 0 ## j >= 0
256 1 -1 0 1 0 0 -1 ## -j+NSECTIONS-1 >= 0
257 1 0 0 1 0 0 -1 ## NSECTIONS-1 >= 0
259 # ---------------------------------------------- 6.2 Scattering
260 # Scattering function is provided
263 # e/i| j | i NSE. imo. imo.| 1
264 0 0 0 0 0 0 1 ## c1 == 1
265 0 1 0 0 0 0 0 ## c2 == j
266 0 0 0 0 0 0 4 ## c3 == 4
268 # ---------------------------------------------- 6.3 Access
269 # Access informations are provided
271 # Read access informations
273 1 0 0 0 0 0 0 ## Arr == sum
274 # Write access informations
276 7 0 0 0 1 0 0 ## [1] == imod8
277 0 1 0 0 0 0 0 ## [2] == j
278 0 0 0 0 0 0 1 ## [3] == 1
280 # ---------------------------------------------- 6.4 Body
281 # Statement body is provided
283 # List of original iterators
285 # Statement body expression
286 internal_state[imod8][j][1]=sum;
288 # =============================================== Statement 7
289 # ---------------------------------------------- 7.1 Domain
293 # e/i| j | i NSE. imo. imo.| 1
294 1 1 0 0 0 0 0 ## j >= 0
295 1 -1 0 1 0 0 -1 ## -j+NSECTIONS-1 >= 0
296 1 0 0 1 0 0 -1 ## NSECTIONS-1 >= 0
298 # ---------------------------------------------- 7.2 Scattering
299 # Scattering function is provided
302 # e/i| j | i NSE. imo. imo.| 1
303 0 0 0 0 0 0 1 ## c1 == 1
304 0 1 0 0 0 0 0 ## c2 == j
305 0 0 0 0 0 0 5 ## c3 == 5
307 # ---------------------------------------------- 7.3 Access
308 # Access informations are provided
310 # Read access informations
312 1 0 0 0 0 0 0 ## Arr == sum
313 6 0 0 0 0 0 0 ## Arr == state_2
314 10 0 0 0 0 1 0 ## [1] == imodNSECTIONS
315 0 1 0 0 0 0 0 ## [2] == j
316 0 0 0 0 0 0 2 ## [3] == 2
317 9 0 0 0 0 0 0 ## Arr == state_1
318 10 0 0 0 0 1 0 ## [1] == imodNSECTIONS
319 0 1 0 0 0 0 0 ## [2] == j
320 0 0 0 0 0 0 3 ## [3] == 3
321 # Write access informations
323 1 0 0 0 0 0 0 ## Arr == sum
325 # ---------------------------------------------- 7.4 Body
326 # Statement body is provided
328 # List of original iterators
330 # Statement body expression
331 sum+=state_2*coefficient[imodNSECTIONS][j][2]+state_1*coefficient[imodNSECTIONS][j][3];
333 # =============================================== Statement 8
334 # ---------------------------------------------- 8.1 Domain
338 0 1 0 0 0 0 0 ## fakeiter == 0
340 # ---------------------------------------------- 8.2 Scattering
341 # Scattering function is provided
344 # e/i| i NSE. imo. imo.| 1
345 0 0 0 0 0 0 2 ## c1 == 2
349 # ---------------------------------------------- 8.3 Access
350 # Access informations are provided
352 # Read access informations
354 1 0 0 0 0 0 0 ## Arr == sum
355 # Write access informations
357 12 0 1 0 0 0 0 ## [1] == i
359 # ---------------------------------------------- 8.4 Body
360 # Statement body is provided
363 # Statement body expression
366 # =============================================== Options
370 # Mapping array-identifiers/array-names