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