Homec4science
Diffusion GYACOMO (OBSOLETE: LATEST VERSION ON gitlab.epfl.ch) (half_kx_plane) Browse

gyacomo/src/ppexit.F90
0bc911b95ae8half_kx_plane

Last Change
Raw File

ppexit.F90
View Options

SUBROUTINE ppexit
! Exit parallel environment
USE basic
USE fourier, ONLY : finalize_plans
use prec_const
IMPLICIT NONE
CALL finalize_plans
CALL mpi_barrier(MPI_COMM_WORLD, ierr)
CALL mpi_finalize(ierr)
END SUBROUTINE ppexit
c4science · Help