call cg_iric_read_sol_time_f(step, time, ier)
ier = cg_iRIC_Read_Sol_Time(step, &time);
time = cg_iRIC_Read_Sol_Time(step)