Fortran双精度专用函数是否有用？其定义行为与适用场景问询

首先直接给结论：你观察到的tan的多精度适配行为是Fortran标准明确规定的，而dtan这类特定精度函数的表现，则是编译器对旧标准的兼容处理。下面详细拆解：

一、标准层面的行为说明 #

1. 通用函数tan的设计逻辑 #

从Fortran 90开始，标准引入了通用内在函数的概念，tan就是其中的典型代表。这类函数的核心特性就是参数多态——它会自动匹配传入参数的类型（包括kind精度），返回同精度的结果。不管你传real(kind=4)、real(kind=8)还是real(kind=16)，tan都会输出对应精度的实数值，这是现代Fortran为提升代码灵活性和可移植性特意设计的行为，完全符合标准。

2. dtan等特定精度函数的由来与表现 #

dtan、dsin这类带d前缀的函数是Fortran 77及更早版本的遗留产物。在旧标准里，没有参数化的kind类型，只有固定的"单精度"（real）和"双精度"（double precision）两种实数类型，dtan就是专门为double precision类型设计的函数，只能接受和返回该类型的值。

现在的编译器（比如gfortran）为了兼容海量的旧代码，会把double precision映射到具体的kind值：

• 当使用默认设置或编译选项-fdefault-double-8时，double precision对应real(kind=8)，所以dtan只处理real(8)的参数；
• 当设置-fdefault-real-8且未指定-fdefault-double-8时，编译器会把double precision映射到real(kind=16)，此时dtan就对应这个更高的精度。
  这种映射是编译器的兼容策略，虽然不是现代Fortran标准的强制要求，但属于行业通用的做法。

二、双精度专用函数的适用场景与现状 #

1. 适用场景 #

这类函数唯一的合理场景就是维护或编译Fortran 77时代的遗留代码。很多科学计算领域的经典老项目，比如几十年前写的数值模拟程序，全都是用dtan、dcos这类函数写的。如果直接把这些函数替换成通用的tan、cos，可能需要修改大量代码，所以编译器保留这些函数是为了让旧代码能直接编译运行，减少迁移成本。

2. 是否过时？ #

对于新编写的Fortran代码，这类特定精度函数完全属于过时特性，强烈不推荐使用。现代Fortran推荐的写法是：

• 使用iso_fortran_env模块提供的标准精度常量（比如real32、real64、real128）来定义变量；
• 配合通用内在函数（比如tan、sin），这样代码的可移植性极强——不管编译器默认的kind值是什么，你都能精准控制所用的精度，而且代码更简洁。

举个直观的对比例子：

! 现代推荐写法
use iso_fortran_env
real(real64) :: x, result
x = 1.0_real64
result = tan(x)  ! 自动返回real64类型，精度可控

! 旧写法（仅适合遗留代码）
double precision :: a, res
a = 1.0d0
res = dtan(a)  ! 只能处理double precision类型，灵活性差

内容的提问来源于stack exchange，提问作者Eliad