ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_swap.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
42
43!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44
45module pm_swap
46
47 use pm_kind, only: IK, RK, SK
48 use pm_blas, only: blasSWAP
49
50 implicit none
51
52 character(*, SK), parameter :: MODULE_NAME = "@pm_swap"
53
54!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
55
139 interface setSwapped
140
141 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
142 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
143 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
144
145 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
146
147#if SK5_ENABLED
148 PURE elemental module subroutine setSwappedDef_D0_SK5(a, b)
149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
150 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_SK5
151#endif
152 use pm_kind, only: SKG => SK5
153 character(*,SKG) , intent(inout) :: a, b
154 end subroutine
155#endif
156
157#if SK4_ENABLED
158 PURE elemental module subroutine setSwappedDef_D0_SK4(a, b)
159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
160 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_SK4
161#endif
162 use pm_kind, only: SKG => SK4
163 character(*,SKG) , intent(inout) :: a, b
164 end subroutine
165#endif
166
167#if SK3_ENABLED
168 PURE elemental module subroutine setSwappedDef_D0_SK3(a, b)
169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
170 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_SK3
171#endif
172 use pm_kind, only: SKG => SK3
173 character(*,SKG) , intent(inout) :: a, b
174 end subroutine
175#endif
176
177#if SK2_ENABLED
178 PURE elemental module subroutine setSwappedDef_D0_SK2(a, b)
179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
180 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_SK2
181#endif
182 use pm_kind, only: SKG => SK2
183 character(*,SKG) , intent(inout) :: a, b
184 end subroutine
185#endif
186
187#if SK1_ENABLED
188 PURE elemental module subroutine setSwappedDef_D0_SK1(a, b)
189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
190 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_SK1
191#endif
192 use pm_kind, only: SKG => SK1
193 character(*,SKG) , intent(inout) :: a, b
194 end subroutine
195#endif
196
197 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
198
199#if IK5_ENABLED
200 PURE elemental module subroutine setSwappedDef_D0_IK5(a, b)
201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
202 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_IK5
203#endif
204 use pm_kind, only: IKG => IK5
205 integer(IKG) , intent(inout) :: a, b
206 end subroutine
207#endif
208
209#if IK4_ENABLED
210 PURE elemental module subroutine setSwappedDef_D0_IK4(a, b)
211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
212 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_IK4
213#endif
214 use pm_kind, only: IKG => IK4
215 integer(IKG) , intent(inout) :: a, b
216 end subroutine
217#endif
218
219#if IK3_ENABLED
220 PURE elemental module subroutine setSwappedDef_D0_IK3(a, b)
221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
222 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_IK3
223#endif
224 use pm_kind, only: IKG => IK3
225 integer(IKG) , intent(inout) :: a, b
226 end subroutine
227#endif
228
229#if IK2_ENABLED
230 PURE elemental module subroutine setSwappedDef_D0_IK2(a, b)
231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
232 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_IK2
233#endif
234 use pm_kind, only: IKG => IK2
235 integer(IKG) , intent(inout) :: a, b
236 end subroutine
237#endif
238
239#if IK1_ENABLED
240 PURE elemental module subroutine setSwappedDef_D0_IK1(a, b)
241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
242 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_IK1
243#endif
244 use pm_kind, only: IKG => IK1
245 integer(IKG) , intent(inout) :: a, b
246 end subroutine
247#endif
248
249 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250
251#if LK5_ENABLED
252 PURE elemental module subroutine setSwappedDef_D0_LK5(a, b)
253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
254 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_LK5
255#endif
256 use pm_kind, only: LKG => LK5
257 logical(LKG) , intent(inout) :: a, b
258 end subroutine
259#endif
260
261#if LK4_ENABLED
262 PURE elemental module subroutine setSwappedDef_D0_LK4(a, b)
263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
264 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_LK4
265#endif
266 use pm_kind, only: LKG => LK4
267 logical(LKG) , intent(inout) :: a, b
268 end subroutine
269#endif
270
271#if LK3_ENABLED
272 PURE elemental module subroutine setSwappedDef_D0_LK3(a, b)
273#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
274 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_LK3
275#endif
276 use pm_kind, only: LKG => LK3
277 logical(LKG) , intent(inout) :: a, b
278 end subroutine
279#endif
280
281#if LK2_ENABLED
282 PURE elemental module subroutine setSwappedDef_D0_LK2(a, b)
283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
284 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_LK2
285#endif
286 use pm_kind, only: LKG => LK2
287 logical(LKG) , intent(inout) :: a, b
288 end subroutine
289#endif
290
291#if LK1_ENABLED
292 PURE elemental module subroutine setSwappedDef_D0_LK1(a, b)
293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
294 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_LK1
295#endif
296 use pm_kind, only: LKG => LK1
297 logical(LKG) , intent(inout) :: a, b
298 end subroutine
299#endif
300
301 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
302
303#if CK5_ENABLED
304 PURE elemental module subroutine setSwappedDef_D0_CK5(a, b)
305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
306 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_CK5
307#endif
308 use pm_kind, only: CKG => CK5
309 complex(CKG) , intent(inout) :: a, b
310 end subroutine
311#endif
312
313#if CK4_ENABLED
314 PURE elemental module subroutine setSwappedDef_D0_CK4(a, b)
315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
316 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_CK4
317#endif
318 use pm_kind, only: CKG => CK4
319 complex(CKG) , intent(inout) :: a, b
320 end subroutine
321#endif
322
323#if CK3_ENABLED
324 PURE elemental module subroutine setSwappedDef_D0_CK3(a, b)
325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
326 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_CK3
327#endif
328 use pm_kind, only: CKG => CK3
329 complex(CKG) , intent(inout) :: a, b
330 end subroutine
331#endif
332
333#if CK2_ENABLED
334 PURE elemental module subroutine setSwappedDef_D0_CK2(a, b)
335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
336 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_CK2
337#endif
338 use pm_kind, only: CKG => CK2
339 complex(CKG) , intent(inout) :: a, b
340 end subroutine
341#endif
342
343#if CK1_ENABLED
344 PURE elemental module subroutine setSwappedDef_D0_CK1(a, b)
345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
346 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_CK1
347#endif
348 use pm_kind, only: CKG => CK1
349 complex(CKG) , intent(inout) :: a, b
350 end subroutine
351#endif
352
353 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
354
355#if RK5_ENABLED
356 PURE elemental module subroutine setSwappedDef_D0_RK5(a, b)
357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
358 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_RK5
359#endif
360 use pm_kind, only: RKG => RK5
361 real(RKG) , intent(inout) :: a, b
362 end subroutine
363#endif
364
365#if RK4_ENABLED
366 PURE elemental module subroutine setSwappedDef_D0_RK4(a, b)
367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
368 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_RK4
369#endif
370 use pm_kind, only: RKG => RK4
371 real(RKG) , intent(inout) :: a, b
372 end subroutine
373#endif
374
375#if RK3_ENABLED
376 PURE elemental module subroutine setSwappedDef_D0_RK3(a, b)
377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
378 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_RK3
379#endif
380 use pm_kind, only: RKG => RK3
381 real(RKG) , intent(inout) :: a, b
382 end subroutine
383#endif
384
385#if RK2_ENABLED
386 PURE elemental module subroutine setSwappedDef_D0_RK2(a, b)
387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
388 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_RK2
389#endif
390 use pm_kind, only: RKG => RK2
391 real(RKG) , intent(inout) :: a, b
392 end subroutine
393#endif
394
395#if RK1_ENABLED
396 PURE elemental module subroutine setSwappedDef_D0_RK1(a, b)
397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
398 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D0_RK1
399#endif
400 use pm_kind, only: RKG => RK1
401 real(RKG) , intent(inout) :: a, b
402 end subroutine
403#endif
404
405 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
406
407 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
408 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
409 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
410
411 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
412
413#if SK5_ENABLED
414 PURE module subroutine setSwappedDef_D1_SK5(a, b)
415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
416 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_SK5
417#endif
418 use pm_kind, only: SKG => SK5
419 character(*,SKG) , intent(inout) , contiguous :: a(:), b(:)
420 end subroutine
421#endif
422
423#if SK4_ENABLED
424 PURE module subroutine setSwappedDef_D1_SK4(a, b)
425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
426 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_SK4
427#endif
428 use pm_kind, only: SKG => SK4
429 character(*,SKG) , intent(inout) , contiguous :: a(:), b(:)
430 end subroutine
431#endif
432
433#if SK3_ENABLED
434 PURE module subroutine setSwappedDef_D1_SK3(a, b)
435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
436 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_SK3
437#endif
438 use pm_kind, only: SKG => SK3
439 character(*,SKG) , intent(inout) , contiguous :: a(:), b(:)
440 end subroutine
441#endif
442
443#if SK2_ENABLED
444 PURE module subroutine setSwappedDef_D1_SK2(a, b)
445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
446 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_SK2
447#endif
448 use pm_kind, only: SKG => SK2
449 character(*,SKG) , intent(inout) , contiguous :: a(:), b(:)
450 end subroutine
451#endif
452
453#if SK1_ENABLED
454 PURE module subroutine setSwappedDef_D1_SK1(a, b)
455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
456 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_SK1
457#endif
458 use pm_kind, only: SKG => SK1
459 character(*,SKG) , intent(inout) , contiguous :: a(:), b(:)
460 end subroutine
461#endif
462
463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
464
465#if IK5_ENABLED
466 PURE module subroutine setSwappedDef_D1_IK5(a, b)
467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
468 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_IK5
469#endif
470 use pm_kind, only: IKG => IK5
471 integer(IKG) , intent(inout) , contiguous :: a(:), b(:)
472 end subroutine
473#endif
474
475#if IK4_ENABLED
476 PURE module subroutine setSwappedDef_D1_IK4(a, b)
477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
478 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_IK4
479#endif
480 use pm_kind, only: IKG => IK4
481 integer(IKG) , intent(inout) , contiguous :: a(:), b(:)
482 end subroutine
483#endif
484
485#if IK3_ENABLED
486 PURE module subroutine setSwappedDef_D1_IK3(a, b)
487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
488 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_IK3
489#endif
490 use pm_kind, only: IKG => IK3
491 integer(IKG) , intent(inout) , contiguous :: a(:), b(:)
492 end subroutine
493#endif
494
495#if IK2_ENABLED
496 PURE module subroutine setSwappedDef_D1_IK2(a, b)
497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
498 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_IK2
499#endif
500 use pm_kind, only: IKG => IK2
501 integer(IKG) , intent(inout) , contiguous :: a(:), b(:)
502 end subroutine
503#endif
504
505#if IK1_ENABLED
506 PURE module subroutine setSwappedDef_D1_IK1(a, b)
507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
508 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_IK1
509#endif
510 use pm_kind, only: IKG => IK1
511 integer(IKG) , intent(inout) , contiguous :: a(:), b(:)
512 end subroutine
513#endif
514
515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
516
517#if LK5_ENABLED
518 PURE module subroutine setSwappedDef_D1_LK5(a, b)
519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
520 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_LK5
521#endif
522 use pm_kind, only: LKG => LK5
523 logical(LKG) , intent(inout) , contiguous :: a(:), b(:)
524 end subroutine
525#endif
526
527#if LK4_ENABLED
528 PURE module subroutine setSwappedDef_D1_LK4(a, b)
529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
530 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_LK4
531#endif
532 use pm_kind, only: LKG => LK4
533 logical(LKG) , intent(inout) , contiguous :: a(:), b(:)
534 end subroutine
535#endif
536
537#if LK3_ENABLED
538 PURE module subroutine setSwappedDef_D1_LK3(a, b)
539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
540 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_LK3
541#endif
542 use pm_kind, only: LKG => LK3
543 logical(LKG) , intent(inout) , contiguous :: a(:), b(:)
544 end subroutine
545#endif
546
547#if LK2_ENABLED
548 PURE module subroutine setSwappedDef_D1_LK2(a, b)
549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
550 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_LK2
551#endif
552 use pm_kind, only: LKG => LK2
553 logical(LKG) , intent(inout) , contiguous :: a(:), b(:)
554 end subroutine
555#endif
556
557#if LK1_ENABLED
558 PURE module subroutine setSwappedDef_D1_LK1(a, b)
559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
560 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_LK1
561#endif
562 use pm_kind, only: LKG => LK1
563 logical(LKG) , intent(inout) , contiguous :: a(:), b(:)
564 end subroutine
565#endif
566
567 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
568
569#if CK5_ENABLED
570 PURE module subroutine setSwappedDef_D1_CK5(a, b)
571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
572 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_CK5
573#endif
574 use pm_kind, only: CKG => CK5
575 complex(CKG) , intent(inout) , contiguous :: a(:), b(:)
576 end subroutine
577#endif
578
579#if CK4_ENABLED
580 PURE module subroutine setSwappedDef_D1_CK4(a, b)
581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
582 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_CK4
583#endif
584 use pm_kind, only: CKG => CK4
585 complex(CKG) , intent(inout) , contiguous :: a(:), b(:)
586 end subroutine
587#endif
588
589#if CK3_ENABLED
590 PURE module subroutine setSwappedDef_D1_CK3(a, b)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_CK3
593#endif
594 use pm_kind, only: CKG => CK3
595 complex(CKG) , intent(inout) , contiguous :: a(:), b(:)
596 end subroutine
597#endif
598
599#if CK2_ENABLED
600 PURE module subroutine setSwappedDef_D1_CK2(a, b)
601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
602 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_CK2
603#endif
604 use pm_kind, only: CKG => CK2
605 complex(CKG) , intent(inout) , contiguous :: a(:), b(:)
606 end subroutine
607#endif
608
609#if CK1_ENABLED
610 PURE module subroutine setSwappedDef_D1_CK1(a, b)
611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
612 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_CK1
613#endif
614 use pm_kind, only: CKG => CK1
615 complex(CKG) , intent(inout) , contiguous :: a(:), b(:)
616 end subroutine
617#endif
618
619 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
620
621#if RK5_ENABLED
622 PURE module subroutine setSwappedDef_D1_RK5(a, b)
623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
624 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_RK5
625#endif
626 use pm_kind, only: RKG => RK5
627 real(RKG) , intent(inout) , contiguous :: a(:), b(:)
628 end subroutine
629#endif
630
631#if RK4_ENABLED
632 PURE module subroutine setSwappedDef_D1_RK4(a, b)
633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
634 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_RK4
635#endif
636 use pm_kind, only: RKG => RK4
637 real(RKG) , intent(inout) , contiguous :: a(:), b(:)
638 end subroutine
639#endif
640
641#if RK3_ENABLED
642 PURE module subroutine setSwappedDef_D1_RK3(a, b)
643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
644 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_RK3
645#endif
646 use pm_kind, only: RKG => RK3
647 real(RKG) , intent(inout) , contiguous :: a(:), b(:)
648 end subroutine
649#endif
650
651#if RK2_ENABLED
652 PURE module subroutine setSwappedDef_D1_RK2(a, b)
653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
654 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_RK2
655#endif
656 use pm_kind, only: RKG => RK2
657 real(RKG) , intent(inout) , contiguous :: a(:), b(:)
658 end subroutine
659#endif
660
661#if RK1_ENABLED
662 PURE module subroutine setSwappedDef_D1_RK1(a, b)
663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
664 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedDef_D1_RK1
665#endif
666 use pm_kind, only: RKG => RK1
667 real(RKG) , intent(inout) , contiguous :: a(:), b(:)
668 end subroutine
669#endif
670
671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
672
673 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
674 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
675 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
676
677 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
678
679#if SK5_ENABLED
680 PURE module subroutine setSwappedInc_D0_SK5(a, b, inca, incb)
681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
682 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D0_SK5
683#endif
684 use pm_kind, only: SKG => SK5
685 character(*,SKG) , intent(inout) :: a, b
686 integer(IK) , intent(in) :: inca, incb
687 end subroutine
688#endif
689
690#if SK4_ENABLED
691 PURE module subroutine setSwappedInc_D0_SK4(a, b, inca, incb)
692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
693 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D0_SK4
694#endif
695 use pm_kind, only: SKG => SK4
696 character(*,SKG) , intent(inout) :: a, b
697 integer(IK) , intent(in) :: inca, incb
698 end subroutine
699#endif
700
701#if SK3_ENABLED
702 PURE module subroutine setSwappedInc_D0_SK3(a, b, inca, incb)
703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
704 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D0_SK3
705#endif
706 use pm_kind, only: SKG => SK3
707 character(*,SKG) , intent(inout) :: a, b
708 integer(IK) , intent(in) :: inca, incb
709 end subroutine
710#endif
711
712#if SK2_ENABLED
713 PURE module subroutine setSwappedInc_D0_SK2(a, b, inca, incb)
714#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
715 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D0_SK2
716#endif
717 use pm_kind, only: SKG => SK2
718 character(*,SKG) , intent(inout) :: a, b
719 integer(IK) , intent(in) :: inca, incb
720 end subroutine
721#endif
722
723#if SK1_ENABLED
724 PURE module subroutine setSwappedInc_D0_SK1(a, b, inca, incb)
725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
726 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D0_SK1
727#endif
728 use pm_kind, only: SKG => SK1
729 character(*,SKG) , intent(inout) :: a, b
730 integer(IK) , intent(in) :: inca, incb
731 end subroutine
732#endif
733
734 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
735
736 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
737 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
738 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
739
740 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
741
742#if SK5_ENABLED
743 PURE module subroutine setSwappedInc_D1_SK5(a, b, inca, incb)
744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
745 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_SK5
746#endif
747 use pm_kind, only: SKG => SK5
748 character(*,SKG) , intent(inout) , contiguous :: a(:), b(:)
749 integer(IK) , intent(in) :: inca, incb
750 end subroutine
751#endif
752
753#if SK4_ENABLED
754 PURE module subroutine setSwappedInc_D1_SK4(a, b, inca, incb)
755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
756 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_SK4
757#endif
758 use pm_kind, only: SKG => SK4
759 character(*,SKG) , intent(inout) , contiguous :: a(:), b(:)
760 integer(IK) , intent(in) :: inca, incb
761 end subroutine
762#endif
763
764#if SK3_ENABLED
765 PURE module subroutine setSwappedInc_D1_SK3(a, b, inca, incb)
766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
767 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_SK3
768#endif
769 use pm_kind, only: SKG => SK3
770 character(*,SKG) , intent(inout) , contiguous :: a(:), b(:)
771 integer(IK) , intent(in) :: inca, incb
772 end subroutine
773#endif
774
775#if SK2_ENABLED
776 PURE module subroutine setSwappedInc_D1_SK2(a, b, inca, incb)
777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
778 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_SK2
779#endif
780 use pm_kind, only: SKG => SK2
781 character(*,SKG) , intent(inout) , contiguous :: a(:), b(:)
782 integer(IK) , intent(in) :: inca, incb
783 end subroutine
784#endif
785
786#if SK1_ENABLED
787 PURE module subroutine setSwappedInc_D1_SK1(a, b, inca, incb)
788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
789 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_SK1
790#endif
791 use pm_kind, only: SKG => SK1
792 character(*,SKG) , intent(inout) , contiguous :: a(:), b(:)
793 integer(IK) , intent(in) :: inca, incb
794 end subroutine
795#endif
796
797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
798
799#if IK5_ENABLED
800 PURE module subroutine setSwappedInc_D1_IK5(a, b, inca, incb)
801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
802 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_IK5
803#endif
804 use pm_kind, only: IKG => IK5
805 integer(IKG) , intent(inout) , contiguous :: a(:), b(:)
806 integer(IK) , intent(in) :: inca, incb
807 end subroutine
808#endif
809
810#if IK4_ENABLED
811 PURE module subroutine setSwappedInc_D1_IK4(a, b, inca, incb)
812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
813 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_IK4
814#endif
815 use pm_kind, only: IKG => IK4
816 integer(IKG) , intent(inout) , contiguous :: a(:), b(:)
817 integer(IK) , intent(in) :: inca, incb
818 end subroutine
819#endif
820
821#if IK3_ENABLED
822 PURE module subroutine setSwappedInc_D1_IK3(a, b, inca, incb)
823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
824 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_IK3
825#endif
826 use pm_kind, only: IKG => IK3
827 integer(IKG) , intent(inout) , contiguous :: a(:), b(:)
828 integer(IK) , intent(in) :: inca, incb
829 end subroutine
830#endif
831
832#if IK2_ENABLED
833 PURE module subroutine setSwappedInc_D1_IK2(a, b, inca, incb)
834#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
835 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_IK2
836#endif
837 use pm_kind, only: IKG => IK2
838 integer(IKG) , intent(inout) , contiguous :: a(:), b(:)
839 integer(IK) , intent(in) :: inca, incb
840 end subroutine
841#endif
842
843#if IK1_ENABLED
844 PURE module subroutine setSwappedInc_D1_IK1(a, b, inca, incb)
845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
846 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_IK1
847#endif
848 use pm_kind, only: IKG => IK1
849 integer(IKG) , intent(inout) , contiguous :: a(:), b(:)
850 integer(IK) , intent(in) :: inca, incb
851 end subroutine
852#endif
853
854 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
855
856#if LK5_ENABLED
857 PURE module subroutine setSwappedInc_D1_LK5(a, b, inca, incb)
858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
859 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_LK5
860#endif
861 use pm_kind, only: LKG => LK5
862 logical(LKG) , intent(inout) , contiguous :: a(:), b(:)
863 integer(IK) , intent(in) :: inca, incb
864 end subroutine
865#endif
866
867#if LK4_ENABLED
868 PURE module subroutine setSwappedInc_D1_LK4(a, b, inca, incb)
869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
870 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_LK4
871#endif
872 use pm_kind, only: LKG => LK4
873 logical(LKG) , intent(inout) , contiguous :: a(:), b(:)
874 integer(IK) , intent(in) :: inca, incb
875 end subroutine
876#endif
877
878#if LK3_ENABLED
879 PURE module subroutine setSwappedInc_D1_LK3(a, b, inca, incb)
880#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
881 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_LK3
882#endif
883 use pm_kind, only: LKG => LK3
884 logical(LKG) , intent(inout) , contiguous :: a(:), b(:)
885 integer(IK) , intent(in) :: inca, incb
886 end subroutine
887#endif
888
889#if LK2_ENABLED
890 PURE module subroutine setSwappedInc_D1_LK2(a, b, inca, incb)
891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
892 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_LK2
893#endif
894 use pm_kind, only: LKG => LK2
895 logical(LKG) , intent(inout) , contiguous :: a(:), b(:)
896 integer(IK) , intent(in) :: inca, incb
897 end subroutine
898#endif
899
900#if LK1_ENABLED
901 PURE module subroutine setSwappedInc_D1_LK1(a, b, inca, incb)
902#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
903 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_LK1
904#endif
905 use pm_kind, only: LKG => LK1
906 logical(LKG) , intent(inout) , contiguous :: a(:), b(:)
907 integer(IK) , intent(in) :: inca, incb
908 end subroutine
909#endif
910
911 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
912
913#if CK5_ENABLED
914 PURE module subroutine setSwappedInc_D1_CK5(a, b, inca, incb)
915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
916 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_CK5
917#endif
918 use pm_kind, only: CKG => CK5
919 complex(CKG) , intent(inout) , contiguous :: a(:), b(:)
920 integer(IK) , intent(in) :: inca, incb
921 end subroutine
922#endif
923
924#if CK4_ENABLED
925 PURE module subroutine setSwappedInc_D1_CK4(a, b, inca, incb)
926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
927 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_CK4
928#endif
929 use pm_kind, only: CKG => CK4
930 complex(CKG) , intent(inout) , contiguous :: a(:), b(:)
931 integer(IK) , intent(in) :: inca, incb
932 end subroutine
933#endif
934
935#if CK3_ENABLED
936 PURE module subroutine setSwappedInc_D1_CK3(a, b, inca, incb)
937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
938 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_CK3
939#endif
940 use pm_kind, only: CKG => CK3
941 complex(CKG) , intent(inout) , contiguous :: a(:), b(:)
942 integer(IK) , intent(in) :: inca, incb
943 end subroutine
944#endif
945
946#if CK2_ENABLED
947 PURE module subroutine setSwappedInc_D1_CK2(a, b, inca, incb)
948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
949 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_CK2
950#endif
951 use pm_kind, only: CKG => CK2
952 complex(CKG) , intent(inout) , contiguous :: a(:), b(:)
953 integer(IK) , intent(in) :: inca, incb
954 end subroutine
955#endif
956
957#if CK1_ENABLED
958 PURE module subroutine setSwappedInc_D1_CK1(a, b, inca, incb)
959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
960 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_CK1
961#endif
962 use pm_kind, only: CKG => CK1
963 complex(CKG) , intent(inout) , contiguous :: a(:), b(:)
964 integer(IK) , intent(in) :: inca, incb
965 end subroutine
966#endif
967
968 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
969
970#if RK5_ENABLED
971 PURE module subroutine setSwappedInc_D1_RK5(a, b, inca, incb)
972#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
973 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_RK5
974#endif
975 use pm_kind, only: RKG => RK5
976 real(RKG) , intent(inout) , contiguous :: a(:), b(:)
977 integer(IK) , intent(in) :: inca, incb
978 end subroutine
979#endif
980
981#if RK4_ENABLED
982 PURE module subroutine setSwappedInc_D1_RK4(a, b, inca, incb)
983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
984 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_RK4
985#endif
986 use pm_kind, only: RKG => RK4
987 real(RKG) , intent(inout) , contiguous :: a(:), b(:)
988 integer(IK) , intent(in) :: inca, incb
989 end subroutine
990#endif
991
992#if RK3_ENABLED
993 PURE module subroutine setSwappedInc_D1_RK3(a, b, inca, incb)
994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
995 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_RK3
996#endif
997 use pm_kind, only: RKG => RK3
998 real(RKG) , intent(inout) , contiguous :: a(:), b(:)
999 integer(IK) , intent(in) :: inca, incb
1000 end subroutine
1001#endif
1002
1003#if RK2_ENABLED
1004 PURE module subroutine setSwappedInc_D1_RK2(a, b, inca, incb)
1005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1006 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_RK2
1007#endif
1008 use pm_kind, only: RKG => RK2
1009 real(RKG) , intent(inout) , contiguous :: a(:), b(:)
1010 integer(IK) , intent(in) :: inca, incb
1011 end subroutine
1012#endif
1013
1014#if RK1_ENABLED
1015 PURE module subroutine setSwappedInc_D1_RK1(a, b, inca, incb)
1016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1017 !DEC$ ATTRIBUTES DLLEXPORT :: setSwappedInc_D1_RK1
1018#endif
1019 use pm_kind, only: RKG => RK1
1020 real(RKG) , intent(inout) , contiguous :: a(:), b(:)
1021 integer(IK) , intent(in) :: inca, incb
1022 end subroutine
1023#endif
1024
1025 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1026
1027 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1028 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1029 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1030
1031 end interface setSwapped
1032
1033!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1034
1035end module pm_swap ! LCOV_EXCL_LINE
Interchange the elements of vectors x and y.
Definition: pm_blas.F90:60
Return the two input scalar or array values a and b while their values are swapped.
Definition: pm_swap.F90:139
This module contains a set of generic interfaces to the BLAS routines.
Definition: pm_blas.F90:35
character(*, SK), parameter MODULE_NAME
Definition: pm_blas.F90:41
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 module contains procedures and generic interfaces for swapping values of intrinsic Fortran types...
Definition: pm_swap.F90:45