string - 内容が最初の文字に依存する行の読み取り

Question

Fortran では、実用的な読み取り方法は次のとおりです。

 A 1. 2. 3.   

最初の文字が「A」であるが、次の文字を読み取らない場合:

 Z

たとえば、最初の文字が「Z」の場合は残ります。

行全体を読み取ろうとすると：

read(1,*)char, number1, number2, number3

番号が欠落している場合、エラーが発生します。したがって、「A」をその行にとどめ、「A」または「Z」の読み取りに応じて、必要に応じて残りを読み取る方法が必要です。

Answer 1

あなたが望むものからのわずかな逸脱は、最初の文字を読み取る数字の数に置き換えることです。

3 1. 2. 3.
0
2 3.14 -1.

次に、各行で読み取りたい要素の最大数がnmax宣言されている場合

integer::i,n
real(dimension=nmax)::number

と使用

read(1,*) n, (number(i), i=1,n)

本当に文字を使い続けたい場合は、何かをハックしてiachar()、文字の ASCII 値を実数に変換して読み取ることができます。