********>Bugfix 16
Author: Dave Case
Date: 08/25/2006

Programs: sander

Description: the lmod.f file in sander won't compile with gfortran, because
             the length of a parameter string is not considered constant.
             Here we just hard-code the required lengths.  Better solutions
             will be pursued for the next release

Fix:  apply the following patch to src/sander/lmod.f

------------------------------------------------------------------------------
*** lmod.f	3 Apr 2006 23:35:55 -0000	9.0
--- lmod.f	18 Aug 2006 17:39:09 -0000	9.1
***************
*** 179,185 ****
     integer,          parameter :: MVPM_CENTRAL_CODE = 2
     character(len=*), parameter :: MVPM_FORWARD      = 'forward'
     integer,          parameter :: MVPM_FORWARD_CODE = 1
!    character(len=len(MVPM_FORWARD)) :: matrix_vector_product_method=MVPM_FORWARD
     integer                     :: mvpm_code = MVPM_FORWARD_CODE
     namelist /lmod/ matrix_vector_product_method
  
--- 179,186 ----
     integer,          parameter :: MVPM_CENTRAL_CODE = 2
     character(len=*), parameter :: MVPM_FORWARD      = 'forward'
     integer,          parameter :: MVPM_FORWARD_CODE = 1
!    !character(len=len(MVPM_FORWARD))::matrix_vector_product_method=MVPM_FORWARD
!    character(len=7) :: matrix_vector_product_method=MVPM_FORWARD ! gfortran hack
     integer                     :: mvpm_code = MVPM_FORWARD_CODE
     namelist /lmod/ matrix_vector_product_method
  
***************
*** 191,198 ****
     integer,          parameter :: MC_METHOD_TOTAL_QUENCH_CODE = 2
     character(len=*), parameter :: MC_METHOD_QUICK_QUENCH      = 'Quick_Quench'
     integer,          parameter :: MC_METHOD_QUICK_QUENCH_CODE = 3
!    character(len=len(MC_METHOD_QUICK_QUENCH)) :: Monte_Carlo_method &
!                                                      = MC_METHOD_METROPOLIS
     integer                :: Monte_Carlo_method_code = MC_METHOD_METROPOLIS_CODE
     namelist /lmod/ Monte_Carlo_method
  
--- 192,200 ----
     integer,          parameter :: MC_METHOD_TOTAL_QUENCH_CODE = 2
     character(len=*), parameter :: MC_METHOD_QUICK_QUENCH      = 'Quick_Quench'
     integer,          parameter :: MC_METHOD_QUICK_QUENCH_CODE = 3
!    !character(len=len(MC_METHOD_QUICK_QUENCH)) :: Monte_Carlo_method &
!    !                                                  = MC_METHOD_METROPOLIS
!    character(len=12) :: Monte_Carlo_method = MC_METHOD_METROPOLIS
     integer                :: Monte_Carlo_method_code = MC_METHOD_METROPOLIS_CODE
     namelist /lmod/ Monte_Carlo_method
  
***************
*** 254,260 ****
     integer,          parameter :: XMIN_METHOD_PRCG_CODE  = 1
     character(len=*), parameter :: XMIN_METHOD_TNCG       = 'TNCG'
     integer,          parameter :: XMIN_METHOD_TNCG_CODE  = 3
!    character(len=len(XMIN_METHOD_LBFGS)) :: xmin_method = XMIN_METHOD_LBFGS
     integer                     :: xmin_method_code = XMIN_METHOD_LBFGS_CODE
     namelist /lmod/ xmin_method
  
--- 256,263 ----
     integer,          parameter :: XMIN_METHOD_PRCG_CODE  = 1
     character(len=*), parameter :: XMIN_METHOD_TNCG       = 'TNCG'
     integer,          parameter :: XMIN_METHOD_TNCG_CODE  = 3
!    !character(len=len(XMIN_METHOD_LBFGS)) :: xmin_method = XMIN_METHOD_LBFGS
!    character(len=5) :: xmin_method = XMIN_METHOD_LBFGS
     integer                     :: xmin_method_code = XMIN_METHOD_LBFGS_CODE
     namelist /lmod/ xmin_method
  
------------------------------------------------------------------------------

Temporary workarounds: none