From d845f2d590c05ad9580163346baf686ee4ad210e Mon Sep 17 00:00:00 2001 From: Pierre de Buyl Date: Mon, 6 Jan 2020 10:35:55 +0100 Subject: [PATCH] Use explicit formatting in qsavetxt --- src/stdlib_experimental_io.f90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/stdlib_experimental_io.f90 b/src/stdlib_experimental_io.f90 index f6e4a505c..05f0a256f 100644 --- a/src/stdlib_experimental_io.f90 +++ b/src/stdlib_experimental_io.f90 @@ -218,9 +218,12 @@ subroutine qsavetxt(filename, d) ! call savetxt("log.txt", data) integer :: s, i +character(len=14) :: format_string + +write(format_string, '(a1,i06,a7)') '(', size(d, 2), 'f40.34)' s = open(filename, "w") do i = 1, size(d, 1) - write(s, *) d(i, :) + write(s, format_string) d(i, :) end do close(s) end subroutine