3 c ###################################################
4 c ## COPYRIGHT (C) 1992 by Jay William Ponder ##
5 c ## All Rights Reserved ##
6 c ###################################################
8 c ###############################################################
10 c ## module scales -- optimization parameter scale factors ##
12 c ###############################################################
15 c scale multiplicative factor for each optimization parameter
16 c set_scale logical flag to show if scale factors have been set
21 real*8, allocatable :: scale(:)