mirror of
https://github.com/TREX-CoE/Sherman-Morrison.git
synced 2024-08-25 06:31:44 +02:00
![François](/assets/img/avatar_default.png)
that is smaller than the size of the Slater-matrix * Removed the Slater-matrix as an argument, since it is not used in the algo. * Added a manual 4x4 example to debug MaponiA3 to work with a number of updates that is smaller than the size of the Slater-matrix * Added a new Octave script to quickly check if the computes inverse is correct.
12 lines
596 B
Fortran
12 lines
596 B
Fortran
module Sherman_Morrison
|
|
interface
|
|
subroutine MaponiA3(Slater_inv, dim, n_updates, Updates, Updates_index) bind(C, name="MaponiA3_f")
|
|
use, intrinsic :: iso_c_binding, only : c_int, c_double
|
|
integer(c_int), intent(in) :: dim, n_updates
|
|
integer(c_int), dimension(:), allocatable, intent(in) :: Updates_index
|
|
real(c_double), dimension(:,:), allocatable, intent(in) :: Updates
|
|
real(c_double), dimension(:,:), allocatable, intent(in out) :: Slater_inv
|
|
end subroutine MaponiA3
|
|
end interface
|
|
end module Sherman_Morrison
|