ppexit.f90
83b8f38f6c51new_coulomb

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