ppexit.f90
cd1286e2d410improved_sugama

ppexit.f90
View Options

			SUBROUTINE ppexit
			!
			! Exit parallel environment
			!
			USE basic
			USE prec_const
			IMPLICIT NONE

			! CALL mpi_barrier(MPI_COMM_WORLD, ierr)
			CALL mpi_finalize(ierr)
			END SUBROUTINE ppexit