169c169,170
<       IVAL(I,K)=FYO(I,K)+FXOE2(I,KLEN+K-1)
---
> C 12-11 WNE      IVAL(I,K)=FYO(I,K)+FXOE2(I,KLEN+K-1)
>       IVAL(I,K)=max(FYO(I,K)+FXOE2(I,KLEN+K-1),1.0)
190c191,192
<       IVAL(I,K)=FYO(I,K)+FXOE2(I,KLEN-1)
---
> C 12-11 WNE      IVAL(I,K)=FYO(I,K)+FXOE2(I,KLEN-1)
>       IVAL(I,K)=max(FYO(I,K)+FXOE2(I,KLEN-1),1.0)