Fortran中开根号函数QRST的调用

问题描述:

Fortran中开根号函数QRST的调用
我的程序:
program examimplicit nonereal vreal sqrtopen(2,file='F:\6.txt',status='replace') v=sqrt(4)write(2,*) vend
结果出错提示:
Error:This name does not have a type,and must have an explicit type.[SQRT]
Warning:Arguments' data types are incompatible with intrinsic procedure,assume EXTERNAL.[SQRT]
请问怎么调用啊?
1个回答 分类:综合 2014-10-31

问题解答:

我来补答
应该这样
program exam
real v
open(2,file='6.txt',status='unknown')
v=sqrt(4.0)
write(2,*) v
close(2)
call system('c:\windows\notepad.exe 6.txt')
end
既然V是real
sqrt(4.0)中间应该是4.0
 
 
展开全文阅读
剩余:2000