From b759a79f9aad988a7849aa51896d4fdedf85584a Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Mon, 27 Jun 2016 23:36:09 +0200
Subject: [PATCH] small check to see if 6 is really STDOUT (no idea what to do
 if not)

---
 code/spectral_interface.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/code/spectral_interface.f90 b/code/spectral_interface.f90
index e506bff7a..d5be8ad75 100644
--- a/code/spectral_interface.f90
+++ b/code/spectral_interface.f90
@@ -92,6 +92,10 @@ subroutine DAMASK_interface_init(loadCaseParameterIn,geometryParameterIn)
  call MPI_Comm_rank(PETSC_COMM_WORLD,worldrank,ierr);CHKERRQ(ierr)
 #endif
  mainProcess: if (worldrank == 0) then
+   if (output_unit /= 6) then
+     write(output_unit,'(a)') 'STDOUT != 6'
+     call quit(1_pInt)
+   endif
    open(6, encoding='UTF-8')
    call date_and_time(values = dateAndTime)
    write(6,'(/,a)') ' <<<+-  DAMASK_spectral  -+>>>'