ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_arrayFill.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
39
40!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41
42module pm_arrayFill
43
44 use pm_kind, only: SK, IK, LK
45
46 implicit none
47
48 character(*,SK), parameter :: MODULE_NAME = "@pm_arrayFill"
49
50!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51
132 interface getFilled
133
134 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
135 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
137
138 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
139
140#if SK5_ENABLED
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
144#endif
145 use pm_kind, only: SKG => SK5
146 integer(IK) , intent(in) :: s1
147 character(*,SKG) , intent(in) :: val
148 character(len(val,IK),SKG) :: array(s1)
149 end function
150#endif
151
152#if SK4_ENABLED
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
156#endif
157 use pm_kind, only: SKG => SK4
158 integer(IK) , intent(in) :: s1
159 character(*,SKG) , intent(in) :: val
160 character(len(val,IK),SKG) :: array(s1)
161 end function
162#endif
163
164#if SK3_ENABLED
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
168#endif
169 use pm_kind, only: SKG => SK3
170 integer(IK) , intent(in) :: s1
171 character(*,SKG) , intent(in) :: val
172 character(len(val,IK),SKG) :: array(s1)
173 end function
174#endif
175
176#if SK2_ENABLED
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
180#endif
181 use pm_kind, only: SKG => SK2
182 integer(IK) , intent(in) :: s1
183 character(*,SKG) , intent(in) :: val
184 character(len(val,IK),SKG) :: array(s1)
185 end function
186#endif
187
188#if SK1_ENABLED
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
192#endif
193 use pm_kind, only: SKG => SK1
194 integer(IK) , intent(in) :: s1
195 character(*,SKG) , intent(in) :: val
196 character(len(val,IK),SKG) :: array(s1)
197 end function
198#endif
199
200 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
201
202#if IK5_ENABLED
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
206#endif
207 use pm_kind, only: IKG => IK5
208 integer(IK) , intent(in) :: s1
209 integer(IKG) , intent(in) :: val
210 integer(IKG) :: array(s1)
211 end function
212#endif
213
214#if IK4_ENABLED
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
218#endif
219 use pm_kind, only: IKG => IK4
220 integer(IK) , intent(in) :: s1
221 integer(IKG) , intent(in) :: val
222 integer(IKG) :: array(s1)
223 end function
224#endif
225
226#if IK3_ENABLED
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
230#endif
231 use pm_kind, only: IKG => IK3
232 integer(IK) , intent(in) :: s1
233 integer(IKG) , intent(in) :: val
234 integer(IKG) :: array(s1)
235 end function
236#endif
237
238#if IK2_ENABLED
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
242#endif
243 use pm_kind, only: IKG => IK2
244 integer(IK) , intent(in) :: s1
245 integer(IKG) , intent(in) :: val
246 integer(IKG) :: array(s1)
247 end function
248#endif
249
250#if IK1_ENABLED
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
254#endif
255 use pm_kind, only: IKG => IK1
256 integer(IK) , intent(in) :: s1
257 integer(IKG) , intent(in) :: val
258 integer(IKG) :: array(s1)
259 end function
260#endif
261
262 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263
264#if LK5_ENABLED
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
268#endif
269 use pm_kind, only: LKG => LK5
270 integer(IK) , intent(in) :: s1
271 logical(LKG) , intent(in) :: val
272 logical(LKG) :: array(s1)
273 end function
274#endif
275
276#if LK4_ENABLED
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
280#endif
281 use pm_kind, only: LKG => LK4
282 integer(IK) , intent(in) :: s1
283 logical(LKG) , intent(in) :: val
284 logical(LKG) :: array(s1)
285 end function
286#endif
287
288#if LK3_ENABLED
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
292#endif
293 use pm_kind, only: LKG => LK3
294 integer(IK) , intent(in) :: s1
295 logical(LKG) , intent(in) :: val
296 logical(LKG) :: array(s1)
297 end function
298#endif
299
300#if LK2_ENABLED
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
304#endif
305 use pm_kind, only: LKG => LK2
306 integer(IK) , intent(in) :: s1
307 logical(LKG) , intent(in) :: val
308 logical(LKG) :: array(s1)
309 end function
310#endif
311
312#if LK1_ENABLED
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
316#endif
317 use pm_kind, only: LKG => LK1
318 integer(IK) , intent(in) :: s1
319 logical(LKG) , intent(in) :: val
320 logical(LKG) :: array(s1)
321 end function
322#endif
323
324 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
325
326#if CK5_ENABLED
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
330#endif
331 use pm_kind, only: CKG => CK5
332 integer(IK) , intent(in) :: s1
333 complex(CKG) , intent(in) :: val
334 complex(CKG) :: array(s1)
335 end function
336#endif
337
338#if CK4_ENABLED
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
342#endif
343 use pm_kind, only: CKG => CK4
344 integer(IK) , intent(in) :: s1
345 complex(CKG) , intent(in) :: val
346 complex(CKG) :: array(s1)
347 end function
348#endif
349
350#if CK3_ENABLED
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
354#endif
355 use pm_kind, only: CKG => CK3
356 integer(IK) , intent(in) :: s1
357 complex(CKG) , intent(in) :: val
358 complex(CKG) :: array(s1)
359 end function
360#endif
361
362#if CK2_ENABLED
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
366#endif
367 use pm_kind, only: CKG => CK2
368 integer(IK) , intent(in) :: s1
369 complex(CKG) , intent(in) :: val
370 complex(CKG) :: array(s1)
371 end function
372#endif
373
374#if CK1_ENABLED
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
378#endif
379 use pm_kind, only: CKG => CK1
380 integer(IK) , intent(in) :: s1
381 complex(CKG) , intent(in) :: val
382 complex(CKG) :: array(s1)
383 end function
384#endif
385
386 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
387
388#if RK5_ENABLED
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
392#endif
393 use pm_kind, only: RKG => RK5
394 integer(IK) , intent(in) :: s1
395 real(RKG) , intent(in) :: val
396 real(RKG) :: array(s1)
397 end function
398#endif
399
400#if RK4_ENABLED
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
404#endif
405 use pm_kind, only: RKG => RK4
406 integer(IK) , intent(in) :: s1
407 real(RKG) , intent(in) :: val
408 real(RKG) :: array(s1)
409 end function
410#endif
411
412#if RK3_ENABLED
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
416#endif
417 use pm_kind, only: RKG => RK3
418 integer(IK) , intent(in) :: s1
419 real(RKG) , intent(in) :: val
420 real(RKG) :: array(s1)
421 end function
422#endif
423
424#if RK2_ENABLED
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
428#endif
429 use pm_kind, only: RKG => RK2
430 integer(IK) , intent(in) :: s1
431 real(RKG) , intent(in) :: val
432 real(RKG) :: array(s1)
433 end function
434#endif
435
436#if RK1_ENABLED
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
440#endif
441 use pm_kind, only: RKG => RK1
442 integer(IK) , intent(in) :: s1
443 real(RKG) , intent(in) :: val
444 real(RKG) :: array(s1)
445 end function
446#endif
447
448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449
450 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
451 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
452 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453
454 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
455
456#if SK5_ENABLED
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
460#endif
461 use pm_kind, only: SKG => SK5
462 integer(IK) , intent(in) :: s1, s2
463 character(*,SKG) , intent(in) :: val
464 character(len(val,IK),SKG) :: array(s1, s2)
465 end function
466#endif
467
468#if SK4_ENABLED
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
472#endif
473 use pm_kind, only: SKG => SK4
474 integer(IK) , intent(in) :: s1, s2
475 character(*,SKG) , intent(in) :: val
476 character(len(val,IK),SKG) :: array(s1, s2)
477 end function
478#endif
479
480#if SK3_ENABLED
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
484#endif
485 use pm_kind, only: SKG => SK3
486 integer(IK) , intent(in) :: s1, s2
487 character(*,SKG) , intent(in) :: val
488 character(len(val,IK),SKG) :: array(s1, s2)
489 end function
490#endif
491
492#if SK2_ENABLED
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
496#endif
497 use pm_kind, only: SKG => SK2
498 integer(IK) , intent(in) :: s1, s2
499 character(*,SKG) , intent(in) :: val
500 character(len(val,IK),SKG) :: array(s1, s2)
501 end function
502#endif
503
504#if SK1_ENABLED
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
508#endif
509 use pm_kind, only: SKG => SK1
510 integer(IK) , intent(in) :: s1, s2
511 character(*,SKG) , intent(in) :: val
512 character(len(val,IK),SKG) :: array(s1, s2)
513 end function
514#endif
515
516 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517
518#if IK5_ENABLED
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
522#endif
523 use pm_kind, only: IKG => IK5
524 integer(IK) , intent(in) :: s1, s2
525 integer(IKG) , intent(in) :: val
526 integer(IKG) :: array(s1, s2)
527 end function
528#endif
529
530#if IK4_ENABLED
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
534#endif
535 use pm_kind, only: IKG => IK4
536 integer(IK) , intent(in) :: s1, s2
537 integer(IKG) , intent(in) :: val
538 integer(IKG) :: array(s1, s2)
539 end function
540#endif
541
542#if IK3_ENABLED
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
546#endif
547 use pm_kind, only: IKG => IK3
548 integer(IK) , intent(in) :: s1, s2
549 integer(IKG) , intent(in) :: val
550 integer(IKG) :: array(s1, s2)
551 end function
552#endif
553
554#if IK2_ENABLED
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
558#endif
559 use pm_kind, only: IKG => IK2
560 integer(IK) , intent(in) :: s1, s2
561 integer(IKG) , intent(in) :: val
562 integer(IKG) :: array(s1, s2)
563 end function
564#endif
565
566#if IK1_ENABLED
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
570#endif
571 use pm_kind, only: IKG => IK1
572 integer(IK) , intent(in) :: s1, s2
573 integer(IKG) , intent(in) :: val
574 integer(IKG) :: array(s1, s2)
575 end function
576#endif
577
578 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
579
580#if LK5_ENABLED
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
584#endif
585 use pm_kind, only: LKG => LK5
586 integer(IK) , intent(in) :: s1, s2
587 logical(LKG) , intent(in) :: val
588 logical(LKG) :: array(s1, s2)
589 end function
590#endif
591
592#if LK4_ENABLED
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
596#endif
597 use pm_kind, only: LKG => LK4
598 integer(IK) , intent(in) :: s1, s2
599 logical(LKG) , intent(in) :: val
600 logical(LKG) :: array(s1, s2)
601 end function
602#endif
603
604#if LK3_ENABLED
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
608#endif
609 use pm_kind, only: LKG => LK3
610 integer(IK) , intent(in) :: s1, s2
611 logical(LKG) , intent(in) :: val
612 logical(LKG) :: array(s1, s2)
613 end function
614#endif
615
616#if LK2_ENABLED
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
620#endif
621 use pm_kind, only: LKG => LK2
622 integer(IK) , intent(in) :: s1, s2
623 logical(LKG) , intent(in) :: val
624 logical(LKG) :: array(s1, s2)
625 end function
626#endif
627
628#if LK1_ENABLED
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
632#endif
633 use pm_kind, only: LKG => LK1
634 integer(IK) , intent(in) :: s1, s2
635 logical(LKG) , intent(in) :: val
636 logical(LKG) :: array(s1, s2)
637 end function
638#endif
639
640 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
641
642#if CK5_ENABLED
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
646#endif
647 use pm_kind, only: CKG => CK5
648 integer(IK) , intent(in) :: s1, s2
649 complex(CKG) , intent(in) :: val
650 complex(CKG) :: array(s1, s2)
651 end function
652#endif
653
654#if CK4_ENABLED
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
658#endif
659 use pm_kind, only: CKG => CK4
660 integer(IK) , intent(in) :: s1, s2
661 complex(CKG) , intent(in) :: val
662 complex(CKG) :: array(s1, s2)
663 end function
664#endif
665
666#if CK3_ENABLED
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
670#endif
671 use pm_kind, only: CKG => CK3
672 integer(IK) , intent(in) :: s1, s2
673 complex(CKG) , intent(in) :: val
674 complex(CKG) :: array(s1, s2)
675 end function
676#endif
677
678#if CK2_ENABLED
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
682#endif
683 use pm_kind, only: CKG => CK2
684 integer(IK) , intent(in) :: s1, s2
685 complex(CKG) , intent(in) :: val
686 complex(CKG) :: array(s1, s2)
687 end function
688#endif
689
690#if CK1_ENABLED
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
694#endif
695 use pm_kind, only: CKG => CK1
696 integer(IK) , intent(in) :: s1, s2
697 complex(CKG) , intent(in) :: val
698 complex(CKG) :: array(s1, s2)
699 end function
700#endif
701
702 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
703
704#if RK5_ENABLED
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
708#endif
709 use pm_kind, only: RKG => RK5
710 integer(IK) , intent(in) :: s1, s2
711 real(RKG) , intent(in) :: val
712 real(RKG) :: array(s1, s2)
713 end function
714#endif
715
716#if RK4_ENABLED
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
720#endif
721 use pm_kind, only: RKG => RK4
722 integer(IK) , intent(in) :: s1, s2
723 real(RKG) , intent(in) :: val
724 real(RKG) :: array(s1, s2)
725 end function
726#endif
727
728#if RK3_ENABLED
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
732#endif
733 use pm_kind, only: RKG => RK3
734 integer(IK) , intent(in) :: s1, s2
735 real(RKG) , intent(in) :: val
736 real(RKG) :: array(s1, s2)
737 end function
738#endif
739
740#if RK2_ENABLED
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
744#endif
745 use pm_kind, only: RKG => RK2
746 integer(IK) , intent(in) :: s1, s2
747 real(RKG) , intent(in) :: val
748 real(RKG) :: array(s1, s2)
749 end function
750#endif
751
752#if RK1_ENABLED
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
756#endif
757 use pm_kind, only: RKG => RK1
758 integer(IK) , intent(in) :: s1, s2
759 real(RKG) , intent(in) :: val
760 real(RKG) :: array(s1, s2)
761 end function
762#endif
763
764 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
765
766 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
767 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
768 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
769
770 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
771
772#if SK5_ENABLED
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
776#endif
777 use pm_kind, only: SKG => 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)
781 end function
782#endif
783
784#if SK4_ENABLED
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
788#endif
789 use pm_kind, only: SKG => 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)
793 end function
794#endif
795
796#if SK3_ENABLED
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
800#endif
801 use pm_kind, only: SKG => 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)
805 end function
806#endif
807
808#if SK2_ENABLED
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
812#endif
813 use pm_kind, only: SKG => 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)
817 end function
818#endif
819
820#if SK1_ENABLED
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
824#endif
825 use pm_kind, only: SKG => 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)
829 end function
830#endif
831
832 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
833
834#if IK5_ENABLED
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
838#endif
839 use pm_kind, only: IKG => IK5
840 integer(IK) , intent(in) :: s1, s2, s3
841 integer(IKG) , intent(in) :: val
842 integer(IKG) :: array(s1, s2, s3)
843 end function
844#endif
845
846#if IK4_ENABLED
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
850#endif
851 use pm_kind, only: IKG => IK4
852 integer(IK) , intent(in) :: s1, s2, s3
853 integer(IKG) , intent(in) :: val
854 integer(IKG) :: array(s1, s2, s3)
855 end function
856#endif
857
858#if IK3_ENABLED
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
862#endif
863 use pm_kind, only: IKG => IK3
864 integer(IK) , intent(in) :: s1, s2, s3
865 integer(IKG) , intent(in) :: val
866 integer(IKG) :: array(s1, s2, s3)
867 end function
868#endif
869
870#if IK2_ENABLED
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
874#endif
875 use pm_kind, only: IKG => IK2
876 integer(IK) , intent(in) :: s1, s2, s3
877 integer(IKG) , intent(in) :: val
878 integer(IKG) :: array(s1, s2, s3)
879 end function
880#endif
881
882#if IK1_ENABLED
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
886#endif
887 use pm_kind, only: IKG => IK1
888 integer(IK) , intent(in) :: s1, s2, s3
889 integer(IKG) , intent(in) :: val
890 integer(IKG) :: array(s1, s2, s3)
891 end function
892#endif
893
894 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
895
896#if LK5_ENABLED
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
900#endif
901 use pm_kind, only: LKG => LK5
902 integer(IK) , intent(in) :: s1, s2, s3
903 logical(LKG) , intent(in) :: val
904 logical(LKG) :: array(s1, s2, s3)
905 end function
906#endif
907
908#if LK4_ENABLED
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
912#endif
913 use pm_kind, only: LKG => LK4
914 integer(IK) , intent(in) :: s1, s2, s3
915 logical(LKG) , intent(in) :: val
916 logical(LKG) :: array(s1, s2, s3)
917 end function
918#endif
919
920#if LK3_ENABLED
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
924#endif
925 use pm_kind, only: LKG => LK3
926 integer(IK) , intent(in) :: s1, s2, s3
927 logical(LKG) , intent(in) :: val
928 logical(LKG) :: array(s1, s2, s3)
929 end function
930#endif
931
932#if LK2_ENABLED
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
936#endif
937 use pm_kind, only: LKG => LK2
938 integer(IK) , intent(in) :: s1, s2, s3
939 logical(LKG) , intent(in) :: val
940 logical(LKG) :: array(s1, s2, s3)
941 end function
942#endif
943
944#if LK1_ENABLED
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
948#endif
949 use pm_kind, only: LKG => LK1
950 integer(IK) , intent(in) :: s1, s2, s3
951 logical(LKG) , intent(in) :: val
952 logical(LKG) :: array(s1, s2, s3)
953 end function
954#endif
955
956 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
957
958#if CK5_ENABLED
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
962#endif
963 use pm_kind, only: CKG => CK5
964 integer(IK) , intent(in) :: s1, s2, s3
965 complex(CKG) , intent(in) :: val
966 complex(CKG) :: array(s1, s2, s3)
967 end function
968#endif
969
970#if CK4_ENABLED
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
974#endif
975 use pm_kind, only: CKG => CK4
976 integer(IK) , intent(in) :: s1, s2, s3
977 complex(CKG) , intent(in) :: val
978 complex(CKG) :: array(s1, s2, s3)
979 end function
980#endif
981
982#if CK3_ENABLED
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
986#endif
987 use pm_kind, only: CKG => CK3
988 integer(IK) , intent(in) :: s1, s2, s3
989 complex(CKG) , intent(in) :: val
990 complex(CKG) :: array(s1, s2, s3)
991 end function
992#endif
993
994#if CK2_ENABLED
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
998#endif
999 use pm_kind, only: CKG => CK2
1000 integer(IK) , intent(in) :: s1, s2, s3
1001 complex(CKG) , intent(in) :: val
1002 complex(CKG) :: array(s1, s2, s3)
1003 end function
1004#endif
1005
1006#if CK1_ENABLED
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
1010#endif
1011 use pm_kind, only: CKG => CK1
1012 integer(IK) , intent(in) :: s1, s2, s3
1013 complex(CKG) , intent(in) :: val
1014 complex(CKG) :: array(s1, s2, s3)
1015 end function
1016#endif
1017
1018 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1019
1020#if RK5_ENABLED
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
1024#endif
1025 use pm_kind, only: RKG => RK5
1026 integer(IK) , intent(in) :: s1, s2, s3
1027 real(RKG) , intent(in) :: val
1028 real(RKG) :: array(s1, s2, s3)
1029 end function
1030#endif
1031
1032#if RK4_ENABLED
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
1036#endif
1037 use pm_kind, only: RKG => RK4
1038 integer(IK) , intent(in) :: s1, s2, s3
1039 real(RKG) , intent(in) :: val
1040 real(RKG) :: array(s1, s2, s3)
1041 end function
1042#endif
1043
1044#if RK3_ENABLED
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
1048#endif
1049 use pm_kind, only: RKG => RK3
1050 integer(IK) , intent(in) :: s1, s2, s3
1051 real(RKG) , intent(in) :: val
1052 real(RKG) :: array(s1, s2, s3)
1053 end function
1054#endif
1055
1056#if RK2_ENABLED
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
1060#endif
1061 use pm_kind, only: RKG => RK2
1062 integer(IK) , intent(in) :: s1, s2, s3
1063 real(RKG) , intent(in) :: val
1064 real(RKG) :: array(s1, s2, s3)
1065 end function
1066#endif
1067
1068#if RK1_ENABLED
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
1072#endif
1073 use pm_kind, only: RKG => RK1
1074 integer(IK) , intent(in) :: s1, s2, s3
1075 real(RKG) , intent(in) :: val
1076 real(RKG) :: array(s1, s2, s3)
1077 end function
1078#endif
1079
1080 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1081
1082 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1083 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1084 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1085
1086 end interface
1087
1088!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1089
1090end module pm_arrayFill ! LCOV_EXCL_LINE
pm_arrayFill::getFilled
Generate and return an array of the specified rank and shape of arbitrary intrinsic type and kind wit...
Definition: pm_arrayFill.F90:132
pm_arrayFill
This module contains procedures and generic interfaces for convenient allocation and filling of array...
Definition: pm_arrayFill.F90:42
pm_arrayFill::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayFill.F90:48
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