Return the logSpace output argument with size(logSpace) elements of logarithmically-evenly-spaced values over the interval [base**logx1, base**logx2] if logx1 < logx2, or over the interval [logx2, logx1] if logx2 < logx1.
- Parameters
-
| [out] | logSpace | : The output contiguous array of shape (:) of type either real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128) or complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128) containing the log-evenly-spaced sequence within the interval specified by logx1 and logx2. |
| [in] | logx1 | : The input scalar of the same type and kind as logSpace representing the starting exponent such that base**logx1 is the starting value of the sequence. |
| [in] | logx2 | : The input scalar of the same type and kind as logSpace representing the ending exponent such that base**logx1 is the last value of the sequence. |
| [in] | fopen | : The input scalar of type logical of default kind LK. If .true., the logSpace will be first-open, meaning that logx1 will NOT be in the output logSpace sequence
(optional, default = .false.) |
| [in] | lopen | : The input scalar of type logical of default kind LK. If .true., the logSpace will be last-open, meaning that logx2 will NOT be in the output logSpace sequence
(optional, default = .false.) |
| [in] | base | : The input scalar of type real but the same kind as logSpace representing the base of the logarithm
(optional, default = exp(1), that is, Euler`s number). |
Possible calling interfaces ⛓
call setLogSpace(logSpace, logx1, logx2, fopen
= fopen, lopen
= lopen, base
= base)
Return the logSpace output argument with size(logSpace) elements of logarithmically-evenly-spaced val...
This module contains procedures and generic interfaces for generating arrays with linear or logarithm...
- See also
- getLogSpace
getLinSpace
setLinSpace
Example usage ⛓
10 real(RKH) :: logSpace_RKH(
4)
11 real(RKD) :: logSpace_RKD(
4)
12 real(RKS) :: logSpace_RKS(
4)
13 complex(CKH) :: logSpace_CKH(
4)
14 complex(CKD) :: logSpace_CKD(
4)
15 complex(CKS) :: logSpace_CKS(
4)
17 type(display_type) :: disp
21 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
22 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
23 call disp%show(
"Generate real logspace.")
24 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
25 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%")
34 call disp%show(
"call setLogSpace(logSpace_RKS, 0._RKS, 4._RKS)")
38 call disp%show(
"call setLogSpace(logSpace_RKS, 0._RKS, 4._RKS, base = 10._RKS)")
39 call setLogSpace(logSpace_RKS,
0._RKS,
4._RKS, base
= 10._RKS)
42 call disp%show(
"call setLogSpace(logSpace_RKS, 0._RKS, 4._RKS, fopen = .true._LK, base = 10._RKS)")
43 call setLogSpace(logSpace_RKS,
0._RKS,
4._RKS, fopen
= .true._LK, base
= 10._RKS)
46 call disp%show(
"call setLogSpace(logSpace_RKS, 0._RKS, 4._RKS, lopen = .true._LK, base = 10._RKS)")
47 call setLogSpace(logSpace_RKS,
0._RKS,
4._RKS, lopen
= .true._LK, base
= 10._RKS)
50 call disp%show(
"call setLogSpace(logSpace_RKS, 0._RKS, 4._RKS, fopen = .true._LK, lopen = .true._LK, base = 10._RKS)")
51 call setLogSpace(logSpace_RKS,
0._RKS,
4._RKS, fopen
= .true._LK, lopen
= .true._LK, base
= 10._RKS)
57 call disp%show(
"call setLogSpace(logSpace_RKS, 4._RKS, 0._RKS)")
61 call disp%show(
"call setLogSpace(logSpace_RKS, 4._RKS, 0._RKS, base = 10._RKS)")
62 call setLogSpace(logSpace_RKS,
4._RKS,
0._RKS, base
= 10._RKS)
65 call disp%show(
"call setLogSpace(logSpace_RKS, 4._RKS, 0._RKS, fopen = .true._LK, base = 10._RKS)")
66 call setLogSpace(logSpace_RKS,
4._RKS,
0._RKS, fopen
= .true._LK, base
= 10._RKS)
69 call disp%show(
"call setLogSpace(logSpace_RKS, 4._RKS, 0._RKS, lopen = .true._LK, base = 10._RKS)")
70 call setLogSpace(logSpace_RKS,
4._RKS,
0._RKS, lopen
= .true._LK, base
= 10._RKS)
73 call disp%show(
"call setLogSpace(logSpace_RKS, 4._RKS, 0._RKS, fopen = .true._LK, lopen = .true._LK, base = 10._RKS)")
74 call setLogSpace(logSpace_RKS,
4._RKS,
0._RKS, fopen
= .true._LK, lopen
= .true._LK, base
= 10._RKS)
84 call disp%show(
"call setLogSpace(logSpace_RKD, 0._RKD, 4._RKD)")
88 call disp%show(
"call setLogSpace(logSpace_RKD, 0._RKD, 4._RKD, base = 10._RKD)")
89 call setLogSpace(logSpace_RKD,
0._RKD,
4._RKD, base
= 10._RKD)
92 call disp%show(
"call setLogSpace(logSpace_RKD, 0._RKD, 4._RKD, fopen = .true._LK, base = 10._RKD)")
93 call setLogSpace(logSpace_RKD,
0._RKD,
4._RKD, fopen
= .true._LK, base
= 10._RKD)
96 call disp%show(
"call setLogSpace(logSpace_RKD, 0._RKD, 4._RKD, lopen = .true._LK, base = 10._RKD)")
97 call setLogSpace(logSpace_RKD,
0._RKD,
4._RKD, lopen
= .true._LK, base
= 10._RKD)
100 call disp%show(
"call setLogSpace(logSpace_RKD, 0._RKD, 4._RKD, fopen = .true._LK, lopen = .true._LK, base = 10._RKD)")
101 call setLogSpace(logSpace_RKD,
0._RKD,
4._RKD, fopen
= .true._LK, lopen
= .true._LK, base
= 10._RKD)
107 call disp%show(
"call setLogSpace(logSpace_RKD, 4._RKD, 0._RKD)")
111 call disp%show(
"call setLogSpace(logSpace_RKD, 4._RKD, 0._RKD, base = 10._RKD)")
112 call setLogSpace(logSpace_RKD,
4._RKD,
0._RKD, base
= 10._RKD)
115 call disp%show(
"call setLogSpace(logSpace_RKD, 4._RKD, 0._RKD, fopen = .true._LK, base = 10._RKD)")
116 call setLogSpace(logSpace_RKD,
4._RKD,
0._RKD, fopen
= .true._LK, base
= 10._RKD)
119 call disp%show(
"call setLogSpace(logSpace_RKD, 4._RKD, 0._RKD, lopen = .true._LK, base = 10._RKD)")
120 call setLogSpace(logSpace_RKD,
4._RKD,
0._RKD, lopen
= .true._LK, base
= 10._RKD)
123 call disp%show(
"call setLogSpace(logSpace_RKD, 4._RKD, 0._RKD, fopen = .true._LK, lopen = .true._LK, base = 10._RKD)")
124 call setLogSpace(logSpace_RKD,
4._RKD,
0._RKD, fopen
= .true._LK, lopen
= .true._LK, base
= 10._RKD)
134 call disp%show(
"call setLogSpace(logSpace_RKH, 0._RKH, 4._RKH)")
138 call disp%show(
"call setLogSpace(logSpace_RKH, 0._RKH, 4._RKH, base = 10._RKH)")
139 call setLogSpace(logSpace_RKH,
0._RKH,
4._RKH, base
= 10._RKH)
142 call disp%show(
"call setLogSpace(logSpace_RKH, 0._RKH, 4._RKH, fopen = .true._LK, base = 10._RKH)")
143 call setLogSpace(logSpace_RKH,
0._RKH,
4._RKH, fopen
= .true._LK, base
= 10._RKH)
146 call disp%show(
"call setLogSpace(logSpace_RKH, 0._RKH, 4._RKH, lopen = .true._LK, base = 10._RKH)")
147 call setLogSpace(logSpace_RKH,
0._RKH,
4._RKH, lopen
= .true._LK, base
= 10._RKH)
150 call disp%show(
"call setLogSpace(logSpace_RKH, 0._RKH, 4._RKH, fopen = .true._LK, lopen = .true._LK, base = 10._RKH)")
151 call setLogSpace(logSpace_RKH,
0._RKH,
4._RKH, fopen
= .true._LK, lopen
= .true._LK, base
= 10._RKH)
157 call disp%show(
"call setLogSpace(logSpace_RKH, 4._RKH, 0._RKH)")
161 call disp%show(
"call setLogSpace(logSpace_RKH, 4._RKH, 0._RKH, base = 10._RKH)")
162 call setLogSpace(logSpace_RKH,
4._RKH,
0._RKH, base
= 10._RKH)
165 call disp%show(
"call setLogSpace(logSpace_RKH, 4._RKH, 0._RKH, fopen = .true._LK, base = 10._RKH)")
166 call setLogSpace(logSpace_RKH,
4._RKH,
0._RKH, fopen
= .true._LK, base
= 10._RKH)
169 call disp%show(
"call setLogSpace(logSpace_RKH, 4._RKH, 0._RKH, lopen = .true._LK, base = 10._RKH)")
170 call setLogSpace(logSpace_RKH,
4._RKH,
0._RKH, lopen
= .true._LK, base
= 10._RKH)
173 call disp%show(
"call setLogSpace(logSpace_RKH, 4._RKH, 0._RKH, fopen = .true._LK, lopen = .true._LK, base = 10._RKH)")
174 call setLogSpace(logSpace_RKH,
4._RKH,
0._RKH, fopen
= .true._LK, lopen
= .true._LK, base
= 10._RKH)
180 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%")
181 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%")
182 call disp%show(
"Generate complex logspace.")
183 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%")
184 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%")
194 call disp%show(
"call setLogSpace(logSpace_CKS, (1._CKS,1._CKS), (4._CKS,4._CKS))")
195 call setLogSpace(logSpace_CKS, (
1._CKS,
1._CKS), (
4._CKS,
4._CKS))
198 call disp%show(
"call setLogSpace(logSpace_CKS, (1._CKS,1._CKS), (4._CKS,4._CKS), base = 10._CKS)")
199 call setLogSpace(logSpace_CKS, (
1._CKS,
1._CKS), (
4._CKS,
4._CKS), base
= 10._CKS)
202 call disp%show(
"call setLogSpace(logSpace_CKS, (0._CKS,0._CKS), (4._CKS,4._CKS), fopen = .true._LK, base = 10._CKS)")
203 call setLogSpace(logSpace_CKS, (
0._CKS,
0._CKS), (
4._CKS,
4._CKS), fopen
= .true._LK, base
= 10._CKS)
206 call disp%show(
"call setLogSpace(logSpace_CKS, (0._CKS,0._CKS), (4._CKS,4._CKS), lopen = .true._LK, base = 10._CKS)")
207 call setLogSpace(logSpace_CKS, (
0._CKS,
0._CKS), (
4._CKS,
4._CKS), lopen
= .true._LK, base
= 10._CKS)
210 call disp%show(
"call setLogSpace(logSpace_CKS, (0._CKS,0._CKS), (4._CKS,4._CKS), fopen = .true._LK, lopen = .true._LK, base = 10._CKS)")
211 call setLogSpace(logSpace_CKS, (
0._CKS,
0._CKS), (
4._CKS,
4._CKS), fopen
= .true._LK, lopen
= .true._LK, base
= 10._CKS)
217 call disp%show(
"call setLogSpace(logSpace_CKS, (4._CKS,-4._CKS), (-4._CKS,+4._CKS))")
218 call setLogSpace(logSpace_CKS, (
4._CKS,
-4._CKS), (
-4._CKS,
+4._CKS))
221 call disp%show(
"call setLogSpace(logSpace_CKS, (4._CKS,-4._CKS), (-4._CKS,+4._CKS), base = 10._CKS)")
222 call setLogSpace(logSpace_CKS, (
4._CKS,
-4._CKS), (
-4._CKS,
+4._CKS), base
= 10._CKS)
225 call disp%show(
"call setLogSpace(logSpace_CKS, (4._CKS,-4._CKS), (-4._CKS,+4._CKS), fopen = .true._LK, base = 10._CKS)")
226 call setLogSpace(logSpace_CKS, (
4._CKS,
-4._CKS), (
-4._CKS,
+4._CKS), fopen
= .true._LK, base
= 10._CKS)
229 call disp%show(
"call setLogSpace(logSpace_CKS, (4._CKS,-4._CKS), (-4._CKS,+4._CKS), lopen = .true._LK, base = 10._CKS)")
230 call setLogSpace(logSpace_CKS, (
4._CKS,
-4._CKS), (
-4._CKS,
+4._CKS), lopen
= .true._LK, base
= 10._CKS)
233 call disp%show(
"call setLogSpace(logSpace_CKS, (4._CKS,-4._CKS), (-4._CKS,+4._CKS), fopen = .true._LK, lopen = .true._LK, base = 10._CKS)")
234 call setLogSpace(logSpace_CKS, (
4._CKS,
-4._CKS), (
-4._CKS,
+4._CKS), fopen
= .true._LK, lopen
= .true._LK, base
= 10._CKS)
244 call disp%show(
"call setLogSpace(logSpace_CKD, (0._CKD,0._CKD), (4._CKD,4._CKD))")
245 call setLogSpace(logSpace_CKD, (
0._CKD,
0._CKD), (
4._CKD,
4._CKD))
248 call disp%show(
"call setLogSpace(logSpace_CKD, (0._CKD,0._CKD), (4._CKD,4._CKD), base = 10._CKD)")
249 call setLogSpace(logSpace_CKD, (
0._CKD,
0._CKD), (
4._CKD,
4._CKD), base
= 10._CKD)
252 call disp%show(
"call setLogSpace(logSpace_CKD, (0._CKD,0._CKD), (4._CKD,4._CKD), fopen = .true._LK, base = 10._CKD)")
253 call setLogSpace(logSpace_CKD, (
0._CKD,
0._CKD), (
4._CKD,
4._CKD), fopen
= .true._LK, base
= 10._CKD)
256 call disp%show(
"call setLogSpace(logSpace_CKD, (0._CKD,0._CKD), (4._CKD,4._CKD), lopen = .true._LK, base = 10._CKD)")
257 call setLogSpace(logSpace_CKD, (
0._CKD,
0._CKD), (
4._CKD,
4._CKD), lopen
= .true._LK, base
= 10._CKD)
260 call disp%show(
"call setLogSpace(logSpace_CKD, (0._CKD,0._CKD), (4._CKD,4._CKD), fopen = .true._LK, lopen = .true._LK, base = 10._CKD)")
261 call setLogSpace(logSpace_CKD, (
0._CKD,
0._CKD), (
4._CKD,
4._CKD), fopen
= .true._LK, lopen
= .true._LK, base
= 10._CKD)
267 call disp%show(
"call setLogSpace(logSpace_CKD, (4._CKD,-4._CKD), (-4._CKD,+4._CKD))")
268 call setLogSpace(logSpace_CKD, (
4._CKD,
-4._CKD), (
-4._CKD,
+4._CKD))
271 call disp%show(
"call setLogSpace(logSpace_CKD, (4._CKD,-4._CKD), (-4._CKD,+4._CKD), base = 10._CKD)")
272 call setLogSpace(logSpace_CKD, (
4._CKD,
-4._CKD), (
-4._CKD,
+4._CKD), base
= 10._CKD)
275 call disp%show(
"call setLogSpace(logSpace_CKD, (4._CKD,-4._CKD), (-4._CKD,+4._CKD), fopen = .true._LK, base = 10._CKD)")
276 call setLogSpace(logSpace_CKD, (
4._CKD,
-4._CKD), (
-4._CKD,
+4._CKD), fopen
= .true._LK, base
= 10._CKD)
279 call disp%show(
"call setLogSpace(logSpace_CKD, (4._CKD,-4._CKD), (-4._CKD,+4._CKD), lopen = .true._LK, base = 10._CKD)")
280 call setLogSpace(logSpace_CKD, (
4._CKD,
-4._CKD), (
-4._CKD,
+4._CKD), lopen
= .true._LK, base
= 10._CKD)
283 call disp%show(
"call setLogSpace(logSpace_CKD, (4._CKD,-4._CKD), (-4._CKD,+4._CKD), fopen = .true._LK, lopen = .true._LK, base = 10._CKD)")
284 call setLogSpace(logSpace_CKD, (
4._CKD,
-4._CKD), (
-4._CKD,
+4._CKD), fopen
= .true._LK, lopen
= .true._LK, base
= 10._CKD)
294 call disp%show(
"call setLogSpace(logSpace_CKH, (0._CKH,0._CKH), (4._CKH,4._CKH))")
295 call setLogSpace(logSpace_CKH, (
0._CKH,
0._CKH), (
4._CKH,
4._CKH))
298 call disp%show(
"call setLogSpace(logSpace_CKH, (0._CKH,0._CKH), (4._CKH,4._CKH), base = 10._CKH)")
299 call setLogSpace(logSpace_CKH, (
0._CKH,
0._CKH), (
4._CKH,
4._CKH), base
= 10._CKH)
302 call disp%show(
"call setLogSpace(logSpace_CKH, (0._CKH,0._CKH), (4._CKH,4._CKH), fopen = .true._LK, base = 10._CKH)")
303 call setLogSpace(logSpace_CKH, (
0._CKH,
0._CKH), (
4._CKH,
4._CKH), fopen
= .true._LK, base
= 10._CKH)
306 call disp%show(
"call setLogSpace(logSpace_CKH, (0._CKH,0._CKH), (4._CKH,4._CKH), lopen = .true._LK, base = 10._CKH)")
307 call setLogSpace(logSpace_CKH, (
0._CKH,
0._CKH), (
4._CKH,
4._CKH), lopen
= .true._LK, base
= 10._CKH)
310 call disp%show(
"call setLogSpace(logSpace_CKH, (0._CKH,0._CKH), (4._CKH,4._CKH), fopen = .true._LK, lopen = .true._LK, base = 10._CKH)")
311 call setLogSpace(logSpace_CKH, (
0._CKH,
0._CKH), (
4._CKH,
4._CKH), fopen
= .true._LK, lopen
= .true._LK, base
= 10._CKH)
317 call disp%show(
"call setLogSpace(logSpace_CKH, (4._CKH,-4._CKH), (-4._CKH,+4._CKH))")
318 call setLogSpace(logSpace_CKH, (
4._CKH,
-4._CKH), (
-4._CKH,
+4._CKH))
321 call disp%show(
"call setLogSpace(logSpace_CKH, (4._CKH,-4._CKH), (-4._CKH,+4._CKH), base = 10._CKH)")
322 call setLogSpace(logSpace_CKH, (
4._CKH,
-4._CKH), (
-4._CKH,
+4._CKH), base
= 10._CKH)
325 call disp%show(
"call setLogSpace(logSpace_CKH, (4._CKH,-4._CKH), (-4._CKH,+4._CKH), fopen = .true._LK, base = 10._CKH)")
326 call setLogSpace(logSpace_CKH, (
4._CKH,
-4._CKH), (
-4._CKH,
+4._CKH), fopen
= .true._LK, base
= 10._CKH)
329 call disp%show(
"call setLogSpace(logSpace_CKH, (4._CKH,-4._CKH), (-4._CKH,+4._CKH), lopen = .true._LK, base = 10._CKH)")
330 call setLogSpace(logSpace_CKH, (
4._CKH,
-4._CKH), (
-4._CKH,
+4._CKH), lopen
= .true._LK, base
= 10._CKH)
333 call disp%show(
"call setLogSpace(logSpace_CKH, (4._CKH,-4._CKH), (-4._CKH,+4._CKH), fopen = .true._LK, lopen = .true._LK, base = 10._CKH)")
334 call setLogSpace(logSpace_CKH, (
4._CKH,
-4._CKH), (
-4._CKH,
+4._CKH), fopen
= .true._LK, lopen
= .true._LK, base
= 10._CKH)
This is a generic method of the derived type display_type with pass attribute.
This is a generic method of the derived type display_type with pass attribute.
This module contains classes and procedures for input/output (IO) or generic display operations on st...
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
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 CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Generate and return an object of type display_type.
Example Unix compile command via Intel ifort compiler ⛓
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
Example Windows Batch compile command via Intel ifort compiler ⛓
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe
Example Unix / MinGW compile command via GNU gfortran compiler ⛓
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
Example output ⛓
15+1.00000000,
+3.79366803,
+14.3919163,
+54.5981445
16call setLogSpace(logSpace_RKS,
0._RKS,
4._RKS, base
= 10._RKS)
18+1.00000000,
+21.5443497,
+464.158966,
+10000.0000
19call setLogSpace(logSpace_RKS,
0._RKS,
4._RKS, fopen
= .true._LK, base
= 10._RKS)
21+10.0000000,
+100.000000,
+1000.00000,
+10000.0000
22call setLogSpace(logSpace_RKS,
0._RKS,
4._RKS, lopen
= .true._LK, base
= 10._RKS)
24+1.00000000,
+10.0000000,
+100.000000,
+1000.00000
25call setLogSpace(logSpace_RKS,
0._RKS,
4._RKS, fopen
= .true._LK, lopen
= .true._LK, base
= 10._RKS)
27+3.16227770,
+31.6227760,
+316.227753,
+3162.27759
30+54.5981445,
+14.3919134,
+3.79366755,
+1.00000000
31call setLogSpace(logSpace_RKS,
4._RKS,
0._RKS, base
= 10._RKS)
33+10000.0000,
+464.158722,
+21.5443420,
+1.00000000
34call setLogSpace(logSpace_RKS,
4._RKS,
0._RKS, fopen
= .true._LK, base
= 10._RKS)
36+1000.00000,
+100.000000,
+10.0000000,
+1.00000000
37call setLogSpace(logSpace_RKS,
4._RKS,
0._RKS, lopen
= .true._LK, base
= 10._RKS)
39+10000.0000,
+1000.00000,
+100.000000,
+10.0000000
40call setLogSpace(logSpace_RKS,
4._RKS,
0._RKS, fopen
= .true._LK, lopen
= .true._LK, base
= 10._RKS)
42+3162.27759,
+316.227753,
+31.6227760,
+3.16227770
50+1.0000000000000000,
+3.7936678946831779,
+14.391916095149890,
+54.598150033144243
51call setLogSpace(logSpace_RKD,
0._RKD,
4._RKD, base
= 10._RKD)
53+1.0000000000000000,
+21.544346900318832,
+464.15888336127773,
+10000.000000000000
54call setLogSpace(logSpace_RKD,
0._RKD,
4._RKD, fopen
= .true._LK, base
= 10._RKD)
56+10.000000000000000,
+100.00000000000000,
+1000.0000000000000,
+10000.000000000000
57call setLogSpace(logSpace_RKD,
0._RKD,
4._RKD, lopen
= .true._LK, base
= 10._RKD)
59+1.0000000000000000,
+10.000000000000000,
+100.00000000000000,
+1000.0000000000000
60call setLogSpace(logSpace_RKD,
0._RKD,
4._RKD, fopen
= .true._LK, lopen
= .true._LK, base
= 10._RKD)
62+3.1622776601683795,
+31.622776601683793,
+316.22776601683796,
+3162.2776601683790
65+54.598150033144243,
+14.391916095149897,
+3.7936678946831783,
+1.0000000000000000
66call setLogSpace(logSpace_RKD,
4._RKD,
0._RKD, base
= 10._RKD)
68+10000.000000000000,
+464.15888336127824,
+21.544346900318843,
+1.0000000000000000
69call setLogSpace(logSpace_RKD,
4._RKD,
0._RKD, fopen
= .true._LK, base
= 10._RKD)
71+1000.0000000000000,
+100.00000000000000,
+10.000000000000000,
+1.0000000000000000
72call setLogSpace(logSpace_RKD,
4._RKD,
0._RKD, lopen
= .true._LK, base
= 10._RKD)
74+10000.000000000000,
+1000.0000000000000,
+100.00000000000000,
+10.000000000000000
75call setLogSpace(logSpace_RKD,
4._RKD,
0._RKD, fopen
= .true._LK, lopen
= .true._LK, base
= 10._RKD)
77+3162.2776601683790,
+316.22776601683796,
+31.622776601683793,
+3.1622776601683795
85+1.00000000000000000000000000000000000,
+3.79366789468317773539630436050516497,
+14.3919160951498941178039062555425154,
+54.5981500331442390781102612028608809
86call setLogSpace(logSpace_RKH,
0._RKH,
4._RKH, base
= 10._RKH)
88+1.00000000000000000000000000000000000,
+21.5443469003188372175929356651935007,
+464.158883361277889241007635091944523,
+10000.0000000000000000000000000000000
89call setLogSpace(logSpace_RKH,
0._RKH,
4._RKH, fopen
= .true._LK, base
= 10._RKH)
91+10.0000000000000000000000000000000000,
+100.000000000000000000000000000000000,
+1000.00000000000000000000000000000000,
+10000.0000000000000000000000000000000
92call setLogSpace(logSpace_RKH,
0._RKH,
4._RKH, lopen
= .true._LK, base
= 10._RKH)
94+1.00000000000000000000000000000000000,
+10.0000000000000000000000000000000000,
+100.000000000000000000000000000000000,
+1000.00000000000000000000000000000000
95call setLogSpace(logSpace_RKH,
0._RKH,
4._RKH, fopen
= .true._LK, lopen
= .true._LK, base
= 10._RKH)
97+3.16227766016837933199889354443271854,
+31.6227766016837933199889354443271854,
+316.227766016837933199889354443271860,
+3162.27766016837933199889354443271840
100+54.5981500331442390781102612028608809,
+14.3919160951498941178039062555425215,
+3.79366789468317773539630436050516574,
+1.00000000000000000000000000000000000
101call setLogSpace(logSpace_RKH,
4._RKH,
0._RKH, base
= 10._RKH)
103+10000.0000000000000000000000000000000,
+464.158883361277889241007635091944917,
+21.5443469003188372175929356651935130,
+1.00000000000000000000000000000000000
104call setLogSpace(logSpace_RKH,
4._RKH,
0._RKH, fopen
= .true._LK, base
= 10._RKH)
106+1000.00000000000000000000000000000000,
+100.000000000000000000000000000000000,
+10.0000000000000000000000000000000000,
+1.00000000000000000000000000000000000
107call setLogSpace(logSpace_RKH,
4._RKH,
0._RKH, lopen
= .true._LK, base
= 10._RKH)
109+10000.0000000000000000000000000000000,
+1000.00000000000000000000000000000000,
+100.000000000000000000000000000000000,
+10.0000000000000000000000000000000000
110call setLogSpace(logSpace_RKH,
4._RKH,
0._RKH, fopen
= .true._LK, lopen
= .true._LK, base
= 10._RKH)
112+3162.27766016837933199889354443271840,
+316.227766016837933199889354443271860,
+31.6227766016837933199889354443271854,
+3.16227766016837933199889354443271854
116Generate
complex logspace.
125call setLogSpace(logSpace_CKS, (
1._CKS,
1._CKS), (
4._CKS,
4._CKS))
127(
+1.46869385,
+2.28735518), (
-3.07493234,
+6.71884966), (
-19.8845310,
+2.83447099), (
-35.6877289,
-41.3200150)
128call setLogSpace(logSpace_CKS, (
1._CKS,
1._CKS), (
4._CKS,
4._CKS), base
= 10._CKS)
130(
-6.68201542,
+7.43980312), (
-10.7013426,
-99.4257660), (
+811.214722,
+584.748657), (
-9770.96387,
+2127.97827)
131call setLogSpace(logSpace_CKS, (
0._CKS,
0._CKS), (
4._CKS,
4._CKS), fopen
= .true._LK, base
= 10._CKS)
133(
-6.68201542,
+7.43980312), (
-10.7013426,
-99.4257660), (
+811.214722,
+584.748657), (
-9770.96387,
+2127.97827)
134call setLogSpace(logSpace_CKS, (
0._CKS,
0._CKS), (
4._CKS,
4._CKS), lopen
= .true._LK, base
= 10._CKS)
136(
+1.00000000,
+0.00000000), (
-6.68201542,
+7.43980312), (
-10.7013426,
-99.4257660), (
+811.214722,
+584.748657)
137call setLogSpace(logSpace_CKS, (
0._CKS,
0._CKS), (
4._CKS,
4._CKS), fopen
= .true._LK, lopen
= .true._LK, base
= 10._CKS)
139(
+1.28801882,
+2.88808036), (
-30.0933094,
-9.71559143), (
+273.366180,
-158.968567), (
-643.940369,
+3096.01978)
140call setLogSpace(logSpace_CKS, (
4._CKS,
-4._CKS), (
-4._CKS,
+4._CKS))
142(
-35.6877289,
+41.3200150), (
+0.892413497,
-3.68720937), (
+0.620079003E-1,
+0.256200016), (
-0.119719002E-1,
-0.138613218E-1)
143call setLogSpace(logSpace_CKS, (
4._CKS,
-4._CKS), (
-4._CKS,
+4._CKS), base
= 10._CKS)
145(
-9770.96387,
-2127.97827), (
-21.4893303,
-1.53866231), (
-0.462973453E-1,
+0.331492419E-2), (
-0.977096133E-4,
+0.212797786E-4)
146call setLogSpace(logSpace_CKS, (
4._CKS,
-4._CKS), (
-4._CKS,
+4._CKS), fopen
= .true._LK, base
= 10._CKS)
148(
-10.7013426,
+99.4257660), (
+1.00000000,
+0.00000000), (
-0.107013423E-2,
-0.994257536E-2), (
-0.977096133E-4,
+0.212797786E-4)
149call setLogSpace(logSpace_CKS, (
4._CKS,
-4._CKS), (
-4._CKS,
+4._CKS), lopen
= .true._LK, base
= 10._CKS)
151(
-9770.96387,
-2127.97827), (
-10.7013426,
+99.4257660), (
+1.00000000,
+0.00000000), (
-0.107013423E-2,
-0.994257536E-2)
152call setLogSpace(logSpace_CKS, (
4._CKS,
-4._CKS), (
-4._CKS,
+4._CKS), fopen
= .true._LK, lopen
= .true._LK, base
= 10._CKS)
154(
+811.214722,
-584.748657), (
-6.68201542,
-7.43980312), (
-0.668201521E-1,
+0.743980259E-1), (
+0.811214559E-3,
+0.584748515E-3)
160call setLogSpace(logSpace_CKD, (
0._CKD,
0._CKD), (
4._CKD,
4._CKD))
162(
+1.0000000000000000,
+0.0000000000000000), (
+0.89241322946273149,
+3.6872096120277442), (
-12.799113350909687,
+6.5810292751514092), (
-35.687732480119131,
-41.320016184280199)
163call setLogSpace(logSpace_CKD, (
0._CKD,
0._CKD), (
4._CKD,
4._CKD), base
= 10._CKD)
165(
+1.0000000000000000,
+0.0000000000000000), (
-21.489332328145490,
+1.5386615780603807), (
+459.42392445767968,
-66.129619982976592), (
-9770.9622867323469,
+2127.9793211529018)
166call setLogSpace(logSpace_CKD, (
0._CKD,
0._CKD), (
4._CKD,
4._CKD), fopen
= .true._LK, base
= 10._CKD)
168(
-6.6820151019031329,
+7.4398033695749310), (
-10.701348355876982,
-99.425756941379021), (
+811.21465283970610,
+584.74848184339612), (
-9770.9622867323469,
+2127.9793211529018)
169call setLogSpace(logSpace_CKD, (
0._CKD,
0._CKD), (
4._CKD,
4._CKD), lopen
= .true._LK, base
= 10._CKD)
171(
+1.0000000000000000,
+0.0000000000000000), (
-6.6820151019031329,
+7.4398033695749310), (
-10.701348355876982,
-99.425756941379021), (
+811.21465283970610,
+584.74848184339612)
172call setLogSpace(logSpace_CKD, (
0._CKD,
0._CKD), (
4._CKD,
4._CKD), fopen
= .true._LK, lopen
= .true._LK, base
= 10._CKD)
174(
+1.2880188077230994,
+2.8880802535510623), (
-30.093310326713034,
-9.7155892039622227), (
+273.36602736639816,
-158.96859778558107), (
-643.94081374776601,
+3096.0200626594578)
175call setLogSpace(logSpace_CKD, (
4._CKD,
-4._CKD), (
-4._CKD,
+4._CKD))
177(
-35.687732480119131,
+41.320016184280199), (
+0.89241322946273083,
-3.6872096120277456), (
+0.62007951099956576E-1,
+0.25620004922557482), (
-0.11971900521662590E-1,
-0.13861321214152955E-1)
178call setLogSpace(logSpace_CKD, (
4._CKD,
-4._CKD), (
-4._CKD,
+4._CKD), base
= 10._CKD)
180(
-9770.9622867323469,
-2127.9793211529018), (
-21.489332328145501,
-1.5386615780603718), (
-0.46297363033380279E-1,
+0.33149458799925278E-2), (
-0.97709622867323293E-4,
+0.21279793211528979E-4)
181call setLogSpace(logSpace_CKD, (
4._CKD,
-4._CKD), (
-4._CKD,
+4._CKD), fopen
= .true._LK, base
= 10._CKD)
183(
-10.701348355876982,
+99.425756941379021), (
+1.0000000000000000,
+0.0000000000000000), (
-0.10701348355876973E-2,
-0.99425756941378916E-2), (
-0.97709622867323293E-4,
+0.21279793211528979E-4)
184call setLogSpace(logSpace_CKD, (
4._CKD,
-4._CKD), (
-4._CKD,
+4._CKD), lopen
= .true._LK, base
= 10._CKD)
186(
-9770.9622867323469,
-2127.9793211529018), (
-10.701348355876982,
+99.425756941379021), (
+1.0000000000000000,
+0.0000000000000000), (
-0.10701348355876973E-2,
-0.99425756941378916E-2)
187call setLogSpace(logSpace_CKD, (
4._CKD,
-4._CKD), (
-4._CKD,
+4._CKD), fopen
= .true._LK, lopen
= .true._LK, base
= 10._CKD)
189(
+811.21465283970610,
-584.74848184339612), (
-6.6820151019031329,
-7.4398033695749310), (
-0.66820151019031299E-1,
+0.74398033695749280E-1), (
+0.81121465283970503E-3,
+0.58474848184339532E-3)
195call setLogSpace(logSpace_CKH, (
0._CKH,
0._CKH), (
4._CKH,
4._CKH))
197(
+1.00000000000000000000000000000000000,
+0.00000000000000000000000000000000000), (
+0.892413229462731277425040840529798690,
+3.68720961202774484328620605149881354), (
-12.7991133509096911815909637775114086,
+6.58102927515140845418525943409442629), (
-35.6877324801191332990417139972871190,
-41.3200161842802056970774483238470197)
198call setLogSpace(logSpace_CKH, (
0._CKH,
0._CKH), (
4._CKH,
4._CKH), base
= 10._CKH)
200(
+1.00000000000000000000000000000000000,
+0.00000000000000000000000000000000000), (
-21.4893323281454840556173421890123814,
+1.53866157806038661667621752314532881), (
+459.423924457679330805379902128061207,
-66.1296199829768247690351798309956726), (
-9770.96228673233636876178613204470709,
+2127.97932115290822526867517647758867)
201call setLogSpace(logSpace_CKH, (
0._CKH,
0._CKH), (
4._CKH,
4._CKH), fopen
= .true._LK, base
= 10._CKH)
203(
-6.68201510190312946242330696656142377,
+7.43980336957493187658416406875514362), (
-10.7013483558770207720865175285182452,
-99.4257569413789687361619371909155975), (
+811.214652839705902013971782701663845,
+584.748481843395154894261429590175230), (
-9770.96228673233636876178613204470709,
+2127.97932115290822526867517647758867)
204call setLogSpace(logSpace_CKH, (
0._CKH,
0._CKH), (
4._CKH,
4._CKH), lopen
= .true._LK, base
= 10._CKH)
206(
+1.00000000000000000000000000000000000,
+0.00000000000000000000000000000000000), (
-6.68201510190312946242330696656142377,
+7.43980336957493187658416406875514362), (
-10.7013483558770207720865175285182452,
-99.4257569413789687361619371909155975), (
+811.214652839705902013971782701663845,
+584.748481843395154894261429590175230)
207call setLogSpace(logSpace_CKH, (
0._CKH,
0._CKH), (
4._CKH,
4._CKH), fopen
= .true._LK, lopen
= .true._LK, base
= 10._CKH)
209(
+1.28801880772309969743534705401557004,
+2.88808025355106168164849546968240769), (
-30.0933103267130276507566541305484520,
-9.71558920396220997988032474265712857), (
+273.366027366397729523842506149183534,
-158.968597785581186217262923638309952), (
-643.940813747764838905612522510823629,
+3096.02006265945673923907800548861768)
210call setLogSpace(logSpace_CKH, (
4._CKH,
-4._CKH), (
-4._CKH,
+4._CKH))
212(
-35.6877324801191332990417139972871190,
+41.3200161842802056970774483238470197), (
+0.892413229462731277425040840529798208,
-3.68720961202774484328620605149881431), (
+0.620079510999564822225351575123949535E-1,
+0.256200049225574780070743677010013931), (
-0.119719005216625907934578427957440421E-1,
-0.138613212141529576938462541587188533E-1)
213call setLogSpace(logSpace_CKH, (
4._CKH,
-4._CKH), (
-4._CKH,
+4._CKH), base
= 10._CKH)
215(
-9770.96228673233636876178613204470709,
-2127.97932115290822526867517647758867), (
-21.4893323281454840556173421890123906,
-1.53866157806038661667621752314532130), (
-0.462973630333802541090074742242052579E-1,
+0.331494587999249809941556845516021446E-2), (
-0.977096228673233636876178613204470924E-4,
+0.212797932115290822526867517647758938E-4)
216call setLogSpace(logSpace_CKH, (
4._CKH,
-4._CKH), (
-4._CKH,
+4._CKH), fopen
= .true._LK, base
= 10._CKH)
218(
-10.7013483558770207720865175285182452,
+99.4257569413789687361619371909155975), (
+1.00000000000000000000000000000000000,
+0.00000000000000000000000000000000000), (
-0.107013483558770207720865175285182464E-2,
-0.994257569413789687361619371909156077E-2), (
-0.977096228673233636876178613204470924E-4,
+0.212797932115290822526867517647758938E-4)
219call setLogSpace(logSpace_CKH, (
4._CKH,
-4._CKH), (
-4._CKH,
+4._CKH), lopen
= .true._LK, base
= 10._CKH)
221(
-9770.96228673233636876178613204470709,
-2127.97932115290822526867517647758867), (
-10.7013483558770207720865175285182452,
+99.4257569413789687361619371909155975), (
+1.00000000000000000000000000000000000,
+0.00000000000000000000000000000000000), (
-0.107013483558770207720865175285182464E-2,
-0.994257569413789687361619371909156077E-2)
222call setLogSpace(logSpace_CKH, (
4._CKH,
-4._CKH), (
-4._CKH,
+4._CKH), fopen
= .true._LK, lopen
= .true._LK, base
= 10._CKH)
224(
+811.214652839705902013971782701663845,
-584.748481843395154894261429590175230), (
-6.68201510190312946242330696656142377,
-7.43980336957493187658416406875514362), (
-0.668201510190312946242330696656142353E-1,
+0.743980336957493187658416406875514424E-1), (
+0.811214652839705902013971782701664105E-3,
+0.584748481843395154894261429590175425E-3)
- Test:
- test_pm_arraySpace
- Todo:
- Low Priority: This generic interface can be expanded to include procedures with real-valued input argument
space instead of count.
Final Remarks ⛓
If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.
-
If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
-
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.
This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.
- Copyright
- Computational Data Science Lab
- Author:
- Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX
Definition at line 765 of file pm_arraySpace.F90.
1.9.3