倍精度実数の粒子ごとに値を持つ計算結果を出力する
call cg_iric_write_sol_particlegroup_real(fid, label, val, ier)
ier = cg_iRIC_Write_Sol_ParticleGroup_Real(fid, label, val);
cg_iRIC_Write_Sol_ParticleGroup_Real(fid, label, val)