From f528cbca97fc4450bce58cbb0f33a96accb98b41 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Wed, 25 Apr 2018 16:12:23 -0500
Subject: [PATCH] Fix for source_file test, oops

---
 src/state_point.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/state_point.F90 b/src/state_point.F90
index cc7511dd6..a6e44dfa1 100644
--- a/src/state_point.F90
+++ b/src/state_point.F90
@@ -493,7 +493,7 @@ contains
         ! Create separate source file
         if (master .or. parallel) then
           file_id = file_open(filename, 'w', parallel=.true.)
-          call write_dataset(file_id, "filetype", 'source')
+          call write_attribute(file_id, "filetype", 'source')
         end if
       else
         filename = trim(path_output) // 'statepoint.' // &