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

gyacomo/src/ppexit.F90
0b5d00c4d901master

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