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
|
endif
|
||||||
deth(count,2)=i-1
|
deth(count,2)=i-1
|
||||||
enddo
|
enddo
|
||||||
|
else
|
||||||
|
count+=1
|
||||||
|
deth(count,1)=0
|
||||||
|
deth(count,2)=1
|
||||||
endif
|
endif
|
||||||
|
|
||||||
!C if det=0 then exit
|
!C if det=0 then exit
|
||||||
|
Loading…
Reference in New Issue
Block a user