141 PURE module function getFilled_D1_SK5(val, s1)
result(array)
142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
143 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_SK5
146 integer(IK) ,
intent(in) :: s1
147 character(
*,SKG) ,
intent(in) :: val
148 character(
len(val,IK),SKG) :: array(s1)
153 PURE module function getFilled_D1_SK4(val, s1)
result(array)
154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
155 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_SK4
158 integer(IK) ,
intent(in) :: s1
159 character(
*,SKG) ,
intent(in) :: val
160 character(
len(val,IK),SKG) :: array(s1)
165 PURE module function getFilled_D1_SK3(val, s1)
result(array)
166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
167 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_SK3
170 integer(IK) ,
intent(in) :: s1
171 character(
*,SKG) ,
intent(in) :: val
172 character(
len(val,IK),SKG) :: array(s1)
177 PURE module function getFilled_D1_SK2(val, s1)
result(array)
178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
179 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_SK2
182 integer(IK) ,
intent(in) :: s1
183 character(
*,SKG) ,
intent(in) :: val
184 character(
len(val,IK),SKG) :: array(s1)
189 PURE module function getFilled_D1_SK1(val, s1)
result(array)
190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
191 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_SK1
194 integer(IK) ,
intent(in) :: s1
195 character(
*,SKG) ,
intent(in) :: val
196 character(
len(val,IK),SKG) :: array(s1)
203 PURE module function getFilled_D1_IK5(val, s1)
result(array)
204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
205 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_IK5
208 integer(IK) ,
intent(in) :: s1
209 integer(IKG) ,
intent(in) :: val
210 integer(IKG) :: array(s1)
215 PURE module function getFilled_D1_IK4(val, s1)
result(array)
216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
217 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_IK4
220 integer(IK) ,
intent(in) :: s1
221 integer(IKG) ,
intent(in) :: val
222 integer(IKG) :: array(s1)
227 PURE module function getFilled_D1_IK3(val, s1)
result(array)
228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
229 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_IK3
232 integer(IK) ,
intent(in) :: s1
233 integer(IKG) ,
intent(in) :: val
234 integer(IKG) :: array(s1)
239 PURE module function getFilled_D1_IK2(val, s1)
result(array)
240#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
241 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_IK2
244 integer(IK) ,
intent(in) :: s1
245 integer(IKG) ,
intent(in) :: val
246 integer(IKG) :: array(s1)
251 PURE module function getFilled_D1_IK1(val, s1)
result(array)
252#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
253 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_IK1
256 integer(IK) ,
intent(in) :: s1
257 integer(IKG) ,
intent(in) :: val
258 integer(IKG) :: array(s1)
265 PURE module function getFilled_D1_LK5(val, s1)
result(array)
266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
267 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_LK5
270 integer(IK) ,
intent(in) :: s1
271 logical(LKG) ,
intent(in) :: val
272 logical(LKG) :: array(s1)
277 PURE module function getFilled_D1_LK4(val, s1)
result(array)
278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
279 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_LK4
282 integer(IK) ,
intent(in) :: s1
283 logical(LKG) ,
intent(in) :: val
284 logical(LKG) :: array(s1)
289 PURE module function getFilled_D1_LK3(val, s1)
result(array)
290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
291 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_LK3
294 integer(IK) ,
intent(in) :: s1
295 logical(LKG) ,
intent(in) :: val
296 logical(LKG) :: array(s1)
301 PURE module function getFilled_D1_LK2(val, s1)
result(array)
302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
303 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_LK2
306 integer(IK) ,
intent(in) :: s1
307 logical(LKG) ,
intent(in) :: val
308 logical(LKG) :: array(s1)
313 PURE module function getFilled_D1_LK1(val, s1)
result(array)
314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
315 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_LK1
318 integer(IK) ,
intent(in) :: s1
319 logical(LKG) ,
intent(in) :: val
320 logical(LKG) :: array(s1)
327 PURE module function getFilled_D1_CK5(val, s1)
result(array)
328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
329 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_CK5
332 integer(IK) ,
intent(in) :: s1
333 complex(CKG) ,
intent(in) :: val
334 complex(CKG) :: array(s1)
339 PURE module function getFilled_D1_CK4(val, s1)
result(array)
340#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
341 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_CK4
344 integer(IK) ,
intent(in) :: s1
345 complex(CKG) ,
intent(in) :: val
346 complex(CKG) :: array(s1)
351 PURE module function getFilled_D1_CK3(val, s1)
result(array)
352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
353 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_CK3
356 integer(IK) ,
intent(in) :: s1
357 complex(CKG) ,
intent(in) :: val
358 complex(CKG) :: array(s1)
363 PURE module function getFilled_D1_CK2(val, s1)
result(array)
364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
365 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_CK2
368 integer(IK) ,
intent(in) :: s1
369 complex(CKG) ,
intent(in) :: val
370 complex(CKG) :: array(s1)
375 PURE module function getFilled_D1_CK1(val, s1)
result(array)
376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
377 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_CK1
380 integer(IK) ,
intent(in) :: s1
381 complex(CKG) ,
intent(in) :: val
382 complex(CKG) :: array(s1)
389 PURE module function getFilled_D1_RK5(val, s1)
result(array)
390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
391 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_RK5
394 integer(IK) ,
intent(in) :: s1
395 real(RKG) ,
intent(in) :: val
396 real(RKG) :: array(s1)
401 PURE module function getFilled_D1_RK4(val, s1)
result(array)
402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
403 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_RK4
406 integer(IK) ,
intent(in) :: s1
407 real(RKG) ,
intent(in) :: val
408 real(RKG) :: array(s1)
413 PURE module function getFilled_D1_RK3(val, s1)
result(array)
414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
415 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_RK3
418 integer(IK) ,
intent(in) :: s1
419 real(RKG) ,
intent(in) :: val
420 real(RKG) :: array(s1)
425 PURE module function getFilled_D1_RK2(val, s1)
result(array)
426#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
427 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_RK2
430 integer(IK) ,
intent(in) :: s1
431 real(RKG) ,
intent(in) :: val
432 real(RKG) :: array(s1)
437 PURE module function getFilled_D1_RK1(val, s1)
result(array)
438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
439 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D1_RK1
442 integer(IK) ,
intent(in) :: s1
443 real(RKG) ,
intent(in) :: val
444 real(RKG) :: array(s1)
457 PURE module function getFilled_D2_SK5(val, s1, s2)
result(array)
458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
459 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_SK5
462 integer(IK) ,
intent(in) :: s1, s2
463 character(
*,SKG) ,
intent(in) :: val
464 character(
len(val,IK),SKG) :: array(s1, s2)
469 PURE module function getFilled_D2_SK4(val, s1, s2)
result(array)
470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
471 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_SK4
474 integer(IK) ,
intent(in) :: s1, s2
475 character(
*,SKG) ,
intent(in) :: val
476 character(
len(val,IK),SKG) :: array(s1, s2)
481 PURE module function getFilled_D2_SK3(val, s1, s2)
result(array)
482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
483 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_SK3
486 integer(IK) ,
intent(in) :: s1, s2
487 character(
*,SKG) ,
intent(in) :: val
488 character(
len(val,IK),SKG) :: array(s1, s2)
493 PURE module function getFilled_D2_SK2(val, s1, s2)
result(array)
494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
495 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_SK2
498 integer(IK) ,
intent(in) :: s1, s2
499 character(
*,SKG) ,
intent(in) :: val
500 character(
len(val,IK),SKG) :: array(s1, s2)
505 PURE module function getFilled_D2_SK1(val, s1, s2)
result(array)
506#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
507 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_SK1
510 integer(IK) ,
intent(in) :: s1, s2
511 character(
*,SKG) ,
intent(in) :: val
512 character(
len(val,IK),SKG) :: array(s1, s2)
519 PURE module function getFilled_D2_IK5(val, s1, s2)
result(array)
520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
521 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_IK5
524 integer(IK) ,
intent(in) :: s1, s2
525 integer(IKG) ,
intent(in) :: val
526 integer(IKG) :: array(s1, s2)
531 PURE module function getFilled_D2_IK4(val, s1, s2)
result(array)
532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
533 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_IK4
536 integer(IK) ,
intent(in) :: s1, s2
537 integer(IKG) ,
intent(in) :: val
538 integer(IKG) :: array(s1, s2)
543 PURE module function getFilled_D2_IK3(val, s1, s2)
result(array)
544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
545 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_IK3
548 integer(IK) ,
intent(in) :: s1, s2
549 integer(IKG) ,
intent(in) :: val
550 integer(IKG) :: array(s1, s2)
555 PURE module function getFilled_D2_IK2(val, s1, s2)
result(array)
556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
557 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_IK2
560 integer(IK) ,
intent(in) :: s1, s2
561 integer(IKG) ,
intent(in) :: val
562 integer(IKG) :: array(s1, s2)
567 PURE module function getFilled_D2_IK1(val, s1, s2)
result(array)
568#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
569 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_IK1
572 integer(IK) ,
intent(in) :: s1, s2
573 integer(IKG) ,
intent(in) :: val
574 integer(IKG) :: array(s1, s2)
581 PURE module function getFilled_D2_LK5(val, s1, s2)
result(array)
582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
583 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_LK5
586 integer(IK) ,
intent(in) :: s1, s2
587 logical(LKG) ,
intent(in) :: val
588 logical(LKG) :: array(s1, s2)
593 PURE module function getFilled_D2_LK4(val, s1, s2)
result(array)
594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
595 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_LK4
598 integer(IK) ,
intent(in) :: s1, s2
599 logical(LKG) ,
intent(in) :: val
600 logical(LKG) :: array(s1, s2)
605 PURE module function getFilled_D2_LK3(val, s1, s2)
result(array)
606#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
607 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_LK3
610 integer(IK) ,
intent(in) :: s1, s2
611 logical(LKG) ,
intent(in) :: val
612 logical(LKG) :: array(s1, s2)
617 PURE module function getFilled_D2_LK2(val, s1, s2)
result(array)
618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
619 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_LK2
622 integer(IK) ,
intent(in) :: s1, s2
623 logical(LKG) ,
intent(in) :: val
624 logical(LKG) :: array(s1, s2)
629 PURE module function getFilled_D2_LK1(val, s1, s2)
result(array)
630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
631 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_LK1
634 integer(IK) ,
intent(in) :: s1, s2
635 logical(LKG) ,
intent(in) :: val
636 logical(LKG) :: array(s1, s2)
643 PURE module function getFilled_D2_CK5(val, s1, s2)
result(array)
644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
645 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_CK5
648 integer(IK) ,
intent(in) :: s1, s2
649 complex(CKG) ,
intent(in) :: val
650 complex(CKG) :: array(s1, s2)
655 PURE module function getFilled_D2_CK4(val, s1, s2)
result(array)
656#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
657 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_CK4
660 integer(IK) ,
intent(in) :: s1, s2
661 complex(CKG) ,
intent(in) :: val
662 complex(CKG) :: array(s1, s2)
667 PURE module function getFilled_D2_CK3(val, s1, s2)
result(array)
668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
669 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_CK3
672 integer(IK) ,
intent(in) :: s1, s2
673 complex(CKG) ,
intent(in) :: val
674 complex(CKG) :: array(s1, s2)
679 PURE module function getFilled_D2_CK2(val, s1, s2)
result(array)
680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
681 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_CK2
684 integer(IK) ,
intent(in) :: s1, s2
685 complex(CKG) ,
intent(in) :: val
686 complex(CKG) :: array(s1, s2)
691 PURE module function getFilled_D2_CK1(val, s1, s2)
result(array)
692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
693 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_CK1
696 integer(IK) ,
intent(in) :: s1, s2
697 complex(CKG) ,
intent(in) :: val
698 complex(CKG) :: array(s1, s2)
705 PURE module function getFilled_D2_RK5(val, s1, s2)
result(array)
706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
707 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_RK5
710 integer(IK) ,
intent(in) :: s1, s2
711 real(RKG) ,
intent(in) :: val
712 real(RKG) :: array(s1, s2)
717 PURE module function getFilled_D2_RK4(val, s1, s2)
result(array)
718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
719 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_RK4
722 integer(IK) ,
intent(in) :: s1, s2
723 real(RKG) ,
intent(in) :: val
724 real(RKG) :: array(s1, s2)
729 PURE module function getFilled_D2_RK3(val, s1, s2)
result(array)
730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
731 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_RK3
734 integer(IK) ,
intent(in) :: s1, s2
735 real(RKG) ,
intent(in) :: val
736 real(RKG) :: array(s1, s2)
741 PURE module function getFilled_D2_RK2(val, s1, s2)
result(array)
742#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
743 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_RK2
746 integer(IK) ,
intent(in) :: s1, s2
747 real(RKG) ,
intent(in) :: val
748 real(RKG) :: array(s1, s2)
753 PURE module function getFilled_D2_RK1(val, s1, s2)
result(array)
754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
755 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D2_RK1
758 integer(IK) ,
intent(in) :: s1, s2
759 real(RKG) ,
intent(in) :: val
760 real(RKG) :: array(s1, s2)
773 PURE module function getFilled_D3_SK5(val, s1, s2, s3)
result(array)
774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
775 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_SK5
778 integer(IK) ,
intent(in) :: s1, s2, s3
779 character(
*,SKG) ,
intent(in) :: val
780 character(
len(val,IK),SKG) :: array(s1, s2, s3)
785 PURE module function getFilled_D3_SK4(val, s1, s2, s3)
result(array)
786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
787 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_SK4
790 integer(IK) ,
intent(in) :: s1, s2, s3
791 character(
*,SKG) ,
intent(in) :: val
792 character(
len(val,IK),SKG) :: array(s1, s2, s3)
797 PURE module function getFilled_D3_SK3(val, s1, s2, s3)
result(array)
798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
799 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_SK3
802 integer(IK) ,
intent(in) :: s1, s2, s3
803 character(
*,SKG) ,
intent(in) :: val
804 character(
len(val,IK),SKG) :: array(s1, s2, s3)
809 PURE module function getFilled_D3_SK2(val, s1, s2, s3)
result(array)
810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
811 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_SK2
814 integer(IK) ,
intent(in) :: s1, s2, s3
815 character(
*,SKG) ,
intent(in) :: val
816 character(
len(val,IK),SKG) :: array(s1, s2, s3)
821 PURE module function getFilled_D3_SK1(val, s1, s2, s3)
result(array)
822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
823 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_SK1
826 integer(IK) ,
intent(in) :: s1, s2, s3
827 character(
*,SKG) ,
intent(in) :: val
828 character(
len(val,IK),SKG) :: array(s1, s2, s3)
835 PURE module function getFilled_D3_IK5(val, s1, s2, s3)
result(array)
836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
837 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_IK5
840 integer(IK) ,
intent(in) :: s1, s2, s3
841 integer(IKG) ,
intent(in) :: val
842 integer(IKG) :: array(s1, s2, s3)
847 PURE module function getFilled_D3_IK4(val, s1, s2, s3)
result(array)
848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
849 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_IK4
852 integer(IK) ,
intent(in) :: s1, s2, s3
853 integer(IKG) ,
intent(in) :: val
854 integer(IKG) :: array(s1, s2, s3)
859 PURE module function getFilled_D3_IK3(val, s1, s2, s3)
result(array)
860#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
861 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_IK3
864 integer(IK) ,
intent(in) :: s1, s2, s3
865 integer(IKG) ,
intent(in) :: val
866 integer(IKG) :: array(s1, s2, s3)
871 PURE module function getFilled_D3_IK2(val, s1, s2, s3)
result(array)
872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
873 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_IK2
876 integer(IK) ,
intent(in) :: s1, s2, s3
877 integer(IKG) ,
intent(in) :: val
878 integer(IKG) :: array(s1, s2, s3)
883 PURE module function getFilled_D3_IK1(val, s1, s2, s3)
result(array)
884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
885 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_IK1
888 integer(IK) ,
intent(in) :: s1, s2, s3
889 integer(IKG) ,
intent(in) :: val
890 integer(IKG) :: array(s1, s2, s3)
897 PURE module function getFilled_D3_LK5(val, s1, s2, s3)
result(array)
898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
899 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_LK5
902 integer(IK) ,
intent(in) :: s1, s2, s3
903 logical(LKG) ,
intent(in) :: val
904 logical(LKG) :: array(s1, s2, s3)
909 PURE module function getFilled_D3_LK4(val, s1, s2, s3)
result(array)
910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
911 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_LK4
914 integer(IK) ,
intent(in) :: s1, s2, s3
915 logical(LKG) ,
intent(in) :: val
916 logical(LKG) :: array(s1, s2, s3)
921 PURE module function getFilled_D3_LK3(val, s1, s2, s3)
result(array)
922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
923 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_LK3
926 integer(IK) ,
intent(in) :: s1, s2, s3
927 logical(LKG) ,
intent(in) :: val
928 logical(LKG) :: array(s1, s2, s3)
933 PURE module function getFilled_D3_LK2(val, s1, s2, s3)
result(array)
934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
935 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_LK2
938 integer(IK) ,
intent(in) :: s1, s2, s3
939 logical(LKG) ,
intent(in) :: val
940 logical(LKG) :: array(s1, s2, s3)
945 PURE module function getFilled_D3_LK1(val, s1, s2, s3)
result(array)
946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
947 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_LK1
950 integer(IK) ,
intent(in) :: s1, s2, s3
951 logical(LKG) ,
intent(in) :: val
952 logical(LKG) :: array(s1, s2, s3)
959 PURE module function getFilled_D3_CK5(val, s1, s2, s3)
result(array)
960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
961 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_CK5
964 integer(IK) ,
intent(in) :: s1, s2, s3
965 complex(CKG) ,
intent(in) :: val
966 complex(CKG) :: array(s1, s2, s3)
971 PURE module function getFilled_D3_CK4(val, s1, s2, s3)
result(array)
972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
973 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_CK4
976 integer(IK) ,
intent(in) :: s1, s2, s3
977 complex(CKG) ,
intent(in) :: val
978 complex(CKG) :: array(s1, s2, s3)
983 PURE module function getFilled_D3_CK3(val, s1, s2, s3)
result(array)
984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
985 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_CK3
988 integer(IK) ,
intent(in) :: s1, s2, s3
989 complex(CKG) ,
intent(in) :: val
990 complex(CKG) :: array(s1, s2, s3)
995 PURE module function getFilled_D3_CK2(val, s1, s2, s3)
result(array)
996#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
997 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_CK2
1000 integer(IK) ,
intent(in) :: s1, s2, s3
1001 complex(CKG) ,
intent(in) :: val
1002 complex(CKG) :: array(s1, s2, s3)
1007 PURE module function getFilled_D3_CK1(val, s1, s2, s3)
result(array)
1008#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1009 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_CK1
1012 integer(IK) ,
intent(in) :: s1, s2, s3
1013 complex(CKG) ,
intent(in) :: val
1014 complex(CKG) :: array(s1, s2, s3)
1021 PURE module function getFilled_D3_RK5(val, s1, s2, s3)
result(array)
1022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1023 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_RK5
1026 integer(IK) ,
intent(in) :: s1, s2, s3
1027 real(RKG) ,
intent(in) :: val
1028 real(RKG) :: array(s1, s2, s3)
1033 PURE module function getFilled_D3_RK4(val, s1, s2, s3)
result(array)
1034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1035 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_RK4
1038 integer(IK) ,
intent(in) :: s1, s2, s3
1039 real(RKG) ,
intent(in) :: val
1040 real(RKG) :: array(s1, s2, s3)
1045 PURE module function getFilled_D3_RK3(val, s1, s2, s3)
result(array)
1046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1047 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_RK3
1050 integer(IK) ,
intent(in) :: s1, s2, s3
1051 real(RKG) ,
intent(in) :: val
1052 real(RKG) :: array(s1, s2, s3)
1057 PURE module function getFilled_D3_RK2(val, s1, s2, s3)
result(array)
1058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1059 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_RK2
1062 integer(IK) ,
intent(in) :: s1, s2, s3
1063 real(RKG) ,
intent(in) :: val
1064 real(RKG) :: array(s1, s2, s3)
1069 PURE module function getFilled_D3_RK1(val, s1, s2, s3)
result(array)
1070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1071 !DEC$ ATTRIBUTES DLLEXPORT :: getFilled_D3_RK1
1074 integer(IK) ,
intent(in) :: s1, s2, s3
1075 real(RKG) ,
intent(in) :: val
1076 real(RKG) :: array(s1, s2, s3)
Generate and return an array of the specified rank and shape of arbitrary intrinsic type and kind wit...
This module contains procedures and generic interfaces for convenient allocation and filling of array...
character(*, SK), parameter MODULE_NAME
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...