|
http://mailman.cse.ohio-state.ed ... ecember/005261.html
按照这个帖子,似乎是解决了。虽然并不懂这个修改的具体含义~~~
Fix the VASP code instead.
--- a/dfast.F
+++ b/dfast.F
@@ -325,7 +325,7 @@ MODULE dfast
CALL GGEMM( TRANSA, TRANSB, N1, PGEMM_HANDLE%NCOL(
PGEMM_HANDLE%COMM%
B(1,1+PGEMM_HANDLE%OFFSET( PGEMM_HANDLE%COMM%NODE_ME)),
LDB, BETA
- CALL MPI_allgatherv
(C(1,1+PGEMM_HANDLE%OFFSET(PGEMM_HANDLE%COMM%NODE_
+ CALL MPI_allgatherv (MPI_IN_PLACE, 0, MPI_DATATYPE_NULL, &
C, PGEMM_HANDLE%NCTOT, PGEMM_HANDLE%OFFDATA, MPIDATA,
PGEMM_HANDL
ELSE
WRITE(*,*) 'internal error in PARALLEL_GGEMM: the second
matrix needs
|
|