Diffusion COSOlver (new_coulomb) Browse

cosolver/src/endrun.f90
83b8f38f6c51new_coulomb

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