#142 Article 1000 Posted at 1996/08/15 21:47:06 by まじぷり (MAP5580) [FROT]
Subject: 教えてフォートラン(^^;
こんなボード、あったんですね(ｫ
というわけで、私の友達なんですが、非常に困っているんです。
フォートランでプログラムを組んでいるようなのですが、質問を受けた
私も完璧なる素人なもので、結局何も解決できず仕舞い。
そこで、みなさまにお聞きしたくて書き込みました。
プログラムは、１階の微分方程式です。
という私、何がなんだかさっぱりなのですが、以下にそれを書きますの
で、御回答いただければと思います。
---------------------------------------------------------------
PROGRAM EULAR
C
IMPLICIT REAL(A-H,O-Z)
DIMENSION TS(100),XS(100)
C
DATA N,DT/100,0.1E0/
C
X0=1.E1
T0=0.E0
C
XS(1)=X0
TS(1)=T0
C
OPEN(20,FILE='ICHI.OUT')
DO 10 I=1,N
T=T0+DT*(I-1)
TS(I)=T
CALL ICHI(X,T)
WRITE(20,1000)
WRITE(*,1000)
10 CONTINUE
1000 FORMAT('',E12.6,1X,E12.6)
CLOSE(20)
C
STOP
END
C
SUBROUTINE ICHI(X,T)
IMPLICIT REAL(A-H,O-Z)
X=X-X*DT
XS=X
RETURN
END
------------------------------------------------------
よろしくお願いいたします(__)
まじぷり(MAP5580)
p.s.
あ、メモリアル1000Art.だ(^^)