function scs= socscx ( saiso)
    %
    scs=min(find(abs(saiso).*(10.^(-16:16))>10))-18;
    if scs<=0
        scs=scs-1;
    end;
