********>Bugfix 4:
Author: Dave Case
Date: 3/28/02

Programs: protonate

Severity: minor

Description: the default location for the PROTON_INFO file is wrong

Fix:  apply the following patch to amber7/src/protonate/protonate.f

------------------------------------------------------------------------------

*** protonate.f 2001/07/26 16:23:58     7.3
--- protonate.f 2002/03/28 20:48:49
***************
*** 300,306 ****
        call getenv( 'AMBERHOME', datafile )
        lendf = len_trim( datafile )
        if (lendf.gt.0 ) then
!         datafile = datafile(1:lendf) // '/PROTON_INFO'
        else
          datafile = 'PROTON_INFO'
        end if
--- 300,306 ----
        call getenv( 'AMBERHOME', datafile )
        lendf = len_trim( datafile )
        if (lendf.gt.0 ) then
!         datafile = datafile(1:lendf) // '/dat/PROTON_INFO'
        else
          datafile = 'PROTON_INFO'
        end if

------------------------------------------------------------------------------

Temporary workarounds:  use the "-d" switch to manually point to the file

Files affected:  amber7/src/protonate/protonate.f