y=8.854370
      x=y*y
      z=.000001*78.4
      u=abs(x-78.4)
      print *,x,z,u
      stop
      end