NAME:
	F77_ANiceNum
 CALLING SEQUENCE:
	value = F77_ANiceNum(x, i)
 MODIFICATION HISTORY:
	FEB-2002, Paul Hick (UCSD/CASS; pphick@ucsd.edu)