9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-16 01:25:18 +02:00

remove print

This commit is contained in:
Yann Damour 2022-03-24 16:18:51 +01:00
parent 8a759e6a94
commit bda8951042

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