Add qlmpi and swap to mckernel (This is rebase commit for merging to development)
This commit is contained in:
committed by
Ken Sato
parent
74f15783d2
commit
236a072311
27
test/qlmpi/qlmpi_testsuite/CT22.f
Normal file
27
test/qlmpi/qlmpi_testsuite/CT22.f
Normal file
@@ -0,0 +1,27 @@
|
||||
c---+c---1----+----2----+----3----+----4----+----5----+----6----+----7--!!!!!!!!
|
||||
!$ use omp_lib
|
||||
include 'mpif.h'
|
||||
integer rank
|
||||
integer size
|
||||
external omp_get_thread_num
|
||||
external omp_get_num_threads
|
||||
integer omp_get_thread_num
|
||||
integer omp_get_num_threads
|
||||
|
||||
call MPI_INIT(ierr)
|
||||
1000 continue
|
||||
call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)
|
||||
call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierr)
|
||||
|
||||
!$omp parallel
|
||||
print '(1h ,4hmpi=,i2,1h/,i2,6h, omp=,i2,1h/,i2)',
|
||||
c rank, size, omp_get_thread_num(), omp_get_num_threads()
|
||||
!$omp end parallel
|
||||
c repeat?
|
||||
call ql_client(ierr)
|
||||
if(ierr.eq.1)then
|
||||
print *,'repeat'
|
||||
goto 1000
|
||||
endif
|
||||
call MPI_FINALIZE(ierr)
|
||||
end
|
||||
Reference in New Issue
Block a user