2018-01-29 00:10:47 +01:00
|
|
|
use iso_c_binding
|
2016-12-19 23:26:16 +01:00
|
|
|
BEGIN_PROVIDER[integer, foundet,(natomax,maxlien)]
|
2018-01-29 00:10:47 +01:00
|
|
|
&BEGIN_PROVIDER[integer(C_SIZE_T), foundetadr,(maxlien)]
|
2020-03-16 14:00:26 +01:00
|
|
|
&BEGIN_PROVIDER[real*8, foundetdmat,(maxlien)]
|
2018-01-29 00:10:47 +01:00
|
|
|
&BEGIN_PROVIDER[integer(C_SIZE_T), foundadd,(maxlien,3)]
|
|
|
|
|
&BEGIN_PROVIDER[integer(C_SIZE_T), foundaddh,(maxlien,3)]
|
2016-12-19 23:26:16 +01:00
|
|
|
&BEGIN_PROVIDER[integer, detfound]
|
|
|
|
|
BEGIN_DOC
|
|
|
|
|
! provides all found determinants
|
|
|
|
|
END_DOC
|
|
|
|
|
detfound=0
|
|
|
|
|
founddet=0
|
|
|
|
|
foundetdmat=0d0
|
|
|
|
|
founddetadr=0
|
|
|
|
|
foundadd=0
|
|
|
|
|
foundaddh=0
|
|
|
|
|
END_PROVIDER
|
