Re: [請益] 關於TDMA的程式碼
※ 引述《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
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
