粒子の位置を出力する (3次元)
call cg_iric_write_sol_particlegroup_pos3d(fid, x, y, z, ier)
ier = cg_iRIC_Write_Sol_ParticleGroup_Pos3d(fid, x, y, z);
cg_iRIC_Write_Sol_ParticleGroup_Pos3d(fid, x, y, z)