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, & ...@@ -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, & integer, intent(in) :: na, nev, lda, ldq, mpi_comm_rows, &
mpi_comm_cols, mpi_comm_all mpi_comm_cols, mpi_comm_all
integer, intent(inout) :: nblk integer, intent(in) :: nblk
real*8, intent(inout) :: a(lda,*), ev(na), q(ldq,*) real*8, intent(inout) :: a(lda,*), ev(na), q(ldq,*)
integer :: my_pe, n_pes, my_prow, my_pcol, np_rows, np_cols, mpierr 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