188c188,189
<       IVAL(I,K)=FYO(I,K)+FXOE2(I,K)
---
> C WNE 12-11      IVAL(I,K)=FYO(I,K)+FXOE2(I,K)
>       IVAL(I,K)=max(FYO(I,K)+FXOE2(I,K),1.0)
216c217,218
<       IT1(I,1)=FXOE1(I,1)
---
> C 12-11 WNE      IT1(I,1)=FXOE1(I,1)
>       IT1(I,1)=max(FXOE1(I,1),1.0)
222,223c224,227
<       IT1(I,K+1)=FYO(I,K)+FXOE1(I,K+1)
<       IT1(I,LP2+K-1)=FYO(I,K)+FXOE1(I,K)
---
> C 12-11 WNE     IT1(I,K+1)=FYO(I,K)+FXOE1(I,K+1)
>       IT1(I,K+1)=max(FYO(I,K)+FXOE1(I,K+1),1.0)
> C 12-11 WNE      IT1(I,LP2+K-1)=FYO(I,K)+FXOE1(I,K)
>       IT1(I,LP2+K-1)=max(FYO(I,K)+FXOE1(I,K),1.0)
229c233,234
<       IT1(I,KP+LLP1)=FYO(I,KP)+FXOE1(I,1)
---
> C 12-11 WNE      IT1(I,KP+LLP1)=FYO(I,KP)+FXOE1(I,1)
>       IT1(I,KP+LLP1)=max(FYO(I,KP)+FXOE1(I,1),1.0)