fortran - 复数 (8) 的 CABS(x) 函数

Question

是否有 double 复数的绝对值函数？当我尝试 CABS() 我得到

            V(1,j) = R(j,j) + (R(j,j)/cabs(R(j,j)))*complexnorm2(R(j:m,j))

"Error: Type of argument 'a' in call to 'cabs' at (1) should be COMPLEX(4), not COMPLEX(8)"

我读到有一个名为 CDABS() 的函数，但我不确定这是否是同一回事？

Answer 1

没有理由使用 ABS() 以外的任何东西。 FORTRAN 77 中已经存在用于内部过程的泛型。您可以将它们用于所有内部数字类型。

如果您想查看通用 ABS() 的可用特定函数表，请参阅 https://gcc.gnu.org/onlinedocs/gfortran/ABS.html , 但它们最有用的只是作为实际参数传递。你可以看到 CDABS() 是一个非标准扩展，我不建议使用它。