0?0000150?00657579669193657200  ENRF    13EK
0?0000150?00768483669196657200  OUTF    16EK
c     ------------------------------
      y=outf(a,b,c,d,enrf(
     1e,f,g),h)
      end