#99 Article 1126 Posted at 1996/08/17 02:19:54 by Ｔｏｍ (MAP5356) [FROT]
Subject: Re:*4 教えてフォートラン(^^; /1125 ... /1002(#142) /1000(#142)
AppleTeaさんが書かれている通り、
WRITE(20,1000) X,T
WRITE(*.1000) X,T
の様にしなければ何も表示しないと思います。
あとは、X の初期値が計算に使われていないのを直し
更に、サブルーチン内で DT を定義するようにすれば動くのでは。
私がやった結果では、
T= .100000E+02 のとき X= .265614E-03
となりました。解析的に解くと、
T= .100000E+02 のとき X= .453999E-03
に（おそらく）なるので、まあ悪くないかなと。
何かにつけ自慢したい年頃の Ｔｏｍ(MAP5356) でした。