call cg_iric_read_integer_f(label, intvalue, ier)
ier = cg_iRIC_Read_Integer(label, &intvalue);
intvalue = cg_iRIC_Read_Integer(label)