integer*2 d(2,2)
      i=2
      j=1
      d(i,j)=0.0
      write(6,10)
  10  format(1h ,'f028 passed')
      end