  FUNC calcstep(reel_c,im_c) CLOSED  
  PROC setmax(maxstep) CLOSED  
