Remove lnspace, add support for int types in linspace

Author: ejovo13

src/stdlib_math_linspace.fypp

@@ -1,6 +1,4 @@
 #:include "common.fypp"
-#:set RANKS = range(1, MAXRANK + 1)
-#:set RC_KINDS_TYPES = REAL_KINDS_TYPES + CMPLX_KINDS_TYPES
 submodule (stdlib_math) stdlib_math_linspace
 
 implicit none
@@ -52,7 +50,7 @@ contains
 
 
     #:for k1, t1 in CMPLX_KINDS_TYPES
-      #:set RName = rname("clinspace_default", 1, t1, k1)
+      #:set RName = rname("linspace_default", 1, t1, k1)
       module procedure ${RName}$
 
         res = linspace(start, end, DEFAULT_LINSPACE_LENGTH)
@@ -61,18 +59,36 @@ contains
     #:endfor
 
     #:for k1, t1 in CMPLX_KINDS_TYPES
-      #:set RName = rname("clinspace_n", 1, t1, k1)
+      #:set RName = rname("linspace_n", 1, t1, k1)
       module procedure ${RName}$
 
         real(${k1}$) :: x(n) ! array of the real part of complex number
         real(${k1}$) :: y(n) ! array of the imaginary part of the complex number
 
-        x = linspace(real(start), real(end), n)
-        y = linspace(aimag(start), aimag(end), n)
+        x = linspace(start%re, end%re, n)
+        y = linspace(start%im, end%im, n)
 
         res = cmplx(x, y, kind=${k1}$)
 
       end procedure ${RName}$
     #:endfor
 
+    #:for k1, t1 in INT_KINDS_TYPES
+      #:set RName = rname("linspace_default", 1, t1, k1)
+      module procedure ${RName}$
+
+        res = linspace(real(start, kind=dp), real(end, kind=dp), DEFAULT_LINSPACE_LENGTH)
+
+      end procedure ${RName}$
+    #:endfor
+
+    #:for k1, t1 in INT_KINDS_TYPES
+      #:set RName = rname("linspace_n", 1, t1, k1)
+      module procedure ${RName}$
+
+        res = linspace(real(start, kind=dp), real(end, kind=dp), n)
+
+      end procedure ${RName}$
+    #:endfor
+
 end submodule