Changes between Initial Version and Version 1 of Ticket #4
- Timestamp:
- 04/01/20 04:18:10 (5 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
Ticket #4 – Description
initial v1 53 53 MyColor=FullRank/GroupSize 54 54 MyKey=FullRank 55 CALL mpi_comm_split ( MPI_COMM_WORLD, MyColor, MyKey,&55 CALL mpi_comm_split (FULL_COMM_WORLD, MyColor, MyKey, & 56 56 & FORK_COMM_WORLD, MyError) 57 57 IF (MyError.ne.MPI_SUCCESS) THEN