DAMASK_EICMD/src/quit.f90

47 lines
1.9 KiB
Fortran
Raw Normal View History

2018-09-27 23:39:59 +05:30
!--------------------------------------------------------------------------------------------------
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @brief quit subroutine
!> @details exits the program and reports current time and duration. Exit code 0 signals
2020-01-02 18:09:52 +05:30
!> everything is fine. Exit code 1 signals an error, message according to IO_error.
2018-09-27 23:39:59 +05:30
!--------------------------------------------------------------------------------------------------
subroutine quit(stop_id)
#include <petsc/finclude/petscsys.h>
2019-06-16 00:02:53 +05:30
use PetscSys
2018-09-27 23:39:59 +05:30
#ifdef _OPENMP
2019-06-16 00:02:53 +05:30
use MPI
2018-09-27 23:39:59 +05:30
#endif
2020-01-03 01:48:56 +05:30
use HDF5
2019-06-16 00:02:53 +05:30
implicit none
integer, intent(in) :: stop_id
integer, dimension(8) :: dateAndTime
integer :: error
PetscErrorCode :: ierr = 0
call h5open_f(error)
if (error /= 0) write(6,'(a,i5)') ' Error in h5open_f ',error ! prevents error if not opened yet
call h5close_f(error)
if (error /= 0) write(6,'(a,i5)') ' Error in h5close_f ',error
2020-11-11 16:17:23 +05:30
call PetscFinalize(ierr)
2019-06-16 00:02:53 +05:30
CHKERRQ(ierr)
2018-09-27 23:39:59 +05:30
#ifdef _OPENMP
2019-06-16 00:02:53 +05:30
call MPI_finalize(error)
if (error /= 0) write(6,'(a,i5)') ' Error in MPI_finalize',error
2018-09-27 23:39:59 +05:30
#endif
2019-06-16 00:02:53 +05:30
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)
2018-09-27 23:39:59 +05:30
2019-06-16 00:02:53 +05:30
if (stop_id == 0 .and. ierr == 0 .and. error == 0) stop 0 ! normal termination
stop 1 ! error (message from IO_error)
2018-09-27 23:39:59 +05:30
end subroutine quit