fortranのプログラムエラー

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
fortranで二次方程式の解を求めるプログラムを作っているのですが、a,b,cの値を入力してもxの値が出て来ません。
■■な機能を実装中に以下のエラーメッセージが発生しました。

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

エラーメッセージ

該当のソースコード

fortran

ソースコード
c234567
read(,) a, b, c
write(,) a, b, c
stop
c
if (a.eq.0.0)then
write(,)'ERROR'
stop
c
else
d = bb - 4.0ac
c
if (d.GT.0.0) then
x1 = (-b+ sqrt(d))/(2.0a)
x2 = (-b- sqrt(d))/(2.0a)
write(,) x1, x2
*
else if (d.eq.0.0)then
x=(-b/2.0a)
write(,)
else
write(,) 'imaginary root'
*
end if
*
end if
*
stop
end

試したこと

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

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

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

Answer 1

stopがあるからでは？

Comments

[kawasann]

回答ありがとうございます。stopを消してもa,b,cの値しか入力できません。aをゼロにしてもERRORという文字も出ないです

[otn]

修正後のコードを載せてください。

[kawasann]

すいません！できました！

[kawasann]

めちゃくちゃ助かりました！ありがとうございます。