ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_arrayRebind.F90
Go to the documentation of this file.
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
61
62!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63
64module pm_arrayRebind
65
66 use pm_kind, only: SK, IK, LK
67
68 implicit none
69
70 character(*,SK), parameter :: MODULE_NAME = "@pm_arrayRebind"
71
72!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
73
218 interface setRebound
219
220 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
221 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
223
224 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
226 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
227
228 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229
230#if SK5_ENABLED
231 PURE module subroutine setReboundSDDD_D1_SK5(array, lb, ub, failed, errmsg)
232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
233 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_SK5
234#endif
235 use pm_kind, only: SKG => SK5
236 character(*,SKG) , intent(inout) , allocatable :: array(:)
237 integer(IK) , intent(in) :: lb, ub
238 character(*, SK) , intent(out) , optional :: errmsg
239 logical(LK) , intent(out) , optional :: failed
240 end subroutine
241#endif
242
243#if SK4_ENABLED
244 PURE module subroutine setReboundSDDD_D1_SK4(array, lb, ub, failed, errmsg)
245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
246 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_SK4
247#endif
248 use pm_kind, only: SKG => SK4
249 character(*,SKG) , intent(inout) , allocatable :: array(:)
250 integer(IK) , intent(in) :: lb, ub
251 character(*, SK) , intent(out) , optional :: errmsg
252 logical(LK) , intent(out) , optional :: failed
253 end subroutine
254#endif
255
256#if SK3_ENABLED
257 PURE module subroutine setReboundSDDD_D1_SK3(array, lb, ub, failed, errmsg)
258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
259 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_SK3
260#endif
261 use pm_kind, only: SKG => SK3
262 character(*,SKG) , intent(inout) , allocatable :: array(:)
263 integer(IK) , intent(in) :: lb, ub
264 character(*, SK) , intent(out) , optional :: errmsg
265 logical(LK) , intent(out) , optional :: failed
266 end subroutine
267#endif
268
269#if SK2_ENABLED
270 PURE module subroutine setReboundSDDD_D1_SK2(array, lb, ub, failed, errmsg)
271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
272 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_SK2
273#endif
274 use pm_kind, only: SKG => SK2
275 character(*,SKG) , intent(inout) , allocatable :: array(:)
276 integer(IK) , intent(in) :: lb, ub
277 character(*, SK) , intent(out) , optional :: errmsg
278 logical(LK) , intent(out) , optional :: failed
279 end subroutine
280#endif
281
282#if SK1_ENABLED
283 PURE module subroutine setReboundSDDD_D1_SK1(array, lb, ub, failed, errmsg)
284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
285 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_SK1
286#endif
287 use pm_kind, only: SKG => SK1
288 character(*,SKG) , intent(inout) , allocatable :: array(:)
289 integer(IK) , intent(in) :: lb, ub
290 character(*, SK) , intent(out) , optional :: errmsg
291 logical(LK) , intent(out) , optional :: failed
292 end subroutine
293#endif
294
295 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
296
297#if IK5_ENABLED
298 PURE module subroutine setReboundSDDD_D1_IK5(array, lb, ub, failed, errmsg)
299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
300 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_IK5
301#endif
302 use pm_kind, only: IKG => IK5
303 integer(IKG) , intent(inout) , allocatable :: array(:)
304 integer(IK) , intent(in) :: lb, ub
305 character(*, SK) , intent(out) , optional :: errmsg
306 logical(LK) , intent(out) , optional :: failed
307 end subroutine
308#endif
309
310#if IK4_ENABLED
311 PURE module subroutine setReboundSDDD_D1_IK4(array, lb, ub, failed, errmsg)
312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
313 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_IK4
314#endif
315 use pm_kind, only: IKG => IK4
316 integer(IKG) , intent(inout) , allocatable :: array(:)
317 integer(IK) , intent(in) :: lb, ub
318 character(*, SK) , intent(out) , optional :: errmsg
319 logical(LK) , intent(out) , optional :: failed
320 end subroutine
321#endif
322
323#if IK3_ENABLED
324 PURE module subroutine setReboundSDDD_D1_IK3(array, lb, ub, failed, errmsg)
325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
326 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_IK3
327#endif
328 use pm_kind, only: IKG => IK3
329 integer(IKG) , intent(inout) , allocatable :: array(:)
330 integer(IK) , intent(in) :: lb, ub
331 character(*, SK) , intent(out) , optional :: errmsg
332 logical(LK) , intent(out) , optional :: failed
333 end subroutine
334#endif
335
336#if IK2_ENABLED
337 PURE module subroutine setReboundSDDD_D1_IK2(array, lb, ub, failed, errmsg)
338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
339 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_IK2
340#endif
341 use pm_kind, only: IKG => IK2
342 integer(IKG) , intent(inout) , allocatable :: array(:)
343 integer(IK) , intent(in) :: lb, ub
344 character(*, SK) , intent(out) , optional :: errmsg
345 logical(LK) , intent(out) , optional :: failed
346 end subroutine
347#endif
348
349#if IK1_ENABLED
350 PURE module subroutine setReboundSDDD_D1_IK1(array, lb, ub, failed, errmsg)
351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
352 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_IK1
353#endif
354 use pm_kind, only: IKG => IK1
355 integer(IKG) , intent(inout) , allocatable :: array(:)
356 integer(IK) , intent(in) :: lb, ub
357 character(*, SK) , intent(out) , optional :: errmsg
358 logical(LK) , intent(out) , optional :: failed
359 end subroutine
360#endif
361
362 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
363
364#if LK5_ENABLED
365 PURE module subroutine setReboundSDDD_D1_LK5(array, lb, ub, failed, errmsg)
366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
367 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_LK5
368#endif
369 use pm_kind, only: LKG => LK5
370 logical(LKG) , intent(inout) , allocatable :: array(:)
371 integer(IK) , intent(in) :: lb, ub
372 character(*, SK) , intent(out) , optional :: errmsg
373 logical(LK) , intent(out) , optional :: failed
374 end subroutine
375#endif
376
377#if LK4_ENABLED
378 PURE module subroutine setReboundSDDD_D1_LK4(array, lb, ub, failed, errmsg)
379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
380 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_LK4
381#endif
382 use pm_kind, only: LKG => LK4
383 logical(LKG) , intent(inout) , allocatable :: array(:)
384 integer(IK) , intent(in) :: lb, ub
385 character(*, SK) , intent(out) , optional :: errmsg
386 logical(LK) , intent(out) , optional :: failed
387 end subroutine
388#endif
389
390#if LK3_ENABLED
391 PURE module subroutine setReboundSDDD_D1_LK3(array, lb, ub, failed, errmsg)
392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
393 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_LK3
394#endif
395 use pm_kind, only: LKG => LK3
396 logical(LKG) , intent(inout) , allocatable :: array(:)
397 integer(IK) , intent(in) :: lb, ub
398 character(*, SK) , intent(out) , optional :: errmsg
399 logical(LK) , intent(out) , optional :: failed
400 end subroutine
401#endif
402
403#if LK2_ENABLED
404 PURE module subroutine setReboundSDDD_D1_LK2(array, lb, ub, failed, errmsg)
405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
406 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_LK2
407#endif
408 use pm_kind, only: LKG => LK2
409 logical(LKG) , intent(inout) , allocatable :: array(:)
410 integer(IK) , intent(in) :: lb, ub
411 character(*, SK) , intent(out) , optional :: errmsg
412 logical(LK) , intent(out) , optional :: failed
413 end subroutine
414#endif
415
416#if LK1_ENABLED
417 PURE module subroutine setReboundSDDD_D1_LK1(array, lb, ub, failed, errmsg)
418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
419 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_LK1
420#endif
421 use pm_kind, only: LKG => LK1
422 logical(LKG) , intent(inout) , allocatable :: array(:)
423 integer(IK) , intent(in) :: lb, ub
424 character(*, SK) , intent(out) , optional :: errmsg
425 logical(LK) , intent(out) , optional :: failed
426 end subroutine
427#endif
428
429 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
430
431#if CK5_ENABLED
432 PURE module subroutine setReboundSDDD_D1_CK5(array, lb, ub, failed, errmsg)
433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
434 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_CK5
435#endif
436 use pm_kind, only: CKG => CK5
437 complex(CKG) , intent(inout) , allocatable :: array(:)
438 integer(IK) , intent(in) :: lb, ub
439 character(*, SK) , intent(out) , optional :: errmsg
440 logical(LK) , intent(out) , optional :: failed
441 end subroutine
442#endif
443
444#if CK4_ENABLED
445 PURE module subroutine setReboundSDDD_D1_CK4(array, lb, ub, failed, errmsg)
446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
447 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_CK4
448#endif
449 use pm_kind, only: CKG => CK4
450 complex(CKG) , intent(inout) , allocatable :: array(:)
451 integer(IK) , intent(in) :: lb, ub
452 character(*, SK) , intent(out) , optional :: errmsg
453 logical(LK) , intent(out) , optional :: failed
454 end subroutine
455#endif
456
457#if CK3_ENABLED
458 PURE module subroutine setReboundSDDD_D1_CK3(array, lb, ub, failed, errmsg)
459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
460 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_CK3
461#endif
462 use pm_kind, only: CKG => CK3
463 complex(CKG) , intent(inout) , allocatable :: array(:)
464 integer(IK) , intent(in) :: lb, ub
465 character(*, SK) , intent(out) , optional :: errmsg
466 logical(LK) , intent(out) , optional :: failed
467 end subroutine
468#endif
469
470#if CK2_ENABLED
471 PURE module subroutine setReboundSDDD_D1_CK2(array, lb, ub, failed, errmsg)
472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
473 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_CK2
474#endif
475 use pm_kind, only: CKG => CK2
476 complex(CKG) , intent(inout) , allocatable :: array(:)
477 integer(IK) , intent(in) :: lb, ub
478 character(*, SK) , intent(out) , optional :: errmsg
479 logical(LK) , intent(out) , optional :: failed
480 end subroutine
481#endif
482
483#if CK1_ENABLED
484 PURE module subroutine setReboundSDDD_D1_CK1(array, lb, ub, failed, errmsg)
485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
486 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_CK1
487#endif
488 use pm_kind, only: CKG => CK1
489 complex(CKG) , intent(inout) , allocatable :: array(:)
490 integer(IK) , intent(in) :: lb, ub
491 character(*, SK) , intent(out) , optional :: errmsg
492 logical(LK) , intent(out) , optional :: failed
493 end subroutine
494#endif
495
496 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
497
498#if RK5_ENABLED
499 PURE module subroutine setReboundSDDD_D1_RK5(array, lb, ub, failed, errmsg)
500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
501 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_RK5
502#endif
503 use pm_kind, only: RKG => RK5
504 real(RKG) , intent(inout) , allocatable :: array(:)
505 integer(IK) , intent(in) :: lb, ub
506 character(*, SK) , intent(out) , optional :: errmsg
507 logical(LK) , intent(out) , optional :: failed
508 end subroutine
509#endif
510
511#if RK4_ENABLED
512 PURE module subroutine setReboundSDDD_D1_RK4(array, lb, ub, failed, errmsg)
513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
514 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_RK4
515#endif
516 use pm_kind, only: RKG => RK4
517 real(RKG) , intent(inout) , allocatable :: array(:)
518 integer(IK) , intent(in) :: lb, ub
519 character(*, SK) , intent(out) , optional :: errmsg
520 logical(LK) , intent(out) , optional :: failed
521 end subroutine
522#endif
523
524#if RK3_ENABLED
525 PURE module subroutine setReboundSDDD_D1_RK3(array, lb, ub, failed, errmsg)
526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
527 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_RK3
528#endif
529 use pm_kind, only: RKG => RK3
530 real(RKG) , intent(inout) , allocatable :: array(:)
531 integer(IK) , intent(in) :: lb, ub
532 character(*, SK) , intent(out) , optional :: errmsg
533 logical(LK) , intent(out) , optional :: failed
534 end subroutine
535#endif
536
537#if RK2_ENABLED
538 PURE module subroutine setReboundSDDD_D1_RK2(array, lb, ub, failed, errmsg)
539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
540 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_RK2
541#endif
542 use pm_kind, only: RKG => RK2
543 real(RKG) , intent(inout) , allocatable :: array(:)
544 integer(IK) , intent(in) :: lb, ub
545 character(*, SK) , intent(out) , optional :: errmsg
546 logical(LK) , intent(out) , optional :: failed
547 end subroutine
548#endif
549
550#if RK1_ENABLED
551 PURE module subroutine setReboundSDDD_D1_RK1(array, lb, ub, failed, errmsg)
552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
553 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D1_RK1
554#endif
555 use pm_kind, only: RKG => RK1
556 real(RKG) , intent(inout) , allocatable :: array(:)
557 integer(IK) , intent(in) :: lb, ub
558 character(*, SK) , intent(out) , optional :: errmsg
559 logical(LK) , intent(out) , optional :: failed
560 end subroutine
561#endif
562
563 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
564
565 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
566 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
567 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
568
569 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
570
571#if SK5_ENABLED
572 PURE module subroutine setReboundSDDD_D2_SK5(array, lb, ub, failed, errmsg)
573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
574 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_SK5
575#endif
576 use pm_kind, only: SKG => SK5
577 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
578 integer(IK) , intent(in) , dimension(2) :: lb, ub
579 character(*, SK) , intent(out) , optional :: errmsg
580 logical(LK) , intent(out) , optional :: failed
581 end subroutine
582#endif
583
584#if SK4_ENABLED
585 PURE module subroutine setReboundSDDD_D2_SK4(array, lb, ub, failed, errmsg)
586#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
587 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_SK4
588#endif
589 use pm_kind, only: SKG => SK4
590 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
591 integer(IK) , intent(in) , dimension(2) :: lb, ub
592 character(*, SK) , intent(out) , optional :: errmsg
593 logical(LK) , intent(out) , optional :: failed
594 end subroutine
595#endif
596
597#if SK3_ENABLED
598 PURE module subroutine setReboundSDDD_D2_SK3(array, lb, ub, failed, errmsg)
599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
600 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_SK3
601#endif
602 use pm_kind, only: SKG => SK3
603 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
604 integer(IK) , intent(in) , dimension(2) :: lb, ub
605 character(*, SK) , intent(out) , optional :: errmsg
606 logical(LK) , intent(out) , optional :: failed
607 end subroutine
608#endif
609
610#if SK2_ENABLED
611 PURE module subroutine setReboundSDDD_D2_SK2(array, lb, ub, failed, errmsg)
612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
613 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_SK2
614#endif
615 use pm_kind, only: SKG => SK2
616 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
617 integer(IK) , intent(in) , dimension(2) :: lb, ub
618 character(*, SK) , intent(out) , optional :: errmsg
619 logical(LK) , intent(out) , optional :: failed
620 end subroutine
621#endif
622
623#if SK1_ENABLED
624 PURE module subroutine setReboundSDDD_D2_SK1(array, lb, ub, failed, errmsg)
625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
626 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_SK1
627#endif
628 use pm_kind, only: SKG => SK1
629 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
630 integer(IK) , intent(in) , dimension(2) :: lb, ub
631 character(*, SK) , intent(out) , optional :: errmsg
632 logical(LK) , intent(out) , optional :: failed
633 end subroutine
634#endif
635
636 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
637
638#if IK5_ENABLED
639 PURE module subroutine setReboundSDDD_D2_IK5(array, lb, ub, failed, errmsg)
640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
641 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_IK5
642#endif
643 use pm_kind, only: IKG => IK5
644 integer(IKG) , intent(inout) , allocatable :: array(:,:)
645 integer(IK) , intent(in) , dimension(2) :: lb, ub
646 character(*, SK) , intent(out) , optional :: errmsg
647 logical(LK) , intent(out) , optional :: failed
648 end subroutine
649#endif
650
651#if IK4_ENABLED
652 PURE module subroutine setReboundSDDD_D2_IK4(array, lb, ub, failed, errmsg)
653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
654 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_IK4
655#endif
656 use pm_kind, only: IKG => IK4
657 integer(IKG) , intent(inout) , allocatable :: array(:,:)
658 integer(IK) , intent(in) , dimension(2) :: lb, ub
659 character(*, SK) , intent(out) , optional :: errmsg
660 logical(LK) , intent(out) , optional :: failed
661 end subroutine
662#endif
663
664#if IK3_ENABLED
665 PURE module subroutine setReboundSDDD_D2_IK3(array, lb, ub, failed, errmsg)
666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
667 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_IK3
668#endif
669 use pm_kind, only: IKG => IK3
670 integer(IKG) , intent(inout) , allocatable :: array(:,:)
671 integer(IK) , intent(in) , dimension(2) :: lb, ub
672 character(*, SK) , intent(out) , optional :: errmsg
673 logical(LK) , intent(out) , optional :: failed
674 end subroutine
675#endif
676
677#if IK2_ENABLED
678 PURE module subroutine setReboundSDDD_D2_IK2(array, lb, ub, failed, errmsg)
679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
680 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_IK2
681#endif
682 use pm_kind, only: IKG => IK2
683 integer(IKG) , intent(inout) , allocatable :: array(:,:)
684 integer(IK) , intent(in) , dimension(2) :: lb, ub
685 character(*, SK) , intent(out) , optional :: errmsg
686 logical(LK) , intent(out) , optional :: failed
687 end subroutine
688#endif
689
690#if IK1_ENABLED
691 PURE module subroutine setReboundSDDD_D2_IK1(array, lb, ub, failed, errmsg)
692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
693 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_IK1
694#endif
695 use pm_kind, only: IKG => IK1
696 integer(IKG) , intent(inout) , allocatable :: array(:,:)
697 integer(IK) , intent(in) , dimension(2) :: lb, ub
698 character(*, SK) , intent(out) , optional :: errmsg
699 logical(LK) , intent(out) , optional :: failed
700 end subroutine
701#endif
702
703 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
704
705#if LK5_ENABLED
706 PURE module subroutine setReboundSDDD_D2_LK5(array, lb, ub, failed, errmsg)
707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
708 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_LK5
709#endif
710 use pm_kind, only: LKG => LK5
711 logical(LKG) , intent(inout) , allocatable :: array(:,:)
712 integer(IK) , intent(in) , dimension(2) :: lb, ub
713 character(*, SK) , intent(out) , optional :: errmsg
714 logical(LK) , intent(out) , optional :: failed
715 end subroutine
716#endif
717
718#if LK4_ENABLED
719 PURE module subroutine setReboundSDDD_D2_LK4(array, lb, ub, failed, errmsg)
720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
721 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_LK4
722#endif
723 use pm_kind, only: LKG => LK4
724 logical(LKG) , intent(inout) , allocatable :: array(:,:)
725 integer(IK) , intent(in) , dimension(2) :: lb, ub
726 character(*, SK) , intent(out) , optional :: errmsg
727 logical(LK) , intent(out) , optional :: failed
728 end subroutine
729#endif
730
731#if LK3_ENABLED
732 PURE module subroutine setReboundSDDD_D2_LK3(array, lb, ub, failed, errmsg)
733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
734 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_LK3
735#endif
736 use pm_kind, only: LKG => LK3
737 logical(LKG) , intent(inout) , allocatable :: array(:,:)
738 integer(IK) , intent(in) , dimension(2) :: lb, ub
739 character(*, SK) , intent(out) , optional :: errmsg
740 logical(LK) , intent(out) , optional :: failed
741 end subroutine
742#endif
743
744#if LK2_ENABLED
745 PURE module subroutine setReboundSDDD_D2_LK2(array, lb, ub, failed, errmsg)
746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
747 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_LK2
748#endif
749 use pm_kind, only: LKG => LK2
750 logical(LKG) , intent(inout) , allocatable :: array(:,:)
751 integer(IK) , intent(in) , dimension(2) :: lb, ub
752 character(*, SK) , intent(out) , optional :: errmsg
753 logical(LK) , intent(out) , optional :: failed
754 end subroutine
755#endif
756
757#if LK1_ENABLED
758 PURE module subroutine setReboundSDDD_D2_LK1(array, lb, ub, failed, errmsg)
759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
760 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_LK1
761#endif
762 use pm_kind, only: LKG => LK1
763 logical(LKG) , intent(inout) , allocatable :: array(:,:)
764 integer(IK) , intent(in) , dimension(2) :: lb, ub
765 character(*, SK) , intent(out) , optional :: errmsg
766 logical(LK) , intent(out) , optional :: failed
767 end subroutine
768#endif
769
770 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
771
772#if CK5_ENABLED
773 PURE module subroutine setReboundSDDD_D2_CK5(array, lb, ub, failed, errmsg)
774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
775 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_CK5
776#endif
777 use pm_kind, only: CKG => CK5
778 complex(CKG) , intent(inout) , allocatable :: array(:,:)
779 integer(IK) , intent(in) , dimension(2) :: lb, ub
780 character(*, SK) , intent(out) , optional :: errmsg
781 logical(LK) , intent(out) , optional :: failed
782 end subroutine
783#endif
784
785#if CK4_ENABLED
786 PURE module subroutine setReboundSDDD_D2_CK4(array, lb, ub, failed, errmsg)
787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
788 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_CK4
789#endif
790 use pm_kind, only: CKG => CK4
791 complex(CKG) , intent(inout) , allocatable :: array(:,:)
792 integer(IK) , intent(in) , dimension(2) :: lb, ub
793 character(*, SK) , intent(out) , optional :: errmsg
794 logical(LK) , intent(out) , optional :: failed
795 end subroutine
796#endif
797
798#if CK3_ENABLED
799 PURE module subroutine setReboundSDDD_D2_CK3(array, lb, ub, failed, errmsg)
800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
801 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_CK3
802#endif
803 use pm_kind, only: CKG => CK3
804 complex(CKG) , intent(inout) , allocatable :: array(:,:)
805 integer(IK) , intent(in) , dimension(2) :: lb, ub
806 character(*, SK) , intent(out) , optional :: errmsg
807 logical(LK) , intent(out) , optional :: failed
808 end subroutine
809#endif
810
811#if CK2_ENABLED
812 PURE module subroutine setReboundSDDD_D2_CK2(array, lb, ub, failed, errmsg)
813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
814 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_CK2
815#endif
816 use pm_kind, only: CKG => CK2
817 complex(CKG) , intent(inout) , allocatable :: array(:,:)
818 integer(IK) , intent(in) , dimension(2) :: lb, ub
819 character(*, SK) , intent(out) , optional :: errmsg
820 logical(LK) , intent(out) , optional :: failed
821 end subroutine
822#endif
823
824#if CK1_ENABLED
825 PURE module subroutine setReboundSDDD_D2_CK1(array, lb, ub, failed, errmsg)
826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
827 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_CK1
828#endif
829 use pm_kind, only: CKG => CK1
830 complex(CKG) , intent(inout) , allocatable :: array(:,:)
831 integer(IK) , intent(in) , dimension(2) :: lb, ub
832 character(*, SK) , intent(out) , optional :: errmsg
833 logical(LK) , intent(out) , optional :: failed
834 end subroutine
835#endif
836
837 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
838
839#if RK5_ENABLED
840 PURE module subroutine setReboundSDDD_D2_RK5(array, lb, ub, failed, errmsg)
841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
842 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_RK5
843#endif
844 use pm_kind, only: RKG => RK5
845 real(RKG) , intent(inout) , allocatable :: array(:,:)
846 integer(IK) , intent(in) , dimension(2) :: lb, ub
847 character(*, SK) , intent(out) , optional :: errmsg
848 logical(LK) , intent(out) , optional :: failed
849 end subroutine
850#endif
851
852#if RK4_ENABLED
853 PURE module subroutine setReboundSDDD_D2_RK4(array, lb, ub, failed, errmsg)
854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
855 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_RK4
856#endif
857 use pm_kind, only: RKG => RK4
858 real(RKG) , intent(inout) , allocatable :: array(:,:)
859 integer(IK) , intent(in) , dimension(2) :: lb, ub
860 character(*, SK) , intent(out) , optional :: errmsg
861 logical(LK) , intent(out) , optional :: failed
862 end subroutine
863#endif
864
865#if RK3_ENABLED
866 PURE module subroutine setReboundSDDD_D2_RK3(array, lb, ub, failed, errmsg)
867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
868 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_RK3
869#endif
870 use pm_kind, only: RKG => RK3
871 real(RKG) , intent(inout) , allocatable :: array(:,:)
872 integer(IK) , intent(in) , dimension(2) :: lb, ub
873 character(*, SK) , intent(out) , optional :: errmsg
874 logical(LK) , intent(out) , optional :: failed
875 end subroutine
876#endif
877
878#if RK2_ENABLED
879 PURE module subroutine setReboundSDDD_D2_RK2(array, lb, ub, failed, errmsg)
880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
881 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_RK2
882#endif
883 use pm_kind, only: RKG => RK2
884 real(RKG) , intent(inout) , allocatable :: array(:,:)
885 integer(IK) , intent(in) , dimension(2) :: lb, ub
886 character(*, SK) , intent(out) , optional :: errmsg
887 logical(LK) , intent(out) , optional :: failed
888 end subroutine
889#endif
890
891#if RK1_ENABLED
892 PURE module subroutine setReboundSDDD_D2_RK1(array, lb, ub, failed, errmsg)
893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
894 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D2_RK1
895#endif
896 use pm_kind, only: RKG => RK1
897 real(RKG) , intent(inout) , allocatable :: array(:,:)
898 integer(IK) , intent(in) , dimension(2) :: lb, ub
899 character(*, SK) , intent(out) , optional :: errmsg
900 logical(LK) , intent(out) , optional :: failed
901 end subroutine
902#endif
903
904 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
905
906 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
907 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
908 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
909
910 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
911
912#if SK5_ENABLED
913 PURE module subroutine setReboundSDDD_D3_SK5(array, lb, ub, failed, errmsg)
914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
915 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_SK5
916#endif
917 use pm_kind, only: SKG => SK5
918 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
919 integer(IK) , intent(in) , dimension(3) :: lb, ub
920 character(*, SK) , intent(out) , optional :: errmsg
921 logical(LK) , intent(out) , optional :: failed
922 end subroutine
923#endif
924
925#if SK4_ENABLED
926 PURE module subroutine setReboundSDDD_D3_SK4(array, lb, ub, failed, errmsg)
927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
928 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_SK4
929#endif
930 use pm_kind, only: SKG => SK4
931 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
932 integer(IK) , intent(in) , dimension(3) :: lb, ub
933 character(*, SK) , intent(out) , optional :: errmsg
934 logical(LK) , intent(out) , optional :: failed
935 end subroutine
936#endif
937
938#if SK3_ENABLED
939 PURE module subroutine setReboundSDDD_D3_SK3(array, lb, ub, failed, errmsg)
940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
941 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_SK3
942#endif
943 use pm_kind, only: SKG => SK3
944 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
945 integer(IK) , intent(in) , dimension(3) :: lb, ub
946 character(*, SK) , intent(out) , optional :: errmsg
947 logical(LK) , intent(out) , optional :: failed
948 end subroutine
949#endif
950
951#if SK2_ENABLED
952 PURE module subroutine setReboundSDDD_D3_SK2(array, lb, ub, failed, errmsg)
953#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
954 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_SK2
955#endif
956 use pm_kind, only: SKG => SK2
957 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
958 integer(IK) , intent(in) , dimension(3) :: lb, ub
959 character(*, SK) , intent(out) , optional :: errmsg
960 logical(LK) , intent(out) , optional :: failed
961 end subroutine
962#endif
963
964#if SK1_ENABLED
965 PURE module subroutine setReboundSDDD_D3_SK1(array, lb, ub, failed, errmsg)
966#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
967 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_SK1
968#endif
969 use pm_kind, only: SKG => SK1
970 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
971 integer(IK) , intent(in) , dimension(3) :: lb, ub
972 character(*, SK) , intent(out) , optional :: errmsg
973 logical(LK) , intent(out) , optional :: failed
974 end subroutine
975#endif
976
977 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
978
979#if IK5_ENABLED
980 PURE module subroutine setReboundSDDD_D3_IK5(array, lb, ub, failed, errmsg)
981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
982 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_IK5
983#endif
984 use pm_kind, only: IKG => IK5
985 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
986 integer(IK) , intent(in) , dimension(3) :: lb, ub
987 character(*, SK) , intent(out) , optional :: errmsg
988 logical(LK) , intent(out) , optional :: failed
989 end subroutine
990#endif
991
992#if IK4_ENABLED
993 PURE module subroutine setReboundSDDD_D3_IK4(array, lb, ub, failed, errmsg)
994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
995 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_IK4
996#endif
997 use pm_kind, only: IKG => IK4
998 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
999 integer(IK) , intent(in) , dimension(3) :: lb, ub
1000 character(*, SK) , intent(out) , optional :: errmsg
1001 logical(LK) , intent(out) , optional :: failed
1002 end subroutine
1003#endif
1004
1005#if IK3_ENABLED
1006 PURE module subroutine setReboundSDDD_D3_IK3(array, lb, ub, failed, errmsg)
1007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1008 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_IK3
1009#endif
1010 use pm_kind, only: IKG => IK3
1011 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1012 integer(IK) , intent(in) , dimension(3) :: lb, ub
1013 character(*, SK) , intent(out) , optional :: errmsg
1014 logical(LK) , intent(out) , optional :: failed
1015 end subroutine
1016#endif
1017
1018#if IK2_ENABLED
1019 PURE module subroutine setReboundSDDD_D3_IK2(array, lb, ub, failed, errmsg)
1020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1021 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_IK2
1022#endif
1023 use pm_kind, only: IKG => IK2
1024 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1025 integer(IK) , intent(in) , dimension(3) :: lb, ub
1026 character(*, SK) , intent(out) , optional :: errmsg
1027 logical(LK) , intent(out) , optional :: failed
1028 end subroutine
1029#endif
1030
1031#if IK1_ENABLED
1032 PURE module subroutine setReboundSDDD_D3_IK1(array, lb, ub, failed, errmsg)
1033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1034 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_IK1
1035#endif
1036 use pm_kind, only: IKG => IK1
1037 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1038 integer(IK) , intent(in) , dimension(3) :: lb, ub
1039 character(*, SK) , intent(out) , optional :: errmsg
1040 logical(LK) , intent(out) , optional :: failed
1041 end subroutine
1042#endif
1043
1044 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1045
1046#if LK5_ENABLED
1047 PURE module subroutine setReboundSDDD_D3_LK5(array, lb, ub, failed, errmsg)
1048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1049 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_LK5
1050#endif
1051 use pm_kind, only: LKG => LK5
1052 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1053 integer(IK) , intent(in) , dimension(3) :: lb, ub
1054 character(*, SK) , intent(out) , optional :: errmsg
1055 logical(LK) , intent(out) , optional :: failed
1056 end subroutine
1057#endif
1058
1059#if LK4_ENABLED
1060 PURE module subroutine setReboundSDDD_D3_LK4(array, lb, ub, failed, errmsg)
1061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1062 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_LK4
1063#endif
1064 use pm_kind, only: LKG => LK4
1065 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1066 integer(IK) , intent(in) , dimension(3) :: lb, ub
1067 character(*, SK) , intent(out) , optional :: errmsg
1068 logical(LK) , intent(out) , optional :: failed
1069 end subroutine
1070#endif
1071
1072#if LK3_ENABLED
1073 PURE module subroutine setReboundSDDD_D3_LK3(array, lb, ub, failed, errmsg)
1074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1075 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_LK3
1076#endif
1077 use pm_kind, only: LKG => LK3
1078 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1079 integer(IK) , intent(in) , dimension(3) :: lb, ub
1080 character(*, SK) , intent(out) , optional :: errmsg
1081 logical(LK) , intent(out) , optional :: failed
1082 end subroutine
1083#endif
1084
1085#if LK2_ENABLED
1086 PURE module subroutine setReboundSDDD_D3_LK2(array, lb, ub, failed, errmsg)
1087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1088 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_LK2
1089#endif
1090 use pm_kind, only: LKG => LK2
1091 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1092 integer(IK) , intent(in) , dimension(3) :: lb, ub
1093 character(*, SK) , intent(out) , optional :: errmsg
1094 logical(LK) , intent(out) , optional :: failed
1095 end subroutine
1096#endif
1097
1098#if LK1_ENABLED
1099 PURE module subroutine setReboundSDDD_D3_LK1(array, lb, ub, failed, errmsg)
1100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1101 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_LK1
1102#endif
1103 use pm_kind, only: LKG => LK1
1104 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1105 integer(IK) , intent(in) , dimension(3) :: lb, ub
1106 character(*, SK) , intent(out) , optional :: errmsg
1107 logical(LK) , intent(out) , optional :: failed
1108 end subroutine
1109#endif
1110
1111 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1112
1113#if CK5_ENABLED
1114 PURE module subroutine setReboundSDDD_D3_CK5(array, lb, ub, failed, errmsg)
1115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1116 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_CK5
1117#endif
1118 use pm_kind, only: CKG => CK5
1119 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1120 integer(IK) , intent(in) , dimension(3) :: lb, ub
1121 character(*, SK) , intent(out) , optional :: errmsg
1122 logical(LK) , intent(out) , optional :: failed
1123 end subroutine
1124#endif
1125
1126#if CK4_ENABLED
1127 PURE module subroutine setReboundSDDD_D3_CK4(array, lb, ub, failed, errmsg)
1128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1129 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_CK4
1130#endif
1131 use pm_kind, only: CKG => CK4
1132 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1133 integer(IK) , intent(in) , dimension(3) :: lb, ub
1134 character(*, SK) , intent(out) , optional :: errmsg
1135 logical(LK) , intent(out) , optional :: failed
1136 end subroutine
1137#endif
1138
1139#if CK3_ENABLED
1140 PURE module subroutine setReboundSDDD_D3_CK3(array, lb, ub, failed, errmsg)
1141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1142 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_CK3
1143#endif
1144 use pm_kind, only: CKG => CK3
1145 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1146 integer(IK) , intent(in) , dimension(3) :: lb, ub
1147 character(*, SK) , intent(out) , optional :: errmsg
1148 logical(LK) , intent(out) , optional :: failed
1149 end subroutine
1150#endif
1151
1152#if CK2_ENABLED
1153 PURE module subroutine setReboundSDDD_D3_CK2(array, lb, ub, failed, errmsg)
1154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1155 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_CK2
1156#endif
1157 use pm_kind, only: CKG => CK2
1158 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1159 integer(IK) , intent(in) , dimension(3) :: lb, ub
1160 character(*, SK) , intent(out) , optional :: errmsg
1161 logical(LK) , intent(out) , optional :: failed
1162 end subroutine
1163#endif
1164
1165#if CK1_ENABLED
1166 PURE module subroutine setReboundSDDD_D3_CK1(array, lb, ub, failed, errmsg)
1167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1168 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_CK1
1169#endif
1170 use pm_kind, only: CKG => CK1
1171 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1172 integer(IK) , intent(in) , dimension(3) :: lb, ub
1173 character(*, SK) , intent(out) , optional :: errmsg
1174 logical(LK) , intent(out) , optional :: failed
1175 end subroutine
1176#endif
1177
1178 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1179
1180#if RK5_ENABLED
1181 PURE module subroutine setReboundSDDD_D3_RK5(array, lb, ub, failed, errmsg)
1182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1183 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_RK5
1184#endif
1185 use pm_kind, only: RKG => RK5
1186 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1187 integer(IK) , intent(in) , dimension(3) :: lb, ub
1188 character(*, SK) , intent(out) , optional :: errmsg
1189 logical(LK) , intent(out) , optional :: failed
1190 end subroutine
1191#endif
1192
1193#if RK4_ENABLED
1194 PURE module subroutine setReboundSDDD_D3_RK4(array, lb, ub, failed, errmsg)
1195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1196 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_RK4
1197#endif
1198 use pm_kind, only: RKG => RK4
1199 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1200 integer(IK) , intent(in) , dimension(3) :: lb, ub
1201 character(*, SK) , intent(out) , optional :: errmsg
1202 logical(LK) , intent(out) , optional :: failed
1203 end subroutine
1204#endif
1205
1206#if RK3_ENABLED
1207 PURE module subroutine setReboundSDDD_D3_RK3(array, lb, ub, failed, errmsg)
1208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1209 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_RK3
1210#endif
1211 use pm_kind, only: RKG => RK3
1212 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1213 integer(IK) , intent(in) , dimension(3) :: lb, ub
1214 character(*, SK) , intent(out) , optional :: errmsg
1215 logical(LK) , intent(out) , optional :: failed
1216 end subroutine
1217#endif
1218
1219#if RK2_ENABLED
1220 PURE module subroutine setReboundSDDD_D3_RK2(array, lb, ub, failed, errmsg)
1221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1222 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_RK2
1223#endif
1224 use pm_kind, only: RKG => RK2
1225 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1226 integer(IK) , intent(in) , dimension(3) :: lb, ub
1227 character(*, SK) , intent(out) , optional :: errmsg
1228 logical(LK) , intent(out) , optional :: failed
1229 end subroutine
1230#endif
1231
1232#if RK1_ENABLED
1233 PURE module subroutine setReboundSDDD_D3_RK1(array, lb, ub, failed, errmsg)
1234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1235 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSDDD_D3_RK1
1236#endif
1237 use pm_kind, only: RKG => RK1
1238 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1239 integer(IK) , intent(in) , dimension(3) :: lb, ub
1240 character(*, SK) , intent(out) , optional :: errmsg
1241 logical(LK) , intent(out) , optional :: failed
1242 end subroutine
1243#endif
1244
1245 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1246
1247 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1248 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1249 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1250
1251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1252 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1254
1255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1256
1257#if SK5_ENABLED
1258 PURE module subroutine setReboundSLDD_D1_SK5(array, lb, ub, lbc, failed, errmsg)
1259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1260 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_SK5
1261#endif
1262 use pm_kind, only: SKG => SK5
1263 character(*,SKG) , intent(inout) , allocatable :: array(:)
1264 integer(IK) , intent(in) :: lb, ub, lbc
1265 character(*, SK) , intent(out) , optional :: errmsg
1266 logical(LK) , intent(out) , optional :: failed
1267 end subroutine
1268#endif
1269
1270#if SK4_ENABLED
1271 PURE module subroutine setReboundSLDD_D1_SK4(array, lb, ub, lbc, failed, errmsg)
1272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1273 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_SK4
1274#endif
1275 use pm_kind, only: SKG => SK4
1276 character(*,SKG) , intent(inout) , allocatable :: array(:)
1277 integer(IK) , intent(in) :: lb, ub, lbc
1278 character(*, SK) , intent(out) , optional :: errmsg
1279 logical(LK) , intent(out) , optional :: failed
1280 end subroutine
1281#endif
1282
1283#if SK3_ENABLED
1284 PURE module subroutine setReboundSLDD_D1_SK3(array, lb, ub, lbc, failed, errmsg)
1285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1286 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_SK3
1287#endif
1288 use pm_kind, only: SKG => SK3
1289 character(*,SKG) , intent(inout) , allocatable :: array(:)
1290 integer(IK) , intent(in) :: lb, ub, lbc
1291 character(*, SK) , intent(out) , optional :: errmsg
1292 logical(LK) , intent(out) , optional :: failed
1293 end subroutine
1294#endif
1295
1296#if SK2_ENABLED
1297 PURE module subroutine setReboundSLDD_D1_SK2(array, lb, ub, lbc, failed, errmsg)
1298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1299 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_SK2
1300#endif
1301 use pm_kind, only: SKG => SK2
1302 character(*,SKG) , intent(inout) , allocatable :: array(:)
1303 integer(IK) , intent(in) :: lb, ub, lbc
1304 character(*, SK) , intent(out) , optional :: errmsg
1305 logical(LK) , intent(out) , optional :: failed
1306 end subroutine
1307#endif
1308
1309#if SK1_ENABLED
1310 PURE module subroutine setReboundSLDD_D1_SK1(array, lb, ub, lbc, failed, errmsg)
1311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1312 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_SK1
1313#endif
1314 use pm_kind, only: SKG => SK1
1315 character(*,SKG) , intent(inout) , allocatable :: array(:)
1316 integer(IK) , intent(in) :: lb, ub, lbc
1317 character(*, SK) , intent(out) , optional :: errmsg
1318 logical(LK) , intent(out) , optional :: failed
1319 end subroutine
1320#endif
1321
1322 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1323
1324#if IK5_ENABLED
1325 PURE module subroutine setReboundSLDD_D1_IK5(array, lb, ub, lbc, failed, errmsg)
1326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1327 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_IK5
1328#endif
1329 use pm_kind, only: IKG => IK5
1330 integer(IKG) , intent(inout) , allocatable :: array(:)
1331 integer(IK) , intent(in) :: lb, ub, lbc
1332 character(*, SK) , intent(out) , optional :: errmsg
1333 logical(LK) , intent(out) , optional :: failed
1334 end subroutine
1335#endif
1336
1337#if IK4_ENABLED
1338 PURE module subroutine setReboundSLDD_D1_IK4(array, lb, ub, lbc, failed, errmsg)
1339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1340 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_IK4
1341#endif
1342 use pm_kind, only: IKG => IK4
1343 integer(IKG) , intent(inout) , allocatable :: array(:)
1344 integer(IK) , intent(in) :: lb, ub, lbc
1345 character(*, SK) , intent(out) , optional :: errmsg
1346 logical(LK) , intent(out) , optional :: failed
1347 end subroutine
1348#endif
1349
1350#if IK3_ENABLED
1351 PURE module subroutine setReboundSLDD_D1_IK3(array, lb, ub, lbc, failed, errmsg)
1352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1353 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_IK3
1354#endif
1355 use pm_kind, only: IKG => IK3
1356 integer(IKG) , intent(inout) , allocatable :: array(:)
1357 integer(IK) , intent(in) :: lb, ub, lbc
1358 character(*, SK) , intent(out) , optional :: errmsg
1359 logical(LK) , intent(out) , optional :: failed
1360 end subroutine
1361#endif
1362
1363#if IK2_ENABLED
1364 PURE module subroutine setReboundSLDD_D1_IK2(array, lb, ub, lbc, failed, errmsg)
1365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1366 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_IK2
1367#endif
1368 use pm_kind, only: IKG => IK2
1369 integer(IKG) , intent(inout) , allocatable :: array(:)
1370 integer(IK) , intent(in) :: lb, ub, lbc
1371 character(*, SK) , intent(out) , optional :: errmsg
1372 logical(LK) , intent(out) , optional :: failed
1373 end subroutine
1374#endif
1375
1376#if IK1_ENABLED
1377 PURE module subroutine setReboundSLDD_D1_IK1(array, lb, ub, lbc, failed, errmsg)
1378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1379 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_IK1
1380#endif
1381 use pm_kind, only: IKG => IK1
1382 integer(IKG) , intent(inout) , allocatable :: array(:)
1383 integer(IK) , intent(in) :: lb, ub, lbc
1384 character(*, SK) , intent(out) , optional :: errmsg
1385 logical(LK) , intent(out) , optional :: failed
1386 end subroutine
1387#endif
1388
1389 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1390
1391#if LK5_ENABLED
1392 PURE module subroutine setReboundSLDD_D1_LK5(array, lb, ub, lbc, failed, errmsg)
1393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1394 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_LK5
1395#endif
1396 use pm_kind, only: LKG => LK5
1397 logical(LKG) , intent(inout) , allocatable :: array(:)
1398 integer(IK) , intent(in) :: lb, ub, lbc
1399 character(*, SK) , intent(out) , optional :: errmsg
1400 logical(LK) , intent(out) , optional :: failed
1401 end subroutine
1402#endif
1403
1404#if LK4_ENABLED
1405 PURE module subroutine setReboundSLDD_D1_LK4(array, lb, ub, lbc, failed, errmsg)
1406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1407 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_LK4
1408#endif
1409 use pm_kind, only: LKG => LK4
1410 logical(LKG) , intent(inout) , allocatable :: array(:)
1411 integer(IK) , intent(in) :: lb, ub, lbc
1412 character(*, SK) , intent(out) , optional :: errmsg
1413 logical(LK) , intent(out) , optional :: failed
1414 end subroutine
1415#endif
1416
1417#if LK3_ENABLED
1418 PURE module subroutine setReboundSLDD_D1_LK3(array, lb, ub, lbc, failed, errmsg)
1419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1420 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_LK3
1421#endif
1422 use pm_kind, only: LKG => LK3
1423 logical(LKG) , intent(inout) , allocatable :: array(:)
1424 integer(IK) , intent(in) :: lb, ub, lbc
1425 character(*, SK) , intent(out) , optional :: errmsg
1426 logical(LK) , intent(out) , optional :: failed
1427 end subroutine
1428#endif
1429
1430#if LK2_ENABLED
1431 PURE module subroutine setReboundSLDD_D1_LK2(array, lb, ub, lbc, failed, errmsg)
1432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1433 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_LK2
1434#endif
1435 use pm_kind, only: LKG => LK2
1436 logical(LKG) , intent(inout) , allocatable :: array(:)
1437 integer(IK) , intent(in) :: lb, ub, lbc
1438 character(*, SK) , intent(out) , optional :: errmsg
1439 logical(LK) , intent(out) , optional :: failed
1440 end subroutine
1441#endif
1442
1443#if LK1_ENABLED
1444 PURE module subroutine setReboundSLDD_D1_LK1(array, lb, ub, lbc, failed, errmsg)
1445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1446 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_LK1
1447#endif
1448 use pm_kind, only: LKG => LK1
1449 logical(LKG) , intent(inout) , allocatable :: array(:)
1450 integer(IK) , intent(in) :: lb, ub, lbc
1451 character(*, SK) , intent(out) , optional :: errmsg
1452 logical(LK) , intent(out) , optional :: failed
1453 end subroutine
1454#endif
1455
1456 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1457
1458#if CK5_ENABLED
1459 PURE module subroutine setReboundSLDD_D1_CK5(array, lb, ub, lbc, failed, errmsg)
1460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1461 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_CK5
1462#endif
1463 use pm_kind, only: CKG => CK5
1464 complex(CKG) , intent(inout) , allocatable :: array(:)
1465 integer(IK) , intent(in) :: lb, ub, lbc
1466 character(*, SK) , intent(out) , optional :: errmsg
1467 logical(LK) , intent(out) , optional :: failed
1468 end subroutine
1469#endif
1470
1471#if CK4_ENABLED
1472 PURE module subroutine setReboundSLDD_D1_CK4(array, lb, ub, lbc, failed, errmsg)
1473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1474 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_CK4
1475#endif
1476 use pm_kind, only: CKG => CK4
1477 complex(CKG) , intent(inout) , allocatable :: array(:)
1478 integer(IK) , intent(in) :: lb, ub, lbc
1479 character(*, SK) , intent(out) , optional :: errmsg
1480 logical(LK) , intent(out) , optional :: failed
1481 end subroutine
1482#endif
1483
1484#if CK3_ENABLED
1485 PURE module subroutine setReboundSLDD_D1_CK3(array, lb, ub, lbc, failed, errmsg)
1486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1487 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_CK3
1488#endif
1489 use pm_kind, only: CKG => CK3
1490 complex(CKG) , intent(inout) , allocatable :: array(:)
1491 integer(IK) , intent(in) :: lb, ub, lbc
1492 character(*, SK) , intent(out) , optional :: errmsg
1493 logical(LK) , intent(out) , optional :: failed
1494 end subroutine
1495#endif
1496
1497#if CK2_ENABLED
1498 PURE module subroutine setReboundSLDD_D1_CK2(array, lb, ub, lbc, failed, errmsg)
1499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1500 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_CK2
1501#endif
1502 use pm_kind, only: CKG => CK2
1503 complex(CKG) , intent(inout) , allocatable :: array(:)
1504 integer(IK) , intent(in) :: lb, ub, lbc
1505 character(*, SK) , intent(out) , optional :: errmsg
1506 logical(LK) , intent(out) , optional :: failed
1507 end subroutine
1508#endif
1509
1510#if CK1_ENABLED
1511 PURE module subroutine setReboundSLDD_D1_CK1(array, lb, ub, lbc, failed, errmsg)
1512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1513 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_CK1
1514#endif
1515 use pm_kind, only: CKG => CK1
1516 complex(CKG) , intent(inout) , allocatable :: array(:)
1517 integer(IK) , intent(in) :: lb, ub, lbc
1518 character(*, SK) , intent(out) , optional :: errmsg
1519 logical(LK) , intent(out) , optional :: failed
1520 end subroutine
1521#endif
1522
1523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1524
1525#if RK5_ENABLED
1526 PURE module subroutine setReboundSLDD_D1_RK5(array, lb, ub, lbc, failed, errmsg)
1527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1528 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_RK5
1529#endif
1530 use pm_kind, only: RKG => RK5
1531 real(RKG) , intent(inout) , allocatable :: array(:)
1532 integer(IK) , intent(in) :: lb, ub, lbc
1533 character(*, SK) , intent(out) , optional :: errmsg
1534 logical(LK) , intent(out) , optional :: failed
1535 end subroutine
1536#endif
1537
1538#if RK4_ENABLED
1539 PURE module subroutine setReboundSLDD_D1_RK4(array, lb, ub, lbc, failed, errmsg)
1540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1541 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_RK4
1542#endif
1543 use pm_kind, only: RKG => RK4
1544 real(RKG) , intent(inout) , allocatable :: array(:)
1545 integer(IK) , intent(in) :: lb, ub, lbc
1546 character(*, SK) , intent(out) , optional :: errmsg
1547 logical(LK) , intent(out) , optional :: failed
1548 end subroutine
1549#endif
1550
1551#if RK3_ENABLED
1552 PURE module subroutine setReboundSLDD_D1_RK3(array, lb, ub, lbc, failed, errmsg)
1553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1554 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_RK3
1555#endif
1556 use pm_kind, only: RKG => RK3
1557 real(RKG) , intent(inout) , allocatable :: array(:)
1558 integer(IK) , intent(in) :: lb, ub, lbc
1559 character(*, SK) , intent(out) , optional :: errmsg
1560 logical(LK) , intent(out) , optional :: failed
1561 end subroutine
1562#endif
1563
1564#if RK2_ENABLED
1565 PURE module subroutine setReboundSLDD_D1_RK2(array, lb, ub, lbc, failed, errmsg)
1566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1567 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_RK2
1568#endif
1569 use pm_kind, only: RKG => RK2
1570 real(RKG) , intent(inout) , allocatable :: array(:)
1571 integer(IK) , intent(in) :: lb, ub, lbc
1572 character(*, SK) , intent(out) , optional :: errmsg
1573 logical(LK) , intent(out) , optional :: failed
1574 end subroutine
1575#endif
1576
1577#if RK1_ENABLED
1578 PURE module subroutine setReboundSLDD_D1_RK1(array, lb, ub, lbc, failed, errmsg)
1579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1580 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D1_RK1
1581#endif
1582 use pm_kind, only: RKG => RK1
1583 real(RKG) , intent(inout) , allocatable :: array(:)
1584 integer(IK) , intent(in) :: lb, ub, lbc
1585 character(*, SK) , intent(out) , optional :: errmsg
1586 logical(LK) , intent(out) , optional :: failed
1587 end subroutine
1588#endif
1589
1590 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1591
1592 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1593 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1594 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1595
1596 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1597
1598#if SK5_ENABLED
1599 PURE module subroutine setReboundSLDD_D2_SK5(array, lb, ub, lbc, failed, errmsg)
1600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1601 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_SK5
1602#endif
1603 use pm_kind, only: SKG => SK5
1604 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1605 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1606 character(*, SK) , intent(out) , optional :: errmsg
1607 logical(LK) , intent(out) , optional :: failed
1608 end subroutine
1609#endif
1610
1611#if SK4_ENABLED
1612 PURE module subroutine setReboundSLDD_D2_SK4(array, lb, ub, lbc, failed, errmsg)
1613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1614 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_SK4
1615#endif
1616 use pm_kind, only: SKG => SK4
1617 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1618 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1619 character(*, SK) , intent(out) , optional :: errmsg
1620 logical(LK) , intent(out) , optional :: failed
1621 end subroutine
1622#endif
1623
1624#if SK3_ENABLED
1625 PURE module subroutine setReboundSLDD_D2_SK3(array, lb, ub, lbc, failed, errmsg)
1626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1627 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_SK3
1628#endif
1629 use pm_kind, only: SKG => SK3
1630 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1631 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1632 character(*, SK) , intent(out) , optional :: errmsg
1633 logical(LK) , intent(out) , optional :: failed
1634 end subroutine
1635#endif
1636
1637#if SK2_ENABLED
1638 PURE module subroutine setReboundSLDD_D2_SK2(array, lb, ub, lbc, failed, errmsg)
1639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1640 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_SK2
1641#endif
1642 use pm_kind, only: SKG => SK2
1643 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1644 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1645 character(*, SK) , intent(out) , optional :: errmsg
1646 logical(LK) , intent(out) , optional :: failed
1647 end subroutine
1648#endif
1649
1650#if SK1_ENABLED
1651 PURE module subroutine setReboundSLDD_D2_SK1(array, lb, ub, lbc, failed, errmsg)
1652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1653 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_SK1
1654#endif
1655 use pm_kind, only: SKG => SK1
1656 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1657 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1658 character(*, SK) , intent(out) , optional :: errmsg
1659 logical(LK) , intent(out) , optional :: failed
1660 end subroutine
1661#endif
1662
1663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1664
1665#if IK5_ENABLED
1666 PURE module subroutine setReboundSLDD_D2_IK5(array, lb, ub, lbc, failed, errmsg)
1667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1668 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_IK5
1669#endif
1670 use pm_kind, only: IKG => IK5
1671 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1672 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1673 character(*, SK) , intent(out) , optional :: errmsg
1674 logical(LK) , intent(out) , optional :: failed
1675 end subroutine
1676#endif
1677
1678#if IK4_ENABLED
1679 PURE module subroutine setReboundSLDD_D2_IK4(array, lb, ub, lbc, failed, errmsg)
1680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1681 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_IK4
1682#endif
1683 use pm_kind, only: IKG => IK4
1684 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1685 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1686 character(*, SK) , intent(out) , optional :: errmsg
1687 logical(LK) , intent(out) , optional :: failed
1688 end subroutine
1689#endif
1690
1691#if IK3_ENABLED
1692 PURE module subroutine setReboundSLDD_D2_IK3(array, lb, ub, lbc, failed, errmsg)
1693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1694 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_IK3
1695#endif
1696 use pm_kind, only: IKG => IK3
1697 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1698 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1699 character(*, SK) , intent(out) , optional :: errmsg
1700 logical(LK) , intent(out) , optional :: failed
1701 end subroutine
1702#endif
1703
1704#if IK2_ENABLED
1705 PURE module subroutine setReboundSLDD_D2_IK2(array, lb, ub, lbc, failed, errmsg)
1706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1707 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_IK2
1708#endif
1709 use pm_kind, only: IKG => IK2
1710 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1711 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1712 character(*, SK) , intent(out) , optional :: errmsg
1713 logical(LK) , intent(out) , optional :: failed
1714 end subroutine
1715#endif
1716
1717#if IK1_ENABLED
1718 PURE module subroutine setReboundSLDD_D2_IK1(array, lb, ub, lbc, failed, errmsg)
1719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1720 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_IK1
1721#endif
1722 use pm_kind, only: IKG => IK1
1723 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1724 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1725 character(*, SK) , intent(out) , optional :: errmsg
1726 logical(LK) , intent(out) , optional :: failed
1727 end subroutine
1728#endif
1729
1730 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1731
1732#if LK5_ENABLED
1733 PURE module subroutine setReboundSLDD_D2_LK5(array, lb, ub, lbc, failed, errmsg)
1734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1735 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_LK5
1736#endif
1737 use pm_kind, only: LKG => LK5
1738 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1739 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1740 character(*, SK) , intent(out) , optional :: errmsg
1741 logical(LK) , intent(out) , optional :: failed
1742 end subroutine
1743#endif
1744
1745#if LK4_ENABLED
1746 PURE module subroutine setReboundSLDD_D2_LK4(array, lb, ub, lbc, failed, errmsg)
1747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1748 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_LK4
1749#endif
1750 use pm_kind, only: LKG => LK4
1751 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1752 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1753 character(*, SK) , intent(out) , optional :: errmsg
1754 logical(LK) , intent(out) , optional :: failed
1755 end subroutine
1756#endif
1757
1758#if LK3_ENABLED
1759 PURE module subroutine setReboundSLDD_D2_LK3(array, lb, ub, lbc, failed, errmsg)
1760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1761 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_LK3
1762#endif
1763 use pm_kind, only: LKG => LK3
1764 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1765 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1766 character(*, SK) , intent(out) , optional :: errmsg
1767 logical(LK) , intent(out) , optional :: failed
1768 end subroutine
1769#endif
1770
1771#if LK2_ENABLED
1772 PURE module subroutine setReboundSLDD_D2_LK2(array, lb, ub, lbc, failed, errmsg)
1773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1774 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_LK2
1775#endif
1776 use pm_kind, only: LKG => LK2
1777 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1778 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1779 character(*, SK) , intent(out) , optional :: errmsg
1780 logical(LK) , intent(out) , optional :: failed
1781 end subroutine
1782#endif
1783
1784#if LK1_ENABLED
1785 PURE module subroutine setReboundSLDD_D2_LK1(array, lb, ub, lbc, failed, errmsg)
1786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1787 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_LK1
1788#endif
1789 use pm_kind, only: LKG => LK1
1790 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1791 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1792 character(*, SK) , intent(out) , optional :: errmsg
1793 logical(LK) , intent(out) , optional :: failed
1794 end subroutine
1795#endif
1796
1797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1798
1799#if CK5_ENABLED
1800 PURE module subroutine setReboundSLDD_D2_CK5(array, lb, ub, lbc, failed, errmsg)
1801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1802 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_CK5
1803#endif
1804 use pm_kind, only: CKG => CK5
1805 complex(CKG) , intent(inout) , allocatable :: array(:,:)
1806 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1807 character(*, SK) , intent(out) , optional :: errmsg
1808 logical(LK) , intent(out) , optional :: failed
1809 end subroutine
1810#endif
1811
1812#if CK4_ENABLED
1813 PURE module subroutine setReboundSLDD_D2_CK4(array, lb, ub, lbc, failed, errmsg)
1814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1815 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_CK4
1816#endif
1817 use pm_kind, only: CKG => CK4
1818 complex(CKG) , intent(inout) , allocatable :: array(:,:)
1819 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1820 character(*, SK) , intent(out) , optional :: errmsg
1821 logical(LK) , intent(out) , optional :: failed
1822 end subroutine
1823#endif
1824
1825#if CK3_ENABLED
1826 PURE module subroutine setReboundSLDD_D2_CK3(array, lb, ub, lbc, failed, errmsg)
1827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1828 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_CK3
1829#endif
1830 use pm_kind, only: CKG => CK3
1831 complex(CKG) , intent(inout) , allocatable :: array(:,:)
1832 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1833 character(*, SK) , intent(out) , optional :: errmsg
1834 logical(LK) , intent(out) , optional :: failed
1835 end subroutine
1836#endif
1837
1838#if CK2_ENABLED
1839 PURE module subroutine setReboundSLDD_D2_CK2(array, lb, ub, lbc, failed, errmsg)
1840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1841 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_CK2
1842#endif
1843 use pm_kind, only: CKG => CK2
1844 complex(CKG) , intent(inout) , allocatable :: array(:,:)
1845 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1846 character(*, SK) , intent(out) , optional :: errmsg
1847 logical(LK) , intent(out) , optional :: failed
1848 end subroutine
1849#endif
1850
1851#if CK1_ENABLED
1852 PURE module subroutine setReboundSLDD_D2_CK1(array, lb, ub, lbc, failed, errmsg)
1853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1854 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_CK1
1855#endif
1856 use pm_kind, only: CKG => CK1
1857 complex(CKG) , intent(inout) , allocatable :: array(:,:)
1858 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1859 character(*, SK) , intent(out) , optional :: errmsg
1860 logical(LK) , intent(out) , optional :: failed
1861 end subroutine
1862#endif
1863
1864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1865
1866#if RK5_ENABLED
1867 PURE module subroutine setReboundSLDD_D2_RK5(array, lb, ub, lbc, failed, errmsg)
1868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1869 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_RK5
1870#endif
1871 use pm_kind, only: RKG => RK5
1872 real(RKG) , intent(inout) , allocatable :: array(:,:)
1873 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1874 character(*, SK) , intent(out) , optional :: errmsg
1875 logical(LK) , intent(out) , optional :: failed
1876 end subroutine
1877#endif
1878
1879#if RK4_ENABLED
1880 PURE module subroutine setReboundSLDD_D2_RK4(array, lb, ub, lbc, failed, errmsg)
1881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1882 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_RK4
1883#endif
1884 use pm_kind, only: RKG => RK4
1885 real(RKG) , intent(inout) , allocatable :: array(:,:)
1886 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1887 character(*, SK) , intent(out) , optional :: errmsg
1888 logical(LK) , intent(out) , optional :: failed
1889 end subroutine
1890#endif
1891
1892#if RK3_ENABLED
1893 PURE module subroutine setReboundSLDD_D2_RK3(array, lb, ub, lbc, failed, errmsg)
1894#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1895 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_RK3
1896#endif
1897 use pm_kind, only: RKG => RK3
1898 real(RKG) , intent(inout) , allocatable :: array(:,:)
1899 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1900 character(*, SK) , intent(out) , optional :: errmsg
1901 logical(LK) , intent(out) , optional :: failed
1902 end subroutine
1903#endif
1904
1905#if RK2_ENABLED
1906 PURE module subroutine setReboundSLDD_D2_RK2(array, lb, ub, lbc, failed, errmsg)
1907#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1908 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_RK2
1909#endif
1910 use pm_kind, only: RKG => RK2
1911 real(RKG) , intent(inout) , allocatable :: array(:,:)
1912 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1913 character(*, SK) , intent(out) , optional :: errmsg
1914 logical(LK) , intent(out) , optional :: failed
1915 end subroutine
1916#endif
1917
1918#if RK1_ENABLED
1919 PURE module subroutine setReboundSLDD_D2_RK1(array, lb, ub, lbc, failed, errmsg)
1920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1921 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D2_RK1
1922#endif
1923 use pm_kind, only: RKG => RK1
1924 real(RKG) , intent(inout) , allocatable :: array(:,:)
1925 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1926 character(*, SK) , intent(out) , optional :: errmsg
1927 logical(LK) , intent(out) , optional :: failed
1928 end subroutine
1929#endif
1930
1931 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1932
1933 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1934 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1935 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1936
1937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1938
1939#if SK5_ENABLED
1940 PURE module subroutine setReboundSLDD_D3_SK5(array, lb, ub, lbc, failed, errmsg)
1941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1942 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_SK5
1943#endif
1944 use pm_kind, only: SKG => SK5
1945 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1946 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
1947 character(*, SK) , intent(out) , optional :: errmsg
1948 logical(LK) , intent(out) , optional :: failed
1949 end subroutine
1950#endif
1951
1952#if SK4_ENABLED
1953 PURE module subroutine setReboundSLDD_D3_SK4(array, lb, ub, lbc, failed, errmsg)
1954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1955 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_SK4
1956#endif
1957 use pm_kind, only: SKG => SK4
1958 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1959 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
1960 character(*, SK) , intent(out) , optional :: errmsg
1961 logical(LK) , intent(out) , optional :: failed
1962 end subroutine
1963#endif
1964
1965#if SK3_ENABLED
1966 PURE module subroutine setReboundSLDD_D3_SK3(array, lb, ub, lbc, failed, errmsg)
1967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1968 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_SK3
1969#endif
1970 use pm_kind, only: SKG => SK3
1971 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1972 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
1973 character(*, SK) , intent(out) , optional :: errmsg
1974 logical(LK) , intent(out) , optional :: failed
1975 end subroutine
1976#endif
1977
1978#if SK2_ENABLED
1979 PURE module subroutine setReboundSLDD_D3_SK2(array, lb, ub, lbc, failed, errmsg)
1980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1981 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_SK2
1982#endif
1983 use pm_kind, only: SKG => SK2
1984 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1985 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
1986 character(*, SK) , intent(out) , optional :: errmsg
1987 logical(LK) , intent(out) , optional :: failed
1988 end subroutine
1989#endif
1990
1991#if SK1_ENABLED
1992 PURE module subroutine setReboundSLDD_D3_SK1(array, lb, ub, lbc, failed, errmsg)
1993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1994 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_SK1
1995#endif
1996 use pm_kind, only: SKG => SK1
1997 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1998 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
1999 character(*, SK) , intent(out) , optional :: errmsg
2000 logical(LK) , intent(out) , optional :: failed
2001 end subroutine
2002#endif
2003
2004 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2005
2006#if IK5_ENABLED
2007 PURE module subroutine setReboundSLDD_D3_IK5(array, lb, ub, lbc, failed, errmsg)
2008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2009 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_IK5
2010#endif
2011 use pm_kind, only: IKG => IK5
2012 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2013 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2014 character(*, SK) , intent(out) , optional :: errmsg
2015 logical(LK) , intent(out) , optional :: failed
2016 end subroutine
2017#endif
2018
2019#if IK4_ENABLED
2020 PURE module subroutine setReboundSLDD_D3_IK4(array, lb, ub, lbc, failed, errmsg)
2021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2022 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_IK4
2023#endif
2024 use pm_kind, only: IKG => IK4
2025 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2026 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2027 character(*, SK) , intent(out) , optional :: errmsg
2028 logical(LK) , intent(out) , optional :: failed
2029 end subroutine
2030#endif
2031
2032#if IK3_ENABLED
2033 PURE module subroutine setReboundSLDD_D3_IK3(array, lb, ub, lbc, failed, errmsg)
2034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2035 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_IK3
2036#endif
2037 use pm_kind, only: IKG => IK3
2038 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2039 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2040 character(*, SK) , intent(out) , optional :: errmsg
2041 logical(LK) , intent(out) , optional :: failed
2042 end subroutine
2043#endif
2044
2045#if IK2_ENABLED
2046 PURE module subroutine setReboundSLDD_D3_IK2(array, lb, ub, lbc, failed, errmsg)
2047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2048 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_IK2
2049#endif
2050 use pm_kind, only: IKG => IK2
2051 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2052 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2053 character(*, SK) , intent(out) , optional :: errmsg
2054 logical(LK) , intent(out) , optional :: failed
2055 end subroutine
2056#endif
2057
2058#if IK1_ENABLED
2059 PURE module subroutine setReboundSLDD_D3_IK1(array, lb, ub, lbc, failed, errmsg)
2060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2061 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_IK1
2062#endif
2063 use pm_kind, only: IKG => IK1
2064 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2065 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2066 character(*, SK) , intent(out) , optional :: errmsg
2067 logical(LK) , intent(out) , optional :: failed
2068 end subroutine
2069#endif
2070
2071 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2072
2073#if LK5_ENABLED
2074 PURE module subroutine setReboundSLDD_D3_LK5(array, lb, ub, lbc, failed, errmsg)
2075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2076 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_LK5
2077#endif
2078 use pm_kind, only: LKG => LK5
2079 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2080 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2081 character(*, SK) , intent(out) , optional :: errmsg
2082 logical(LK) , intent(out) , optional :: failed
2083 end subroutine
2084#endif
2085
2086#if LK4_ENABLED
2087 PURE module subroutine setReboundSLDD_D3_LK4(array, lb, ub, lbc, failed, errmsg)
2088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2089 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_LK4
2090#endif
2091 use pm_kind, only: LKG => LK4
2092 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2093 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2094 character(*, SK) , intent(out) , optional :: errmsg
2095 logical(LK) , intent(out) , optional :: failed
2096 end subroutine
2097#endif
2098
2099#if LK3_ENABLED
2100 PURE module subroutine setReboundSLDD_D3_LK3(array, lb, ub, lbc, failed, errmsg)
2101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2102 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_LK3
2103#endif
2104 use pm_kind, only: LKG => LK3
2105 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2106 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2107 character(*, SK) , intent(out) , optional :: errmsg
2108 logical(LK) , intent(out) , optional :: failed
2109 end subroutine
2110#endif
2111
2112#if LK2_ENABLED
2113 PURE module subroutine setReboundSLDD_D3_LK2(array, lb, ub, lbc, failed, errmsg)
2114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2115 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_LK2
2116#endif
2117 use pm_kind, only: LKG => LK2
2118 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2119 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2120 character(*, SK) , intent(out) , optional :: errmsg
2121 logical(LK) , intent(out) , optional :: failed
2122 end subroutine
2123#endif
2124
2125#if LK1_ENABLED
2126 PURE module subroutine setReboundSLDD_D3_LK1(array, lb, ub, lbc, failed, errmsg)
2127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2128 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_LK1
2129#endif
2130 use pm_kind, only: LKG => LK1
2131 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2132 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2133 character(*, SK) , intent(out) , optional :: errmsg
2134 logical(LK) , intent(out) , optional :: failed
2135 end subroutine
2136#endif
2137
2138 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2139
2140#if CK5_ENABLED
2141 PURE module subroutine setReboundSLDD_D3_CK5(array, lb, ub, lbc, failed, errmsg)
2142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2143 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_CK5
2144#endif
2145 use pm_kind, only: CKG => CK5
2146 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2147 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2148 character(*, SK) , intent(out) , optional :: errmsg
2149 logical(LK) , intent(out) , optional :: failed
2150 end subroutine
2151#endif
2152
2153#if CK4_ENABLED
2154 PURE module subroutine setReboundSLDD_D3_CK4(array, lb, ub, lbc, failed, errmsg)
2155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2156 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_CK4
2157#endif
2158 use pm_kind, only: CKG => CK4
2159 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2160 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2161 character(*, SK) , intent(out) , optional :: errmsg
2162 logical(LK) , intent(out) , optional :: failed
2163 end subroutine
2164#endif
2165
2166#if CK3_ENABLED
2167 PURE module subroutine setReboundSLDD_D3_CK3(array, lb, ub, lbc, failed, errmsg)
2168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2169 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_CK3
2170#endif
2171 use pm_kind, only: CKG => CK3
2172 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2173 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2174 character(*, SK) , intent(out) , optional :: errmsg
2175 logical(LK) , intent(out) , optional :: failed
2176 end subroutine
2177#endif
2178
2179#if CK2_ENABLED
2180 PURE module subroutine setReboundSLDD_D3_CK2(array, lb, ub, lbc, failed, errmsg)
2181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2182 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_CK2
2183#endif
2184 use pm_kind, only: CKG => CK2
2185 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2186 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2187 character(*, SK) , intent(out) , optional :: errmsg
2188 logical(LK) , intent(out) , optional :: failed
2189 end subroutine
2190#endif
2191
2192#if CK1_ENABLED
2193 PURE module subroutine setReboundSLDD_D3_CK1(array, lb, ub, lbc, failed, errmsg)
2194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2195 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_CK1
2196#endif
2197 use pm_kind, only: CKG => CK1
2198 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2199 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2200 character(*, SK) , intent(out) , optional :: errmsg
2201 logical(LK) , intent(out) , optional :: failed
2202 end subroutine
2203#endif
2204
2205 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2206
2207#if RK5_ENABLED
2208 PURE module subroutine setReboundSLDD_D3_RK5(array, lb, ub, lbc, failed, errmsg)
2209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2210 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_RK5
2211#endif
2212 use pm_kind, only: RKG => RK5
2213 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2214 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2215 character(*, SK) , intent(out) , optional :: errmsg
2216 logical(LK) , intent(out) , optional :: failed
2217 end subroutine
2218#endif
2219
2220#if RK4_ENABLED
2221 PURE module subroutine setReboundSLDD_D3_RK4(array, lb, ub, lbc, failed, errmsg)
2222#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2223 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_RK4
2224#endif
2225 use pm_kind, only: RKG => RK4
2226 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2227 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2228 character(*, SK) , intent(out) , optional :: errmsg
2229 logical(LK) , intent(out) , optional :: failed
2230 end subroutine
2231#endif
2232
2233#if RK3_ENABLED
2234 PURE module subroutine setReboundSLDD_D3_RK3(array, lb, ub, lbc, failed, errmsg)
2235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2236 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_RK3
2237#endif
2238 use pm_kind, only: RKG => RK3
2239 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2240 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2241 character(*, SK) , intent(out) , optional :: errmsg
2242 logical(LK) , intent(out) , optional :: failed
2243 end subroutine
2244#endif
2245
2246#if RK2_ENABLED
2247 PURE module subroutine setReboundSLDD_D3_RK2(array, lb, ub, lbc, failed, errmsg)
2248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2249 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_RK2
2250#endif
2251 use pm_kind, only: RKG => RK2
2252 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2253 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2254 character(*, SK) , intent(out) , optional :: errmsg
2255 logical(LK) , intent(out) , optional :: failed
2256 end subroutine
2257#endif
2258
2259#if RK1_ENABLED
2260 PURE module subroutine setReboundSLDD_D3_RK1(array, lb, ub, lbc, failed, errmsg)
2261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2262 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLDD_D3_RK1
2263#endif
2264 use pm_kind, only: RKG => RK1
2265 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2266 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2267 character(*, SK) , intent(out) , optional :: errmsg
2268 logical(LK) , intent(out) , optional :: failed
2269 end subroutine
2270#endif
2271
2272 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2273
2274 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2275 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2276 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2277
2278 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2279 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2280 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2281
2282 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2283
2284#if SK5_ENABLED
2285 PURE module subroutine setReboundSLLU_D1_SK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2287 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_SK5
2288#endif
2289 use pm_kind, only: SKG => SK5
2290 character(*,SKG) , intent(inout) , allocatable :: array(:)
2291 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2292 character(*, SK) , intent(out) , optional :: errmsg
2293 logical(LK) , intent(out) , optional :: failed
2294 end subroutine
2295#endif
2296
2297#if SK4_ENABLED
2298 PURE module subroutine setReboundSLLU_D1_SK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2300 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_SK4
2301#endif
2302 use pm_kind, only: SKG => SK4
2303 character(*,SKG) , intent(inout) , allocatable :: array(:)
2304 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2305 character(*, SK) , intent(out) , optional :: errmsg
2306 logical(LK) , intent(out) , optional :: failed
2307 end subroutine
2308#endif
2309
2310#if SK3_ENABLED
2311 PURE module subroutine setReboundSLLU_D1_SK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2312#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2313 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_SK3
2314#endif
2315 use pm_kind, only: SKG => SK3
2316 character(*,SKG) , intent(inout) , allocatable :: array(:)
2317 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2318 character(*, SK) , intent(out) , optional :: errmsg
2319 logical(LK) , intent(out) , optional :: failed
2320 end subroutine
2321#endif
2322
2323#if SK2_ENABLED
2324 PURE module subroutine setReboundSLLU_D1_SK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2326 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_SK2
2327#endif
2328 use pm_kind, only: SKG => SK2
2329 character(*,SKG) , intent(inout) , allocatable :: array(:)
2330 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2331 character(*, SK) , intent(out) , optional :: errmsg
2332 logical(LK) , intent(out) , optional :: failed
2333 end subroutine
2334#endif
2335
2336#if SK1_ENABLED
2337 PURE module subroutine setReboundSLLU_D1_SK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2339 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_SK1
2340#endif
2341 use pm_kind, only: SKG => SK1
2342 character(*,SKG) , intent(inout) , allocatable :: array(:)
2343 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2344 character(*, SK) , intent(out) , optional :: errmsg
2345 logical(LK) , intent(out) , optional :: failed
2346 end subroutine
2347#endif
2348
2349 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2350
2351#if IK5_ENABLED
2352 PURE module subroutine setReboundSLLU_D1_IK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2354 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_IK5
2355#endif
2356 use pm_kind, only: IKG => IK5
2357 integer(IKG) , intent(inout) , allocatable :: array(:)
2358 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2359 character(*, SK) , intent(out) , optional :: errmsg
2360 logical(LK) , intent(out) , optional :: failed
2361 end subroutine
2362#endif
2363
2364#if IK4_ENABLED
2365 PURE module subroutine setReboundSLLU_D1_IK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2366#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2367 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_IK4
2368#endif
2369 use pm_kind, only: IKG => IK4
2370 integer(IKG) , intent(inout) , allocatable :: array(:)
2371 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2372 character(*, SK) , intent(out) , optional :: errmsg
2373 logical(LK) , intent(out) , optional :: failed
2374 end subroutine
2375#endif
2376
2377#if IK3_ENABLED
2378 PURE module subroutine setReboundSLLU_D1_IK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2380 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_IK3
2381#endif
2382 use pm_kind, only: IKG => IK3
2383 integer(IKG) , intent(inout) , allocatable :: array(:)
2384 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2385 character(*, SK) , intent(out) , optional :: errmsg
2386 logical(LK) , intent(out) , optional :: failed
2387 end subroutine
2388#endif
2389
2390#if IK2_ENABLED
2391 PURE module subroutine setReboundSLLU_D1_IK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2393 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_IK2
2394#endif
2395 use pm_kind, only: IKG => IK2
2396 integer(IKG) , intent(inout) , allocatable :: array(:)
2397 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2398 character(*, SK) , intent(out) , optional :: errmsg
2399 logical(LK) , intent(out) , optional :: failed
2400 end subroutine
2401#endif
2402
2403#if IK1_ENABLED
2404 PURE module subroutine setReboundSLLU_D1_IK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2406 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_IK1
2407#endif
2408 use pm_kind, only: IKG => IK1
2409 integer(IKG) , intent(inout) , allocatable :: array(:)
2410 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2411 character(*, SK) , intent(out) , optional :: errmsg
2412 logical(LK) , intent(out) , optional :: failed
2413 end subroutine
2414#endif
2415
2416 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2417
2418#if LK5_ENABLED
2419 PURE module subroutine setReboundSLLU_D1_LK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2421 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_LK5
2422#endif
2423 use pm_kind, only: LKG => LK5
2424 logical(LKG) , intent(inout) , allocatable :: array(:)
2425 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2426 character(*, SK) , intent(out) , optional :: errmsg
2427 logical(LK) , intent(out) , optional :: failed
2428 end subroutine
2429#endif
2430
2431#if LK4_ENABLED
2432 PURE module subroutine setReboundSLLU_D1_LK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2434 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_LK4
2435#endif
2436 use pm_kind, only: LKG => LK4
2437 logical(LKG) , intent(inout) , allocatable :: array(:)
2438 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2439 character(*, SK) , intent(out) , optional :: errmsg
2440 logical(LK) , intent(out) , optional :: failed
2441 end subroutine
2442#endif
2443
2444#if LK3_ENABLED
2445 PURE module subroutine setReboundSLLU_D1_LK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2447 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_LK3
2448#endif
2449 use pm_kind, only: LKG => LK3
2450 logical(LKG) , intent(inout) , allocatable :: array(:)
2451 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2452 character(*, SK) , intent(out) , optional :: errmsg
2453 logical(LK) , intent(out) , optional :: failed
2454 end subroutine
2455#endif
2456
2457#if LK2_ENABLED
2458 PURE module subroutine setReboundSLLU_D1_LK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2460 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_LK2
2461#endif
2462 use pm_kind, only: LKG => LK2
2463 logical(LKG) , intent(inout) , allocatable :: array(:)
2464 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2465 character(*, SK) , intent(out) , optional :: errmsg
2466 logical(LK) , intent(out) , optional :: failed
2467 end subroutine
2468#endif
2469
2470#if LK1_ENABLED
2471 PURE module subroutine setReboundSLLU_D1_LK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2473 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_LK1
2474#endif
2475 use pm_kind, only: LKG => LK1
2476 logical(LKG) , intent(inout) , allocatable :: array(:)
2477 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2478 character(*, SK) , intent(out) , optional :: errmsg
2479 logical(LK) , intent(out) , optional :: failed
2480 end subroutine
2481#endif
2482
2483 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2484
2485#if CK5_ENABLED
2486 PURE module subroutine setReboundSLLU_D1_CK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2488 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_CK5
2489#endif
2490 use pm_kind, only: CKG => CK5
2491 complex(CKG) , intent(inout) , allocatable :: array(:)
2492 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2493 character(*, SK) , intent(out) , optional :: errmsg
2494 logical(LK) , intent(out) , optional :: failed
2495 end subroutine
2496#endif
2497
2498#if CK4_ENABLED
2499 PURE module subroutine setReboundSLLU_D1_CK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2501 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_CK4
2502#endif
2503 use pm_kind, only: CKG => CK4
2504 complex(CKG) , intent(inout) , allocatable :: array(:)
2505 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2506 character(*, SK) , intent(out) , optional :: errmsg
2507 logical(LK) , intent(out) , optional :: failed
2508 end subroutine
2509#endif
2510
2511#if CK3_ENABLED
2512 PURE module subroutine setReboundSLLU_D1_CK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2514 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_CK3
2515#endif
2516 use pm_kind, only: CKG => CK3
2517 complex(CKG) , intent(inout) , allocatable :: array(:)
2518 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2519 character(*, SK) , intent(out) , optional :: errmsg
2520 logical(LK) , intent(out) , optional :: failed
2521 end subroutine
2522#endif
2523
2524#if CK2_ENABLED
2525 PURE module subroutine setReboundSLLU_D1_CK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2527 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_CK2
2528#endif
2529 use pm_kind, only: CKG => CK2
2530 complex(CKG) , intent(inout) , allocatable :: array(:)
2531 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2532 character(*, SK) , intent(out) , optional :: errmsg
2533 logical(LK) , intent(out) , optional :: failed
2534 end subroutine
2535#endif
2536
2537#if CK1_ENABLED
2538 PURE module subroutine setReboundSLLU_D1_CK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2540 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_CK1
2541#endif
2542 use pm_kind, only: CKG => CK1
2543 complex(CKG) , intent(inout) , allocatable :: array(:)
2544 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2545 character(*, SK) , intent(out) , optional :: errmsg
2546 logical(LK) , intent(out) , optional :: failed
2547 end subroutine
2548#endif
2549
2550 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2551
2552#if RK5_ENABLED
2553 PURE module subroutine setReboundSLLU_D1_RK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2555 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_RK5
2556#endif
2557 use pm_kind, only: RKG => RK5
2558 real(RKG) , intent(inout) , allocatable :: array(:)
2559 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2560 character(*, SK) , intent(out) , optional :: errmsg
2561 logical(LK) , intent(out) , optional :: failed
2562 end subroutine
2563#endif
2564
2565#if RK4_ENABLED
2566 PURE module subroutine setReboundSLLU_D1_RK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2568 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_RK4
2569#endif
2570 use pm_kind, only: RKG => RK4
2571 real(RKG) , intent(inout) , allocatable :: array(:)
2572 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2573 character(*, SK) , intent(out) , optional :: errmsg
2574 logical(LK) , intent(out) , optional :: failed
2575 end subroutine
2576#endif
2577
2578#if RK3_ENABLED
2579 PURE module subroutine setReboundSLLU_D1_RK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2581 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_RK3
2582#endif
2583 use pm_kind, only: RKG => RK3
2584 real(RKG) , intent(inout) , allocatable :: array(:)
2585 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2586 character(*, SK) , intent(out) , optional :: errmsg
2587 logical(LK) , intent(out) , optional :: failed
2588 end subroutine
2589#endif
2590
2591#if RK2_ENABLED
2592 PURE module subroutine setReboundSLLU_D1_RK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2594 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_RK2
2595#endif
2596 use pm_kind, only: RKG => RK2
2597 real(RKG) , intent(inout) , allocatable :: array(:)
2598 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2599 character(*, SK) , intent(out) , optional :: errmsg
2600 logical(LK) , intent(out) , optional :: failed
2601 end subroutine
2602#endif
2603
2604#if RK1_ENABLED
2605 PURE module subroutine setReboundSLLU_D1_RK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2607 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D1_RK1
2608#endif
2609 use pm_kind, only: RKG => RK1
2610 real(RKG) , intent(inout) , allocatable :: array(:)
2611 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2612 character(*, SK) , intent(out) , optional :: errmsg
2613 logical(LK) , intent(out) , optional :: failed
2614 end subroutine
2615#endif
2616
2617 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2618
2619 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2620 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2621 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2622
2623 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2624
2625#if SK5_ENABLED
2626 PURE module subroutine setReboundSLLU_D2_SK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2628 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_SK5
2629#endif
2630 use pm_kind, only: SKG => SK5
2631 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2632 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2633 character(*, SK) , intent(out) , optional :: errmsg
2634 logical(LK) , intent(out) , optional :: failed
2635 end subroutine
2636#endif
2637
2638#if SK4_ENABLED
2639 PURE module subroutine setReboundSLLU_D2_SK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2641 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_SK4
2642#endif
2643 use pm_kind, only: SKG => SK4
2644 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2645 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2646 character(*, SK) , intent(out) , optional :: errmsg
2647 logical(LK) , intent(out) , optional :: failed
2648 end subroutine
2649#endif
2650
2651#if SK3_ENABLED
2652 PURE module subroutine setReboundSLLU_D2_SK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2654 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_SK3
2655#endif
2656 use pm_kind, only: SKG => SK3
2657 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2658 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2659 character(*, SK) , intent(out) , optional :: errmsg
2660 logical(LK) , intent(out) , optional :: failed
2661 end subroutine
2662#endif
2663
2664#if SK2_ENABLED
2665 PURE module subroutine setReboundSLLU_D2_SK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2667 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_SK2
2668#endif
2669 use pm_kind, only: SKG => SK2
2670 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2671 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2672 character(*, SK) , intent(out) , optional :: errmsg
2673 logical(LK) , intent(out) , optional :: failed
2674 end subroutine
2675#endif
2676
2677#if SK1_ENABLED
2678 PURE module subroutine setReboundSLLU_D2_SK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2680 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_SK1
2681#endif
2682 use pm_kind, only: SKG => SK1
2683 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2684 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2685 character(*, SK) , intent(out) , optional :: errmsg
2686 logical(LK) , intent(out) , optional :: failed
2687 end subroutine
2688#endif
2689
2690 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2691
2692#if IK5_ENABLED
2693 PURE module subroutine setReboundSLLU_D2_IK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2695 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_IK5
2696#endif
2697 use pm_kind, only: IKG => IK5
2698 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2699 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2700 character(*, SK) , intent(out) , optional :: errmsg
2701 logical(LK) , intent(out) , optional :: failed
2702 end subroutine
2703#endif
2704
2705#if IK4_ENABLED
2706 PURE module subroutine setReboundSLLU_D2_IK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2708 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_IK4
2709#endif
2710 use pm_kind, only: IKG => IK4
2711 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2712 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2713 character(*, SK) , intent(out) , optional :: errmsg
2714 logical(LK) , intent(out) , optional :: failed
2715 end subroutine
2716#endif
2717
2718#if IK3_ENABLED
2719 PURE module subroutine setReboundSLLU_D2_IK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2721 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_IK3
2722#endif
2723 use pm_kind, only: IKG => IK3
2724 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2725 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2726 character(*, SK) , intent(out) , optional :: errmsg
2727 logical(LK) , intent(out) , optional :: failed
2728 end subroutine
2729#endif
2730
2731#if IK2_ENABLED
2732 PURE module subroutine setReboundSLLU_D2_IK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2734 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_IK2
2735#endif
2736 use pm_kind, only: IKG => IK2
2737 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2738 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2739 character(*, SK) , intent(out) , optional :: errmsg
2740 logical(LK) , intent(out) , optional :: failed
2741 end subroutine
2742#endif
2743
2744#if IK1_ENABLED
2745 PURE module subroutine setReboundSLLU_D2_IK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2747 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_IK1
2748#endif
2749 use pm_kind, only: IKG => IK1
2750 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2751 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2752 character(*, SK) , intent(out) , optional :: errmsg
2753 logical(LK) , intent(out) , optional :: failed
2754 end subroutine
2755#endif
2756
2757 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2758
2759#if LK5_ENABLED
2760 PURE module subroutine setReboundSLLU_D2_LK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2762 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_LK5
2763#endif
2764 use pm_kind, only: LKG => LK5
2765 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2766 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2767 character(*, SK) , intent(out) , optional :: errmsg
2768 logical(LK) , intent(out) , optional :: failed
2769 end subroutine
2770#endif
2771
2772#if LK4_ENABLED
2773 PURE module subroutine setReboundSLLU_D2_LK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2775 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_LK4
2776#endif
2777 use pm_kind, only: LKG => LK4
2778 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2779 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2780 character(*, SK) , intent(out) , optional :: errmsg
2781 logical(LK) , intent(out) , optional :: failed
2782 end subroutine
2783#endif
2784
2785#if LK3_ENABLED
2786 PURE module subroutine setReboundSLLU_D2_LK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2788 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_LK3
2789#endif
2790 use pm_kind, only: LKG => LK3
2791 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2792 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2793 character(*, SK) , intent(out) , optional :: errmsg
2794 logical(LK) , intent(out) , optional :: failed
2795 end subroutine
2796#endif
2797
2798#if LK2_ENABLED
2799 PURE module subroutine setReboundSLLU_D2_LK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2800#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2801 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_LK2
2802#endif
2803 use pm_kind, only: LKG => LK2
2804 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2805 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2806 character(*, SK) , intent(out) , optional :: errmsg
2807 logical(LK) , intent(out) , optional :: failed
2808 end subroutine
2809#endif
2810
2811#if LK1_ENABLED
2812 PURE module subroutine setReboundSLLU_D2_LK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2814 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_LK1
2815#endif
2816 use pm_kind, only: LKG => LK1
2817 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2818 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2819 character(*, SK) , intent(out) , optional :: errmsg
2820 logical(LK) , intent(out) , optional :: failed
2821 end subroutine
2822#endif
2823
2824 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2825
2826#if CK5_ENABLED
2827 PURE module subroutine setReboundSLLU_D2_CK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2828#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2829 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_CK5
2830#endif
2831 use pm_kind, only: CKG => CK5
2832 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2833 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2834 character(*, SK) , intent(out) , optional :: errmsg
2835 logical(LK) , intent(out) , optional :: failed
2836 end subroutine
2837#endif
2838
2839#if CK4_ENABLED
2840 PURE module subroutine setReboundSLLU_D2_CK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2842 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_CK4
2843#endif
2844 use pm_kind, only: CKG => CK4
2845 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2846 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2847 character(*, SK) , intent(out) , optional :: errmsg
2848 logical(LK) , intent(out) , optional :: failed
2849 end subroutine
2850#endif
2851
2852#if CK3_ENABLED
2853 PURE module subroutine setReboundSLLU_D2_CK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2855 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_CK3
2856#endif
2857 use pm_kind, only: CKG => CK3
2858 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2859 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2860 character(*, SK) , intent(out) , optional :: errmsg
2861 logical(LK) , intent(out) , optional :: failed
2862 end subroutine
2863#endif
2864
2865#if CK2_ENABLED
2866 PURE module subroutine setReboundSLLU_D2_CK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2868 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_CK2
2869#endif
2870 use pm_kind, only: CKG => CK2
2871 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2872 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2873 character(*, SK) , intent(out) , optional :: errmsg
2874 logical(LK) , intent(out) , optional :: failed
2875 end subroutine
2876#endif
2877
2878#if CK1_ENABLED
2879 PURE module subroutine setReboundSLLU_D2_CK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2881 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_CK1
2882#endif
2883 use pm_kind, only: CKG => CK1
2884 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2885 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2886 character(*, SK) , intent(out) , optional :: errmsg
2887 logical(LK) , intent(out) , optional :: failed
2888 end subroutine
2889#endif
2890
2891 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2892
2893#if RK5_ENABLED
2894 PURE module subroutine setReboundSLLU_D2_RK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2896 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_RK5
2897#endif
2898 use pm_kind, only: RKG => RK5
2899 real(RKG) , intent(inout) , allocatable :: array(:,:)
2900 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2901 character(*, SK) , intent(out) , optional :: errmsg
2902 logical(LK) , intent(out) , optional :: failed
2903 end subroutine
2904#endif
2905
2906#if RK4_ENABLED
2907 PURE module subroutine setReboundSLLU_D2_RK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2909 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_RK4
2910#endif
2911 use pm_kind, only: RKG => RK4
2912 real(RKG) , intent(inout) , allocatable :: array(:,:)
2913 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2914 character(*, SK) , intent(out) , optional :: errmsg
2915 logical(LK) , intent(out) , optional :: failed
2916 end subroutine
2917#endif
2918
2919#if RK3_ENABLED
2920 PURE module subroutine setReboundSLLU_D2_RK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2922 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_RK3
2923#endif
2924 use pm_kind, only: RKG => RK3
2925 real(RKG) , intent(inout) , allocatable :: array(:,:)
2926 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2927 character(*, SK) , intent(out) , optional :: errmsg
2928 logical(LK) , intent(out) , optional :: failed
2929 end subroutine
2930#endif
2931
2932#if RK2_ENABLED
2933 PURE module subroutine setReboundSLLU_D2_RK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2935 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_RK2
2936#endif
2937 use pm_kind, only: RKG => RK2
2938 real(RKG) , intent(inout) , allocatable :: array(:,:)
2939 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2940 character(*, SK) , intent(out) , optional :: errmsg
2941 logical(LK) , intent(out) , optional :: failed
2942 end subroutine
2943#endif
2944
2945#if RK1_ENABLED
2946 PURE module subroutine setReboundSLLU_D2_RK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2948 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D2_RK1
2949#endif
2950 use pm_kind, only: RKG => RK1
2951 real(RKG) , intent(inout) , allocatable :: array(:,:)
2952 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2953 character(*, SK) , intent(out) , optional :: errmsg
2954 logical(LK) , intent(out) , optional :: failed
2955 end subroutine
2956#endif
2957
2958 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2959
2960 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2961 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2962 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2963
2964 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2965
2966#if SK5_ENABLED
2967 PURE module subroutine setReboundSLLU_D3_SK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2969 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_SK5
2970#endif
2971 use pm_kind, only: SKG => SK5
2972 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2973 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
2974 character(*, SK) , intent(out) , optional :: errmsg
2975 logical(LK) , intent(out) , optional :: failed
2976 end subroutine
2977#endif
2978
2979#if SK4_ENABLED
2980 PURE module subroutine setReboundSLLU_D3_SK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2982 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_SK4
2983#endif
2984 use pm_kind, only: SKG => SK4
2985 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2986 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
2987 character(*, SK) , intent(out) , optional :: errmsg
2988 logical(LK) , intent(out) , optional :: failed
2989 end subroutine
2990#endif
2991
2992#if SK3_ENABLED
2993 PURE module subroutine setReboundSLLU_D3_SK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2995 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_SK3
2996#endif
2997 use pm_kind, only: SKG => SK3
2998 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2999 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3000 character(*, SK) , intent(out) , optional :: errmsg
3001 logical(LK) , intent(out) , optional :: failed
3002 end subroutine
3003#endif
3004
3005#if SK2_ENABLED
3006 PURE module subroutine setReboundSLLU_D3_SK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3008 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_SK2
3009#endif
3010 use pm_kind, only: SKG => SK2
3011 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3012 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3013 character(*, SK) , intent(out) , optional :: errmsg
3014 logical(LK) , intent(out) , optional :: failed
3015 end subroutine
3016#endif
3017
3018#if SK1_ENABLED
3019 PURE module subroutine setReboundSLLU_D3_SK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3020#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3021 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_SK1
3022#endif
3023 use pm_kind, only: SKG => SK1
3024 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3025 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3026 character(*, SK) , intent(out) , optional :: errmsg
3027 logical(LK) , intent(out) , optional :: failed
3028 end subroutine
3029#endif
3030
3031 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3032
3033#if IK5_ENABLED
3034 PURE module subroutine setReboundSLLU_D3_IK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3036 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_IK5
3037#endif
3038 use pm_kind, only: IKG => IK5
3039 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3040 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3041 character(*, SK) , intent(out) , optional :: errmsg
3042 logical(LK) , intent(out) , optional :: failed
3043 end subroutine
3044#endif
3045
3046#if IK4_ENABLED
3047 PURE module subroutine setReboundSLLU_D3_IK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3048#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3049 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_IK4
3050#endif
3051 use pm_kind, only: IKG => IK4
3052 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3053 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3054 character(*, SK) , intent(out) , optional :: errmsg
3055 logical(LK) , intent(out) , optional :: failed
3056 end subroutine
3057#endif
3058
3059#if IK3_ENABLED
3060 PURE module subroutine setReboundSLLU_D3_IK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3062 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_IK3
3063#endif
3064 use pm_kind, only: IKG => IK3
3065 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3066 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3067 character(*, SK) , intent(out) , optional :: errmsg
3068 logical(LK) , intent(out) , optional :: failed
3069 end subroutine
3070#endif
3071
3072#if IK2_ENABLED
3073 PURE module subroutine setReboundSLLU_D3_IK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3075 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_IK2
3076#endif
3077 use pm_kind, only: IKG => IK2
3078 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3079 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3080 character(*, SK) , intent(out) , optional :: errmsg
3081 logical(LK) , intent(out) , optional :: failed
3082 end subroutine
3083#endif
3084
3085#if IK1_ENABLED
3086 PURE module subroutine setReboundSLLU_D3_IK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3088 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_IK1
3089#endif
3090 use pm_kind, only: IKG => IK1
3091 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3092 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3093 character(*, SK) , intent(out) , optional :: errmsg
3094 logical(LK) , intent(out) , optional :: failed
3095 end subroutine
3096#endif
3097
3098 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3099
3100#if LK5_ENABLED
3101 PURE module subroutine setReboundSLLU_D3_LK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3103 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_LK5
3104#endif
3105 use pm_kind, only: LKG => LK5
3106 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3107 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3108 character(*, SK) , intent(out) , optional :: errmsg
3109 logical(LK) , intent(out) , optional :: failed
3110 end subroutine
3111#endif
3112
3113#if LK4_ENABLED
3114 PURE module subroutine setReboundSLLU_D3_LK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3116 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_LK4
3117#endif
3118 use pm_kind, only: LKG => LK4
3119 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3120 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3121 character(*, SK) , intent(out) , optional :: errmsg
3122 logical(LK) , intent(out) , optional :: failed
3123 end subroutine
3124#endif
3125
3126#if LK3_ENABLED
3127 PURE module subroutine setReboundSLLU_D3_LK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3129 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_LK3
3130#endif
3131 use pm_kind, only: LKG => LK3
3132 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3133 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3134 character(*, SK) , intent(out) , optional :: errmsg
3135 logical(LK) , intent(out) , optional :: failed
3136 end subroutine
3137#endif
3138
3139#if LK2_ENABLED
3140 PURE module subroutine setReboundSLLU_D3_LK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3142 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_LK2
3143#endif
3144 use pm_kind, only: LKG => LK2
3145 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3146 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3147 character(*, SK) , intent(out) , optional :: errmsg
3148 logical(LK) , intent(out) , optional :: failed
3149 end subroutine
3150#endif
3151
3152#if LK1_ENABLED
3153 PURE module subroutine setReboundSLLU_D3_LK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3155 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_LK1
3156#endif
3157 use pm_kind, only: LKG => LK1
3158 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3159 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3160 character(*, SK) , intent(out) , optional :: errmsg
3161 logical(LK) , intent(out) , optional :: failed
3162 end subroutine
3163#endif
3164
3165 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3166
3167#if CK5_ENABLED
3168 PURE module subroutine setReboundSLLU_D3_CK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3170 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_CK5
3171#endif
3172 use pm_kind, only: CKG => CK5
3173 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3174 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3175 character(*, SK) , intent(out) , optional :: errmsg
3176 logical(LK) , intent(out) , optional :: failed
3177 end subroutine
3178#endif
3179
3180#if CK4_ENABLED
3181 PURE module subroutine setReboundSLLU_D3_CK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3183 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_CK4
3184#endif
3185 use pm_kind, only: CKG => CK4
3186 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3187 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3188 character(*, SK) , intent(out) , optional :: errmsg
3189 logical(LK) , intent(out) , optional :: failed
3190 end subroutine
3191#endif
3192
3193#if CK3_ENABLED
3194 PURE module subroutine setReboundSLLU_D3_CK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3196 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_CK3
3197#endif
3198 use pm_kind, only: CKG => CK3
3199 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3200 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3201 character(*, SK) , intent(out) , optional :: errmsg
3202 logical(LK) , intent(out) , optional :: failed
3203 end subroutine
3204#endif
3205
3206#if CK2_ENABLED
3207 PURE module subroutine setReboundSLLU_D3_CK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3209 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_CK2
3210#endif
3211 use pm_kind, only: CKG => CK2
3212 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3213 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3214 character(*, SK) , intent(out) , optional :: errmsg
3215 logical(LK) , intent(out) , optional :: failed
3216 end subroutine
3217#endif
3218
3219#if CK1_ENABLED
3220 PURE module subroutine setReboundSLLU_D3_CK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3222 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_CK1
3223#endif
3224 use pm_kind, only: CKG => CK1
3225 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3226 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3227 character(*, SK) , intent(out) , optional :: errmsg
3228 logical(LK) , intent(out) , optional :: failed
3229 end subroutine
3230#endif
3231
3232 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3233
3234#if RK5_ENABLED
3235 PURE module subroutine setReboundSLLU_D3_RK5(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3237 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_RK5
3238#endif
3239 use pm_kind, only: RKG => RK5
3240 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3241 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3242 character(*, SK) , intent(out) , optional :: errmsg
3243 logical(LK) , intent(out) , optional :: failed
3244 end subroutine
3245#endif
3246
3247#if RK4_ENABLED
3248 PURE module subroutine setReboundSLLU_D3_RK4(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3250 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_RK4
3251#endif
3252 use pm_kind, only: RKG => RK4
3253 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3254 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3255 character(*, SK) , intent(out) , optional :: errmsg
3256 logical(LK) , intent(out) , optional :: failed
3257 end subroutine
3258#endif
3259
3260#if RK3_ENABLED
3261 PURE module subroutine setReboundSLLU_D3_RK3(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3263 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_RK3
3264#endif
3265 use pm_kind, only: RKG => RK3
3266 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3267 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3268 character(*, SK) , intent(out) , optional :: errmsg
3269 logical(LK) , intent(out) , optional :: failed
3270 end subroutine
3271#endif
3272
3273#if RK2_ENABLED
3274 PURE module subroutine setReboundSLLU_D3_RK2(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3276 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_RK2
3277#endif
3278 use pm_kind, only: RKG => RK2
3279 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3280 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3281 character(*, SK) , intent(out) , optional :: errmsg
3282 logical(LK) , intent(out) , optional :: failed
3283 end subroutine
3284#endif
3285
3286#if RK1_ENABLED
3287 PURE module subroutine setReboundSLLU_D3_RK1(array, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3289 !DEC$ ATTRIBUTES DLLEXPORT :: setReboundSLLU_D3_RK1
3290#endif
3291 use pm_kind, only: RKG => RK1
3292 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3293 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3294 character(*, SK) , intent(out) , optional :: errmsg
3295 logical(LK) , intent(out) , optional :: failed
3296 end subroutine
3297#endif
3298
3299 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3300
3301 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3302 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3304
3305 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3306 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3307 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3308
3309 end interface
3310
3311!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3312
3313end module pm_arrayRebind ! LCOV_EXCL_LINE
pm_arrayRebind::setRebound
Resize (shrink or expand) an input allocatable array of rank 1..3 to arbitrary new lower and upper bo...
Definition: pm_arrayRebind.F90:218
pm_arrayRebind
This module contains procedures and generic interfaces for resizing allocatable arrays of various typ...
Definition: pm_arrayRebind.F90:64
pm_arrayRebind::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayRebind.F90:70
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::SK5
integer, parameter SK5
Definition: pm_kind.F90:326
pm_kind::LK1
integer, parameter LK1
Definition: pm_kind.F90:412
pm_kind::IK3
integer, parameter IK3
Definition: pm_kind.F90:368
pm_kind::RK5
integer, parameter RK5
Definition: pm_kind.F90:478
pm_kind::RK4
integer, parameter RK4
Definition: pm_kind.F90:489
pm_kind::SK1
integer, parameter SK1
Definition: pm_kind.F90:346
pm_kind::IK1
integer, parameter IK1
Definition: pm_kind.F90:382
pm_kind::LK5
integer, parameter LK5
Definition: pm_kind.F90:392
pm_kind::RK2
integer, parameter RK2
Definition: pm_kind.F90:511
pm_kind::CK1
integer, parameter CK1
Definition: pm_kind.F90:464
pm_kind::RK3
integer, parameter RK3
Definition: pm_kind.F90:500
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::LK2
integer, parameter LK2
Definition: pm_kind.F90:407
pm_kind::LK4
integer, parameter LK4
Definition: pm_kind.F90:397
pm_kind::CK5
integer, parameter CK5
Definition: pm_kind.F90:420
pm_kind::CK4
integer, parameter CK4
Definition: pm_kind.F90:431
pm_kind::SK4
integer, parameter SK4
Definition: pm_kind.F90:331
pm_kind::LK3
integer, parameter LK3
Definition: pm_kind.F90:402
pm_kind::IK2
integer, parameter IK2
Definition: pm_kind.F90:375
pm_kind::CK2
integer, parameter CK2
Definition: pm_kind.F90:453
pm_kind::SK2
integer, parameter SK2
Definition: pm_kind.F90:341
pm_kind::CK3
integer, parameter CK3
Definition: pm_kind.F90:442
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::IK4
integer, parameter IK4
Definition: pm_kind.F90:361
pm_kind::IK5
integer, parameter IK5
Definition: pm_kind.F90:354
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RK1
integer, parameter RK1
Definition: pm_kind.F90:522
pm_kind::SK3
integer, parameter SK3
Definition: pm_kind.F90:336