Unverified Commit 22ea5a24 authored by Andreas Marek's avatar Andreas Marek
Browse files

Change status of nblk from intent(inout) to intent(in)

The blocksize should be intent(in) and not intent(inout), since
it should not be changed by solve_evlp_real_2stage
parent fc80ad07
......@@ -170,7 +170,7 @@ function solve_evp_real_2stage(na, nev, a, lda, ev, q, ldq, nblk, &
integer, intent(in) :: na, nev, lda, ldq, mpi_comm_rows, &
mpi_comm_cols, mpi_comm_all
integer, intent(inout) :: nblk
integer, intent(in) :: nblk
real*8, intent(inout) :: a(lda,*), ev(na), q(ldq,*)
integer :: my_pe, n_pes, my_prow, my_pcol, np_rows, np_cols, mpierr
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