作者gazzy (SC)
看板Fortran
标题Re: [问题] 好像是字元逻辑的问题..
时间Fri May 29 17:40:47 2009
※ 引述《dana79810 (kicala)》之铭言:
: 出现 Variable I has been used without being given an initial value
: I,J,K都有这样我没办法下去。
: 跑是可以跑可是附程式叫不出来,拜托前辈们
: program intergran sin
: implicit none
: real::a,b,h,dx
: integer::s
: character(len=20)::skill,i,j,k
character(len=20)::skill ! i, j, k 是字元
: write(*,*)"function:sin key in upper & under "
: read(*,*)a,b
: h=a-b
: write(*,*)"key in how many subintervals ?"
: read(*,*)s
: dx=h/real(s)
: write(*,*)"select a skill "
: write(*,*)"(i)simspon rule"
: write(*,*)"(j)rectangule rule"
: write(*,*)"(k)trapezoidal rule"
: read(*,*)skill
: ----------------------------------
skill=trim(skill)
!或者是前面改成 character(len=1)::skill
: if (skill==i) then 我
if (skill == "i") then
: call simspon 想
: else if(skill==j) then 问
else if (skill == "j") then
: call rectangule 题
: else if(skill==k) then 在
else if (skill == "k") then
: call trapezoidal 这
: end if
!用select case 会比较方便……吧!
: end program
略…
gfortran ok
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.104.45.191
1F:推 dana79810:我了解了!!感谢前辈 05/29 19:11