Question

代码的想法是并行打开一个文件然后再打开一个文件核心读取该大文件的不同部分。因此，每个核心ir_start和ir_stop都不同。

我有以下代码（更大代码的一部分）：

DO iq = 1, nqf
  IF (MOD(iq,100) == 0) THEN
      WRITE(stdout, '(a,i10,a,i10)' ) '     Progression iq (fine) = ',iq,'/',nqf
  ENDIF
  CALL MPI_FILE_OPEN (world_comm,filint,MPI_MODE_RDONLY,MPI_INFO_NULL,iunepmatwp2,ierr)
  IF( ierr /= 0 ) CALL errore( 'xxxx', 'error in MPI_FILE_OPEN',1 )

  DO ir = ir_start, ir_stop
    CALL MPI_FILE_SEEK(iunepmatwp2,lrepmatw,MPI_SEEK_SET,ierr)
    CALL MPI_FILE_READ(iunepmatwp2, aux, lrepmatw2, MPI_DOUBLE_PRECISION, MPI_STATUS_IGNORE,ierr)
     loops:
        eptmp ( ibnd, jbnd, ip, imode ) = aux (i)
     endloops
     CALL mp_sum(eptmp, world_comm)
  ENDDO
  something is then done with eptmp
ENDDO

代码系统崩溃的问题：

 ...
 Progression iq (fine) =      32000/     50000
 Progression iq (fine) =      32100/     50000
 Progression iq (fine) =      32200/     50000
 Progression iq (fine) =      32300/     50000
 Progression iq (fine) =      32400/     50000
 Progression iq (fine) =      32500/     50000
 Progression iq (fine) =      32600/     50000
 error in MPI_FILE_OPEN

在我看来（我可能完全错了）也可能存在许多传播者开放。

问题是我无法在CALL MPI_Comm_free(world_comm)循环中执行q之类的操作，因为它会导致代码死亡。

每个核心是否有办法在不创建新核心的情况下使用相同的world_comm？

MPI太多传播者？

0 个答案: