SUBROUTINE ratio(a, b, c, ia, ib, ic)

  c = a/b
  ic = ia/ib

END