Diffusion COSOlver (improved_sugama) Browse

cosolver/src/endrun.f90
cd1286e2d410improved_sugama

endrun.f90
View Options

			SUBROUTINE endrun
			!
			! this routines ends the run
			USE basic

			IMPLICIT NONE

			IF( me .eq. 0) WRITE(,) '... EXIT COSolver '
			!
			!
			CALL ppexit
			CALL EXIT(0)

			END SUBROUTINE endrun