ポリゴンもしくは折れ線ごとに値を持つ計算結果¶
ポリゴンもしくは折れ線ごとに値を持つ計算結果を出力する場合、 表 76 に示す関数を 使用します。
ポリゴンもしくは折れ線では、複数のグループを出力することができます。 各グループの出力の最初と最後で、 cg_iric_write_sol_polydata_groupbegin_f と cg_iric_write_sol_polydata_groupend_f を呼び出してください。
出力するプログラムの例は、リスト 108 を参照してください。
注釈
粒子の座標ごとに値を持つ計算結果を出力する関数では、 一度の関数の呼び出して全ての粒子の座標や値を出力しますが、 ポリゴンもしくは折れ線ごとに値を持つ計算結果では、一度の関数呼び出しでは ポリゴンもしくは折れ線一つ分のデータを出力します。
注釈
ポリゴンもしくは折れ線ごとに値を持つ計算結果は、2次元にのみ対応しています。
注釈
一つのグループの中にポリゴンと折れ線を混在させることもできます。
注釈
ポリゴンもしくは折れ線では、計算結果の値はスカラー量にのみ対応しています。
関数 | 備考 |
---|---|
cg_iric_write_sol_polydata_groupbegin_f | ポリゴンもしくは折れ線で定義された計算結果の出力を開始する |
cg_iric_write_sol_polydata_groupend_f | ポリゴンもしくは折れ線で定義された計算結果の出力を終了する |
cg_iric_write_sol_polydata_polygon_f | 計算結果としてポリゴンの形状を出力する |
cg_iric_write_sol_polydata_polyline_f | 計算結果として折れ線の形状を出力する |
cg_iric_write_sol_polydata_integer_f | 整数のポリゴンもしくは折れ線ごとに値を持つ計算結果を出力する |
cg_iric_write_sol_polydata_real_f | 倍精度実数のポリゴンもしくは折れ線ごとに値を持つ計算結果を出力する |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | program SampleProgram implicit none include 'cgnslib_f.h' integer:: fin, ier, isize, jsize integer:: canceled integer:: locked double precision:: time double precision, dimension(:,:), allocatable::grid_x, grid_y integer:: numpolygons = 10 integer:: numpoints = 5 double precision, dimension(:), allocatable:: polydata_x, polydata_y, double precision:: temperature = 26 integer:: i integer:: status = 1 character(len=20):: condFile condFile = 'test.cgn' ! CGNS ファイルのオープン call cg_open_f(condFile, CG_MODE_MODIFY, fin, ier) if (ier /=0) STOP "*** Open error of CGNS file ***" ! 内部変数の初期化 call cg_iric_init_f(fin, ier) if (ier /=0) STOP "*** Initialize error of CGNS file ***" ! 格子のサイズを調べる call cg_iric_gotogridcoord2d_f(isize, jsize, ier) ! 格子を読み込むためのメモリを確保 allocate(grid_x(isize, jsize), grid_y(isize, jsize)) ! 計算結果を保持するメモリを確保。一つのポリゴンの点数は5点 allocate(polydata_x(numpoints), polydata_y(numpoints)) ! 格子を読み込む call cg_iric_getgridcoord2d_f(grid_x, grid_y, ier) ! 初期状態の情報を出力 time = 0 call cg_iric_write_sol_time_f(time, ier) call cg_iric_write_sol_polydata_groupbegin_f('fish', ier) do i = 1, numpolygons ! (ここで polydata_x, polydata_y, temperature, status に適切な値を設定) call cg_iric_write_sol_polydata_polygon_f(numpoints, polydata_x, polydata_y, ier) call cg_iric_write_sol_polydata_real_f('Temperature', temperature, ier) call cg_iric_write_sol_polydata_integer_f('Status', status, ier) end do call cg_iric_write_sol_polydata_groupend_f(ier) do time = time + 10.0 ! (ここで計算を実行) call iric_check_cancel_f(canceled) if (canceled == 1) exit ! 計算結果を出力 call iric_write_sol_start_f(condFile, ier) call cg_iric_write_sol_time_f(time, ier) call cg_iric_write_sol_polydata_groupbegin_f('fish', ier) do i = 1, numpolygons ! (ここで polydata_x, polydata_y, temperature, status に適切な値を設定) call cg_iric_write_sol_polydata_polygon_f(numpoints, polydata_x, polydata_y, ier) call cg_iric_write_sol_polydata_real_f('Temperature', temperature, ier) call cg_iric_write_sol_polydata_integer_f('Status', status, ier) end do call cg_iric_write_sol_polydata_groupend_f(ier) if (time > 1000) exit end do ! CGNS ファイルのクローズ call cg_close_f(fin, ier) stop end program SampleProgram |