倍精度実数のポリゴンもしくは折れ線ごとに値を持つ計算結果を出力する
call cg_iric_write_sol_polydata_real(fid, label, val, ier)
ier = cg_iRIC_Write_Sol_PolyData_Real(fid, label, val);
cg_iRIC_Write_Sol_PolyData_Real(fid, label, val)