|
Lines 92-100
Link Here
|
| 92 |
MPI_DOUBLE_PRECISION,MPI_SUM,MPI_COMM_WORLD,ierr) |
92 |
MPI_DOUBLE_PRECISION,MPI_SUM,MPI_COMM_WORLD,ierr) |
| 93 |
end do |
93 |
end do |
| 94 |
else |
94 |
else |
| 95 |
call MPI_ALLREDUCE(MPI_IN_PLACE,rho_p,lr%d%n1i*lr%d%n2i*lr%d%n3i*nspin,& |
95 |
#ifdef MPI2 |
| 96 |
MPI_DOUBLE_PRECISION,MPI_SUM,MPI_COMM_WORLD,ierr) |
96 |
call MPI_ALLREDUCE(MPI_IN_PLACE,rho_p,lr%d%n1i*lr%d%n2i*lr%d%n3i*nspin,& |
| 97 |
!stop 'rsflag active in sumrho.f90, check MPI2 implementation' |
97 |
MPI_DOUBLE_PRECISION,MPI_SUM,MPI_COMM_WORLD,ierr) |
|
|
98 |
#else |
| 99 |
stop 'rsflag active in sumrho.f90, check MPI2 implementation' |
| 100 |
#endif |
| 98 |
end if |
101 |
end if |
| 99 |
call timing(iproc,'Rho_commun ','OF') |
102 |
call timing(iproc,'Rho_commun ','OF') |
| 100 |
call timing(iproc,'Rho_comput ','ON') |
103 |
call timing(iproc,'Rho_comput ','ON') |
