格子のコピー

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

表 80 利用する関数

関数

備考

cg_iric_copy_grid

格子をコピーする

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

リスト 110 格子をコピーする処理の記述例
 1program SampleX
 2  use iric
 3  implicit none
 4
 5  integer:: fid_from, fid_to, ier
 6
 7  ! CGNS ファイルのオープン
 8  call cg_iric_open('test1.cgn', IRIC_MODE_READ, fid_from, ier)
 9  if (ier /=0) STOP "*** Open error of CGNS file ***"
10
11  call cg_iric_open('test1.cgn', IRIC_MODE_MODIFY, fid_to, ier)
12  if (ier /=0) STOP "*** Open error of CGNS file ***"
13
14  ! 格子のコピー
15  call cg_iric_copy_grid(fid_from, fid_to, ier)
16
17  ! CGNS ファイルのクローズ
18  call cg_iric_close(fid_from, ier)
19  call cg_iric_close(fid_to, ier)
20  stop
21end program SampleX