PARAMI9I0518P
      dimension x(2)
      j = 2
      x(j) = xlinkf ( 123 )
      j = 2 + 3
      j = 4 * 5
      j = 6 - 7
      j = 8 / 9
      j = 3 ** j
      a = 2.0 + 3.0
      a = 4.0 * 5.0
      a = 6.0 - 7.0
      a = 8.0 / 9.0
      a = 2.5 ** j
      a = 2.0 + 3.0 * 4.0 - 5.0 ** j / 6.0
      print 10, a
10    format ( f10.5 )
      end
