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