call cg_iric_read_real_f(label, realvalue, ier)
ier = cg_iRIC_Read_Real(label, &realvalue);
realvalue = cg_iRIC_Read_Real(label)