PARAMI9I0518P
      x = 1.0 / 2.0
      y = 3.0 / 2.0
      w = 0.5 * 0.5
      a = 1.0
      b = 2.0
      q = 2.0 * a
      p = b / q
      print 100, x, y, w, b, q, p
100   format ( 13h 1.0 / 2.0 = , e26.18 /
     1         13h 3.0 / 2.0 = , e26.18 /
     2         13h 0.5 * 0.5 = , e26.18 /
     3         13h B         = , e26.18 /
     4         13h Q         = , e26.18 /
     5         13h P = B / Q = , e26.18 )
      end
