ppsync.f90
83b8f38f6c51new_coulomb

ppsync.f90
View Options

			SUBROUTINE ppsync
			!
			! MPI sync collisional matrices between processors
			!
			USE basic
			USE basic_mpi
			USE model
			USE array
			!
			IMPLICIT NONE
			!
			! local vars.
			! MPI COMM.
			INTEGER :: SUBTYPE_T,SUBTYPE_F,SUBTYPE_EE,SUBTYPE_II
			INTEGER :: to,from,tag,iproc
			INTEGER :: STATUS(MPI_STATUS_SIZE)
			INTEGER, DIMENSION(:), allocatable :: buff_
			!
			! Sync...
			CALL MPI_BARRIER(MPI_COMM_WORLD,ierr)
			IF(me .eq. 0) write(,) '.... DONE'
			!
			!
			END SUBROUTINE ppsync