diff --git a/src/msspec/spec/fortran/eig/ar/arnoldi_mod.f90 b/src/msspec/spec/fortran/eig/ar/arnoldi_mod.f90 index 8c2e35e..4d14ab7 100644 --- a/src/msspec/spec/fortran/eig/ar/arnoldi_mod.f90 +++ b/src/msspec/spec/fortran/eig/ar/arnoldi_mod.f90 @@ -80,6 +80,7 @@ real(dp), external :: dznrm2, dlapy2 ! ! + write(6,*) write(6,*) "----------------- BEGIN OF ARNOLDI ITERATION -----------------" ! ! NCV is is the largest number of basis vectors that will be used in the diff --git a/src/msspec/spec/fortran/eig/ar/eig_mat_ar.f90 b/src/msspec/spec/fortran/eig/ar/eig_mat_ar.f90 index b84f634..b5c937d 100644 --- a/src/msspec/spec/fortran/eig/ar/eig_mat_ar.f90 +++ b/src/msspec/spec/fortran/eig/ar/eig_mat_ar.f90 @@ -82,7 +82,7 @@ end do ! ndim = jlin - write(6,*) "GoT matrix sm has dimension ", ndim + write(6,*) "GoT matrix SM has dimension ", ndim ! allocate(sm(ndim,ndim)) sm = zeroc