mirror of
https://github.com/LCPQ/DEHam
synced 2024-10-18 05:51:36 +02:00
17 lines
533 B
FortranFixed
17 lines
533 B
FortranFixed
|
BEGIN_PROVIDER[integer, foundet,(natomax,maxlien)]
|
||
|
&BEGIN_PROVIDER[integer(kind=selected_int_kind(16)), foundetadr,(maxlien)]
|
||
|
&BEGIN_PROVIDER[real, foundetdmat,(maxlien)]
|
||
|
&BEGIN_PROVIDER[integer(kind=selected_int_kind(16)), foundadd,(maxlien,3)]
|
||
|
&BEGIN_PROVIDER[integer(kind=selected_int_kind(16)), foundaddh,(maxlien,3)]
|
||
|
&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
|