10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-22 20:35:19 +01:00

Fixed MRCC

This commit is contained in:
Anthony Scemama 2017-03-06 13:25:06 +01:00
parent 61fd771687
commit eccf1ca93b

View File

@ -787,7 +787,6 @@ END_PROVIDER
if (res > resold) then if (res > resold) then
factor = factor * 0.5d0 factor = factor * 0.5d0
endif endif
resold = res
if(iand(k, 127) == 0) then if(iand(k, 127) == 0) then
print *, k, res, 1.d0 - res/resold print *, k, res, 1.d0 - res/resold
@ -796,6 +795,7 @@ END_PROVIDER
if ( (res < 1d-10).or.(res/resold > 0.99d0) ) then if ( (res < 1d-10).or.(res/resold > 0.99d0) ) then
exit exit
endif endif
resold = res
end do end do
dIj_unique(1:size(X), s) = X(1:size(X)) dIj_unique(1:size(X), s) = X(1:size(X))