source/unres/src-HCD-5D/scales.f

   1 c
   2 c
   3 c     ###################################################
   4 c     ##  COPYRIGHT (C)  1992  by  Jay William Ponder  ##
   5 c     ##              All Rights Reserved              ##
   6 c     ###################################################
   7 c
   8 c     ###############################################################
   9 c     ##                                                           ##
  10 c     ##  module scales  --  optimization parameter scale factors  ##
  11 c     ##                                                           ##
  12 c     ###############################################################
  13 c
  14 c
  15 c     scale      multiplicative factor for each optimization parameter
  16 c     set_scale  logical flag to show if scale factors have been set
  17 c
  18 c
  19       module scales
  20       implicit none
  21       real*8, allocatable :: scale(:)
  22       logical set_scale
  23       save
  24       end