Diffusion FENNECS: Finite Element Non-Neutral Electron Cloud Simulator (geom_testpardiso) Browse

fennecs/src/endrun.f90
a2847b9464fageom_testpardiso

endrun.f90
View Options

			SUBROUTINE endrun
			!
			! Terminate the run
			!
			USE basic
			USE beam
			USE fields
			IMPLICIT NONE
			!
			! Local vars and arrays
			!
			!________________________________________________________________________________
			!
			IF( nlend ) THEN
			!
			!----------------------------------------------------------------------
			! 1. Normal end of run
			!
			WRITE(*,'(/a)') ' Terminate the run'
			!
			!----------------------------------------------------------------------
			! 2. Abnormal exit
			!
			ELSE
			WRITE(*,'(/a)') ' Abnormal exit'
			END IF
			!
			!----------------------------------------------------------------------
			! 9. Epilogue
			!
			! Create restart file
			CALL chkrst(1)
			CALL clean_beam
			CALL clean_fields
			!
			! Closing all files
			CLOSE(lu_in)
			END SUBROUTINE endrun