mirror of
https://github.com/LCPQ/DEHam
synced 2024-06-01 19:05:24 +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
|