********>Bugfix 7:
Author: Kateryna Miroshnychenko
Date: 07/10/2006

Programs: ambmask

Description: There is a bad conversion from input charges to internal charge
             units.

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

------------------------------------------------------------------------------
*** ambmask.f	2006-04-04 02:35:54.000000000 +0300
--- ambmask.f	2006-07-10 16:15:48.000000000 +0300
***************
*** 262,268 ****
     type = 'CHARGE'
     call nxtsec(nf,  6,  0,fmtin,  type,  fmt,  iok)
     read(nf,fmt) (chg(i), i=1,natom)
!    chg(1:i) = chg(1:i)*INV_AMBER_ELECTROSTATIC
  
     if( iok.eq.-1 ) then   ! this is an old-style prmtop file
        ! old style prmtop has to be read sequentially, even though
--- 262,268 ----
     type = 'CHARGE'
     call nxtsec(nf,  6,  0,fmtin,  type,  fmt,  iok)
     read(nf,fmt) (chg(i), i=1,natom)
!    chg(1:natom) = chg(1:natom)*INV_AMBER_ELECTROSTATIC
  
     if( iok.eq.-1 ) then   ! this is an old-style prmtop file
        ! old style prmtop has to be read sequentially, even though
  
------------------------------------------------------------------------------

Temporary workarounds: none