in the legacy interface use given MPI comms

src/elpa1/legacy_interface/elpa1_template.F90

@@ -119,8 +119,8 @@ function elpa_solve_evp_&
    call e%set("nblk", nblk)
 
    call e%set("mpi_comm_parent", mpi_comm_all)
-   call e%set("process_row", my_prow)
-   call e%set("process_col", my_pcol)
+   call e%set("mpi_comm_rows", mpi_comm_rows)
+   call e%set("mpi_comm_cols", mpi_comm_cols)
 
    call e%set("timings",1)
 

src/elpa2/legacy_interface/elpa2_template.F90

@@ -111,8 +111,8 @@
     call e%set("nblk", nblk)
 
     call e%set("mpi_comm_parent", mpi_comm_all)
-    call e%set("process_row", my_prow)
-    call e%set("process_col", my_pcol)
+    call e%set("mpi_comm_rows", mpi_comm_rows)
+    call e%set("mpi_comm_cols", mpi_comm_cols)
 
     call e%set("timings",1)