*-----------------------------データ出力用ファイルの新規作成    
      open(99,file="map01.dat")
*---------------------------画像サイズの設定（50*20ピクセル）
      ix=50
      iy=20
      write(99,*) ix,iy
*--------------------------------画像データ出力（赤色四角形） 
      do 10 i=1,iy
      write(99,*) (1.0,j=1,ix)
      write(99,*) (0.0,j=1,ix)
      write(99,*) (0.0,j=1,ix)
   10 continue
      
      close(99)
      stop
      end
      
      