計算結果としてポリゴンの形状を出力する
call cg_iric_write_sol_polydata_polygon_f(numpoints, x, y, ier)
ier = cg_iRIC_Write_Sol_PolyData_Polygon(numpoints, x, y);
cg_iRIC_Write_Sol_PolyData_Polygon(x, y)