497a498
>       sol(2,1) = zero
499a501
>       sol(2,lsol) = zero
538c540
<       if(.not.lci2)then
---
>       if(.not.(.not.lci2))goto 23234
546c548
<       if(idxcf.gt.nn)then
---
>       if(.not.(idxcf.gt.nn))goto 23236
548,549c550,551
<       endif
< 70    if(lup)then
---
> 23236 continue 
> 70    if(.not.(lup))goto 23238
554c556,557
<       else
---
>       goto 23239
> 23238 continue
559,560c562,563
<       endif
<       endif
---
> 23239 continue
> 23234 continue
