Mathieu,
That's great that you found a/the bug! As far as I can tell, I'm NOT using hwloc, so I'm looking forward to your more general patch tomorrow.
Thanks!
Stuart
pkg-config --libs hwlocpatch -p 0 < patch_filecall OMP_set_num_threads(2)
!$OMP PARALLEL SECTIONS SHARED(totaldim) COPYIN(LWORK)
!$OMP SECTION
ThreadID = OMP_get_thread_num()
allocate(dummyR(1,1))
allocate(EigVals(totaldim))
call PLASMA_INIT(2,plas_info)
write(6,*) ThreadID,"plasma initialized",plas_info
call PLASMA_ALLOC_WORKSPACE_DSYEV(totaldim,totaldim,T,plas_info)
write(6,*) ThreadID,"plasma allocated",plas_info
call PLASMA_DSYEV(301,121,totaldim,EigVecsR,totaldim,EigVals,T,dummyR,totaldim,plas_info)
write(6,*) ThreadID,"plasma diaged!",plas_info
call PLASMA_DEALLOC_HANDLE(T,plas_info)
write(6,*) ThreadID,"plasma dealloced",plas_info
call PLASMA_FINALIZE(plas_info)
write(6,*) ThreadID,"plasma finalized",plas_info
deallocate(dummyR,EigVals)
!$OMP SECTION
ThreadID = OMP_get_thread_num()
allocate(dummyR(1,1))
allocate(EigVals(totaldim))
call PLASMA_INIT(2,plas_info)
write(6,*) ThreadID,"plasma initialized",plas_info
call PLASMA_ALLOC_WORKSPACE_DSYEV(totaldim,totaldim,T,plas_info)
write(6,*) ThreadID,"plasma allocated",plas_info
call PLASMA_DSYEV(301,121,totaldim,EigVecsR,totaldim,EigVals,T,dummyR,totaldim,plas_info)
write(6,*) ThreadID,"plasma diaged!",plas_info
call PLASMA_DEALLOC_HANDLE(T,plas_info)
write(6,*) ThreadID,"plasma dealloced",plas_info
call PLASMA_FINALIZE(plas_info)
write(6,*) ThreadID,"plasma finalized",plas_info
deallocate(dummyR,EigVals)
!$OMP END PARALLEL SECTIONSUsers browsing this forum: GutsliliDix, PetInfeft and 1 guest