epsi
/
msspec_python3
3
0
Fork 0
Code Issues 6 Pull Requests Releases Wiki Activity

Small cosmetic changes

This commit is contained in:
kmdunseath 2023-06-29 13:51:23 +02:00
parent deb350a520
commit 6da19024ad
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/msspec/spec/fortran/eig/ar/arnoldi_mod.f90
View File

@ -80,6 +80,7 @@
real(dp), external :: dznrm2, dlapy2 real(dp), external :: dznrm2, dlapy2
! !
! !
write(6,*)
write(6,*) "----------------- BEGIN OF ARNOLDI ITERATION -----------------" write(6,*) "----------------- BEGIN OF ARNOLDI ITERATION -----------------"
! !
! NCV is is the largest number of basis vectors that will be used in the ! NCV is is the largest number of basis vectors that will be used in the

2
src/msspec/spec/fortran/eig/ar/eig_mat_ar.f90
View File

@ -82,7 +82,7 @@
end do end do
! !
ndim = jlin ndim = jlin
write(6,*) "GoT matrix sm has dimension ", ndim write(6,*) "GoT matrix SM has dimension ", ndim
! !
allocate(sm(ndim,ndim)) allocate(sm(ndim,ndim))
sm = zeroc sm = zeroc