BEGIN_PROVIDER[integer, col,(natomax)]
&BEGIN_PROVIDER[integer, countcol]
&BEGIN_PROVIDER[integer, countcolfull,(nrows)]
implicit none
col=0d0
countcol=0
countcolfull=0
END_PROVIDER