dimension a(10,10,10)
      a(11,11,11)=1
      write(6,100)a(11,11,11)
100   format (f4.0)
      stop
      end