MAIN
  &routineA

ROUTINEA
  &routineB

ROUTINEB
  .....

##</code><code>##

MAIN
  new C++object
  routineA(C++object)
  routineB(C++object)

##</code><code>##

MAIN
  my C++object = routineA
  C++object->method
ROUTINEA
  my C++object = new C++design
  return C++object