From 35dffd52c18ac0e027f00593e06fb00e81007fd5 Mon Sep 17 00:00:00 2001
From: Martin	Diehl <m.diehl@mpie.de>
Date: Mon, 20 Aug 2012 13:22:34 +0000
Subject: [PATCH] now using spectral_quit (like old spectal solver, needed
 because of f2py)

---
 code/DAMASK_spectral_Driver.f90 | 29 +----------------------------
 1 file changed, 1 insertion(+), 28 deletions(-)

diff --git a/code/DAMASK_spectral_Driver.f90 b/code/DAMASK_spectral_Driver.f90
index 030a75809..deea4e441 100644
--- a/code/DAMASK_spectral_Driver.f90
+++ b/code/DAMASK_spectral_Driver.f90
@@ -429,31 +429,4 @@ program DAMASK_spectral_Driver
 
 end program DAMASK_spectral_Driver
 
-
-
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
-subroutine quit(stop_id)
- use prec, only: &
-   pInt
-   
- implicit none
- integer(pInt), intent(in) :: stop_id
- integer, dimension(8) :: dateAndTime                                                               ! type default integer
-
- call date_and_time(values = dateAndTime)
- write(6,'(/,a)') 'DAMASK terminated on:'
- write(6,'(a,2(i2.2,a),i4.4)') 'Date:               ',dateAndTime(3),'/',&
-                                                      dateAndTime(2),'/',&
-                                                      dateAndTime(1) 
- write(6,'(a,2(i2.2,a),i2.2)') 'Time:               ',dateAndTime(5),':',&
-                                                      dateAndTime(6),':',&
-                                                      dateAndTime(7)  
- if (stop_id == 0_pInt) stop 0                                                                      ! normal termination
- if (stop_id <  0_pInt) then                                                                        ! trigger regridding
-   write(0,'(a,i6)') 'restart at ', stop_id*(-1_pInt)
-   stop 2
- endif
- if (stop_id == 3_pInt) stop 3                                                                      ! not all steps converged
- stop 1                                                                                             ! error (message from IO_error)
-end subroutine
+#include "spectral_quit.f90"