  PROC setmax(i0%)
  FUNC calcstep(r0,r1)
