Fix another similar call (see prev. commit)

3213f2f4 · Jannis Teunissen · 03bbcc2b · 3213f2f4
Commit 3213f2f4 authored May 11, 2020 by Jannis Teunissen
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/m_write_silo.f90 src/m_write_silo.f90 +1 -1

No files found.
--- a/src/m_write_silo.f90
+++ b/src/m_write_silo.f90
@@ -278,7 +278,7 @@ contains
    end if

    if (present(time)) then
-       ierr = dbaddiopt(dboptix, DBOPT_DTIME, time)
+       ierr = dbadddopt(dboptix, DBOPT_DTIME, time)
    end if

    ierr = dbputmmesh(dbix, trim(mmname), len_trim(mmname), n_grids, &