Merge pull request #25 from BerkeleyLab/fix-file_t-line-wrap

Fix: eliminate line wrap in file_t write_lines
BerkeleyLab · Oct 27, 2024 · 814fa6a · 814fa6a
2 parents 022e441 + 4e09b77
commit 814fa6a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/fpm.toml b/fpm.toml
@@ -1,5 +1,5 @@
 name = "julienne"
-version = "1.5.1"
+version = "1.5.3"
 license = "license"
 author = "Damian Rouson, Brad Richardson, Patrick Raynaud, Katherine Rasmussen"
 maintainer = "rouson@lbl.gov"

diff --git a/src/julienne/julienne_file_s.f90 b/src/julienne/julienne_file_s.f90
@@ -29,7 +29,7 @@
     end if
 
     do l = 1, size(self%lines_)
-      write(file_unit, *) self%lines_(l)%string()
+      write(file_unit, '(a)') self%lines_(l)%string()
     end do
 
     if (present(file_name)) close(file_unit)