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
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
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...
Definition: pm_kind.F90:268
integer, parameter SK5
Definition: pm_kind.F90:326
integer, parameter LK1
Definition: pm_kind.F90:412
integer, parameter IK3
Definition: pm_kind.F90:368
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter SK1
Definition: pm_kind.F90:346
integer, parameter IK1
Definition: pm_kind.F90:382
integer, parameter LK5
Definition: pm_kind.F90:392
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter CK1
Definition: pm_kind.F90:464
integer, parameter RK3
Definition: pm_kind.F90:500
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter LK2
Definition: pm_kind.F90:407
integer, parameter LK4
Definition: pm_kind.F90:397
integer, parameter CK5
Definition: pm_kind.F90:420
integer, parameter CK4
Definition: pm_kind.F90:431
integer, parameter SK4
Definition: pm_kind.F90:331
integer, parameter LK3
Definition: pm_kind.F90:402
integer, parameter IK2
Definition: pm_kind.F90:375
integer, parameter CK2
Definition: pm_kind.F90:453
integer, parameter SK2
Definition: pm_kind.F90:341
integer, parameter CK3
Definition: pm_kind.F90:442
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
integer, parameter IK4
Definition: pm_kind.F90:361
integer, parameter IK5
Definition: pm_kind.F90:354
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
integer, parameter RK1
Definition: pm_kind.F90:522
integer, parameter SK3
Definition: pm_kind.F90:336