10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-26 07:02:14 +02:00

Merge branch 'master' of github.com:scemama/quantum_package

This commit is contained in:
Anthony Scemama 2017-03-06 13:20:07 +01:00
commit 61fd771687

View File

@ -790,13 +790,16 @@ END_PROVIDER
resold = res resold = res
if(iand(k, 127) == 0) then if(iand(k, 127) == 0) then
print *, "res ", k, res print *, k, res, 1.d0 - res/resold
end if endif
if(res < 1d-10) exit if ( (res < 1d-10).or.(res/resold > 0.99d0) ) then
exit
endif
end do end do
dIj_unique(1:size(X), s) = X(1:size(X)) dIj_unique(1:size(X), s) = X(1:size(X))
print *, "res ", k, res print *, k, res, 1.d0 - res/resold
enddo enddo