ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_arrayMinMax.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
36
37!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
38
40
41 use pm_kind, only: IK, RK, SK
42
43 implicit none
44
45 character(*, SK), parameter :: MODULE_NAME = "@pm_arrayMinMax"
46
47!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
48
130 interface getMinMaxVal
131
132 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
134 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
135
136 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
137
138#if SK5_ENABLED
139 pure module function getMinMaxVal_D0_SK5(array) result(minMaxVal)
140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
141 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D0_SK5
142#endif
143 use pm_kind, only: SKG => SK5
144 character(*,SKG) , intent(in) :: array
145 character(2,SKG) :: minMaxVal
146 end function
147#endif
148
149#if SK4_ENABLED
150 pure module function getMinMaxVal_D0_SK4(array) result(minMaxVal)
151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
152 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D0_SK4
153#endif
154 use pm_kind, only: SKG => SK4
155 character(*,SKG) , intent(in) :: array
156 character(2,SKG) :: minMaxVal
157 end function
158#endif
159
160#if SK3_ENABLED
161 pure module function getMinMaxVal_D0_SK3(array) result(minMaxVal)
162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
163 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D0_SK3
164#endif
165 use pm_kind, only: SKG => SK3
166 character(*,SKG) , intent(in) :: array
167 character(2,SKG) :: minMaxVal
168 end function
169#endif
170
171#if SK2_ENABLED
172 pure module function getMinMaxVal_D0_SK2(array) result(minMaxVal)
173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
174 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D0_SK2
175#endif
176 use pm_kind, only: SKG => SK2
177 character(*,SKG) , intent(in) :: array
178 character(2,SKG) :: minMaxVal
179 end function
180#endif
181
182#if SK1_ENABLED
183 pure module function getMinMaxVal_D0_SK1(array) result(minMaxVal)
184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
185 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D0_SK1
186#endif
187 use pm_kind, only: SKG => SK1
188 character(*,SKG) , intent(in) :: array
189 character(2,SKG) :: minMaxVal
190 end function
191#endif
192
193 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
194
195 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
196 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
198
199 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
200
201#if SK5_ENABLED
202 pure module function getMinMaxVal_D1_SK5(array) result(minMaxVal)
203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
204 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_SK5
205#endif
206 use pm_kind, only: SKG => SK5
207 character(*,SKG) , intent(in) , contiguous :: array(:)
208 character(len(array, IK),SKG) :: minMaxVal(2)
209 end function
210#endif
211
212#if SK4_ENABLED
213 pure module function getMinMaxVal_D1_SK4(array) result(minMaxVal)
214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
215 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_SK4
216#endif
217 use pm_kind, only: SKG => SK4
218 character(*,SKG) , intent(in) , contiguous :: array(:)
219 character(len(array, IK),SKG) :: minMaxVal(2)
220 end function
221#endif
222
223#if SK3_ENABLED
224 pure module function getMinMaxVal_D1_SK3(array) result(minMaxVal)
225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
226 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_SK3
227#endif
228 use pm_kind, only: SKG => SK3
229 character(*,SKG) , intent(in) , contiguous :: array(:)
230 character(len(array, IK),SKG) :: minMaxVal(2)
231 end function
232#endif
233
234#if SK2_ENABLED
235 pure module function getMinMaxVal_D1_SK2(array) result(minMaxVal)
236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
237 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_SK2
238#endif
239 use pm_kind, only: SKG => SK2
240 character(*,SKG) , intent(in) , contiguous :: array(:)
241 character(len(array, IK),SKG) :: minMaxVal(2)
242 end function
243#endif
244
245#if SK1_ENABLED
246 pure module function getMinMaxVal_D1_SK1(array) result(minMaxVal)
247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
248 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_SK1
249#endif
250 use pm_kind, only: SKG => SK1
251 character(*,SKG) , intent(in) , contiguous :: array(:)
252 character(len(array, IK),SKG) :: minMaxVal(2)
253 end function
254#endif
255
256 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
257
258#if IK5_ENABLED
259 pure module function getMinMaxVal_D1_IK5(array) result(minMaxVal)
260#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
261 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_IK5
262#endif
263 use pm_kind, only: IKG => IK5
264 integer(IKG) , intent(in) , contiguous :: array(:)
265 integer(IKG) :: minMaxVal(2)
266 end function
267#endif
268
269#if IK4_ENABLED
270 pure module function getMinMaxVal_D1_IK4(array) result(minMaxVal)
271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
272 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_IK4
273#endif
274 use pm_kind, only: IKG => IK4
275 integer(IKG) , intent(in) , contiguous :: array(:)
276 integer(IKG) :: minMaxVal(2)
277 end function
278#endif
279
280#if IK3_ENABLED
281 pure module function getMinMaxVal_D1_IK3(array) result(minMaxVal)
282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
283 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_IK3
284#endif
285 use pm_kind, only: IKG => IK3
286 integer(IKG) , intent(in) , contiguous :: array(:)
287 integer(IKG) :: minMaxVal(2)
288 end function
289#endif
290
291#if IK2_ENABLED
292 pure module function getMinMaxVal_D1_IK2(array) result(minMaxVal)
293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
294 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_IK2
295#endif
296 use pm_kind, only: IKG => IK2
297 integer(IKG) , intent(in) , contiguous :: array(:)
298 integer(IKG) :: minMaxVal(2)
299 end function
300#endif
301
302#if IK1_ENABLED
303 pure module function getMinMaxVal_D1_IK1(array) result(minMaxVal)
304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
305 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_IK1
306#endif
307 use pm_kind, only: IKG => IK1
308 integer(IKG) , intent(in) , contiguous :: array(:)
309 integer(IKG) :: minMaxVal(2)
310 end function
311#endif
312
313 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314
315#if LK5_ENABLED
316 pure module function getMinMaxVal_D1_LK5(array) result(minMaxVal)
317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
318 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_LK5
319#endif
320 use pm_kind, only: LKG => LK5
321 logical(LKG) , intent(in) , contiguous :: array(:)
322 logical(LKG) :: minMaxVal(2)
323 end function
324#endif
325
326#if LK4_ENABLED
327 pure module function getMinMaxVal_D1_LK4(array) result(minMaxVal)
328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
329 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_LK4
330#endif
331 use pm_kind, only: LKG => LK4
332 logical(LKG) , intent(in) , contiguous :: array(:)
333 logical(LKG) :: minMaxVal(2)
334 end function
335#endif
336
337#if LK3_ENABLED
338 pure module function getMinMaxVal_D1_LK3(array) result(minMaxVal)
339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
340 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_LK3
341#endif
342 use pm_kind, only: LKG => LK3
343 logical(LKG) , intent(in) , contiguous :: array(:)
344 logical(LKG) :: minMaxVal(2)
345 end function
346#endif
347
348#if LK2_ENABLED
349 pure module function getMinMaxVal_D1_LK2(array) result(minMaxVal)
350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
351 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_LK2
352#endif
353 use pm_kind, only: LKG => LK2
354 logical(LKG) , intent(in) , contiguous :: array(:)
355 logical(LKG) :: minMaxVal(2)
356 end function
357#endif
358
359#if LK1_ENABLED
360 pure module function getMinMaxVal_D1_LK1(array) result(minMaxVal)
361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
362 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_LK1
363#endif
364 use pm_kind, only: LKG => LK1
365 logical(LKG) , intent(in) , contiguous :: array(:)
366 logical(LKG) :: minMaxVal(2)
367 end function
368#endif
369
370 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
371
372#if CK5_ENABLED
373 pure module function getMinMaxVal_D1_CK5(array) result(minMaxVal)
374#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
375 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_CK5
376#endif
377 use pm_kind, only: CKG => CK5
378 complex(CKG) , intent(in) , contiguous :: array(:)
379 complex(CKG) :: minMaxVal(2)
380 end function
381#endif
382
383#if CK4_ENABLED
384 pure module function getMinMaxVal_D1_CK4(array) result(minMaxVal)
385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
386 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_CK4
387#endif
388 use pm_kind, only: CKG => CK4
389 complex(CKG) , intent(in) , contiguous :: array(:)
390 complex(CKG) :: minMaxVal(2)
391 end function
392#endif
393
394#if CK3_ENABLED
395 pure module function getMinMaxVal_D1_CK3(array) result(minMaxVal)
396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
397 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_CK3
398#endif
399 use pm_kind, only: CKG => CK3
400 complex(CKG) , intent(in) , contiguous :: array(:)
401 complex(CKG) :: minMaxVal(2)
402 end function
403#endif
404
405#if CK2_ENABLED
406 pure module function getMinMaxVal_D1_CK2(array) result(minMaxVal)
407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
408 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_CK2
409#endif
410 use pm_kind, only: CKG => CK2
411 complex(CKG) , intent(in) , contiguous :: array(:)
412 complex(CKG) :: minMaxVal(2)
413 end function
414#endif
415
416#if CK1_ENABLED
417 pure module function getMinMaxVal_D1_CK1(array) result(minMaxVal)
418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
419 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_CK1
420#endif
421 use pm_kind, only: CKG => CK1
422 complex(CKG) , intent(in) , contiguous :: array(:)
423 complex(CKG) :: minMaxVal(2)
424 end function
425#endif
426
427 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
428
429#if RK5_ENABLED
430 pure module function getMinMaxVal_D1_RK5(array) result(minMaxVal)
431#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
432 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_RK5
433#endif
434 use pm_kind, only: RKG => RK5
435 real(RKG) , intent(in) , contiguous :: array(:)
436 real(RKG) :: minMaxVal(2)
437 end function
438#endif
439
440#if RK4_ENABLED
441 pure module function getMinMaxVal_D1_RK4(array) result(minMaxVal)
442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
443 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_RK4
444#endif
445 use pm_kind, only: RKG => RK4
446 real(RKG) , intent(in) , contiguous :: array(:)
447 real(RKG) :: minMaxVal(2)
448 end function
449#endif
450
451#if RK3_ENABLED
452 pure module function getMinMaxVal_D1_RK3(array) result(minMaxVal)
453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
454 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_RK3
455#endif
456 use pm_kind, only: RKG => RK3
457 real(RKG) , intent(in) , contiguous :: array(:)
458 real(RKG) :: minMaxVal(2)
459 end function
460#endif
461
462#if RK2_ENABLED
463 pure module function getMinMaxVal_D1_RK2(array) result(minMaxVal)
464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
465 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_RK2
466#endif
467 use pm_kind, only: RKG => RK2
468 real(RKG) , intent(in) , contiguous :: array(:)
469 real(RKG) :: minMaxVal(2)
470 end function
471#endif
472
473#if RK1_ENABLED
474 pure module function getMinMaxVal_D1_RK1(array) result(minMaxVal)
475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
476 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_RK1
477#endif
478 use pm_kind, only: RKG => RK1
479 real(RKG) , intent(in) , contiguous :: array(:)
480 real(RKG) :: minMaxVal(2)
481 end function
482#endif
483
484 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
485
486#if PDT_ENABLED
487
488#if SK5_ENABLED
489 module function getMinMaxVal_D1_PSSK5(array) result(minMaxVal)
490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
491 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_PSSK5
492#endif
493 use pm_kind, only: SKG => SK5
494 use pm_container, only: css_pdt
495 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
496 type(css_pdt(SKG)) :: minMaxVal(2)
497 end function
498#endif
499
500#if SK4_ENABLED
501 module function getMinMaxVal_D1_PSSK4(array) result(minMaxVal)
502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
503 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_PSSK4
504#endif
505 use pm_kind, only: SKG => SK4
506 use pm_container, only: css_pdt
507 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
508 type(css_pdt(SKG)) :: minMaxVal(2)
509 end function
510#endif
511
512#if SK3_ENABLED
513 module function getMinMaxVal_D1_PSSK3(array) result(minMaxVal)
514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
515 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_PSSK3
516#endif
517 use pm_kind, only: SKG => SK3
518 use pm_container, only: css_pdt
519 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
520 type(css_pdt(SKG)) :: minMaxVal(2)
521 end function
522#endif
523
524#if SK2_ENABLED
525 module function getMinMaxVal_D1_PSSK2(array) result(minMaxVal)
526#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
527 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_PSSK2
528#endif
529 use pm_kind, only: SKG => SK2
530 use pm_container, only: css_pdt
531 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
532 type(css_pdt(SKG)) :: minMaxVal(2)
533 end function
534#endif
535
536#if SK1_ENABLED
537 module function getMinMaxVal_D1_PSSK1(array) result(minMaxVal)
538#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
539 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_PSSK1
540#endif
541 use pm_kind, only: SKG => SK1
542 use pm_container, only: css_pdt
543 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
544 type(css_pdt(SKG)) :: minMaxVal(2)
545 end function
546#endif
547
548#endif
549!PDT_ENABLED
550
551 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
552
553 module function getMinMaxVal_D1_BSSK(array) result(minMaxVal)
554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
555 !DEC$ ATTRIBUTES DLLEXPORT :: getMinMaxVal_D1_BSSK
556#endif
557 use pm_kind, only: SKG => SK
558 use pm_container, only: css_type
559 type(css_type) , intent(in) , contiguous :: array(:)
560 type(css_type) :: minMaxVal(2)
561 end function
562
563 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
564
565 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
566 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
567 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
568
569 end interface getMinMaxVal
570
571!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
572
681
682 interface setMinMaxVal
683
684 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
685 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
686 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
687
688 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
689
690#if SK5_ENABLED
691 pure module subroutine setMinMaxVal_D0_SK5(array, vmin, vmax)
692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
693 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D0_SK5
694#endif
695 use pm_kind, only: SKG => SK5
696 character(*,SKG) , intent(in) :: array
697 character(1,SKG) , intent(out) :: vmin, vmax
698 end subroutine
699#endif
700
701#if SK4_ENABLED
702 pure module subroutine setMinMaxVal_D0_SK4(array, vmin, vmax)
703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
704 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D0_SK4
705#endif
706 use pm_kind, only: SKG => SK4
707 character(*,SKG) , intent(in) :: array
708 character(1,SKG) , intent(out) :: vmin, vmax
709 end subroutine
710#endif
711
712#if SK3_ENABLED
713 pure module subroutine setMinMaxVal_D0_SK3(array, vmin, vmax)
714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
715 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D0_SK3
716#endif
717 use pm_kind, only: SKG => SK3
718 character(*,SKG) , intent(in) :: array
719 character(1,SKG) , intent(out) :: vmin, vmax
720 end subroutine
721#endif
722
723#if SK2_ENABLED
724 pure module subroutine setMinMaxVal_D0_SK2(array, vmin, vmax)
725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
726 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D0_SK2
727#endif
728 use pm_kind, only: SKG => SK2
729 character(*,SKG) , intent(in) :: array
730 character(1,SKG) , intent(out) :: vmin, vmax
731 end subroutine
732#endif
733
734#if SK1_ENABLED
735 pure module subroutine setMinMaxVal_D0_SK1(array, vmin, vmax)
736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
737 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D0_SK1
738#endif
739 use pm_kind, only: SKG => SK1
740 character(*,SKG) , intent(in) :: array
741 character(1,SKG) , intent(out) :: vmin, vmax
742 end subroutine
743#endif
744
745 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
746
747#if SK5_ENABLED
748 pure module subroutine setMinMaxVal_D1_SK5(array, vmin, vmax)
749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
750 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_SK5
751#endif
752 use pm_kind, only: SKG => SK5
753 character(*,SKG) , intent(in) , contiguous :: array(:)
754 character(*,SKG) , intent(out) :: vmin, vmax
755 end subroutine
756#endif
757
758#if SK4_ENABLED
759 pure module subroutine setMinMaxVal_D1_SK4(array, vmin, vmax)
760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
761 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_SK4
762#endif
763 use pm_kind, only: SKG => SK4
764 character(*,SKG) , intent(in) , contiguous :: array(:)
765 character(*,SKG) , intent(out) :: vmin, vmax
766 end subroutine
767#endif
768
769#if SK3_ENABLED
770 pure module subroutine setMinMaxVal_D1_SK3(array, vmin, vmax)
771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
772 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_SK3
773#endif
774 use pm_kind, only: SKG => SK3
775 character(*,SKG) , intent(in) , contiguous :: array(:)
776 character(*,SKG) , intent(out) :: vmin, vmax
777 end subroutine
778#endif
779
780#if SK2_ENABLED
781 pure module subroutine setMinMaxVal_D1_SK2(array, vmin, vmax)
782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
783 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_SK2
784#endif
785 use pm_kind, only: SKG => SK2
786 character(*,SKG) , intent(in) , contiguous :: array(:)
787 character(*,SKG) , intent(out) :: vmin, vmax
788 end subroutine
789#endif
790
791#if SK1_ENABLED
792 pure module subroutine setMinMaxVal_D1_SK1(array, vmin, vmax)
793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
794 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_SK1
795#endif
796 use pm_kind, only: SKG => SK1
797 character(*,SKG) , intent(in) , contiguous :: array(:)
798 character(*,SKG) , intent(out) :: vmin, vmax
799 end subroutine
800#endif
801
802 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
803
804 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
805 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
806 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
807
808 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
809
810#if IK5_ENABLED
811 pure module subroutine setMinMaxVal_D1_IK5(array, vmin, vmax)
812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
813 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_IK5
814#endif
815 use pm_kind, only: IKG => IK5
816 integer(IKG) , intent(in) , contiguous :: array(:)
817 integer(IKG) , intent(out) :: vmin, vmax
818 end subroutine
819#endif
820
821#if IK4_ENABLED
822 pure module subroutine setMinMaxVal_D1_IK4(array, vmin, vmax)
823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
824 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_IK4
825#endif
826 use pm_kind, only: IKG => IK4
827 integer(IKG) , intent(in) , contiguous :: array(:)
828 integer(IKG) , intent(out) :: vmin, vmax
829 end subroutine
830#endif
831
832#if IK3_ENABLED
833 pure module subroutine setMinMaxVal_D1_IK3(array, vmin, vmax)
834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
835 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_IK3
836#endif
837 use pm_kind, only: IKG => IK3
838 integer(IKG) , intent(in) , contiguous :: array(:)
839 integer(IKG) , intent(out) :: vmin, vmax
840 end subroutine
841#endif
842
843#if IK2_ENABLED
844 pure module subroutine setMinMaxVal_D1_IK2(array, vmin, vmax)
845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
846 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_IK2
847#endif
848 use pm_kind, only: IKG => IK2
849 integer(IKG) , intent(in) , contiguous :: array(:)
850 integer(IKG) , intent(out) :: vmin, vmax
851 end subroutine
852#endif
853
854#if IK1_ENABLED
855 pure module subroutine setMinMaxVal_D1_IK1(array, vmin, vmax)
856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
857 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_IK1
858#endif
859 use pm_kind, only: IKG => IK1
860 integer(IKG) , intent(in) , contiguous :: array(:)
861 integer(IKG) , intent(out) :: vmin, vmax
862 end subroutine
863#endif
864
865 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
866
867#if LK5_ENABLED
868 pure module subroutine setMinMaxVal_D1_LK5(array, vmin, vmax)
869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
870 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_LK5
871#endif
872 use pm_kind, only: LKG => LK5
873 logical(LKG) , intent(in) , contiguous :: array(:)
874 logical(LKG) , intent(out) :: vmin, vmax
875 end subroutine
876#endif
877
878#if LK4_ENABLED
879 pure module subroutine setMinMaxVal_D1_LK4(array, vmin, vmax)
880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
881 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_LK4
882#endif
883 use pm_kind, only: LKG => LK4
884 logical(LKG) , intent(in) , contiguous :: array(:)
885 logical(LKG) , intent(out) :: vmin, vmax
886 end subroutine
887#endif
888
889#if LK3_ENABLED
890 pure module subroutine setMinMaxVal_D1_LK3(array, vmin, vmax)
891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
892 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_LK3
893#endif
894 use pm_kind, only: LKG => LK3
895 logical(LKG) , intent(in) , contiguous :: array(:)
896 logical(LKG) , intent(out) :: vmin, vmax
897 end subroutine
898#endif
899
900#if LK2_ENABLED
901 pure module subroutine setMinMaxVal_D1_LK2(array, vmin, vmax)
902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
903 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_LK2
904#endif
905 use pm_kind, only: LKG => LK2
906 logical(LKG) , intent(in) , contiguous :: array(:)
907 logical(LKG) , intent(out) :: vmin, vmax
908 end subroutine
909#endif
910
911#if LK1_ENABLED
912 pure module subroutine setMinMaxVal_D1_LK1(array, vmin, vmax)
913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
914 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_LK1
915#endif
916 use pm_kind, only: LKG => LK1
917 logical(LKG) , intent(in) , contiguous :: array(:)
918 logical(LKG) , intent(out) :: vmin, vmax
919 end subroutine
920#endif
921
922 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
923
924#if CK5_ENABLED
925 pure module subroutine setMinMaxVal_D1_CK5(array, vmin, vmax)
926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
927 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_CK5
928#endif
929 use pm_kind, only: CKG => CK5
930 complex(CKG) , intent(in) , contiguous :: array(:)
931 complex(CKG) , intent(out) :: vmin, vmax
932 end subroutine
933#endif
934
935#if CK4_ENABLED
936 pure module subroutine setMinMaxVal_D1_CK4(array, vmin, vmax)
937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
938 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_CK4
939#endif
940 use pm_kind, only: CKG => CK4
941 complex(CKG) , intent(in) , contiguous :: array(:)
942 complex(CKG) , intent(out) :: vmin, vmax
943 end subroutine
944#endif
945
946#if CK3_ENABLED
947 pure module subroutine setMinMaxVal_D1_CK3(array, vmin, vmax)
948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
949 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_CK3
950#endif
951 use pm_kind, only: CKG => CK3
952 complex(CKG) , intent(in) , contiguous :: array(:)
953 complex(CKG) , intent(out) :: vmin, vmax
954 end subroutine
955#endif
956
957#if CK2_ENABLED
958 pure module subroutine setMinMaxVal_D1_CK2(array, vmin, vmax)
959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
960 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_CK2
961#endif
962 use pm_kind, only: CKG => CK2
963 complex(CKG) , intent(in) , contiguous :: array(:)
964 complex(CKG) , intent(out) :: vmin, vmax
965 end subroutine
966#endif
967
968#if CK1_ENABLED
969 pure module subroutine setMinMaxVal_D1_CK1(array, vmin, vmax)
970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
971 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_CK1
972#endif
973 use pm_kind, only: CKG => CK1
974 complex(CKG) , intent(in) , contiguous :: array(:)
975 complex(CKG) , intent(out) :: vmin, vmax
976 end subroutine
977#endif
978
979 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
980
981#if RK5_ENABLED
982 pure module subroutine setMinMaxVal_D1_RK5(array, vmin, vmax)
983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
984 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_RK5
985#endif
986 use pm_kind, only: RKG => RK5
987 real(RKG) , intent(in) , contiguous :: array(:)
988 real(RKG) , intent(out) :: vmin, vmax
989 end subroutine
990#endif
991
992#if RK4_ENABLED
993 pure module subroutine setMinMaxVal_D1_RK4(array, vmin, vmax)
994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
995 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_RK4
996#endif
997 use pm_kind, only: RKG => RK4
998 real(RKG) , intent(in) , contiguous :: array(:)
999 real(RKG) , intent(out) :: vmin, vmax
1000 end subroutine
1001#endif
1002
1003#if RK3_ENABLED
1004 pure module subroutine setMinMaxVal_D1_RK3(array, vmin, vmax)
1005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1006 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_RK3
1007#endif
1008 use pm_kind, only: RKG => RK3
1009 real(RKG) , intent(in) , contiguous :: array(:)
1010 real(RKG) , intent(out) :: vmin, vmax
1011 end subroutine
1012#endif
1013
1014#if RK2_ENABLED
1015 pure module subroutine setMinMaxVal_D1_RK2(array, vmin, vmax)
1016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1017 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_RK2
1018#endif
1019 use pm_kind, only: RKG => RK2
1020 real(RKG) , intent(in) , contiguous :: array(:)
1021 real(RKG) , intent(out) :: vmin, vmax
1022 end subroutine
1023#endif
1024
1025#if RK1_ENABLED
1026 pure module subroutine setMinMaxVal_D1_RK1(array, vmin, vmax)
1027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1028 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_RK1
1029#endif
1030 use pm_kind, only: RKG => RK1
1031 real(RKG) , intent(in) , contiguous :: array(:)
1032 real(RKG) , intent(out) :: vmin, vmax
1033 end subroutine
1034#endif
1035
1036 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1037
1038#if PDT_ENABLED
1039
1040#if SK5_ENABLED
1041 module subroutine setMinMaxVal_D1_PSSK5(array, vmin, vmax)
1042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1043 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_PSSK5
1044#endif
1045 use pm_kind, only: SKG => SK5
1046 use pm_container, only: css_pdt
1047 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1048 type(css_pdt(SKG)) , intent(out) :: vmin, vmax
1049 end subroutine
1050#endif
1051
1052#if SK4_ENABLED
1053 module subroutine setMinMaxVal_D1_PSSK4(array, vmin, vmax)
1054#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1055 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_PSSK4
1056#endif
1057 use pm_kind, only: SKG => SK4
1058 use pm_container, only: css_pdt
1059 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1060 type(css_pdt(SKG)) , intent(out) :: vmin, vmax
1061 end subroutine
1062#endif
1063
1064#if SK3_ENABLED
1065 module subroutine setMinMaxVal_D1_PSSK3(array, vmin, vmax)
1066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1067 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_PSSK3
1068#endif
1069 use pm_kind, only: SKG => SK3
1070 use pm_container, only: css_pdt
1071 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1072 type(css_pdt(SKG)) , intent(out) :: vmin, vmax
1073 end subroutine
1074#endif
1075
1076#if SK2_ENABLED
1077 module subroutine setMinMaxVal_D1_PSSK2(array, vmin, vmax)
1078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1079 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_PSSK2
1080#endif
1081 use pm_kind, only: SKG => SK2
1082 use pm_container, only: css_pdt
1083 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1084 type(css_pdt(SKG)) , intent(out) :: vmin, vmax
1085 end subroutine
1086#endif
1087
1088#if SK1_ENABLED
1089 module subroutine setMinMaxVal_D1_PSSK1(array, vmin, vmax)
1090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1091 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_PSSK1
1092#endif
1093 use pm_kind, only: SKG => SK1
1094 use pm_container, only: css_pdt
1095 type(css_pdt(SKG)) , intent(in) , contiguous :: array(:)
1096 type(css_pdt(SKG)) , intent(out) :: vmin, vmax
1097 end subroutine
1098#endif
1099
1100#endif
1101!PDT_ENABLED
1102
1103 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1104
1105 module subroutine setMinMaxVal_D1_BSSK(array, vmin, vmax)
1106#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1107 !DEC$ ATTRIBUTES DLLEXPORT :: setMinMaxVal_D1_BSSK
1108#endif
1109 use pm_kind, only: SKG => SK
1110 use pm_container, only: css_type
1111 type(css_type) , intent(in) , contiguous :: array(:)
1112 type(css_type) , intent(out) :: vmin, vmax
1113 end subroutine
1114
1115 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1116
1117 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1118 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1119 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1120
1121 end interface setMinMaxVal
1122
1123!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1124
1125end module pm_arrayMinMax ! LCOV_EXCL_LINE
Generate and return an array of size two containing the minimum and maximum values of a sequence of v...
Return the minimum and maximum values of the input sequence.
This module contains procedures and generic interfaces for finding the minimum and maximum of two inp...
character(*, SK), parameter MODULE_NAME
This module contains the derived types for generating allocatable containers of scalar,...
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 RK
The default real kind in the ParaMonte library: real64 in Fortran, c_double in C-Fortran Interoperati...
Definition: pm_kind.F90:543
integer, parameter CK1
Definition: pm_kind.F90:464
integer, parameter RK3
Definition: pm_kind.F90:500
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
This is the css_pdt parameterized type for generating instances of container of scalar of string obje...
This is the css_type type for generating instances of container of scalar of string objects.