call cg_iric_write_sol_particle_pos2d_f(count, x, y, ier)
ier = cg_iRIC_Write_Sol_Particle_Pos2d(count, x, y);
cg_iRIC_Write_Sol_Particle_Pos2d(x, y)