SUBROUTINE ADD(IRESULT, IA, IB)
          IRESULT = IA + IB
      END