mirror of
https://github.com/LCPQ/DEHam
synced 2024-07-08 04:15:57 +02:00
9 lines
198 B
Forth
9 lines
198 B
Forth
BEGIN_PROVIDER[integer, col,(natomax)]
|
|
&BEGIN_PROVIDER[integer, countcol]
|
|
&BEGIN_PROVIDER[integer, countcolfull,(nrows)]
|
|
implicit none
|
|
col=0d0
|
|
countcol=0
|
|
countcolfull=0
|
|
END_PROVIDER
|