格子のコピー¶
CGNS ファイルの間で、格子をコピーします。 同じ関数で、構造格子と非構造格子両方に対応しています。
関数 |
備考 |
---|---|
cg_iric_copy_grid |
格子をコピーする |
格子が格納されている CGNS ファイル、格子が格納されていない CGNS ファイルを 開き、格子をコピーする処理の例を リスト 177 に示します。
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