fortran abs

### Fortran 中 `ABS` 函数的使用方法

在 Fortran 编程语言中，`ABS` 是一个内置函数，用于计算数值类型的绝对值。该函数可以处理整数、实数以及复数类型的数据。

#### 整型数据的应用实例
对于整型变量，`ABS` 返回其对应的正数值：

program abs_example_integer
    implicit none
    integer :: i = -5
    print *, 'The absolute value of ', i, ' is ', abs(i)
end program abs_example_integer

#### 实型数据的应用实例
当应用于浮点数时，同样返回正值的结果：

program abs_example_real
    implicit none
    real :: r = -3.14
    print *, 'The absolute value of ', r, ' is ', abs(r)
end program abs_example_real

#### 复数类型的支持情况说明
值得注意的是，在某些版本或平台上（如SPARC V8），如果要获取复数的模，则应改用 `CABS` 而不是直接调用 `ABS` 来获得更精确的结果[^1]；不过现代标准Fortran已经支持通过 `ABS` 计算复数的大小:

program abs_example_complex
    implicit none
    complex :: c = (-4., 3.)
    ! Modern standard compliant compilers will handle ABS correctly here.
    print *, 'Magnitude of complex number (', c, ') is ', abs(c)
end program abs_example_complex