Commit 2a3c5be1 authored by Andreas Marek's avatar Andreas Marek

Make some compilers happy

parent b9b51822
......@@ -159,6 +159,6 @@ module mod_blacs_infrastructure
integer function index_l2g(idx_loc, nblk, iproc, nprocs)
index_l2g = nprocs * nblk * ((idx_loc-1) / nblk) + mod(idx_loc-1,nblk) + mod(nprocs+iproc, nprocs)*nblk + 1
return
end
end function
end module
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