ppsync.f90
3c0a5500b5baimproved_sugama

ppsync.f90
View Options

			SUBROUTINE ppsync
			!
			! MPI sync collisional matrices between processors
			!
			USE basic
			!
			IMPLICIT NONE



			!
			! Sync before write
			IF(me .eq. 0) write(,) 'Wait ....'
			CALL MPI_BARRIER(MPI_COMM_WORLD,ierr)
			IF(me .eq. 0) write(,) '.... DONE'
			!
			!
			END SUBROUTINE ppsync