mirror of
https://github.com/LCPQ/DEHam
synced 2024-08-15 00:58:30 +02:00
10 lines
173 B
FortranFixed
10 lines
173 B
FortranFixed
![]() |
BEGIN_PROVIDER [integer, deter, (natomax)]
|
||
|
|
||
|
implicit none
|
||
|
BEGIN_DOC
|
||
|
! provides ideter and iaa
|
||
|
END_DOC
|
||
|
integer ::ideter(natomax)
|
||
|
deter=0
|
||
|
END_PROVIDER
|