格子のコピー

CGNS ファイルの間で、格子をコピーします。 同じ関数で、構造格子と非構造格子両方に対応しています。

表 79 利用する関数
関数 備考
cg_iric_copy_grid 格子をコピーする

格子が格納されている CGNS ファイル、格子が格納されていない CGNS ファイルを 開き、格子をコピーする処理の例を リスト 110 に示します。

リスト 110 格子をコピーする処理の記述例
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
program SampleX
  use iric
  implicit none

  integer:: fid_from, fid_to, ier

  ! CGNS ファイルのオープン
  call cg_iric_open('test1.cgn', IRIC_MODE_READ, fid_from, ier)
  if (ier /=0) STOP "*** Open error of CGNS file ***"

  call cg_iric_open('test1.cgn', IRIC_MODE_MODIFY, fid_to, ier)
  if (ier /=0) STOP "*** Open error of CGNS file ***"

  ! 格子のコピー
  call cg_iric_copy_grid(fid_from, fid_to, ier)

  ! CGNS ファイルのクローズ
  call cg_iric_close(fid_from, ier)
  call cg_iric_close(fid_to, ier)
  stop
end program SampleX