single page | use frames summary class fields routine details file attributes
result = string_round(parstr)
******* ************ ** JRS, 15/11/02