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