fortranの配列ファイル読み込み、書き換えプログラムのexeファイルを実行することができません。

Question

fortranの配列ファイル読み込み、書き換えプログラムのexeファイルを実行することができません。

3x3の配列のtxtファイルと閾値を読み込んで、閾値以上の大きさの要素は255,
閾値以下は0に書き換えるプログラムを作成しています。
コンパイルしてexeファイルを生成する所まではうまくいったものの、実行されないという状況です。

exeファイルをダブルクリックすると黒い画面が一瞬現れて消え、
コマンドプロンプト上で実行しても、結果に5行目の"reading done"、および7行目の"read error" が表示されるのみです。

他のexeファイルは実行可能なので、おそらく実行環境というより
コード自体に問題があるのではないかと個人的には思うのですが、
見当がつかないのでご教授願います。

###読み込むデータ
ファイル名 data.txt
240 230 190
250 1 44
100 50 32

ソースコード

program main
implicit none

integer :: i,j,k                          !繰り返し変数
integer, dimension(3,3):: pix         !txtファイルのデータの格納先
integer :: thr                            !閾値
   
open(10,file='data.txt', status='old', err=100)
        print*,"reading done"

100     print*,"read error"    
        stop
        
        print*,"What is the threshold?"  !閾値の読み込み
        read*, thr
     
           
      do j=1,3                           !配列の要素を読み込んでpix(j,k)に格納
         do k=1,3
           read(10,*) pix(j,k)
         end do
      end do
     
   
    
      do j=1,3
        do k=1,3
              
          if (pix(j,k)<thr) then
             pix(j,k)=0
          else
            pix(j,k)=255
          end if
          write(10,*) pix(j,k)

        end do
      end do
    
       
    close(10)
    
    end

Answer 1

コマンドプロンプト上で実行しようとしても、5行目の"reading done"、および7行目の"read error" が表示されるのみです。

プログラムはそのように動作するように書かれているので、実行の仕方には問題は無いでしょう。

print*,"reading done"した後、print*,"read error"してstopするように書くので無く、
print*,"reading done"の次にはprint*,"What is the threshold?"以下を書けばいいでしょう。

Comments

[fordo]

返信ありがとうございます！
実行の方はそのやり方で解決しました。

インプットのtxtファイルの値を
255 255 0
255 0 0
0 0 0
のように元の値を消して０か255で上書きしたいのですが、
今のコードだと、元の値が残ってしまう上に
240 230 190
250 1 44
100 50 32 255
255
0
255
0
0
0
0
0
と改行されず一直線に並んでしまいます。
調べても分からないのですが、何か良い解決方法はないでしょうか？

[otn]

> 元の値を消して０か255で上書きしたいのですが、

一度closeしてopenしなおすか、rewind文を実行するか。

> と改行されず一直線に並んでしまいます。
「改行されて」の間違いですかね？？

write文を一度実行するとそれで1行です。
1行に複数の値を書きたければ、1つのwrite文でまとめて書きます。

readも1回1行のはずですが、このプログラムでデータををちゃんと読めてますか？

[fordo]

＞readも1回1行のはずですが、このプログラムでデータををちゃんと読めてますか？

読み込みは問題ないですね。2次元配列に格納しながら読み込んでいるので大丈夫なのではないかと思います。

＞write文を一度実行するとそれで1行です。
1行に複数の値を書きたければ、1つのwrite文でまとめて書きます。

おっしゃる通り
do j=1,3
write(10,*) (pix(j,k), k=1,3)
のように書き直した所うまくいきました。

ありがとうございます

[otn]

> 読み込みは問題ないですね。

手元の f95 だとだめですね。25年前の規格だ。。。
処理系依存なのか、ある規格以降で可能になったのか。