9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-17 18:15:17 +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 ! Loop over l with a constraint to ensure that l <= size(cfg_seniority_index,1)-1
! Old version commented just below ! Old version commented just below
do l = min(size(cfg_seniority_index,1)-1, i+2), size(cfg_seniority_index,1)-1, 2 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 if (cfg_seniority_index(l) >= ncfgprev) then
ncfgprev = cfg_seniority_index(l) ncfgprev = cfg_seniority_index(l)
endif endif
print*,'ncfgprev', ncfgprev
enddo enddo
!k = 0 !k = 0
!if ((i+2+k) < size(cfg_seniority_index,1)) then !if ((i+2+k) < size(cfg_seniority_index,1)) then