mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-22 20:34:58 +01:00
remove print
This commit is contained in:
parent
8a759e6a94
commit
bda8951042
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user