作者bluehaerts (5858笨58)
看板Fortran
标题Re: [问题] linux上的指令
时间Thu Dec 4 12:39:04 2008
※ 引述《agody (讲不听)》之铭言:
: 如果题目是要算阶乘(我不知道题目是啥啦)
: 又规定要用函式来用递回
: program factor
: read(*,*) n
: nres=ifn(n)
: write(*,*)'n=>',nres
: end
: RECURSIVE function ifn(n)
: if (n .eq. 1) then
: ifn=1
: else
: ifn=n*ifn(n-1)
: end if
: return
: end
: 科科,乱写的,应该会过吧
我测试跑过了 出现这个结果 应该是说 没有主程式喔
ooop.f:7:
RECURSIVE function ifn(n)
1 2
Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
ooop.f: In program `MAIN__':
ooop.f:11:
ifn=n*ifn(n-1)
^
Invalid form for IF statement at (^)
所以 应该不是RECURSIVE 这个地方有错
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.134.140.40
1F:推 noonee:你用 gfortran吗 你的compiler不支援 recursive啦 12/04 12:40
2F:→ noonee:先别看书上怎麽写 自己好好想一个 12/04 12:46
3F:→ bluehaerts:应该是FORTRAN90 我猜的 我是用工作站LINUX跑的 12/04 12:49
4F:→ bluehaerts:囧 连课本范例都过不了 要怎麽自己想QQ 12/04 12:50
5F:→ noonee:fortran90是规范不是 complier 你下指令的时候指令是啥? 12/04 12:56
6F:→ noonee:如果是 g77的话 那你就得用 fortran 77的规范写 12/04 12:57
7F:→ fragmentwing: 等等 为啥不用先宣告函数型态 04/14 14:50