ppexit.f90
05a553ae087cmaster

ppexit.f90
View Options

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

			! close temporary file
			if( me .eq.0 ) close( fid_tmp)

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