Fortranのフォーマット

Fortranのフォーマットで、下記のように表示したい場合どうしたらよいのでしょうか？桁落ちしてもかまいません。
実数型(f)で表示した場合、0.が抜けてしまいます。
指数表示はしません。

0.0001
5.4321
1234.5

よろしくお願いします。

No.3 回答者： wakaranan 回答日時： 2008/12/31 10:24

一番上の場合だけで記述すると、PRINTしたい変数をABCとして、

CHARACTER*7　CH7
REAL ABC
WRITE(CH7,F7.4)ABC
IF(ABC.LT.0.0) THEN
CH7(1:2)='-0'
ELSE
CH7(1:2)=' 0'
ENDIF
WRITE(6,100) CH7
100 FORMAT(1X,A7)

たかが、'0'をつけるのにこんな大袈裟なと思いますが、私のプログラミング力（２０年前の経験）ではこの程度しか考えつきません。文字型変数でプリントします。はたしてこれで動くのかも自信がないです。悪しからず。

No.2 回答者： info22 回答日時： 2008/12/03 19:08

0.0001

5.4321
1234.5
であれば
FORMAT(1X,F7.4/1X,F7.4/1X,F7.1)
でいいと思います。
行の先頭の「1X」は改行制御のスペースで
「1H_」（Hの後は半角スペース、表示できないのでアンダーバーで代用）と同じです。

この回答への補足

ありがとうございます。
やはり０が抜けてしまいます。

補足日時：2008/12/05 10:44

No.1 回答者： colder 回答日時： 2008/12/03 13:44

当方では、0.が抜けるようなことはありませんでした。

使用しているコンパイラ、OS、実際に試した書式を教えて下さい。

この回答への補足

Microsoft developer studio, Fortran Power station 4.0
です。
例えば
-0.1234の時、
-.1234と表示されます。

補足日時：2008/12/03 17:52