From bff03063e2de936a368efdac9476bb94737cbb78 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Tue, 26 Mar 2019 12:13:47 +0100
Subject: [PATCH] simpler logic

---
 src/spectral_utilities.f90 | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)
 mode change 100644 => 100755 src/spectral_utilities.f90

diff --git a/src/spectral_utilities.f90 b/src/spectral_utilities.f90
old mode 100644
new mode 100755
index a0512645f..5711fbbb3
--- a/src/spectral_utilities.f90
+++ b/src/spectral_utilities.f90
@@ -437,13 +437,11 @@ subroutine utilities_updateGamma(C,saveReference)
   logical :: err
  
   C_ref = C
-  if (saveReference) then
-    if (worldrank == 0) then
-      write(6,'(/,a)') ' writing reference stiffness to file'
-      flush(6)
-      fileUnit = IO_open_jobFile_binary('C_ref','w')
-      write(fileUnit) C_ref; close(fileUnit)
-    endif
+  if (saveReference .and. worldrank == 0) then
+    write(6,'(/,a)') ' writing reference stiffness to file'
+    flush(6)
+    fileUnit = IO_open_jobFile_binary('C_ref','w')
+    write(fileUnit) C_ref; close(fileUnit)
   endif
  
   if(.not. num%memory_efficient) then