Fortran中的sign函数

Fortran中的sign函数用于返回两个参数中的较大值乘上其符号的结果。其语法如下：

sign(a, b)

其中，a和b为实数类型的参数，函数返回值为实数类型。

如果a的值大于等于0，则返回abs(b)，否则返回-abs(b)。此外，如果a和b中任意一个参数为NaN，则函数返回NaN。

以下是一个示例程序：

program test_sign
  real :: a, b, result
  a = -3.5
  b = 2.5
  result = sign(a, b)
  write(*, *) result   ! 输出 -2.5
end program test_sign

在这个示例程序中，a的值为-3.5，b的值为2.5，调用sign函数后，返回值为-2.5。

相关问题

fortran中ln函数

在Fortran中，可以使用内置的`log`函数来计算自然对数（ln函数）。下面是一个示例代码：

program main
    implicit none
    real :: x, result

    x = 2.71828  ! 输入要计算ln的数值

    result = log(x)  ! 使用log函数计算ln

    print *, "ln(", x, ") = ", result  ! 输出结果

end program main

这段代码中，我们首先定义了一个实数变量`x`，并将其赋值为2.71828，即ln函数的参数。然后，我们使用`log`函数计算`x`的自然对数，并将结果存储在`result`变量中。最后，我们使用`print`语句输出结果。

fortran中reshape函数

Fortran中的reshape函数用于将一个数组重新构造为具有不同形状的新数组。它的语法如下：

result_array = RESHAPE(source_array, [shape])

其中，`source_array`是要重新构造的原始数组，`shape`是一个整数数组，用于指定新数组的形状。`shape`数组的长度可以与原始数组的维度不同，但元素总数必须保持一致。

下面是一个示例：

program reshape_example
  implicit none
  integer, dimension(6) :: array1
  integer, dimension(3, 2) :: array2
  
  ! 初始化原始数组
  array1 = [1, 2, 3, 4, 5, 6]
  
  ! 使用reshape函数将array1重新构造为array2
  array2 = reshape(array1, [3, 2])
  
  ! 打印结果
  print *, array2
  
end program reshape_example

运行上述示例代码将输出：

           1           2
           3           4
           5           6

这里，我们将一维数组 `array1` 重新构造为了二维数组 `array2`，形状为 `[3, 2]`。请注意，reshape函数将按照列优先的方式重排原始数组的元素。