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