ppsync.f90
cd1286e2d410improved_sugama

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...
			IF(me .eq. 0) write(,) 'Wait all process ....'
			!! CALL MPI_BARRIER(MPI_COMM_WORLD,ierr)
			IF(me .eq. 0) write(,) '.... DONE'
			!
			!! to = 0
			!
			! IF(Nprocs > 1) THEN
			! !
			! ! 1.1 MPI SYNC electrons
			! !___________________________________________________________________
			! !
			! IF(eicolls .and. is_e) THEN
			! !
			! write(,) 'MPI SYNC ELECTRONS...'
			! CALL ppsync_e
			! write(,) '... DONE'
			! !
			! ENDIF
			! !
			! ! 1.2 MPI SYNC ions
			! !___________________________________________________________________
			! !
			! IF(iecolls .and. is_i) THEN
			! !
			! write(,) 'MPI SYNC IONS...'
			! CALL ppsync_i
			! write(,) '... DONE'
			! !
			! ENDIF
			! !
			! !
			! IF((eecolls .or. iicolls) .and. is_self) THEN
			! !
			! write(,) 'MPI SYNC SELF...'
			! CALL ppsync_self
			! write(,) '... DONE'
			! !
			! ENDIF
			! !
			! !
			! ENDIF ! end if Nproc > 1
			!
			END SUBROUTINE ppsync