目的:相求10的n次方(IVF2013编译,调试,运行的)
[Fortran] 纯文本查看 复制代码 !主程序
program main
implicit none
real NPOIN,ANS
call input(NPOIN,ANS)
end
!input子程序
subroutine input(NPOIN,ANS)
implicit none
real NPOIN,ANS
NPOIN=2
ANS=10**NPOIN !调试到这里出错了,如下图所示,但是不调试,运行的结果是正确的
write(*,*) ANS
return
end
新手,可能对大神来说,很easy!还是希望能帮我解答一下。谢谢大家啦!!!困扰了我好长时间了。
|