!主程序
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
搜狗截图_2017-12-30_00-59-21.jpg (17.02 KB, 下载次数: 205)
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |