diff --git a/src/ED_NORMAL/stored/H_non_local.f90 b/src/ED_NORMAL/stored/H_non_local.f90 index 65a18ddf..2acbe5d4 100644 --- a/src/ED_NORMAL/stored/H_non_local.f90 +++ b/src/ED_NORMAL/stored/H_non_local.f90 @@ -39,9 +39,9 @@ ! select case(MpiStatus) case (.true.) - call sp_insert_element(MpiComm,spH0nd,htmp,j,i) + call sp_insert_element(MpiComm,spH0nd,htmp,i,j) case (.false.) - call sp_insert_element(spH0nd,htmp,j,i) + call sp_insert_element(spH0nd,htmp,i,j) end select ! endif @@ -72,9 +72,9 @@ ! select case(MpiStatus) case (.true.) - call sp_insert_element(MpiComm,spH0nd,htmp,j,i) + call sp_insert_element(MpiComm,spH0nd,htmp,i,j) case (.false.) - call sp_insert_element(spH0nd,htmp,j,i) + call sp_insert_element(spH0nd,htmp,i,j) end select ! endif