位置:首頁 > 高級語言 > Fortran教學 > Fortran構造函數

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