Skip to content

Commit a6527d2

Browse files
zozihazoziha
committed
Minor fix .
1 parent 9e66efc commit a6527d2

File tree

5 files changed

+33
-33
lines changed

5 files changed

+33
-33
lines changed

‎meta-src/forlab_linalg.fypp

+1-1
Original file line numberDiff line numberDiff line change
@@ -120,7 +120,7 @@ module forlab_linalg
120120
module function ${c1}$_${t1[0]}$_12_${k1}$(x1, A2) result(result)
121121
${t1}$, dimension(:, :), allocatable :: result
122122
${t1}$, dimension(:), intent(in) :: x1
123-
integer, dimension(:, :), intent(in) :: A2
123+
${t1}$, dimension(:, :), intent(in) :: A2
124124
end function ${c1}$_${t1[0]}$_12_${k1}$
125125
#:endfor
126126
end interface ${c1}$

‎meta-src/forlab_stats_randu.fypp

+2-2
Original file line numberDiff line numberDiff line change
@@ -35,7 +35,7 @@ contains
3535
real :: tmp
3636

3737
call random_number(tmp)
38-
random = start + nint(tmp*real(end - start))
38+
random = start + nint(tmp*real(end - start), ${k1}$)
3939

4040
end function randu_0_${t1[0]}$${k1}$
4141

@@ -47,7 +47,7 @@ contains
4747
real :: tmp(ndim)
4848

4949
call random_number(tmp)
50-
random = start + nint(tmp*real(end - start))
50+
random = start + nint(tmp*real(end - start), ${k1}$)
5151

5252
end function randu_1_${t1[0]}$${k1}$
5353
#:endfor

‎src/forlab_io.f90

