Fortran構造函數

下表介紹了結構功能：

函數

描述

merge(tsource, fsource, mask)

該功能連接兩個陣列。它給出了tsource及元素，如果mask條件是.true。如果掩碼的條件是.false。這兩個字段tsource 和fsource 必須是相同的類型並具有相同的形狀。其結果也就是這種類型和形狀。還掩碼必須具有相同的形狀。

pack(array, mask, vector)

它包一個陣列，以使用掩碼的控制向量。邏輯陣列掩模的形狀，具有以符合一個用於陣列，要不然掩碼必須是一個標量。如果載體被包括在內，它必須是秩1與至少一樣多的元素是在掩碼爲真，並且具有相同的類型的數組的數組(即一個向量)。如果掩碼的值爲.true。然後矢量代替必須的元件陣列的數量相同。

spread(source, dim, ncopies)

它返回相同類型作爲參數源與秩增加一個陣列。參數dim 和ncopies都是整數。如果ncopies是負則用零值來代替。如果source是一個標量，然後擴散變得所有具有相同值 ncopies 元素的向量。參數dim 指示哪個索引將被延長。它必須是範圍爲1和1+(源級)中，如果 source 是一個標量，dim 必須是1。參數 ncopies 是在新的尺寸元素的數量。

unpack(vector, mask, array)

它散射一個載體，掩碼下的控制陣列。邏輯陣列掩模的形狀具有以符合一個用於數組。陣列載體必須具有等級1(即它是一個向量)與至少一樣多的元素是那些掩碼內值都爲true，並且還必須具有相同類型陣列。如果陣列被給定爲一個標量，然後它被認爲是使用相同形狀的掩碼，並在同一標量元素無處不在的陣列。

其結果將是具有相同形狀的掩碼和類型相同的矢量陣列。該值將是那些從所接受的載體，而在陣列的剩餘位置的舊值被保留。

示例

下面的例子演示了這一概念：

program arrayConstruction
implicit none
interface
subroutine write_array (a)
real :: a(:,:)
end subroutine write_array

  subroutine write\_l\_array (a)
     logical :: a(:,:)
  end subroutine write\_l\_array

end interface

real, dimension(2,3) :: tsource, fsource, result
logical, dimension(2,3) :: mask

tsource = reshape( (/ 35, 23, 18, 28, 26, 39 /), &
(/ 2, 3 /) )
fsource = reshape( (/ -35, -23, -18, -28, -26, -39 /), &
(/ 2,3 /) )
mask = reshape( (/ .true., .false., .false., .true., &
.false., .false. /), (/ 2,3 /) )

result = merge(tsource, fsource, mask)
call write_array(tsource)
call write_array(fsource)
call write_l_array(mask)
call write_array(result)

end program arrayConstruction

subroutine write_array (a)

real :: a(:,:)
do i = lbound(a,1), ubound(a,1)
write(*,*) (a(i, j), j = lbound(a,2), ubound(a,2) )
end do
return

end subroutine write_array

subroutine write_l_array (a)

logical :: a(:,:)
do i = lbound(a,1), ubound(a,1)
write(*,*) (a(i, j), j= lbound(a,2), ubound(a,2))
end do
return

end subroutine write_l_array

當上述代碼被編譯和執行時，它產生了以下結果：

35.0000000 18.0000000 26.0000000
23.0000000 28.0000000 39.0000000
-35.0000000 -18.0000000 -26.0000000
-23.0000000 -28.0000000 -39.0000000
T F F
F T F
35.0000000 -18.0000000 -26.0000000
-23.0000000 28.0000000 -39.0000000

Fortran教程