fortranで文字列と数値の混在したcsvファイルの読み込み

Question

前提・実現したいこと

fortranで以下のような文字列と数値の混在したcsvファイルを読み込みたいです。

'18-08-05 12:00:00.00s,1.00,2.00
...

発生している問題・エラーメッセージ

　1行目の日付と時刻の部分は必要ないのでダミーの文字型変数を宣言して読み飛ばしていたんですが、どうも先頭の'(アポストロフィー? シングルクオート?)のせいなのかうまくいきません。
また、日付と時刻の間は半角スペース１つが１つあります。ここはまとめて文字に格納してもいいし、別々で文字に格納してもいいし、丸々読み飛ばしてもいいです。

何か上手い方法をご存知の方がいましたらよろしくお願いします。

該当のソースコード

fortran

プログラム：test.f90
program test
implicit none
real,dimension(2)::x
character(len=30) :: dummy
open(10,file='test.csv')
read(10,)dummy,x(1:2)
close(10)
write(,*)dummy,x(1:2)
end program test

入力ファイル：test.csv
'18-08-05 12:00:00.00s,1.00,2.00

エラーメッセージ：
At line 6 of file test.f90 (unit = 10, file = 'test.csv')
Fortran runtime error: End of file
Error termination. Backtrace:
Program received signal SIGSEGV: Segmentation fault - invalid memory reference.
Backtrace for this error:

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

list-directed な format * は、スペースやコンマを区切り文字として CSV 形式をパースしてくれるので、CSV データを読む時の選択としては悪くない。文字列長や数値桁が可変だと * を使わないと自分でパースする羽目になる。

ただ、list-directed だと、文字列引用符は文字列と、数字 * は反復、/ はデータ終わりを意味するなど、普通の文字が役付き文字になっているのでその辺に注意が必要になる。

今の場合、文字列が始まったが、閉じ引用符がないので叱られている。一度バッファ文字列に入れて、１文字目のシングル・クォートを外して、内部ファイルとしてあらためて list-directed で読むこともできる。ただし、この場合日付と時間の間の空白が区切り文字となるので、２個ダミーの文字変数が必要となる。

読みたい数値が固定フォーマットなら、hope_mucci さんのようにフォーマットを指定してもいい。

program test
implicit none
real,dimension(2)::x
character(80) :: buff
character(len=30) :: dummy1, dummy2
!open(10,file='test.csv')
read(10, '(a)') buff
print *, buff(2:)
read(buff(2:),*) dummy1, dummy2, x(1:2)
close(10)
write(*,*) dummy1,dummy2,x(1:2)
end program test

 18-08-05 12:00:00.00s,1.00,2.00

 18-08-05 12:00:00.00s   1.000000       2.000000
続行するには何かキーを押してください . . .

Comments

[yuyakawano]

分かりやすく説明していただきありがとうございました。完璧に解決しました。

Answer 2

書式*指定なんて横着せずに、きちんとaで指定してやれば読めます。
この機に入出力書式指定方法をしっかり覚えましょう。

あと、質問文にコードを載せる場合はこうやって```でくくること。
読みやすくなり、検証しやすくなります。

program test
    implicit none
    real,dimension(2)::x
    character(len=30) :: dummy
    read(*,'(a22,f4.2,f4.2)')dummy,x(1:2)
    write(*,*)dummy,x(1:2)
end program test 

テストのためstdinにしましたが、利用するならファイル入力に書き換えてね。

Comments

[yuyakawano]

分かりやすい回答ありがとうございました。