 file INT%.DIF                                02/26/82
Make a new file INT.DIF as follows:
(1)  Start with the old file INT.DIF.
(2)  Insert in it, at the end (just before RDS() $ ),
          all of this file below the line:
-------------------------------------------------------------

FUNCTION ERF(EX1),
  WHEN EX1 EQ MINF, -1  EXIT,
  WHEN EX1 < 0, -ERF(-EX1)  EXIT,
  WHEN ZERO(EX1), 0  EXIT,
  WHEN EX1 EQ PINF, 1  EXIT,
  SIMPU('ERF,EX1),
ENDFUN $

