Debugging version of code

2020-02-24 12:58:13 -05:00 · 2020-02-24 12:58:13 -05:00 · 20755270a4
commit 20755270a4
parent d0b6c595f0
4 changed files with 167 additions and 34 deletions
--- a/src/io.f90
+++ b/src/io.f90
@ -87,6 +87,9 @@ module io
        call set_max_esize

        do i = 1, outfilenum
+        
+            print *, "Writing data out to ", trim(adjustl(outfiles(i)))
+
            !Pull out the extension of the file and call the correct write subroutine
            select case(trim(adjustl(outfiles(i)(scan(outfiles(i),'.',.true.)+1:))))
            case('xyz')