& SNrelaxobcsinner, SNrelaxobcsbound
_RS SNrelaxobcsinner, SNrelaxobcsbound
& SNrelaxobcsinner,SNrelaxobcsbound,
SNrelaxobcsinner = 0. _d 0
& + float(jsl-1)*SNrelaxobcsinner)
& + float(isl-1)*SNrelaxobcsinner)