relocated spectral_quit() into driver code.

added (dummy) core_quit() for Python damask module.

code/DAMASK_spectral_driver.f90

@@ -515,4 +515,31 @@ program DAMASK_spectral_Driver
 
 end program DAMASK_spectral_Driver
 
-#include "spectral_quit.f90"
+!********************************************************************
+! quit subroutine to satisfy IO_error
+!
+!********************************************************************
+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

code/core_quit.f90

@@ -43,21 +43,5 @@ subroutine quit(stop_id)
    
  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

processing/setup/compile_CoreModule.py

@@ -99,7 +99,7 @@ execute = { \
                         ' %s'%'math.f90'+\
                         ' %s'%'FEsolving.f90'+\
                         ' %s'%'mesh.f90'+\
-                        ' %s'%'spectral_quit.f90'+\
+                        ' %s'%'core_quit.f90'+\
                         ' -L%s/lib -lfftw3'%(damaskEnv.pathInfo['fftw'])+\
                         ' %s'%lib_lapack,
                         'mv %s `readlink -f %s`' %(os.path.join(codeDir,'core.so'),os.path.join(damaskEnv.relPath('lib/damask'),'core.so')),