endrun.f90
22b60c541a80geom_testmumps

endrun.f90
View Options

			SUBROUTINE endrun
			!
			! Terminate the run
			!
			USE basic
			USE beam
			USE fields
			IMPLICIT NONE
			INTEGER:: i
			!
			! Local vars and arrays
			!
			!________________________________________________________________________________
			!
			IF( nlend ) THEN
			!
			!----------------------------------------------------------------------
			! 1. Normal end of run
			!
			WRITE(*,'(/a)') ' Terminate the run'
			IF(mpisize .gt. 1) THEN
			DO i=1,nbspecies
			call bound(partslist(i))
			call localisation(partslist(i))
			call collectparts(partslist(i))
			END DO
			ELSE
			DO i=1,nbspecies
			call bound(partslist(i))
			call localisation(partslist(i))
			partslist(i)%Nptot=partslist(i)%Nploc
			END DO
			END IF
			!
			!----------------------------------------------------------------------
			! 2. Abnormal exit
			!
			ELSE
			WRITE(*,'(/a)') ' Abnormal exit'
			END IF
			!
			!----------------------------------------------------------------------
			! 9. Epilogue
			!
			! Create restart file
			IF(mpirank .eq. 0) then
			CALL chkrst(1)
			end if
			CALL clean_beam
			CALL clean_fields
			!
			! Closing all files
			CLOSE(lu_in)
			END SUBROUTINE endrun