mirror of
https://github.com/LCPQ/DEHam
synced 2024-07-30 09:04:19 +02:00
Fix for heis.
This commit is contained in:
parent
ef3a4bd50f
commit
ca4a0c97ef
@ -36,6 +36,10 @@ BEGIN_PROVIDER[integer(C_SIZE_T),det,(nt2,2)]
|
||||
endif
|
||||
deth(count,2)=i-1
|
||||
enddo
|
||||
else
|
||||
count+=1
|
||||
deth(count,1)=0
|
||||
deth(count,2)=1
|
||||
endif
|
||||
|
||||
!C if det=0 then exit
|
||||
|
Loading…
Reference in New Issue
Block a user