mirror of
https://github.com/LCPQ/DEHam
synced 2024-10-18 05:51:36 +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
|