& , num_smrsss
_RL num_smrsss (nsx,nsy)
& objf_smrsss, num_smrsss,
& num_smrsst,num_smrsss
no_smrsss = no_smrsss + num_smrsss(bi,bj)
num_smrsss(bi,bj) = 0. _d 0