Question

fortran中双精度余弦总出错dcos？？？

Error: This name does not have a type, and must have an explicit type. [DCOS]

程序编译总提示这个错误，这个函数为什么总出错啊？倍精度余弦不是内置函数吗？余弦的定义域不是全体实数嘛？ 求解答啊

Answer 1

Real*8 DCOS
定义一下就可以了。

其实不需要 DCOS，你直接 COS，只要参数给的是双精度，编译器就会自动用 DCOS 来计算。

比如：
Real*8 a
a = cos( 3.0D0 )

追问

Real*8 DCOS 这样定义也可以？我定义了下也提示不对啊

我是按着下面一种方法写的
但总是莫名其妙的提示错误，我改个参数又没提示了，不知为什么

追答

给出代码才好判断。

追问

总出错的是几千行的大程序，没法贴。下面是我刚要用到的小程序，一改成dcos就错

program main
implicit none
integer i
reaL*8 ff,len0,len

len=sqrt((165.0-22.0*cos(3.1415926/4.0))**2+(97.0-22.0*cos(3.1415926/4.0))**2)

len0=len-0.00081d03
ff=84.7*((len-len0)/len0)**1.132
write(*,*) ff
end

追答

你犯了一个新手都容易犯的错。

如果按照你的代码，你使用双精度没有任何意义。实际上，你的算式精度只能达到单精度的地步。

一个常数，比如 165.0，它是单精度的常数。如果要表示双精度的常数，需要写为：165.0_8 或 165D0。

如果一个算式中，变量都是双精度的，而常数却是单精度的，整个算式精度就会影响。

而 dcos 的参数必须是双精度的，而 3.1415926/4.0 是单精度的常量。

所以你需要改成：
len=sqrt((165.0_8-22.0_8*dcos(3.1415926_8/4.0_8))**2+(97.0_8-22.0_8*dcos(3.1415926_8/4.0_8))**2)

与双精度变量有关的实型常数，都应该写成双精度的常数，否则你使用双精度就白用了，因为常数是单精度的，而整个算式的精度就只有单精度的地步。

追问

十分感谢
我也想到了这个原因 ，治学不严谨……受教了