mirror of
https://github.com/LCPQ/DEHam
synced 2024-06-23 13:42:14 +02:00
9 lines
198 B
FortranFixed
9 lines
198 B
FortranFixed
|
BEGIN_PROVIDER[integer, col,(natomax)]
|
||
|
|
&BEGIN_PROVIDER[integer, countcol]
|
||
|
|
&BEGIN_PROVIDER[integer, countcolfull,(nrows)]
|
||
|
|
implicit none
|
||
|
|
col=0d0
|
||
|
|
countcol=0
|
||
|
|
countcolfull=0
|
||
|
|
END_PROVIDER
|