LCPQ
/
qp2
mirror of https://github.com/QuantumPackage/qp2.git
9
1
Fork 0
Code Releases Activity

remove print

This commit is contained in:
Yann Damour 2022-03-24 16:18:51 +01:00
parent 8a759e6a94
commit bda8951042
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/csf/sigma_vector.irp.f
View File

@ -91,11 +91,9 @@
! Loop over l with a constraint to ensure that l <= size(cfg_seniority_index,1)-1
! Old version commented just below
do l = min(size(cfg_seniority_index,1)-1, i+2), size(cfg_seniority_index,1)-1, 2
print*,'l'
if (cfg_seniority_index(l) >= ncfgprev) then
ncfgprev = cfg_seniority_index(l)
endif
print*,'ncfgprev', ncfgprev
enddo
!k = 0
!if ((i+2+k) < size(cfg_seniority_index,1)) then