Commit c7159166 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix for last commit

parent 7af771fa
......@@ -342,7 +342,7 @@ CONTAINS
#ifdef CPP_MPI
INCLUDE 'mpif.h'
INTEGER :: myrowssca,mycolssca
INTEGER :: iamblacs,npblacs,np,myid
INTEGER :: iamblacs,npblacs,np,myid,mycol,myrow
INTEGER :: nprow2,npcol2
INTEGER :: k,i,j,ictextblacs
INTEGER :: ierr
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