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