Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief
18 : !> This file contains procedure implementations of [pm_distanceEuclid](@ref pm_distanceEuclid).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, Wednesday 5:43 PM, December 25, 2013, Institute for Fusion Studies, The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_distanceEuclid) routines
28 :
29 : #if CHECK_ENABLED
30 : use pm_err, only: getFine
31 : use pm_val2str, only: getStr
32 : use pm_err, only: setAsserted
33 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
34 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
35 : #else
36 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
37 : #endif
38 :
39 : implicit none
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : contains
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : #define getDisEuclid_ENABLED 1
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 :
53 : #define XYZ_ENABLED 1
54 :
55 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
56 :
57 : #define RK_ENABLED 1
58 :
59 : #if RK5_ENABLED
60 : module procedure getDisEuclidXYZ_RK5
61 : use pm_kind, only: TKC => RK5
62 : #include "pm_distanceEuclid@routines.inc.F90"
63 : end procedure
64 : #endif
65 :
66 : #if RK4_ENABLED
67 0 : module procedure getDisEuclidXYZ_RK4
68 : use pm_kind, only: TKC => RK4
69 : #include "pm_distanceEuclid@routines.inc.F90"
70 0 : end procedure
71 : #endif
72 :
73 : #if RK3_ENABLED
74 0 : module procedure getDisEuclidXYZ_RK3
75 : use pm_kind, only: TKC => RK3
76 : #include "pm_distanceEuclid@routines.inc.F90"
77 0 : end procedure
78 : #endif
79 :
80 : #if RK2_ENABLED
81 0 : module procedure getDisEuclidXYZ_RK2
82 : use pm_kind, only: TKC => RK2
83 : #include "pm_distanceEuclid@routines.inc.F90"
84 0 : end procedure
85 : #endif
86 :
87 : #if RK1_ENABLED
88 2 : module procedure getDisEuclidXYZ_RK1
89 : use pm_kind, only: TKC => RK1
90 : #include "pm_distanceEuclid@routines.inc.F90"
91 2 : end procedure
92 : #endif
93 :
94 : #undef RK_ENABLED
95 :
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 :
98 : #undef XYZ_ENABLED
99 :
100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 :
104 : #define D1_XX_ENABLED 1
105 :
106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
107 :
108 : #define RK_ENABLED 1
109 :
110 : #if RK5_ENABLED
111 : module procedure getDE_D1_XX_RK5
112 : use pm_kind, only: TKC => RK5
113 : #include "pm_distanceEuclid@routines.inc.F90"
114 : end procedure
115 : #endif
116 :
117 : #if RK4_ENABLED
118 804 : module procedure getDE_D1_XX_RK4
119 : use pm_kind, only: TKC => RK4
120 : #include "pm_distanceEuclid@routines.inc.F90"
121 0 : end procedure
122 : #endif
123 :
124 : #if RK3_ENABLED
125 774 : module procedure getDE_D1_XX_RK3
126 : use pm_kind, only: TKC => RK3
127 : #include "pm_distanceEuclid@routines.inc.F90"
128 0 : end procedure
129 : #endif
130 :
131 : #if RK2_ENABLED
132 744 : module procedure getDE_D1_XX_RK2
133 : use pm_kind, only: TKC => RK2
134 : #include "pm_distanceEuclid@routines.inc.F90"
135 0 : end procedure
136 : #endif
137 :
138 : #if RK1_ENABLED
139 790 : module procedure getDE_D1_XX_RK1
140 : use pm_kind, only: TKC => RK1
141 : #include "pm_distanceEuclid@routines.inc.F90"
142 4 : end procedure
143 : #endif
144 :
145 : #undef RK_ENABLED
146 :
147 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
148 :
149 : #undef D1_XX_ENABLED
150 :
151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 :
155 : #define D2_XX_ENABLED 1
156 :
157 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
158 :
159 : #define RK_ENABLED 1
160 :
161 : #if RK5_ENABLED
162 : module procedure getDE_D2_XX_RK5
163 : use pm_kind, only: TKC => RK5
164 : #include "pm_distanceEuclid@routines.inc.F90"
165 : end procedure
166 : #endif
167 :
168 : #if RK4_ENABLED
169 804 : module procedure getDE_D2_XX_RK4
170 : use pm_kind, only: TKC => RK4
171 : #include "pm_distanceEuclid@routines.inc.F90"
172 : end procedure
173 : #endif
174 :
175 : #if RK3_ENABLED
176 774 : module procedure getDE_D2_XX_RK3
177 : use pm_kind, only: TKC => RK3
178 : #include "pm_distanceEuclid@routines.inc.F90"
179 : end procedure
180 : #endif
181 :
182 : #if RK2_ENABLED
183 744 : module procedure getDE_D2_XX_RK2
184 : use pm_kind, only: TKC => RK2
185 : #include "pm_distanceEuclid@routines.inc.F90"
186 : end procedure
187 : #endif
188 :
189 : #if RK1_ENABLED
190 786 : module procedure getDE_D2_XX_RK1
191 : use pm_kind, only: TKC => RK1
192 : #include "pm_distanceEuclid@routines.inc.F90"
193 : end procedure
194 : #endif
195 :
196 : #undef RK_ENABLED
197 :
198 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
199 :
200 : #undef D2_XX_ENABLED
201 :
202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
204 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
205 :
206 : #define D1_D1_ENABLED 1
207 :
208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
209 :
210 : #define RK_ENABLED 1
211 :
212 : #if RK5_ENABLED
213 : module procedure getDE_D1_D1_RK5
214 : use pm_kind, only: TKC => RK5
215 : #include "pm_distanceEuclid@routines.inc.F90"
216 : end procedure
217 : #endif
218 :
219 : #if RK4_ENABLED
220 696 : module procedure getDE_D1_D1_RK4
221 : use pm_kind, only: TKC => RK4
222 : #include "pm_distanceEuclid@routines.inc.F90"
223 0 : end procedure
224 : #endif
225 :
226 : #if RK3_ENABLED
227 726 : module procedure getDE_D1_D1_RK3
228 : use pm_kind, only: TKC => RK3
229 : #include "pm_distanceEuclid@routines.inc.F90"
230 0 : end procedure
231 : #endif
232 :
233 : #if RK2_ENABLED
234 756 : module procedure getDE_D1_D1_RK2
235 : use pm_kind, only: TKC => RK2
236 : #include "pm_distanceEuclid@routines.inc.F90"
237 0 : end procedure
238 : #endif
239 :
240 : #if RK1_ENABLED
241 715 : module procedure getDE_D1_D1_RK1
242 : use pm_kind, only: TKC => RK1
243 : #include "pm_distanceEuclid@routines.inc.F90"
244 1 : end procedure
245 : #endif
246 :
247 : #undef RK_ENABLED
248 :
249 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250 :
251 : #undef D1_D1_ENABLED
252 :
253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
255 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
256 :
257 : #define D1_D2_ENABLED 1
258 :
259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260 :
261 : #define RK_ENABLED 1
262 :
263 : #if RK5_ENABLED
264 : module procedure getDE_D1_D2_RK5
265 : use pm_kind, only: TKC => RK5
266 : #include "pm_distanceEuclid@routines.inc.F90"
267 : end procedure
268 : #endif
269 :
270 : #if RK4_ENABLED
271 696 : module procedure getDE_D1_D2_RK4
272 : use pm_kind, only: TKC => RK4
273 : #include "pm_distanceEuclid@routines.inc.F90"
274 : end procedure
275 : #endif
276 :
277 : #if RK3_ENABLED
278 726 : module procedure getDE_D1_D2_RK3
279 : use pm_kind, only: TKC => RK3
280 : #include "pm_distanceEuclid@routines.inc.F90"
281 : end procedure
282 : #endif
283 :
284 : #if RK2_ENABLED
285 756 : module procedure getDE_D1_D2_RK2
286 : use pm_kind, only: TKC => RK2
287 : #include "pm_distanceEuclid@routines.inc.F90"
288 : end procedure
289 : #endif
290 :
291 : #if RK1_ENABLED
292 714 : module procedure getDE_D1_D2_RK1
293 : use pm_kind, only: TKC => RK1
294 : #include "pm_distanceEuclid@routines.inc.F90"
295 : end procedure
296 : #endif
297 :
298 : #undef RK_ENABLED
299 :
300 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301 :
302 : #undef D1_D2_ENABLED
303 :
304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
305 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
306 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
307 :
308 : #define D2_D1_ENABLED 1
309 :
310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311 :
312 : #define RK_ENABLED 1
313 :
314 : #if RK5_ENABLED
315 : module procedure getDE_D2_D1_RK5
316 : use pm_kind, only: TKC => RK5
317 : #include "pm_distanceEuclid@routines.inc.F90"
318 : end procedure
319 : #endif
320 :
321 : #if RK4_ENABLED
322 696 : module procedure getDE_D2_D1_RK4
323 : use pm_kind, only: TKC => RK4
324 : #include "pm_distanceEuclid@routines.inc.F90"
325 : end procedure
326 : #endif
327 :
328 : #if RK3_ENABLED
329 726 : module procedure getDE_D2_D1_RK3
330 : use pm_kind, only: TKC => RK3
331 : #include "pm_distanceEuclid@routines.inc.F90"
332 : end procedure
333 : #endif
334 :
335 : #if RK2_ENABLED
336 756 : module procedure getDE_D2_D1_RK2
337 : use pm_kind, only: TKC => RK2
338 : #include "pm_distanceEuclid@routines.inc.F90"
339 : end procedure
340 : #endif
341 :
342 : #if RK1_ENABLED
343 714 : module procedure getDE_D2_D1_RK1
344 : use pm_kind, only: TKC => RK1
345 : #include "pm_distanceEuclid@routines.inc.F90"
346 : end procedure
347 : #endif
348 :
349 : #undef RK_ENABLED
350 :
351 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
352 :
353 : #undef D2_D1_ENABLED
354 :
355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
358 :
359 : #define D2_D2_ENABLED 1
360 :
361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
362 :
363 : #define RK_ENABLED 1
364 :
365 : #if RK5_ENABLED
366 : module procedure getDE_D2_D2_RK5
367 : use pm_kind, only: TKC => RK5
368 : #include "pm_distanceEuclid@routines.inc.F90"
369 : end procedure
370 : #endif
371 :
372 : #if RK4_ENABLED
373 3396 : module procedure getDE_D2_D2_RK4
374 : use pm_kind, only: TKC => RK4
375 : #include "pm_distanceEuclid@routines.inc.F90"
376 : end procedure
377 : #endif
378 :
379 : #if RK3_ENABLED
380 3426 : module procedure getDE_D2_D2_RK3
381 : use pm_kind, only: TKC => RK3
382 : #include "pm_distanceEuclid@routines.inc.F90"
383 : end procedure
384 : #endif
385 :
386 : #if RK2_ENABLED
387 3456 : module procedure getDE_D2_D2_RK2
388 : use pm_kind, only: TKC => RK2
389 : #include "pm_distanceEuclid@routines.inc.F90"
390 : end procedure
391 : #endif
392 :
393 : #if RK1_ENABLED
394 3418 : module procedure getDE_D2_D2_RK1
395 : use pm_kind, only: TKC => RK1
396 : #include "pm_distanceEuclid@routines.inc.F90"
397 : end procedure
398 : #endif
399 :
400 : #undef RK_ENABLED
401 :
402 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
403 :
404 : #undef D2_D2_ENABLED
405 :
406 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
407 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
409 :
410 : #undef getDisEuclid_ENABLED
411 :
412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
413 :
414 : #define setDisEuclid_ENABLED 1
415 :
416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
418 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
419 :
420 : #define MED_ENABLED 1
421 :
422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
423 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
424 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
425 :
426 : #define D1_XX_ENABLED 1
427 :
428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
429 :
430 : #define RK_ENABLED 1
431 :
432 : #if RK5_ENABLED
433 : module procedure setDE_MED_D1_XX_RK5
434 : use pm_kind, only: TKC => RK5
435 : #include "pm_distanceEuclid@routines.inc.F90"
436 : end procedure
437 : #endif
438 :
439 : #if RK4_ENABLED
440 5789 : module procedure setDE_MED_D1_XX_RK4
441 : use pm_kind, only: TKC => RK4
442 : #include "pm_distanceEuclid@routines.inc.F90"
443 5789 : end procedure
444 : #endif
445 :
446 : #if RK3_ENABLED
447 5965 : module procedure setDE_MED_D1_XX_RK3
448 : use pm_kind, only: TKC => RK3
449 : #include "pm_distanceEuclid@routines.inc.F90"
450 5965 : end procedure
451 : #endif
452 :
453 : #if RK2_ENABLED
454 5851 : module procedure setDE_MED_D1_XX_RK2
455 : use pm_kind, only: TKC => RK2
456 : #include "pm_distanceEuclid@routines.inc.F90"
457 5851 : end procedure
458 : #endif
459 :
460 : #if RK1_ENABLED
461 5730 : module procedure setDE_MED_D1_XX_RK1
462 : use pm_kind, only: TKC => RK1
463 : #include "pm_distanceEuclid@routines.inc.F90"
464 5730 : end procedure
465 : #endif
466 :
467 : #undef RK_ENABLED
468 :
469 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
470 :
471 : #undef D1_XX_ENABLED
472 :
473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
474 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
475 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
476 :
477 : #define D2_XX_ENABLED 1
478 :
479 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
480 :
481 : #define RK_ENABLED 1
482 :
483 : #if RK5_ENABLED
484 : module procedure setDE_MED_D2_XX_RK5
485 : use pm_kind, only: TKC => RK5
486 : #include "pm_distanceEuclid@routines.inc.F90"
487 : end procedure
488 : #endif
489 :
490 : #if RK4_ENABLED
491 511 : module procedure setDE_MED_D2_XX_RK4
492 : use pm_kind, only: TKC => RK4
493 : #include "pm_distanceEuclid@routines.inc.F90"
494 511 : end procedure
495 : #endif
496 :
497 : #if RK3_ENABLED
498 512 : module procedure setDE_MED_D2_XX_RK3
499 : use pm_kind, only: TKC => RK3
500 : #include "pm_distanceEuclid@routines.inc.F90"
501 512 : end procedure
502 : #endif
503 :
504 : #if RK2_ENABLED
505 499 : module procedure setDE_MED_D2_XX_RK2
506 : use pm_kind, only: TKC => RK2
507 : #include "pm_distanceEuclid@routines.inc.F90"
508 499 : end procedure
509 : #endif
510 :
511 : #if RK1_ENABLED
512 519 : module procedure setDE_MED_D2_XX_RK1
513 : use pm_kind, only: TKC => RK1
514 : #include "pm_distanceEuclid@routines.inc.F90"
515 519 : end procedure
516 : #endif
517 :
518 : #undef RK_ENABLED
519 :
520 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
521 :
522 : #undef D2_XX_ENABLED
523 :
524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 :
528 : #define D1_D1_ENABLED 1
529 :
530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
531 :
532 : #define RK_ENABLED 1
533 :
534 : #if RK5_ENABLED
535 : module procedure setDE_MED_D1_D1_RK5
536 : use pm_kind, only: TKC => RK5
537 : #include "pm_distanceEuclid@routines.inc.F90"
538 : end procedure
539 : #endif
540 :
541 : #if RK4_ENABLED
542 368194 : module procedure setDE_MED_D1_D1_RK4
543 : use pm_kind, only: TKC => RK4
544 : #include "pm_distanceEuclid@routines.inc.F90"
545 368194 : end procedure
546 : #endif
547 :
548 : #if RK3_ENABLED
549 389391 : module procedure setDE_MED_D1_D1_RK3
550 : use pm_kind, only: TKC => RK3
551 : #include "pm_distanceEuclid@routines.inc.F90"
552 389391 : end procedure
553 : #endif
554 :
555 : #if RK2_ENABLED
556 379455 : module procedure setDE_MED_D1_D1_RK2
557 : use pm_kind, only: TKC => RK2
558 : #include "pm_distanceEuclid@routines.inc.F90"
559 379455 : end procedure
560 : #endif
561 :
562 : #if RK1_ENABLED
563 372049 : module procedure setDE_MED_D1_D1_RK1
564 : use pm_kind, only: TKC => RK1
565 : #include "pm_distanceEuclid@routines.inc.F90"
566 372049 : end procedure
567 : #endif
568 :
569 : #undef RK_ENABLED
570 :
571 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
572 :
573 : #undef D1_D1_ENABLED
574 :
575 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
577 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
578 :
579 : #define D1_D2_ENABLED 1
580 :
581 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
582 :
583 : #define RK_ENABLED 1
584 :
585 : #if RK5_ENABLED
586 : module procedure setDE_MED_D1_D2_RK5
587 : use pm_kind, only: TKC => RK5
588 : #include "pm_distanceEuclid@routines.inc.F90"
589 : end procedure
590 : #endif
591 :
592 : #if RK4_ENABLED
593 23413 : module procedure setDE_MED_D1_D2_RK4
594 : use pm_kind, only: TKC => RK4
595 : #include "pm_distanceEuclid@routines.inc.F90"
596 23413 : end procedure
597 : #endif
598 :
599 : #if RK3_ENABLED
600 24291 : module procedure setDE_MED_D1_D2_RK3
601 : use pm_kind, only: TKC => RK3
602 : #include "pm_distanceEuclid@routines.inc.F90"
603 24291 : end procedure
604 : #endif
605 :
606 : #if RK2_ENABLED
607 23853 : module procedure setDE_MED_D1_D2_RK2
608 : use pm_kind, only: TKC => RK2
609 : #include "pm_distanceEuclid@routines.inc.F90"
610 23853 : end procedure
611 : #endif
612 :
613 : #if RK1_ENABLED
614 23520 : module procedure setDE_MED_D1_D2_RK1
615 : use pm_kind, only: TKC => RK1
616 : #include "pm_distanceEuclid@routines.inc.F90"
617 23520 : end procedure
618 : #endif
619 :
620 : #undef RK_ENABLED
621 :
622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
623 :
624 : #undef D1_D2_ENABLED
625 :
626 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
628 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
629 :
630 : #define D2_D1_ENABLED 1
631 :
632 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
633 :
634 : #define RK_ENABLED 1
635 :
636 : #if RK5_ENABLED
637 : module procedure setDE_MED_D2_D1_RK5
638 : use pm_kind, only: TKC => RK5
639 : #include "pm_distanceEuclid@routines.inc.F90"
640 : end procedure
641 : #endif
642 :
643 : #if RK4_ENABLED
644 489 : module procedure setDE_MED_D2_D1_RK4
645 : use pm_kind, only: TKC => RK4
646 : #include "pm_distanceEuclid@routines.inc.F90"
647 489 : end procedure
648 : #endif
649 :
650 : #if RK3_ENABLED
651 488 : module procedure setDE_MED_D2_D1_RK3
652 : use pm_kind, only: TKC => RK3
653 : #include "pm_distanceEuclid@routines.inc.F90"
654 488 : end procedure
655 : #endif
656 :
657 : #if RK2_ENABLED
658 501 : module procedure setDE_MED_D2_D1_RK2
659 : use pm_kind, only: TKC => RK2
660 : #include "pm_distanceEuclid@routines.inc.F90"
661 501 : end procedure
662 : #endif
663 :
664 : #if RK1_ENABLED
665 481 : module procedure setDE_MED_D2_D1_RK1
666 : use pm_kind, only: TKC => RK1
667 : #include "pm_distanceEuclid@routines.inc.F90"
668 481 : end procedure
669 : #endif
670 :
671 : #undef RK_ENABLED
672 :
673 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
674 :
675 : #undef D2_D1_ENABLED
676 :
677 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
678 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
679 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
680 :
681 : #define D2_D2_ENABLED 1
682 :
683 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
684 :
685 : #define RK_ENABLED 1
686 :
687 : #if RK5_ENABLED
688 : module procedure setDE_MED_D2_D2_RK5
689 : use pm_kind, only: TKC => RK5
690 : #include "pm_distanceEuclid@routines.inc.F90"
691 : end procedure
692 : #endif
693 :
694 : #if RK4_ENABLED
695 1389 : module procedure setDE_MED_D2_D2_RK4
696 : use pm_kind, only: TKC => RK4
697 : #include "pm_distanceEuclid@routines.inc.F90"
698 1389 : end procedure
699 : #endif
700 :
701 : #if RK3_ENABLED
702 1388 : module procedure setDE_MED_D2_D2_RK3
703 : use pm_kind, only: TKC => RK3
704 : #include "pm_distanceEuclid@routines.inc.F90"
705 1388 : end procedure
706 : #endif
707 :
708 : #if RK2_ENABLED
709 1401 : module procedure setDE_MED_D2_D2_RK2
710 : use pm_kind, only: TKC => RK2
711 : #include "pm_distanceEuclid@routines.inc.F90"
712 1401 : end procedure
713 : #endif
714 :
715 : #if RK1_ENABLED
716 1383 : module procedure setDE_MED_D2_D2_RK1
717 : use pm_kind, only: TKC => RK1
718 : #include "pm_distanceEuclid@routines.inc.F90"
719 1383 : end procedure
720 : #endif
721 :
722 : #undef RK_ENABLED
723 :
724 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
725 :
726 : #undef D2_D2_ENABLED
727 :
728 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
729 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
730 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
731 :
732 : #undef MED_ENABLED
733 :
734 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
735 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
736 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
737 :
738 : #define MEU_ENABLED 1
739 :
740 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
741 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
743 :
744 : #define D1_XX_ENABLED 1
745 :
746 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
747 :
748 : #define RK_ENABLED 1
749 :
750 : #if RK5_ENABLED
751 : module procedure setDE_MEU_D1_XX_RK5
752 : use pm_kind, only: TKC => RK5
753 : #include "pm_distanceEuclid@routines.inc.F90"
754 : end procedure
755 : #endif
756 :
757 : #if RK4_ENABLED
758 5789 : module procedure setDE_MEU_D1_XX_RK4
759 : use pm_kind, only: TKC => RK4
760 : #include "pm_distanceEuclid@routines.inc.F90"
761 5789 : end procedure
762 : #endif
763 :
764 : #if RK3_ENABLED
765 5965 : module procedure setDE_MEU_D1_XX_RK3
766 : use pm_kind, only: TKC => RK3
767 : #include "pm_distanceEuclid@routines.inc.F90"
768 5965 : end procedure
769 : #endif
770 :
771 : #if RK2_ENABLED
772 5851 : module procedure setDE_MEU_D1_XX_RK2
773 : use pm_kind, only: TKC => RK2
774 : #include "pm_distanceEuclid@routines.inc.F90"
775 5851 : end procedure
776 : #endif
777 :
778 : #if RK1_ENABLED
779 5726 : module procedure setDE_MEU_D1_XX_RK1
780 : use pm_kind, only: TKC => RK1
781 : #include "pm_distanceEuclid@routines.inc.F90"
782 5726 : end procedure
783 : #endif
784 :
785 : #undef RK_ENABLED
786 :
787 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
788 :
789 : #undef D1_XX_ENABLED
790 :
791 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
792 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
793 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
794 :
795 : #define D2_XX_ENABLED 1
796 :
797 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
798 :
799 : #define RK_ENABLED 1
800 :
801 : #if RK5_ENABLED
802 : module procedure setDE_MEU_D2_XX_RK5
803 : use pm_kind, only: TKC => RK5
804 : #include "pm_distanceEuclid@routines.inc.F90"
805 : end procedure
806 : #endif
807 :
808 : #if RK4_ENABLED
809 511 : module procedure setDE_MEU_D2_XX_RK4
810 : use pm_kind, only: TKC => RK4
811 : #include "pm_distanceEuclid@routines.inc.F90"
812 511 : end procedure
813 : #endif
814 :
815 : #if RK3_ENABLED
816 512 : module procedure setDE_MEU_D2_XX_RK3
817 : use pm_kind, only: TKC => RK3
818 : #include "pm_distanceEuclid@routines.inc.F90"
819 512 : end procedure
820 : #endif
821 :
822 : #if RK2_ENABLED
823 499 : module procedure setDE_MEU_D2_XX_RK2
824 : use pm_kind, only: TKC => RK2
825 : #include "pm_distanceEuclid@routines.inc.F90"
826 499 : end procedure
827 : #endif
828 :
829 : #if RK1_ENABLED
830 519 : module procedure setDE_MEU_D2_XX_RK1
831 : use pm_kind, only: TKC => RK1
832 : #include "pm_distanceEuclid@routines.inc.F90"
833 519 : end procedure
834 : #endif
835 :
836 : #undef RK_ENABLED
837 :
838 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
839 :
840 : #undef D2_XX_ENABLED
841 :
842 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
843 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
844 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
845 :
846 : #define D1_D1_ENABLED 1
847 :
848 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
849 :
850 : #define RK_ENABLED 1
851 :
852 : #if RK5_ENABLED
853 : module procedure setDE_MEU_D1_D1_RK5
854 : use pm_kind, only: TKC => RK5
855 : #include "pm_distanceEuclid@routines.inc.F90"
856 : end procedure
857 : #endif
858 :
859 : #if RK4_ENABLED
860 368194 : module procedure setDE_MEU_D1_D1_RK4
861 : use pm_kind, only: TKC => RK4
862 : #include "pm_distanceEuclid@routines.inc.F90"
863 368194 : end procedure
864 : #endif
865 :
866 : #if RK3_ENABLED
867 389391 : module procedure setDE_MEU_D1_D1_RK3
868 : use pm_kind, only: TKC => RK3
869 : #include "pm_distanceEuclid@routines.inc.F90"
870 389391 : end procedure
871 : #endif
872 :
873 : #if RK2_ENABLED
874 379455 : module procedure setDE_MEU_D1_D1_RK2
875 : use pm_kind, only: TKC => RK2
876 : #include "pm_distanceEuclid@routines.inc.F90"
877 379455 : end procedure
878 : #endif
879 :
880 : #if RK1_ENABLED
881 371552 : module procedure setDE_MEU_D1_D1_RK1
882 : use pm_kind, only: TKC => RK1
883 : #include "pm_distanceEuclid@routines.inc.F90"
884 371552 : end procedure
885 : #endif
886 :
887 : #undef RK_ENABLED
888 :
889 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
890 :
891 : #undef D1_D1_ENABLED
892 :
893 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
894 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
895 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
896 :
897 : #define D1_D2_ENABLED 1
898 :
899 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
900 :
901 : #define RK_ENABLED 1
902 :
903 : #if RK5_ENABLED
904 : module procedure setDE_MEU_D1_D2_RK5
905 : use pm_kind, only: TKC => RK5
906 : #include "pm_distanceEuclid@routines.inc.F90"
907 : end procedure
908 : #endif
909 :
910 : #if RK4_ENABLED
911 23413 : module procedure setDE_MEU_D1_D2_RK4
912 : use pm_kind, only: TKC => RK4
913 : #include "pm_distanceEuclid@routines.inc.F90"
914 23413 : end procedure
915 : #endif
916 :
917 : #if RK3_ENABLED
918 24291 : module procedure setDE_MEU_D1_D2_RK3
919 : use pm_kind, only: TKC => RK3
920 : #include "pm_distanceEuclid@routines.inc.F90"
921 24291 : end procedure
922 : #endif
923 :
924 : #if RK2_ENABLED
925 23853 : module procedure setDE_MEU_D1_D2_RK2
926 : use pm_kind, only: TKC => RK2
927 : #include "pm_distanceEuclid@routines.inc.F90"
928 23853 : end procedure
929 : #endif
930 :
931 : #if RK1_ENABLED
932 23515 : module procedure setDE_MEU_D1_D2_RK1
933 : use pm_kind, only: TKC => RK1
934 : #include "pm_distanceEuclid@routines.inc.F90"
935 23515 : end procedure
936 : #endif
937 :
938 : #undef RK_ENABLED
939 :
940 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
941 :
942 : #undef D1_D2_ENABLED
943 :
944 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
945 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
946 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
947 :
948 : #define D2_D1_ENABLED 1
949 :
950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
951 :
952 : #define RK_ENABLED 1
953 :
954 : #if RK5_ENABLED
955 : module procedure setDE_MEU_D2_D1_RK5
956 : use pm_kind, only: TKC => RK5
957 : #include "pm_distanceEuclid@routines.inc.F90"
958 : end procedure
959 : #endif
960 :
961 : #if RK4_ENABLED
962 489 : module procedure setDE_MEU_D2_D1_RK4
963 : use pm_kind, only: TKC => RK4
964 : #include "pm_distanceEuclid@routines.inc.F90"
965 489 : end procedure
966 : #endif
967 :
968 : #if RK3_ENABLED
969 488 : module procedure setDE_MEU_D2_D1_RK3
970 : use pm_kind, only: TKC => RK3
971 : #include "pm_distanceEuclid@routines.inc.F90"
972 488 : end procedure
973 : #endif
974 :
975 : #if RK2_ENABLED
976 501 : module procedure setDE_MEU_D2_D1_RK2
977 : use pm_kind, only: TKC => RK2
978 : #include "pm_distanceEuclid@routines.inc.F90"
979 501 : end procedure
980 : #endif
981 :
982 : #if RK1_ENABLED
983 481 : module procedure setDE_MEU_D2_D1_RK1
984 : use pm_kind, only: TKC => RK1
985 : #include "pm_distanceEuclid@routines.inc.F90"
986 481 : end procedure
987 : #endif
988 :
989 : #undef RK_ENABLED
990 :
991 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
992 :
993 : #undef D2_D1_ENABLED
994 :
995 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
998 :
999 : #define D2_D2_ENABLED 1
1000 :
1001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1002 :
1003 : #define RK_ENABLED 1
1004 :
1005 : #if RK5_ENABLED
1006 : module procedure setDE_MEU_D2_D2_RK5
1007 : use pm_kind, only: TKC => RK5
1008 : #include "pm_distanceEuclid@routines.inc.F90"
1009 : end procedure
1010 : #endif
1011 :
1012 : #if RK4_ENABLED
1013 1389 : module procedure setDE_MEU_D2_D2_RK4
1014 : use pm_kind, only: TKC => RK4
1015 : #include "pm_distanceEuclid@routines.inc.F90"
1016 1389 : end procedure
1017 : #endif
1018 :
1019 : #if RK3_ENABLED
1020 1388 : module procedure setDE_MEU_D2_D2_RK3
1021 : use pm_kind, only: TKC => RK3
1022 : #include "pm_distanceEuclid@routines.inc.F90"
1023 1388 : end procedure
1024 : #endif
1025 :
1026 : #if RK2_ENABLED
1027 1401 : module procedure setDE_MEU_D2_D2_RK2
1028 : use pm_kind, only: TKC => RK2
1029 : #include "pm_distanceEuclid@routines.inc.F90"
1030 1401 : end procedure
1031 : #endif
1032 :
1033 : #if RK1_ENABLED
1034 1382 : module procedure setDE_MEU_D2_D2_RK1
1035 : use pm_kind, only: TKC => RK1
1036 : #include "pm_distanceEuclid@routines.inc.F90"
1037 1382 : end procedure
1038 : #endif
1039 :
1040 : #undef RK_ENABLED
1041 :
1042 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1043 :
1044 : #undef D2_D2_ENABLED
1045 :
1046 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1048 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1049 :
1050 : #undef MEU_ENABLED
1051 :
1052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1053 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1054 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1055 :
1056 : #define MEQ_ENABLED 1
1057 :
1058 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1059 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1060 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1061 :
1062 : #define D1_XX_ENABLED 1
1063 :
1064 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1065 :
1066 : #define RK_ENABLED 1
1067 :
1068 : #if RK5_ENABLED
1069 : module procedure setDE_MEQ_D1_XX_RK5
1070 : use pm_kind, only: TKC => RK5
1071 : #include "pm_distanceEuclid@routines.inc.F90"
1072 : end procedure
1073 : #endif
1074 :
1075 : #if RK4_ENABLED
1076 5789 : module procedure setDE_MEQ_D1_XX_RK4
1077 : use pm_kind, only: TKC => RK4
1078 : #include "pm_distanceEuclid@routines.inc.F90"
1079 5789 : end procedure
1080 : #endif
1081 :
1082 : #if RK3_ENABLED
1083 5965 : module procedure setDE_MEQ_D1_XX_RK3
1084 : use pm_kind, only: TKC => RK3
1085 : #include "pm_distanceEuclid@routines.inc.F90"
1086 5965 : end procedure
1087 : #endif
1088 :
1089 : #if RK2_ENABLED
1090 5851 : module procedure setDE_MEQ_D1_XX_RK2
1091 : use pm_kind, only: TKC => RK2
1092 : #include "pm_distanceEuclid@routines.inc.F90"
1093 5851 : end procedure
1094 : #endif
1095 :
1096 : #if RK1_ENABLED
1097 5730 : module procedure setDE_MEQ_D1_XX_RK1
1098 : use pm_kind, only: TKC => RK1
1099 : #include "pm_distanceEuclid@routines.inc.F90"
1100 5730 : end procedure
1101 : #endif
1102 :
1103 : #undef RK_ENABLED
1104 :
1105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1106 :
1107 : #undef D1_XX_ENABLED
1108 :
1109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1112 :
1113 : #define D2_XX_ENABLED 1
1114 :
1115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1116 :
1117 : #define RK_ENABLED 1
1118 :
1119 : #if RK5_ENABLED
1120 : module procedure setDE_MEQ_D2_XX_RK5
1121 : use pm_kind, only: TKC => RK5
1122 : #include "pm_distanceEuclid@routines.inc.F90"
1123 : end procedure
1124 : #endif
1125 :
1126 : #if RK4_ENABLED
1127 511 : module procedure setDE_MEQ_D2_XX_RK4
1128 : use pm_kind, only: TKC => RK4
1129 : #include "pm_distanceEuclid@routines.inc.F90"
1130 511 : end procedure
1131 : #endif
1132 :
1133 : #if RK3_ENABLED
1134 512 : module procedure setDE_MEQ_D2_XX_RK3
1135 : use pm_kind, only: TKC => RK3
1136 : #include "pm_distanceEuclid@routines.inc.F90"
1137 512 : end procedure
1138 : #endif
1139 :
1140 : #if RK2_ENABLED
1141 499 : module procedure setDE_MEQ_D2_XX_RK2
1142 : use pm_kind, only: TKC => RK2
1143 : #include "pm_distanceEuclid@routines.inc.F90"
1144 499 : end procedure
1145 : #endif
1146 :
1147 : #if RK1_ENABLED
1148 520 : module procedure setDE_MEQ_D2_XX_RK1
1149 : use pm_kind, only: TKC => RK1
1150 : #include "pm_distanceEuclid@routines.inc.F90"
1151 520 : end procedure
1152 : #endif
1153 :
1154 : #undef RK_ENABLED
1155 :
1156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1157 :
1158 : #undef D2_XX_ENABLED
1159 :
1160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1163 :
1164 : #define D1_D1_ENABLED 1
1165 :
1166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1167 :
1168 : #define RK_ENABLED 1
1169 :
1170 : #if RK5_ENABLED
1171 : module procedure setDE_MEQ_D1_D1_RK5
1172 : use pm_kind, only: TKC => RK5
1173 : #include "pm_distanceEuclid@routines.inc.F90"
1174 : end procedure
1175 : #endif
1176 :
1177 : #if RK4_ENABLED
1178 368194 : module procedure setDE_MEQ_D1_D1_RK4
1179 : use pm_kind, only: TKC => RK4
1180 : #include "pm_distanceEuclid@routines.inc.F90"
1181 368194 : end procedure
1182 : #endif
1183 :
1184 : #if RK3_ENABLED
1185 389391 : module procedure setDE_MEQ_D1_D1_RK3
1186 : use pm_kind, only: TKC => RK3
1187 : #include "pm_distanceEuclid@routines.inc.F90"
1188 389391 : end procedure
1189 : #endif
1190 :
1191 : #if RK2_ENABLED
1192 379455 : module procedure setDE_MEQ_D1_D1_RK2
1193 : use pm_kind, only: TKC => RK2
1194 : #include "pm_distanceEuclid@routines.inc.F90"
1195 379455 : end procedure
1196 : #endif
1197 :
1198 : #if RK1_ENABLED
1199 371701 : module procedure setDE_MEQ_D1_D1_RK1
1200 : use pm_kind, only: TKC => RK1
1201 : #include "pm_distanceEuclid@routines.inc.F90"
1202 371701 : end procedure
1203 : #endif
1204 :
1205 : #undef RK_ENABLED
1206 :
1207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1208 :
1209 : #undef D1_D1_ENABLED
1210 :
1211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1214 :
1215 : #define D1_D2_ENABLED 1
1216 :
1217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1218 :
1219 : #define RK_ENABLED 1
1220 :
1221 : #if RK5_ENABLED
1222 : module procedure setDE_MEQ_D1_D2_RK5
1223 : use pm_kind, only: TKC => RK5
1224 : #include "pm_distanceEuclid@routines.inc.F90"
1225 : end procedure
1226 : #endif
1227 :
1228 : #if RK4_ENABLED
1229 23413 : module procedure setDE_MEQ_D1_D2_RK4
1230 : use pm_kind, only: TKC => RK4
1231 : #include "pm_distanceEuclid@routines.inc.F90"
1232 23413 : end procedure
1233 : #endif
1234 :
1235 : #if RK3_ENABLED
1236 24291 : module procedure setDE_MEQ_D1_D2_RK3
1237 : use pm_kind, only: TKC => RK3
1238 : #include "pm_distanceEuclid@routines.inc.F90"
1239 24291 : end procedure
1240 : #endif
1241 :
1242 : #if RK2_ENABLED
1243 23853 : module procedure setDE_MEQ_D1_D2_RK2
1244 : use pm_kind, only: TKC => RK2
1245 : #include "pm_distanceEuclid@routines.inc.F90"
1246 23853 : end procedure
1247 : #endif
1248 :
1249 : #if RK1_ENABLED
1250 23519 : module procedure setDE_MEQ_D1_D2_RK1
1251 : use pm_kind, only: TKC => RK1
1252 : #include "pm_distanceEuclid@routines.inc.F90"
1253 23519 : end procedure
1254 : #endif
1255 :
1256 : #undef RK_ENABLED
1257 :
1258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1259 :
1260 : #undef D1_D2_ENABLED
1261 :
1262 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1265 :
1266 : #define D2_D1_ENABLED 1
1267 :
1268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1269 :
1270 : #define RK_ENABLED 1
1271 :
1272 : #if RK5_ENABLED
1273 : module procedure setDE_MEQ_D2_D1_RK5
1274 : use pm_kind, only: TKC => RK5
1275 : #include "pm_distanceEuclid@routines.inc.F90"
1276 : end procedure
1277 : #endif
1278 :
1279 : #if RK4_ENABLED
1280 489 : module procedure setDE_MEQ_D2_D1_RK4
1281 : use pm_kind, only: TKC => RK4
1282 : #include "pm_distanceEuclid@routines.inc.F90"
1283 489 : end procedure
1284 : #endif
1285 :
1286 : #if RK3_ENABLED
1287 488 : module procedure setDE_MEQ_D2_D1_RK3
1288 : use pm_kind, only: TKC => RK3
1289 : #include "pm_distanceEuclid@routines.inc.F90"
1290 488 : end procedure
1291 : #endif
1292 :
1293 : #if RK2_ENABLED
1294 501 : module procedure setDE_MEQ_D2_D1_RK2
1295 : use pm_kind, only: TKC => RK2
1296 : #include "pm_distanceEuclid@routines.inc.F90"
1297 501 : end procedure
1298 : #endif
1299 :
1300 : #if RK1_ENABLED
1301 482 : module procedure setDE_MEQ_D2_D1_RK1
1302 : use pm_kind, only: TKC => RK1
1303 : #include "pm_distanceEuclid@routines.inc.F90"
1304 482 : end procedure
1305 : #endif
1306 :
1307 : #undef RK_ENABLED
1308 :
1309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1310 :
1311 : #undef D2_D1_ENABLED
1312 :
1313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1315 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1316 :
1317 : #define D2_D2_ENABLED 1
1318 :
1319 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1320 :
1321 : #define RK_ENABLED 1
1322 :
1323 : #if RK5_ENABLED
1324 : module procedure setDE_MEQ_D2_D2_RK5
1325 : use pm_kind, only: TKC => RK5
1326 : #include "pm_distanceEuclid@routines.inc.F90"
1327 : end procedure
1328 : #endif
1329 :
1330 : #if RK4_ENABLED
1331 1389 : module procedure setDE_MEQ_D2_D2_RK4
1332 : use pm_kind, only: TKC => RK4
1333 : #include "pm_distanceEuclid@routines.inc.F90"
1334 1389 : end procedure
1335 : #endif
1336 :
1337 : #if RK3_ENABLED
1338 1388 : module procedure setDE_MEQ_D2_D2_RK3
1339 : use pm_kind, only: TKC => RK3
1340 : #include "pm_distanceEuclid@routines.inc.F90"
1341 1388 : end procedure
1342 : #endif
1343 :
1344 : #if RK2_ENABLED
1345 1401 : module procedure setDE_MEQ_D2_D2_RK2
1346 : use pm_kind, only: TKC => RK2
1347 : #include "pm_distanceEuclid@routines.inc.F90"
1348 1401 : end procedure
1349 : #endif
1350 :
1351 : #if RK1_ENABLED
1352 1383 : module procedure setDE_MEQ_D2_D2_RK1
1353 : use pm_kind, only: TKC => RK1
1354 : #include "pm_distanceEuclid@routines.inc.F90"
1355 1383 : end procedure
1356 : #endif
1357 :
1358 : #undef RK_ENABLED
1359 :
1360 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1361 :
1362 : #undef D2_D2_ENABLED
1363 :
1364 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1365 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1367 :
1368 : #undef MEQ_ENABLED
1369 :
1370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1372 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1373 :
1374 : #undef setDisEuclid_ENABLED
1375 :
1376 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1377 :
1378 : #define getDisMatEuclid_ENABLED 1
1379 :
1380 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1381 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1382 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1383 :
1384 : #define RDP_ENABLED 1
1385 :
1386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1389 :
1390 : #define FUL_ENABLED 1
1391 :
1392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1393 :
1394 : #define RK_ENABLED 1
1395 :
1396 : #if RK5_ENABLED
1397 : module procedure getDME_RDP_FUL_RK5
1398 : use pm_kind, only: TKC => RK5
1399 : #include "pm_distanceEuclid@routines.inc.F90"
1400 : end procedure
1401 : #endif
1402 :
1403 : #if RK4_ENABLED
1404 0 : module procedure getDME_RDP_FUL_RK4
1405 : use pm_kind, only: TKC => RK4
1406 : #include "pm_distanceEuclid@routines.inc.F90"
1407 : end procedure
1408 : #endif
1409 :
1410 : #if RK3_ENABLED
1411 0 : module procedure getDME_RDP_FUL_RK3
1412 : use pm_kind, only: TKC => RK3
1413 : #include "pm_distanceEuclid@routines.inc.F90"
1414 : end procedure
1415 : #endif
1416 :
1417 : #if RK2_ENABLED
1418 0 : module procedure getDME_RDP_FUL_RK2
1419 : use pm_kind, only: TKC => RK2
1420 : #include "pm_distanceEuclid@routines.inc.F90"
1421 : end procedure
1422 : #endif
1423 :
1424 : #if RK1_ENABLED
1425 30 : module procedure getDME_RDP_FUL_RK1
1426 : use pm_kind, only: TKC => RK1
1427 : #include "pm_distanceEuclid@routines.inc.F90"
1428 : end procedure
1429 : #endif
1430 :
1431 : #undef RK_ENABLED
1432 :
1433 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1434 :
1435 : #undef FUL_ENABLED
1436 :
1437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1440 :
1441 : #define ULD_ENABLED 1
1442 :
1443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1444 :
1445 : #define RK_ENABLED 1
1446 :
1447 : #if RK5_ENABLED
1448 : module procedure getDME_RDP_ULD_RK5
1449 : use pm_kind, only: TKC => RK5
1450 : #include "pm_distanceEuclid@routines.inc.F90"
1451 : end procedure
1452 : #endif
1453 :
1454 : #if RK4_ENABLED
1455 1200 : module procedure getDME_RDP_ULD_RK4
1456 : use pm_kind, only: TKC => RK4
1457 : #include "pm_distanceEuclid@routines.inc.F90"
1458 : end procedure
1459 : #endif
1460 :
1461 : #if RK3_ENABLED
1462 1200 : module procedure getDME_RDP_ULD_RK3
1463 : use pm_kind, only: TKC => RK3
1464 : #include "pm_distanceEuclid@routines.inc.F90"
1465 : end procedure
1466 : #endif
1467 :
1468 : #if RK2_ENABLED
1469 1200 : module procedure getDME_RDP_ULD_RK2
1470 : use pm_kind, only: TKC => RK2
1471 : #include "pm_distanceEuclid@routines.inc.F90"
1472 : end procedure
1473 : #endif
1474 :
1475 : #if RK1_ENABLED
1476 1200 : module procedure getDME_RDP_ULD_RK1
1477 : use pm_kind, only: TKC => RK1
1478 : #include "pm_distanceEuclid@routines.inc.F90"
1479 : end procedure
1480 : #endif
1481 :
1482 : #undef RK_ENABLED
1483 :
1484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1485 :
1486 : #undef ULD_ENABLED
1487 :
1488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1489 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1490 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1491 :
1492 : #define ULX_ENABLED 1
1493 :
1494 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1495 :
1496 : #define RK_ENABLED 1
1497 :
1498 : #if RK5_ENABLED
1499 : module procedure getDME_RDP_ULX_RK5
1500 : use pm_kind, only: TKC => RK5
1501 : #include "pm_distanceEuclid@routines.inc.F90"
1502 : end procedure
1503 : #endif
1504 :
1505 : #if RK4_ENABLED
1506 1200 : module procedure getDME_RDP_ULX_RK4
1507 : use pm_kind, only: TKC => RK4
1508 : #include "pm_distanceEuclid@routines.inc.F90"
1509 : end procedure
1510 : #endif
1511 :
1512 : #if RK3_ENABLED
1513 1200 : module procedure getDME_RDP_ULX_RK3
1514 : use pm_kind, only: TKC => RK3
1515 : #include "pm_distanceEuclid@routines.inc.F90"
1516 : end procedure
1517 : #endif
1518 :
1519 : #if RK2_ENABLED
1520 1200 : module procedure getDME_RDP_ULX_RK2
1521 : use pm_kind, only: TKC => RK2
1522 : #include "pm_distanceEuclid@routines.inc.F90"
1523 : end procedure
1524 : #endif
1525 :
1526 : #if RK1_ENABLED
1527 1230 : module procedure getDME_RDP_ULX_RK1
1528 : use pm_kind, only: TKC => RK1
1529 : #include "pm_distanceEuclid@routines.inc.F90"
1530 : end procedure
1531 : #endif
1532 :
1533 : #undef RK_ENABLED
1534 :
1535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1536 :
1537 : #undef ULX_ENABLED
1538 :
1539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1541 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1542 :
1543 : #undef RDP_ENABLED
1544 :
1545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1547 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1548 :
1549 : #undef getDisMatEuclid_ENABLED
1550 :
1551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1552 :
1553 : #define setDisMatEuclid_ENABLED 1
1554 :
1555 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1557 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1558 :
1559 : #define MED_ENABLED 1
1560 :
1561 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1563 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1564 :
1565 : #define RDP_ENABLED 1
1566 :
1567 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1568 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1569 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1570 :
1571 : #define ULD_ENABLED 1
1572 :
1573 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1574 :
1575 : #define RK_ENABLED 1
1576 :
1577 : #if RK5_ENABLED
1578 : module procedure setDME_MED_RDP_ULD_RK5
1579 : use pm_kind, only: TKC => RK5
1580 : #include "pm_distanceEuclid@routines.inc.F90"
1581 : end procedure
1582 : #endif
1583 :
1584 : #if RK4_ENABLED
1585 900 : module procedure setDME_MED_RDP_ULD_RK4
1586 : use pm_kind, only: TKC => RK4
1587 : #include "pm_distanceEuclid@routines.inc.F90"
1588 900 : end procedure
1589 : #endif
1590 :
1591 : #if RK3_ENABLED
1592 900 : module procedure setDME_MED_RDP_ULD_RK3
1593 : use pm_kind, only: TKC => RK3
1594 : #include "pm_distanceEuclid@routines.inc.F90"
1595 900 : end procedure
1596 : #endif
1597 :
1598 : #if RK2_ENABLED
1599 900 : module procedure setDME_MED_RDP_ULD_RK2
1600 : use pm_kind, only: TKC => RK2
1601 : #include "pm_distanceEuclid@routines.inc.F90"
1602 900 : end procedure
1603 : #endif
1604 :
1605 : #if RK1_ENABLED
1606 925 : module procedure setDME_MED_RDP_ULD_RK1
1607 : use pm_kind, only: TKC => RK1
1608 : #include "pm_distanceEuclid@routines.inc.F90"
1609 925 : end procedure
1610 : #endif
1611 :
1612 : #undef RK_ENABLED
1613 :
1614 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1615 :
1616 : #undef ULD_ENABLED
1617 :
1618 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1619 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1620 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1621 :
1622 : #define ULX_ENABLED 1
1623 :
1624 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1625 :
1626 : #define RK_ENABLED 1
1627 :
1628 : #if RK5_ENABLED
1629 : module procedure setDME_MED_RDP_ULX_RK5
1630 : use pm_kind, only: TKC => RK5
1631 : #include "pm_distanceEuclid@routines.inc.F90"
1632 : end procedure
1633 : #endif
1634 :
1635 : #if RK4_ENABLED
1636 900 : module procedure setDME_MED_RDP_ULX_RK4
1637 : use pm_kind, only: TKC => RK4
1638 : #include "pm_distanceEuclid@routines.inc.F90"
1639 900 : end procedure
1640 : #endif
1641 :
1642 : #if RK3_ENABLED
1643 900 : module procedure setDME_MED_RDP_ULX_RK3
1644 : use pm_kind, only: TKC => RK3
1645 : #include "pm_distanceEuclid@routines.inc.F90"
1646 900 : end procedure
1647 : #endif
1648 :
1649 : #if RK2_ENABLED
1650 900 : module procedure setDME_MED_RDP_ULX_RK2
1651 : use pm_kind, only: TKC => RK2
1652 : #include "pm_distanceEuclid@routines.inc.F90"
1653 900 : end procedure
1654 : #endif
1655 :
1656 : #if RK1_ENABLED
1657 925 : module procedure setDME_MED_RDP_ULX_RK1
1658 : use pm_kind, only: TKC => RK1
1659 : #include "pm_distanceEuclid@routines.inc.F90"
1660 925 : end procedure
1661 : #endif
1662 :
1663 : #undef RK_ENABLED
1664 :
1665 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1666 :
1667 : #undef ULX_ENABLED
1668 :
1669 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1670 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1671 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1672 :
1673 : #undef RDP_ENABLED
1674 :
1675 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1676 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1677 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1678 :
1679 : #undef MED_ENABLED
1680 :
1681 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1682 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1683 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1684 :
1685 : #define MEU_ENABLED 1
1686 :
1687 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1688 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1689 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1690 :
1691 : #define RDP_ENABLED 1
1692 :
1693 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1694 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1695 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1696 :
1697 : #define ULD_ENABLED 1
1698 :
1699 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1700 :
1701 : #define RK_ENABLED 1
1702 :
1703 : #if RK5_ENABLED
1704 : module procedure setDME_MEU_RDP_ULD_RK5
1705 : use pm_kind, only: TKC => RK5
1706 : #include "pm_distanceEuclid@routines.inc.F90"
1707 : end procedure
1708 : #endif
1709 :
1710 : #if RK4_ENABLED
1711 900 : module procedure setDME_MEU_RDP_ULD_RK4
1712 : use pm_kind, only: TKC => RK4
1713 : #include "pm_distanceEuclid@routines.inc.F90"
1714 900 : end procedure
1715 : #endif
1716 :
1717 : #if RK3_ENABLED
1718 900 : module procedure setDME_MEU_RDP_ULD_RK3
1719 : use pm_kind, only: TKC => RK3
1720 : #include "pm_distanceEuclid@routines.inc.F90"
1721 900 : end procedure
1722 : #endif
1723 :
1724 : #if RK2_ENABLED
1725 900 : module procedure setDME_MEU_RDP_ULD_RK2
1726 : use pm_kind, only: TKC => RK2
1727 : #include "pm_distanceEuclid@routines.inc.F90"
1728 900 : end procedure
1729 : #endif
1730 :
1731 : #if RK1_ENABLED
1732 910 : module procedure setDME_MEU_RDP_ULD_RK1
1733 : use pm_kind, only: TKC => RK1
1734 : #include "pm_distanceEuclid@routines.inc.F90"
1735 910 : end procedure
1736 : #endif
1737 :
1738 : #undef RK_ENABLED
1739 :
1740 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1741 :
1742 : #undef ULD_ENABLED
1743 :
1744 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1745 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1746 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1747 :
1748 : #define ULX_ENABLED 1
1749 :
1750 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1751 :
1752 : #define RK_ENABLED 1
1753 :
1754 : #if RK5_ENABLED
1755 : module procedure setDME_MEU_RDP_ULX_RK5
1756 : use pm_kind, only: TKC => RK5
1757 : #include "pm_distanceEuclid@routines.inc.F90"
1758 : end procedure
1759 : #endif
1760 :
1761 : #if RK4_ENABLED
1762 900 : module procedure setDME_MEU_RDP_ULX_RK4
1763 : use pm_kind, only: TKC => RK4
1764 : #include "pm_distanceEuclid@routines.inc.F90"
1765 900 : end procedure
1766 : #endif
1767 :
1768 : #if RK3_ENABLED
1769 900 : module procedure setDME_MEU_RDP_ULX_RK3
1770 : use pm_kind, only: TKC => RK3
1771 : #include "pm_distanceEuclid@routines.inc.F90"
1772 900 : end procedure
1773 : #endif
1774 :
1775 : #if RK2_ENABLED
1776 900 : module procedure setDME_MEU_RDP_ULX_RK2
1777 : use pm_kind, only: TKC => RK2
1778 : #include "pm_distanceEuclid@routines.inc.F90"
1779 900 : end procedure
1780 : #endif
1781 :
1782 : #if RK1_ENABLED
1783 900 : module procedure setDME_MEU_RDP_ULX_RK1
1784 : use pm_kind, only: TKC => RK1
1785 : #include "pm_distanceEuclid@routines.inc.F90"
1786 900 : end procedure
1787 : #endif
1788 :
1789 : #undef RK_ENABLED
1790 :
1791 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1792 :
1793 : #undef ULX_ENABLED
1794 :
1795 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1796 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1797 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1798 :
1799 : #undef RDP_ENABLED
1800 :
1801 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1802 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1803 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1804 :
1805 : #undef MEU_ENABLED
1806 :
1807 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1808 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1809 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1810 :
1811 : #define MEQ_ENABLED 1
1812 :
1813 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1814 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1815 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1816 :
1817 : #define RDP_ENABLED 1
1818 :
1819 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1820 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1821 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1822 :
1823 : #define ULD_ENABLED 1
1824 :
1825 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1826 :
1827 : #define RK_ENABLED 1
1828 :
1829 : #if RK5_ENABLED
1830 : module procedure setDME_MEQ_RDP_ULD_RK5
1831 : use pm_kind, only: TKC => RK5
1832 : #include "pm_distanceEuclid@routines.inc.F90"
1833 : end procedure
1834 : #endif
1835 :
1836 : #if RK4_ENABLED
1837 900 : module procedure setDME_MEQ_RDP_ULD_RK4
1838 : use pm_kind, only: TKC => RK4
1839 : #include "pm_distanceEuclid@routines.inc.F90"
1840 900 : end procedure
1841 : #endif
1842 :
1843 : #if RK3_ENABLED
1844 900 : module procedure setDME_MEQ_RDP_ULD_RK3
1845 : use pm_kind, only: TKC => RK3
1846 : #include "pm_distanceEuclid@routines.inc.F90"
1847 900 : end procedure
1848 : #endif
1849 :
1850 : #if RK2_ENABLED
1851 900 : module procedure setDME_MEQ_RDP_ULD_RK2
1852 : use pm_kind, only: TKC => RK2
1853 : #include "pm_distanceEuclid@routines.inc.F90"
1854 900 : end procedure
1855 : #endif
1856 :
1857 : #if RK1_ENABLED
1858 910 : module procedure setDME_MEQ_RDP_ULD_RK1
1859 : use pm_kind, only: TKC => RK1
1860 : #include "pm_distanceEuclid@routines.inc.F90"
1861 910 : end procedure
1862 : #endif
1863 :
1864 : #undef RK_ENABLED
1865 :
1866 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1867 :
1868 : #undef ULD_ENABLED
1869 :
1870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1871 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1872 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1873 :
1874 : #define ULX_ENABLED 1
1875 :
1876 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1877 :
1878 : #define RK_ENABLED 1
1879 :
1880 : #if RK5_ENABLED
1881 : module procedure setDME_MEQ_RDP_ULX_RK5
1882 : use pm_kind, only: TKC => RK5
1883 : #include "pm_distanceEuclid@routines.inc.F90"
1884 : end procedure
1885 : #endif
1886 :
1887 : #if RK4_ENABLED
1888 900 : module procedure setDME_MEQ_RDP_ULX_RK4
1889 : use pm_kind, only: TKC => RK4
1890 : #include "pm_distanceEuclid@routines.inc.F90"
1891 900 : end procedure
1892 : #endif
1893 :
1894 : #if RK3_ENABLED
1895 900 : module procedure setDME_MEQ_RDP_ULX_RK3
1896 : use pm_kind, only: TKC => RK3
1897 : #include "pm_distanceEuclid@routines.inc.F90"
1898 900 : end procedure
1899 : #endif
1900 :
1901 : #if RK2_ENABLED
1902 900 : module procedure setDME_MEQ_RDP_ULX_RK2
1903 : use pm_kind, only: TKC => RK2
1904 : #include "pm_distanceEuclid@routines.inc.F90"
1905 900 : end procedure
1906 : #endif
1907 :
1908 : #if RK1_ENABLED
1909 920 : module procedure setDME_MEQ_RDP_ULX_RK1
1910 : use pm_kind, only: TKC => RK1
1911 : #include "pm_distanceEuclid@routines.inc.F90"
1912 920 : end procedure
1913 : #endif
1914 :
1915 : #undef RK_ENABLED
1916 :
1917 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1918 :
1919 : #undef ULX_ENABLED
1920 :
1921 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1922 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1923 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1924 :
1925 : #undef RDP_ENABLED
1926 :
1927 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1928 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1929 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1930 :
1931 : #undef MEQ_ENABLED
1932 :
1933 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1934 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1935 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1936 :
1937 : #undef setDisMatEuclid_ENABLED
1938 :
1939 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1940 :
1941 : #undef CHECK_ASSERTION
1942 :
1943 38217 : end submodule routines
|
