- 新着としてマーク
- ブックマーク
- 購読
- ミュート
- RSS フィードを購読する
- ハイライト
- 印刷
- 不適切なコンテンツを報告
I used mpirun to run the program and stopped when I got to MPI_Comm_create.The following write statement cannot be executed.
what should I do?Is there something wrong with my code?
Any advice would be greatly appreciated!
include 'mpif.h'
integer mpistat(MPI_STATUS_SIZE),ierr
integer comm_mpi, rank_mpi, size_mpi, rank_mpi_cctrl
integer comm_sol_mpi, new_grp , orig_grp
integer, dimension(:), allocatable, save :: ranks_sol
character*8 chnum
if(monitor_mode.gt.0) write(*,*)'P',rank_mpi,'in CONTACT_DEFORM'
! comm_mpi = MPI_COMM_WORLD
call mpi_comm_rank( MPI_COMM_WORLD, rank_mpi, ierr)
call mpi_comm_size( MPI_COMM_WORLD, size_mpi, ierr)
rank_mpi_cctrl = size_mpi - 1
if(monitor_mode.gt.0)write(*,*)'P',rank_mpi,'in CONTACT_DEFORM(0)'
!*** Create new communicator for solver ***
IF(NST.EQ.NSTART) THEN
if(monitor_mode.gt.0)
write(*,*)'P',rank_mpi, 'before create commun..'
!
if(rank_mpi.ne.size_mpi - 1) then !! if analyzer
allocate(ranks_sol(size_mpi - 1), stat=istat)
call check_memory_integer(size_mpi - 1, ranks_sol, ram,
+ istat, 'ranks_sol')
do i = 1, size_mpi - 1
ranks_sol(i) = i - 1
enddo
! allocate(orig_grp(size_mpi))
call MPI_Comm_group(MPI_COMM_WORLD, orig_grp, ierr)
! allocate(new_grp(size_mpi))
call MPI_Group_incl(orig_grp, size_mpi - 1, ranks_sol,new_grp, ierr )
call MPI_Comm_create(MPI_COMM_WORLD, new_grp, comm_sol_mpi, ierr)
write(*,*)"arrive 1"
endif
if(monitor_mode.gt.0)
write(*,*)'P',rank_mpi, 'after create commun..'
ENDIF
- 新着としてマーク
- ブックマーク
- 購読
- ミュート
- RSS フィードを購読する
- ハイライト
- 印刷
- 不適切なコンテンツを報告
Hi,
Thank you for providing the code snippet, can we also have the complete sample reproducer code and the command you used to compile and execute the code?
Also, could you please provide the OS details, Environment details, and MPI version you are using?
As you mentioned that the code stops running does it throw any error? If yes, could you please provide us the complete error log?
Thanks & Regards
Varsha
コピーされたリンク
- 新着としてマーク
- ブックマーク
- 購読
- ミュート
- RSS フィードを購読する
- ハイライト
- 印刷
- 不適切なコンテンツを報告
Hi,
Thank you for providing the code snippet, can we also have the complete sample reproducer code and the command you used to compile and execute the code?
Also, could you please provide the OS details, Environment details, and MPI version you are using?
As you mentioned that the code stops running does it throw any error? If yes, could you please provide us the complete error log?
Thanks & Regards
Varsha
- 新着としてマーク
- ブックマーク
- 購読
- ミュート
- RSS フィードを購読する
- ハイライト
- 印刷
- 不適切なコンテンツを報告
Hi,
Did you mark our reply as the solution by mistake? If yes, could you please provide the details mentioned in the previous post?
Thanks & Regards
Varsha
- 新着としてマーク
- ブックマーク
- 購読
- ミュート
- RSS フィードを購読する
- ハイライト
- 印刷
- 不適切なコンテンツを報告
Hi,
Thanks & Regards
Varsha
- 新着としてマーク
- ブックマーク
- 購読
- ミュート
- RSS フィードを購読する
- ハイライト
- 印刷
- 不適切なコンテンツを報告
Hi,
We have not heard back from you. This thread will no longer be monitored by Intel. If you need further assistance, please post a new question.
Thanks & Regards
Varsha
