28 lines
761 B
Fortran
28 lines
761 B
Fortran
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
|