作者t70349 (JAY)
看板Fortran
标题Re: [请益] 关於TDMA的程式码
时间Fri Aug 26 20:22:20 2011
※ 引述《t70349 (JAY)》之铭言：
: 以下是我的程式码 COMPILE无错误
: executing却有问题
: 请各位高手帮忙
: 我是新手请大家多指教
: program aaa
: parameter n=5
: dimension a(n),b(n),c(n),q(n),bb(n),x(n)
: do 10 i=1,n
: a(i)=1.
: c(i)=1.
: 10 continue
: b(1)=1
: b(2)=2
: b(3)=3
: b(4)=4
: b(5)=5
: q(1)=3
: q(2)=8
: q(3)=15
: q(4)=24
: q(5)=29
: call trdiaq(5,a,b,c,x,q)
: write(*,*)x
: stop
: end
: subroutine trdiaq(n,a,b,c,x,q)
: dimension a(n),b(n),c(n),q(n),bb(n),x(n)
: do 1 i=1,n
: bb(i)=b(i)
: 1 continue
: do 2 i=2,n
: t=a(i)/bb(i-1)
: bb(i)=bb(i)-c(i-1)*t
: q(i)=q(i)-q(i-1)*t
: 2 continue
: x(n)=q(n)/bb(n)
: do 3 i=1,n-1
: j=n-i
: x(j)=(q(j)-c(j)*x(j+1))/bb(j)
: 3 continue
: return
: end
显示为
Error: Syntax error, found END-OF-FILE when expecting one of: <LABEL>
<END-OF-STATEMENT> ; BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER ...
^
Error executing df.exe.
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.124.33.174