Redirect some routines to STDLIB.

Author: zoziha

Changelog.md

@@ -0,0 +1,8 @@
+# v1.0.2
+
+- `forlab_stats`
+  - redirect `mean`, `var` to `stdlib_stats`.
+- `forlab_io`
+  - add `read_line` and `read_file`.
+- `forlab_math`
+  - redirect `arange/is_close/all_close` to `stdlib_math`.

LICENSE

@@ -1,6 +1,7 @@
 MIT License
 
 Copyright (c) 2021 FORLAB Contributors
+Copyright (c) 2018-2021 Keurfon Luu
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

fpm.toml

@@ -23,6 +23,9 @@ test-drive = { git = "https://github.com/fortran-lang/test-drive" }
 [library]
 source-dir="src"
 
+[install]
+library = true
+
 #=========================== tests =============================================
 ## [io] tests
 [[test]]

meta-src/forlab_math.fypp

@@ -3,6 +3,7 @@ module forlab_math
 
     use stdlib_kinds, only: sp, dp, qp, int8, int16, int32, int64
     use stdlib_optval, only: optval
+    use stdlib_math, only: arange, is_close, all_close
     implicit none
     private
 
@@ -53,55 +54,6 @@ module forlab_math
         #:endfor
     end interface angle
 
-        !> Version: experimental
-    !>
-    !> Returns a boolean scalar/array where two scalar/arrays are element-wise equal within a tolerance.
-    !> ([Specification](../page/specs/forlab_math.html#is_close))
-    interface is_close
-        #:set RC_KINDS_TYPES = REAL_KINDS_TYPES + CMPLX_KINDS_TYPES
-        #:for k1, t1 in RC_KINDS_TYPES
-        elemental module logical function is_close_${t1[0]}$${k1}$(a, b, rel_tol, abs_tol, equal_nan) result(close)
-            ${t1}$, intent(in) :: a, b
-            real(${k1}$), intent(in), optional :: rel_tol, abs_tol
-            logical, intent(in), optional :: equal_nan
-        end function is_close_${t1[0]}$${k1}$
-        #:endfor
-    end interface is_close
-
-    !> Version: experimental
-    !>
-    !> Returns a boolean scalar where two arrays are element-wise equal within a tolerance.
-    !> ([Specification](../page/specs/forlab_math.html#all_close))
-    interface all_close
-        #:set RC_KINDS_TYPES = REAL_KINDS_TYPES + CMPLX_KINDS_TYPES
-        #:set RANKS = range(1, MAXRANK + 1)
-        #:for k1, t1 in RC_KINDS_TYPES
-        #:for r1 in RANKS
-        logical pure module function all_close_${r1}$_${t1[0]}$${k1}$(a, b, rel_tol, abs_tol, equal_nan) result(close)
-            ${t1}$, intent(in) :: a${ranksuffix(r1)}$, b${ranksuffix(r1)}$
-            real(${k1}$), intent(in), optional :: rel_tol, abs_tol
-            logical, intent(in), optional :: equal_nan
-        end function all_close_${r1}$_${t1[0]}$${k1}$
-        #:endfor
-        #:endfor
-    end interface all_close
-
-    !> Version: experimental
-    !>
-    !> `arange` creates a rank-1 `array` of the `integer/real` type 
-    !>  with fixed-spaced values of given spacing, within a given interval.
-    !> ([Specification](../page/specs/forlab_math.html#arange))
-    interface arange
-        #:set RI_KINDS_TYPES = REAL_KINDS_TYPES + INT_KINDS_TYPES
-        #:for k1, t1 in RI_KINDS_TYPES
-        pure module function arange_${t1[0]}$_${k1}$(start, end, step) result(result)
-            ${t1}$, intent(in) :: start
-            ${t1}$, intent(in), optional :: end, step
-            ${t1}$, allocatable :: result(:)
-        end function arange_${t1[0]}$_${k1}$
-        #:endfor
-    end interface arange
-
     !> Version: experimental
     !>
     !> `signum` returns the sign of variables.

meta-src/forlab_math_all_close.fypp

@@ -3,27 +3,13 @@
 module forlab_stats
 
     use stdlib_kinds, only: sp, dp, qp, int8, int16, int32, int64
+    use stdlib_stats, only: mean, var
     implicit none
     private
 
     public :: mean, var, std
     public :: rng, randu, randn
 
-    interface mean
-        !! mean computes the mean value of an array.
-        #:for k1, t1 in REAL_KINDS_TYPES
-        module function mean_1_${k1}$(x) result(mean)
-            ${t1}$, dimension(:), intent(in) :: x
-            ${t1}$ :: mean
-        end function mean_1_${k1}$
-        module function mean_2_${k1}$(A, dim) result(mean)
-            ${t1}$, dimension(:), allocatable :: mean
-            ${t1}$, dimension(:, :), intent(in) :: A
-            integer, intent(in), optional :: dim
-        end function mean_2_${k1}$
-        #:endfor
-    end interface mean
-
     !> Version: Experimental
     !>
     !> Generate a normal distributed data scalar or vector.
@@ -67,16 +53,11 @@ module forlab_stats
         end subroutine rng
     end interface
 
-    #:set VSNAME = ['var', 'std']
+    #:set VSNAME = ['std']
     #:for v1 in VSNAME
     interface ${v1}$
-        #:if v1 == 'var'
-        !! `var` computes vector and matrix variances.
-        !!([Specification](../module/forlab_var.html))
-        #:elif v1 == 'std'
         !! `std` computes vector and matrix standard deviations.
         !!([Specification](../module/forlab_var.html))
-        #:endif
         #:for k1, t1 in REAL_KINDS_TYPES
         ${t1}$ module function ${v1}$_1_${k1}$(x, w)
             ${t1}$, dimension(:), intent(in) :: x