您所在位置：主题：这个 SQRT 命令为什么用不了？谢谢帮助！
chdh
[专家分：0] 发布于 2010-08-18 15:55:00
最近编了两个求平方根的FORTRAN小程序，都有错误。谁能帮我查查。
第一个程序：
a=1/2
b=sqrt(a)
write(*,*) b
end
这个程序虽然可以运行，但结果竟然是零，不知道为什么。
第二个程序：
common b(16)
do i=1,16
b(i)=sqrt(i)
write(*,*) b(i)
end do
end
这个程序编译时出错：
Warning: This argument's data type is incompatible with this intrinsic procedure; procedure assumed EXTERNAL. [I]
b(i)=sqrt(i)
-------------^
1.obj - 0 error(s), 1 warning(s)
请求大家帮忙看看，谢谢！
第一个程序：
a=1/2
b=sqrt(a)
write(*,*) b
end
这个程序虽然可以运行，但结果竟然是零，不知道为什么。
第二个程序：
common b(16)
do i=1,16
b(i)=sqrt(i)
write(*,*) b(i)
end do
end
这个程序编译时出错：
Warning: This argument's data type is incompatible with this intrinsic procedure; procedure assumed EXTERNAL. [I]
b(i)=sqrt(i)
-------------^
1.obj - 0 error(s), 1 warning(s)
请求大家帮忙看看，谢谢！
