Ignore:
Timestamp:
05/03/17 16:42:22 (7 years ago)
Author:
yushan
Message:

bug corrected in MPI_Gatherv

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/branch_yushan/src/test/test_omp.f90

    r1109 r1115  
    4545    CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr) 
    4646    CALL MPI_COMM_SIZE(MPI_COMM_WORLD,size,ierr) 
    47     if(rank < size-1) then 
     47    if(rank < size-2) then 
    4848 
    4949    !$omp parallel default(private) 
Note: See TracChangeset for help on using the changeset viewer.