  PROC setstep(i0%)
  FUNC integral(REF r0,r1,r2)
