Commit 0bf4e8bd authored by Andreas Marek's avatar Andreas Marek
Browse files

Some debug messages

parent 37cd8c3a
......@@ -320,7 +320,9 @@ function elpa_solve_evp_&
call BLACS_Gridinit(blacs_ctxt_, layoutInternal, int(np_rows,kind=BLAS_KIND), int(np_cols,kind=BLAS_KIND))
call BLACS_Gridinfo(blacs_ctxt_, np_rows_, np_cols_, my_prow_, my_pcol_)
if (np_rows /= np_rows_) then
print *, "BLACS_Gridinfo returned different values for np_rows as set by BLACS_Gridinit"
print *," LayoutExternal ",layoutExternal," LayoutInternal ",layoutInternal,nblk,nblkInternal
stop 1
endif
if (np_cols /= np_cols_) then
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment