Commit d4ac0329 authored by Andreas Marek's avatar Andreas Marek
Browse files

Remove some debug prints

parent 8ba475ff
......@@ -322,7 +322,6 @@ function elpa_solve_evp_&
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
......@@ -339,12 +338,10 @@ function elpa_solve_evp_&
mpi_comm_cols_ = int(mpi_comm_colsMPI_,kind=c_int)
if (int(np_rows_,kind=c_int) /= np_rows) then
print *,"OHO: ",np_rows,np_rows_
print *, "BLACS_Gridinfo returned different values for np_rows as set by BLACS_Gridinit"
stop
endif
if (int(np_cols_,kind=c_int) /= np_cols) then
print *,"OHO: ",np_cols,np_cols_
print *, "BLACS_Gridinfo returned different values for np_cols as set by BLACS_Gridinit"
stop
endif
......
......@@ -103,12 +103,10 @@ module test_blacs_infrastructure
call BLACS_Gridinfo(my_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 *,"np_rows=",np_rows,"np_rows_=",np_rows_
stop 1
endif
if (np_cols /= np_cols_) then
print *, "BLACS_Gridinfo returned different values for np_cols as set by BLACS_Gridinit"
print *,"np_cols=",np_cols,"np_rows_=",np_cols_
stop 1
endif
#else
......
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