ループ回数を出力する。
call cg_iric_write_sol_iteration(fid, iteration, ier)
ier = cg_iRIC_Write_Sol_Iteration(fid, iteration);
cg_iRIC_Write_Sol_Iteration(fid, iteration)