cleaned up code, fixed bug with undefined Nam[[i]] if strat.  Thanks: douglaswilkins@yahoo.com