function ssstr=insaiso(ss,socsinra)
    %
    scs= socscx ( ss);
    ss=ceil(abs(ss)*10^scs)*10^(-scs);
   
    nformat=['%' sprintf('%1u',socsinra) '.' sprintf('%1u',1) 'g'];
    ssstr = sprintf(nformat,ss);