mirror of https://github.com/LCPQ/DEHam
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
|