call cg_iric_write_sol_particlegroup_groupend_f(ier)
ier = cg_iRIC_Write_Sol_ParticleGroup_GroupEnd();
cg_iRIC_Write_Sol_ParticleGroup_GroupEnd()