+2-2
Original file line numberDiff line numberDiff line change
@@ -706,7 +706,7 @@ end subroutine color
706706
!> Version: expermental
707707
!>
708708
!> Print a progress_bar.
709-
!> ([Specification])(../page/specs/forlab_io.html#progress_bar)
709+
!> ([Specification](../page/specs/forlab_io.html#progress_bar))
710710
interface progress_bar
711711
module subroutine progress_bar_int8(iter, itermax, step, symbol)
712712
integer(int8), intent(in) :: iter, itermax
@@ -733,7 +733,7 @@ end subroutine progress_bar_int64
733733
!> Version: expermental
734734
!>
735735
!> Print a progress percentage message.
736-
!> ([Specification])(../page/specs/forlab_io.html#progress_perc)
736+
!> ([Specification](../page/specs/forlab_io.html#progress_perc))
737737
interface progress_perc
738738
module subroutine progress_perc_int8(iter, itermax, prefix)
739739
integer(int8), intent(in) :: iter, itermax

‎src/forlab_linalg.f90

+20-20
Original file line numberDiff line numberDiff line change
@@ -214,7 +214,7 @@ end function horzcat_r_21_sp
214214
module function horzcat_r_12_sp(x1, A2) result(result)
215215
real(sp), dimension(:, :), allocatable :: result
216216
real(sp), dimension(:), intent(in) :: x1
217-
integer, dimension(:, :), intent(in) :: A2
217+
real(sp), dimension(:, :), intent(in) :: A2
218218
end function horzcat_r_12_sp
219219
module function horzcat_r_1_dp(x1, x2) result(result)
220220
real(dp), dimension(:, :), allocatable :: result
@@ -232,7 +232,7 @@ end function horzcat_r_21_dp
232232
module function horzcat_r_12_dp(x1, A2) result(result)
233233
real(dp), dimension(:, :), allocatable :: result
234234
real(dp), dimension(:), intent(in) :: x1
235-
integer, dimension(:, :), intent(in) :: A2
235+
real(dp), dimension(:, :), intent(in) :: A2
236236
end function horzcat_r_12_dp
237237
module function horzcat_r_1_qp(x1, x2) result(result)
238238
real(qp), dimension(:, :), allocatable :: result
@@ -250,7 +250,7 @@ end function horzcat_r_21_qp
250250
module function horzcat_r_12_qp(x1, A2) result(result)
251251
real(qp), dimension(:, :), allocatable :: result
252252
real(qp), dimension(:), intent(in) :: x1
253-
integer, dimension(:, :), intent(in) :: A2
253+
real(qp), dimension(:, :), intent(in) :: A2
254254
end function horzcat_r_12_qp
255255
module function horzcat_c_1_sp(x1, x2) result(result)
256256
complex(sp), dimension(:, :), allocatable :: result
@@ -268,7 +268,7 @@ end function horzcat_c_21_sp
268268
module function horzcat_c_12_sp(x1, A2) result(result)
269269
complex(sp), dimension(:, :), allocatable :: result
270270
complex(sp), dimension(:), intent(in) :: x1
271-
integer, dimension(:, :), intent(in) :: A2
271+
complex(sp), dimension(:, :), intent(in) :: A2
272272
end function horzcat_c_12_sp
273273
module function horzcat_c_1_dp(x1, x2) result(result)
274274
complex(dp), dimension(:, :), allocatable :: result
@@ -286,7 +286,7 @@ end function horzcat_c_21_dp
286286
module function horzcat_c_12_dp(x1, A2) result(result)
287287
complex(dp), dimension(:, :), allocatable :: result
288288
complex(dp), dimension(:), intent(in) :: x1
289-
integer, dimension(:, :), intent(in) :: A2
289+
complex(dp), dimension(:, :), intent(in) :: A2
290290
end function horzcat_c_12_dp
291291
module function horzcat_c_1_qp(x1, x2) result(result)
292292
complex(qp), dimension(:, :), allocatable :: result
@@ -304,7 +304,7 @@ end function horzcat_c_21_qp
304304
module function horzcat_c_12_qp(x1, A2) result(result)
305305
complex(qp), dimension(:, :), allocatable :: result
306306
complex(qp), dimension(:), intent(in) :: x1
307-
integer, dimension(:, :), intent(in) :: A2
307+
complex(qp), dimension(:, :), intent(in) :: A2
308308
end function horzcat_c_12_qp
309309
module function horzcat_i_1_int8(x1, x2) result(result)
310310
integer(int8), dimension(:, :), allocatable :: result
@@ -322,7 +322,7 @@ end function horzcat_i_21_int8
322322
module function horzcat_i_12_int8(x1, A2) result(result)
323323
integer(int8), dimension(:, :), allocatable :: result
324324
integer(int8), dimension(:), intent(in) :: x1
325-
integer, dimension(:, :), intent(in) :: A2
325+
integer(int8), dimension(:, :), intent(in) :: A2
326326
end function horzcat_i_12_int8
327327
module function horzcat_i_1_int16(x1, x2) result(result)
328328
integer(int16), dimension(:, :), allocatable :: result
@@ -340,7 +340,7 @@ end function horzcat_i_21_int16
340340
module function horzcat_i_12_int16(x1, A2) result(result)
341341
integer(int16), dimension(:, :), allocatable :: result
342342
integer(int16), dimension(:), intent(in) :: x1
343-
integer, dimension(:, :), intent(in) :: A2
343+
integer(int16), dimension(:, :), intent(in) :: A2
344344
end function horzcat_i_12_int16
345345
module function horzcat_i_1_int32(x1, x2) result(result)
346346
integer(int32), dimension(:, :), allocatable :: result
@@ -358,7 +358,7 @@ end function horzcat_i_21_int32
358358
module function horzcat_i_12_int32(x1, A2) result(result)
359359
integer(int32), dimension(:, :), allocatable :: result
360360
integer(int32), dimension(:), intent(in) :: x1
361-
integer, dimension(:, :), intent(in) :: A2
361+
integer(int32), dimension(:, :), intent(in) :: A2
362362
end function horzcat_i_12_int32
363363
module function horzcat_i_1_int64(x1, x2) result(result)
364364
integer(int64), dimension(:, :), allocatable :: result
@@ -376,7 +376,7 @@ end function horzcat_i_21_int64
376376
module function horzcat_i_12_int64(x1, A2) result(result)
377377
integer(int64), dimension(:, :), allocatable :: result
378378
integer(int64), dimension(:), intent(in) :: x1
379-
integer, dimension(:, :), intent(in) :: A2
379+
integer(int64), dimension(:, :), intent(in) :: A2
380380
end function horzcat_i_12_int64
381381
end interface horzcat
382382
interface vertcat
@@ -396,7 +396,7 @@ end function vertcat_r_21_sp
396396
module function vertcat_r_12_sp(x1, A2) result(result)
397397
real(sp), dimension(:, :), allocatable :: result
398398
real(sp), dimension(:), intent(in) :: x1
399-
integer, dimension(:, :), intent(in) :: A2
399+
real(sp), dimension(:, :), intent(in) :: A2
400400
end function vertcat_r_12_sp
401401
module function vertcat_r_1_dp(x1, x2) result(result)
402402
real(dp), dimension(:, :), allocatable :: result
@@ -414,7 +414,7 @@ end function vertcat_r_21_dp
414414
module function vertcat_r_12_dp(x1, A2) result(result)
415415
real(dp), dimension(:, :), allocatable :: result
416416
real(dp), dimension(:), intent(in) :: x1
417-
integer, dimension(:, :), intent(in) :: A2
417+
real(dp), dimension(:, :), intent(in) :: A2
418418
end function vertcat_r_12_dp
419419
module function vertcat_r_1_qp(x1, x2) result(result)
420420
real(qp), dimension(:, :), allocatable :: result
@@ -432,7 +432,7 @@ end function vertcat_r_21_qp
432432
module function vertcat_r_12_qp(x1, A2) result(result)
433433
real(qp), dimension(:, :), allocatable :: result
434434
real(qp), dimension(:), intent(in) :: x1
435-
integer, dimension(:, :), intent(in) :: A2
435+
real(qp), dimension(:, :), intent(in) :: A2
436436
end function vertcat_r_12_qp
437437
module function vertcat_c_1_sp(x1, x2) result(result)
438438
complex(sp), dimension(:, :), allocatable :: result
@@ -450,7 +450,7 @@ end function vertcat_c_21_sp
450450
module function vertcat_c_12_sp(x1, A2) result(result)
451451
complex(sp), dimension(:, :), allocatable :: result
452452
complex(sp), dimension(:), intent(in) :: x1
453-
integer, dimension(:, :), intent(in) :: A2
453+
complex(sp), dimension(:, :), intent(in) :: A2
454454
end function vertcat_c_12_sp
455455
module function vertcat_c_1_dp(x1, x2) result(result)
456456
complex(dp), dimension(:, :), allocatable :: result
@@ -468,7 +468,7 @@ end function vertcat_c_21_dp
468468
module function vertcat_c_12_dp(x1, A2) result(result)
469469
complex(dp), dimension(:, :), allocatable :: result
470470
complex(dp), dimension(:), intent(in) :: x1
471-
integer, dimension(:, :), intent(in) :: A2
471+
complex(dp), dimension(:, :), intent(in) :: A2
472472
end function vertcat_c_12_dp
473473
module function vertcat_c_1_qp(x1, x2) result(result)
474474
complex(qp), dimension(:, :), allocatable :: result
@@ -486,7 +486,7 @@ end function vertcat_c_21_qp
486486
module function vertcat_c_12_qp(x1, A2) result(result)
487487
complex(qp), dimension(:, :), allocatable :: result
488488
complex(qp), dimension(:), intent(in) :: x1
489-
integer, dimension(:, :), intent(in) :: A2
489+
complex(qp), dimension(:, :), intent(in) :: A2
490490
end function vertcat_c_12_qp
491491
module function vertcat_i_1_int8(x1, x2) result(result)
492492
integer(int8), dimension(:, :), allocatable :: result
@@ -504,7 +504,7 @@ end function vertcat_i_21_int8
504504
module function vertcat_i_12_int8(x1, A2) result(result)
505505
integer(int8), dimension(:, :), allocatable :: result
506506
integer(int8), dimension(:), intent(in) :: x1
507-
integer, dimension(:, :), intent(in) :: A2
507+
integer(int8), dimension(:, :), intent(in) :: A2
508508
end function vertcat_i_12_int8
509509
module function vertcat_i_1_int16(x1, x2) result(result)
510510
integer(int16), dimension(:, :), allocatable :: result
@@ -522,7 +522,7 @@ end function vertcat_i_21_int16
522522
module function vertcat_i_12_int16(x1, A2) result(result)
523523
integer(int16), dimension(:, :), allocatable :: result
524524
integer(int16), dimension(:), intent(in) :: x1
525-
integer, dimension(:, :), intent(in) :: A2
525+
integer(int16), dimension(:, :), intent(in) :: A2
526526
end function vertcat_i_12_int16
527527
module function vertcat_i_1_int32(x1, x2) result(result)
528528
integer(int32), dimension(:, :), allocatable :: result
@@ -540,7 +540,7 @@ end function vertcat_i_21_int32
540540
module function vertcat_i_12_int32(x1, A2) result(result)
541541
integer(int32), dimension(:, :), allocatable :: result
542542
integer(int32), dimension(:), intent(in) :: x1
543-
integer, dimension(:, :), intent(in) :: A2
543+
integer(int32), dimension(:, :), intent(in) :: A2
544544
end function vertcat_i_12_int32
545545
module function vertcat_i_1_int64(x1, x2) result(result)
546546
integer(int64), dimension(:, :), allocatable :: result
@@ -558,7 +558,7 @@ end function vertcat_i_21_int64
558558
module function vertcat_i_12_int64(x1, A2) result(result)
559559
integer(int64), dimension(:, :), allocatable :: result
560560
integer(int64), dimension(:), intent(in) :: x1
561-
integer, dimension(:, :), intent(in) :: A2
561+
integer(int64), dimension(:, :), intent(in) :: A2
562562
end function vertcat_i_12_int64
563563
end interface vertcat
564564

‎src/forlab_stats_randu.f90

+8-8
Original file line numberDiff line numberDiff line change
@@ -66,7 +66,7 @@ module function randu_0_iint8(start, end) result(random)
6666
real :: tmp
6767

6868
call random_number(tmp)
69-
random = start + nint(tmp*real(end - start))
69+
random = start + nint(tmp*real(end - start), int8)
7070

7171
end function randu_0_iint8
7272

@@ -78,7 +78,7 @@ module function randu_1_iint8(start, end, ndim) result(random)
7878
real :: tmp(ndim)
7979

8080
call random_number(tmp)
81-
random = start + nint(tmp*real(end - start))
81+
random = start + nint(tmp*real(end - start), int8)
8282

8383
end function randu_1_iint8
8484
module function randu_0_iint16(start, end) result(random)
@@ -88,7 +88,7 @@ module function randu_0_iint16(start, end) result(random)
8888
real :: tmp
8989

9090
call random_number(tmp)
91-
random = start + nint(tmp*real(end - start))
91+
random = start + nint(tmp*real(end - start), int16)
9292

9393
end function randu_0_iint16
9494

@@ -100,7 +100,7 @@ module function randu_1_iint16(start, end, ndim) result(random)
100100
real :: tmp(ndim)
101101

102102
call random_number(tmp)
103-
random = start + nint(tmp*real(end - start))
103+
random = start + nint(tmp*real(end - start), int16)
104104

105105
end function randu_1_iint16
106106
module function randu_0_iint32(start, end) result(random)
@@ -110,7 +110,7 @@ module function randu_0_iint32(start, end) result(random)
110110
real :: tmp
111111

112112
call random_number(tmp)
113-
random = start + nint(tmp*real(end - start))
113+
random = start + nint(tmp*real(end - start), int32)
114114

115115
end function randu_0_iint32
116116

@@ -122,7 +122,7 @@ module function randu_1_iint32(start, end, ndim) result(random)
122122
real :: tmp(ndim)
123123

124124
call random_number(tmp)
125-
random = start + nint(tmp*real(end - start))
125+
random = start + nint(tmp*real(end - start), int32)
126126

127127
end function randu_1_iint32
128128
module function randu_0_iint64(start, end) result(random)
@@ -132,7 +132,7 @@ module function randu_0_iint64(start, end) result(random)
132132
real :: tmp
133133

134134
call random_number(tmp)
135-
random = start + nint(tmp*real(end - start))
135+
random = start + nint(tmp*real(end - start), int64)
136136

137137
end function randu_0_iint64
138138

@@ -144,7 +144,7 @@ module function randu_1_iint64(start, end, ndim) result(random)
144144
real :: tmp(ndim)
145145

146146
call random_number(tmp)
147-
random = start + nint(tmp*real(end - start))
147+
random = start + nint(tmp*real(end - start), int64)
148148

149149
end function randu_1_iint64
150150

0 commit comments

Comments
 (0)