mirror of
https://github.com/LCPQ/DEHam
synced 2024-07-30 09:04:19 +02:00
5 lines
81 B
Forth
5 lines
81 B
Forth
BEGIN_PROVIDER[real*8, val,(natomax)]
|
|
implicit none
|
|
val=0d0
|
|
END_PROVIDER
|