Fortran数组合并

在Fortran中，可以使用内置的数组操作来合并数组。首先，确保两个数组具有相同的维数。然后，可以使用内置的数组连接函数`merge`来合并数组。

下面是一个示例代码，演示了如何合并两个一维数组：

program array_merge
  implicit none
  
  integer, dimension(3) :: array1 = [1, 2, 3]
  integer, dimension(4) :: array2 = [4, 5, 6, 7]
  integer, dimension(7) :: merged_array
  
  merged_array = merge(array1, array2)
  
  print *, "Merged Array:"
  do i = 1, size(merged_array)
    print *, merged_array(i)
  end do
  
end program array_merge

在上面的示例中，我们定义了两个一维整数数组`array1`和`array2`，分别包含3个和4个元素。然后，我们定义了一个新的一维整数数组`merged_array`，大小为7，用于存储合并后的数组。

使用`merge(array1, array2)`将`array1`和`array2`合并到`merged_array`中。合并后的数组将包含`array1`和`array2`中的所有元素。

输出结果将是合并后的数组的所有元素。在这个例子中，输出将是：

Merged Array:
           1
           2
           3
           4
           5
           6
           7

请注意，`merge`函数在合并时会保留原始数组中的元素顺序。