Commit a7d71000 authored by Daniel Wortmann's avatar Daniel Wortmann
Browse files

Make BLACS calls only if CPP_SCALAPACK

parent f3d1f380
......@@ -339,7 +339,7 @@ CONTAINS
INTEGER,INTENT(OUT):: local_size1,local_size2
#ifdef CPP_MPI
INCLUDE 'mpif.h'
INTEGER :: myrowssca,mycolssca
INTEGER :: iamblacs,npblacs,np,myid,mycol,myrow
Markdown is supported
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