124 impure module function getCholRandRNGD_CK5(mold, ndim, subset)
result(rand)
125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
126 !DEC$ ATTRIBUTES DLLEXPORT :: getCholRandRNGD_CK5
129 integer(IK) ,
intent(in) :: ndim
130 complex(TKG) ,
intent(in) :: mold
131 class(
*) ,
intent(in) :: subset
132 complex(TKG) :: rand(ndim, ndim)
137 impure module function getCholRandRNGD_CK4(mold, ndim, subset)
result(rand)
138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
139 !DEC$ ATTRIBUTES DLLEXPORT :: getCholRandRNGD_CK4
142 integer(IK) ,
intent(in) :: ndim
143 complex(TKG) ,
intent(in) :: mold
144 class(
*) ,
intent(in) :: subset
145 complex(TKG) :: rand(ndim, ndim)
150 impure module function getCholRandRNGD_CK3(mold, ndim, subset)
result(rand)
151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
152 !DEC$ ATTRIBUTES DLLEXPORT :: getCholRandRNGD_CK3
155 integer(IK) ,
intent(in) :: ndim
156 complex(TKG) ,
intent(in) :: mold
157 class(
*) ,
intent(in) :: subset
158 complex(TKG) :: rand(ndim, ndim)
163 impure module function getCholRandRNGD_CK2(mold, ndim, subset)
result(rand)
164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
165 !DEC$ ATTRIBUTES DLLEXPORT :: getCholRandRNGD_CK2
168 integer(IK) ,
intent(in) :: ndim
169 complex(TKG) ,
intent(in) :: mold
170 class(
*) ,
intent(in) :: subset
171 complex(TKG) :: rand(ndim, ndim)
176 impure module function getCholRandRNGD_CK1(mold, ndim, subset)
result(rand)
177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
178 !DEC$ ATTRIBUTES DLLEXPORT :: getCholRandRNGD_CK1
181 integer(IK) ,
intent(in) :: ndim
182 complex(TKG) ,
intent(in) :: mold
183 class(
*) ,
intent(in) :: subset
184 complex(TKG) :: rand(ndim, ndim)
191 impure module function getCholRandRNGD_RK5(mold, ndim, subset)
result(rand)
192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
193 !DEC$ ATTRIBUTES DLLEXPORT :: getCholRandRNGD_RK5
196 integer(IK) ,
intent(in) :: ndim
197 real(TKG) ,
intent(in) :: mold
198 class(
*) ,
intent(in) :: subset
199 real(TKG) :: rand(ndim, ndim)
204 impure module function getCholRandRNGD_RK4(mold, ndim, subset)
result(rand)
205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
206 !DEC$ ATTRIBUTES DLLEXPORT :: getCholRandRNGD_RK4
209 integer(IK) ,
intent(in) :: ndim
210 real(TKG) ,
intent(in) :: mold
211 class(
*) ,
intent(in) :: subset
212 real(TKG) :: rand(ndim, ndim)
217 impure module function getCholRandRNGD_RK3(mold, ndim, subset)
result(rand)
218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
219 !DEC$ ATTRIBUTES DLLEXPORT :: getCholRandRNGD_RK3
222 integer(IK) ,
intent(in) :: ndim
223 real(TKG) ,
intent(in) :: mold
224 class(
*) ,
intent(in) :: subset
225 real(TKG) :: rand(ndim, ndim)
230 impure module function getCholRandRNGD_RK2(mold, ndim, subset)
result(rand)
231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
232 !DEC$ ATTRIBUTES DLLEXPORT :: getCholRandRNGD_RK2
235 integer(IK) ,
intent(in) :: ndim
236 real(TKG) ,
intent(in) :: mold
237 class(
*) ,
intent(in) :: subset
238 real(TKG) :: rand(ndim, ndim)
243 impure module function getCholRandRNGD_RK1(mold, ndim, subset)
result(rand)
244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
245 !DEC$ ATTRIBUTES DLLEXPORT :: getCholRandRNGD_RK1
248 integer(IK) ,
intent(in) :: ndim
249 real(TKG) ,
intent(in) :: mold
250 class(
*) ,
intent(in) :: subset
251 real(TKG) :: rand(ndim, ndim)
342 module subroutine setCholRandRNGF_RK5(rng, rand, subset)
343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
344 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGF_RK5
347 type(rngf_type) ,
intent(in) :: rng
348 real(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
349 class(
*) ,
intent(in) :: subset
354 module subroutine setCholRandRNGF_RK4(rng, rand, subset)
355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
356 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGF_RK4
359 type(rngf_type) ,
intent(in) :: rng
360 real(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
361 class(
*) ,
intent(in) :: subset
366 module subroutine setCholRandRNGF_RK3(rng, rand, subset)
367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
368 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGF_RK3
371 type(rngf_type) ,
intent(in) :: rng
372 real(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
373 class(
*) ,
intent(in) :: subset
378 module subroutine setCholRandRNGF_RK2(rng, rand, subset)
379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
380 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGF_RK2
383 type(rngf_type) ,
intent(in) :: rng
384 real(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
385 class(
*) ,
intent(in) :: subset
390 module subroutine setCholRandRNGF_RK1(rng, rand, subset)
391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
392 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGF_RK1
395 type(rngf_type) ,
intent(in) :: rng
396 real(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
397 class(
*) ,
intent(in) :: subset
410 PURE module subroutine setCholRandRNGX_RK5(rng, rand, subset)
411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
412 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGX_RK5
415 type(xoshiro256ssw_type),
intent(inout) :: rng
416 real(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
417 class(
*) ,
intent(in) :: subset
422 PURE module subroutine setCholRandRNGX_RK4(rng, rand, subset)
423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
424 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGX_RK4
427 type(xoshiro256ssw_type),
intent(inout) :: rng
428 real(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
429 class(
*) ,
intent(in) :: subset
434 PURE module subroutine setCholRandRNGX_RK3(rng, rand, subset)
435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
436 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGX_RK3
439 type(xoshiro256ssw_type),
intent(inout) :: rng
440 real(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
441 class(
*) ,
intent(in) :: subset
446 PURE module subroutine setCholRandRNGX_RK2(rng, rand, subset)
447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
448 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGX_RK2
451 type(xoshiro256ssw_type),
intent(inout) :: rng
452 real(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
453 class(
*) ,
intent(in) :: subset
458 PURE module subroutine setCholRandRNGX_RK1(rng, rand, subset)
459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
460 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGX_RK1
463 type(xoshiro256ssw_type),
intent(inout) :: rng
464 real(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
465 class(
*) ,
intent(in) :: subset
488 module subroutine setCholRandRNGF_CK5(rng, rand, subset)
489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
490 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGF_CK5
493 type(rngf_type) ,
intent(in) :: rng
494 complex(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
495 class(
*) ,
intent(in) :: subset
500 module subroutine setCholRandRNGF_CK4(rng, rand, subset)
501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
502 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGF_CK4
505 type(rngf_type) ,
intent(in) :: rng
506 complex(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
507 class(
*) ,
intent(in) :: subset
512 module subroutine setCholRandRNGF_CK3(rng, rand, subset)
513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
514 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGF_CK3
517 type(rngf_type) ,
intent(in) :: rng
518 complex(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
519 class(
*) ,
intent(in) :: subset
524 module subroutine setCholRandRNGF_CK2(rng, rand, subset)
525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
526 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGF_CK2
529 type(rngf_type) ,
intent(in) :: rng
530 complex(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
531 class(
*) ,
intent(in) :: subset
536 module subroutine setCholRandRNGF_CK1(rng, rand, subset)
537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
538 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGF_CK1
541 type(rngf_type) ,
intent(in) :: rng
542 complex(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
543 class(
*) ,
intent(in) :: subset
550 PURE module subroutine setCholRandRNGX_CK5(rng, rand, subset)
551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
552 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGX_CK5
555 type(xoshiro256ssw_type),
intent(inout) :: rng
556 complex(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
557 class(
*) ,
intent(in) :: subset
562 PURE module subroutine setCholRandRNGX_CK4(rng, rand, subset)
563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
564 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGX_CK4
567 type(xoshiro256ssw_type),
intent(inout) :: rng
568 complex(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
569 class(
*) ,
intent(in) :: subset
574 PURE module subroutine setCholRandRNGX_CK3(rng, rand, subset)
575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
576 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGX_CK3
579 type(xoshiro256ssw_type),
intent(inout) :: rng
580 complex(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
581 class(
*) ,
intent(in) :: subset
586 PURE module subroutine setCholRandRNGX_CK2(rng, rand, subset)
587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
588 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGX_CK2
591 type(xoshiro256ssw_type),
intent(inout) :: rng
592 complex(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
593 class(
*) ,
intent(in) :: subset
598 PURE module subroutine setCholRandRNGX_CK1(rng, rand, subset)
599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
600 !DEC$ ATTRIBUTES DLLEXPORT :: setCholRandRNGX_CK1
603 type(xoshiro256ssw_type),
intent(inout) :: rng
604 complex(TKG) ,
intent(out) ,
contiguous :: rand(:,:)
605 class(
*) ,
intent(in) :: subset
619end module pm_distChol
Generate and return a random upper and lower Cholesky factorization.
Return a random upper or lower Cholesky factorization.
This module contains classes and procedures for generating random upper or lower Cholesky factor tria...
character(*, SK), parameter MODULE_NAME
This module contains classes and procedures for computing various statistical quantities related to t...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
This module contains abstract and concrete derived types that are required for compile-time resolutio...
type(lowDia_type), parameter lowDia
This is a scalar parameter object of type lowDia_type that is exclusively used to request lower-diago...
type(uppDia_type), parameter uppDia
This is a scalar parameter object of type uppDia_type that is exclusively used to request upper-diago...
This is a concrete derived type whose instances can be used to define/request the default uniform ran...
This is the derived type for declaring and generating objects of type xoshiro256ssw_type containing a...
This is a concrete derived type whose instances are exclusively used to request lower-diagonal triang...
This is an abstract derived type for constructing concrete derived types to distinguish various proce...
This is a concrete derived type whose instances are exclusively used to request upper-diagonal triang...