Commit a7d71000 authored by Daniel Wortmann's avatar Daniel Wortmann

Make BLACS calls only if CPP_SCALAPACK

parent f3d1f380
......@@ -339,7 +339,7 @@ CONTAINS
type(t_blacsdata),INTENT(OUT)::blacsdata
INTEGER,INTENT(OUT):: local_size1,local_size2
#ifdef CPP_MPI
#ifdef CPP_SCALAPACK
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