********>Bugfix 27:
Author: Yong Duan
Date: 12/02/2004

Programs: sander

Description: The "dielc" variable should not be used in conjunction with
             generalized Born calculations (use intdiel and extdiel instead),
             but this is not enforced in the program.  This can lead to user
             errors, particularly in scripts generated by mm_pbsa.

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

------------------------------------------------------------------------------
*** rdparm.f	2004/08/14 00:10:56	7.77
--- rdparm.f	2004/12/02 18:59:54
***************
*** 810,816 ****
     
     !     ----- SCALE THE CHARGES IF DIELC.GT.1.0E0 -----
     
!    if (dielc /= 1.0e0) then
        dumd = sqrt(dielc)
        do i = 1,natom
           x(i+l15-1) = x(i+l15-1)/dumd
--- 810,816 ----
     
     !     ----- SCALE THE CHARGES IF DIELC.GT.1.0E0 -----
     
!    if (dielc /= 1.0e0 .and. igb == 0) then
        dumd = sqrt(dielc)
        do i = 1,natom
           x(i+l15-1) = x(i+l15-1)/dumd
----------------------------------------------------------------------------
Temporary workaround: Don't set the dielc variable when GB is also set.