stdlib_experimental_io: remove _poly subroutine

Author: jvdp1

src/stdlib_experimental_io.f90

@@ -3,7 +3,6 @@ module stdlib_experimental_io
 implicit none
 private
 public :: loadtxt, savetxt
-public :: savetxt_poly
 
 interface loadtxt
     module procedure sloadtxt
@@ -219,47 +218,6 @@ subroutine qsavetxt(filename, d)
 close(s)
 end subroutine
 
-!OR
-
-subroutine savetxt_poly(filename, d)
- ! Saves a 2D array into a textfile.
- !
- ! Arguments
- ! ---------
- !
- character(len=*), intent(in) :: filename  ! File to save the array to
- class(*), intent(in) :: d(:,:)           ! The 2D array to save
- !
- ! Example
- ! -------
- !
- ! real(sp) :: data(3, 2)
- ! call savetxt("log.txt", data)
- 
- integer :: s, i
- open(newunit=s, file=filename, status="replace")
- 
- select type(d)
-  type is(real(sp))
-   do i = 1, size(d, 1)
-     write(s, *) d(i, :)
-   end do
-  type is(real(dp))
-   do i = 1, size(d, 1)
-     write(s, *) d(i, :)
-   end do
-  type is(real(qp))
-   do i = 1, size(d, 1)
-     write(s, *) d(i, :)
-   end do
-  class default
-   write(*,'(a)')'The proposed type is not supported'
-   error stop
- end select
-
- close(s)
-
-end subroutine
 
 !PRIVATE
 integer function number_of_columns(s)

src/tests/loadtxt/test_savetxt.f90

@@ -1,12 +1,11 @@
 program test_loadtxt
 use iso_fortran_env, only: sp=>real32, dp=>real64 ,qp=>real128
-use stdlib_experimental_io, only: loadtxt, savetxt ,savetxt_poly
+use stdlib_experimental_io, only: loadtxt, savetxt
 use stdlib_experimental_error, only: assert
 implicit none
 
 call test_sp()
 call test_dp()
-call test_dp_poly()
 call test_qp()
 
 contains
@@ -60,19 +59,4 @@ subroutine test_qp()
     call assert(all(abs(e-d2) < epsilon(1._qp)))
     end subroutine
 
-    subroutine test_dp_poly()
-    real(dp) :: d(3, 2), e(2, 3)
-    real(dp), allocatable :: d2(:, :)
-    d = reshape([1, 2, 3, 4, 5, 6], [3, 2])
-    call savetxt_poly("tmp.dat", d)
-    call loadtxt("tmp.dat", d2)
-    call assert(all(shape(d2) == [3, 2]))
-    call assert(all(abs(d-d2) < epsilon(1._dp)))
-
-    e = reshape([1, 2, 3, 4, 5, 6], [2, 3])
-    call savetxt_poly("tmp.dat", e)
-    call loadtxt("tmp.dat", d2)
-    call assert(all(shape(d2) == [2, 3]))
-    call assert(all(abs(e-d2) < epsilon(1._dp)))
-    end subroutine
 end program