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

gyacomo/src/ppexit.F90
ba05f7e1415d3D_parallel

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