mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-12 10:48:31 +02:00
csf fix segfault
This commit is contained in:
parent
b70ae8dc58
commit
22b28fc774
@ -52,12 +52,17 @@
|
|||||||
ncfgpersomo = cfg_seniority_index(i+2)
|
ncfgpersomo = cfg_seniority_index(i+2)
|
||||||
else
|
else
|
||||||
k = 0
|
k = 0
|
||||||
|
if ((i+2+k) < size(cfg_seniority_index,1)) then
|
||||||
do while(cfg_seniority_index(i+2+k) < ncfgpersomo)
|
do while(cfg_seniority_index(i+2+k) < ncfgpersomo)
|
||||||
k = k + 2
|
k = k + 2
|
||||||
|
if ((i+2+k) >= size(cfg_seniority_index,1)) then
|
||||||
|
exit
|
||||||
|
endif
|
||||||
ncfgpersomo = cfg_seniority_index(i+2+k)
|
ncfgpersomo = cfg_seniority_index(i+2+k)
|
||||||
enddo
|
enddo
|
||||||
endif
|
endif
|
||||||
endif
|
endif
|
||||||
|
endif
|
||||||
ncfg = ncfgpersomo - ncfgprev
|
ncfg = ncfgpersomo - ncfgprev
|
||||||
if(i .EQ. 0 .OR. i .EQ. 1) then
|
if(i .EQ. 0 .OR. i .EQ. 1) then
|
||||||
dimcsfpercfg = 1
|
dimcsfpercfg = 1
|
||||||
@ -75,11 +80,16 @@
|
|||||||
ncfgprev = cfg_seniority_index(i+2)
|
ncfgprev = cfg_seniority_index(i+2)
|
||||||
else
|
else
|
||||||
k = 0
|
k = 0
|
||||||
|
if ((i+2+k) < size(cfg_seniority_index,1)) then
|
||||||
do while(cfg_seniority_index(i+2+k) < ncfgprev)
|
do while(cfg_seniority_index(i+2+k) < ncfgprev)
|
||||||
k = k + 2
|
k = k + 2
|
||||||
|
if ((i+2+k) >= size(cfg_seniority_index,1)) then
|
||||||
|
exit
|
||||||
|
endif
|
||||||
ncfgprev = cfg_seniority_index(i+2+k)
|
ncfgprev = cfg_seniority_index(i+2+k)
|
||||||
enddo
|
enddo
|
||||||
endif
|
endif
|
||||||
|
endif
|
||||||
enddo
|
enddo
|
||||||
END_PROVIDER
|
END_PROVIDER
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user