if (answer(1).lt.0.0.and.answer(2).gt.0.0) answer(1)=1.0
if (answer(1).lt.0.0.and.answer(3).gt.0.0) answer(1)=1.0
if (answer(1).lt.0.0.and.answer(4).gt.0.0) answer(1)=1.0
if (answer(2).lt.0.0.and.answer(3).gt.0.0) answer(2)=1.0
if (answer(2).lt.0.0.and.answer(4).gt.0.0) answer(2)=1.0
if (answer(3).lt.0.0.and.answer(2).gt.0.0) answer(3)=1.0
if (answer(3).lt.0.0.and.answer(4).gt.0.0) answer(3)=1.0
answer is spherical albedo