********>Bugfix 52:
Author: Bob Duke
Date: 10/12/2005

Programs: sander

Description: For regular ewald calculations, the user needs to be able to set
             the lastrst value, but this was overwritten in the original code.

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

------------------------------------------------------------------------------
*** sander.f	2005/08/24 19:24:40	7.208
--- sander.f	2005/10/12 17:36:01
***************
*** 712,718 ****
  
  #endif
  
!       if( igb == 0 ) then
  #ifndef PSANDER
           lastrst = sizffwrk + siz_q + natom*(4 + 6*order)
           if( mpoltype == 1 ) lastrst = lastrst + 3*order*natom
--- 712,720 ----
  
  #endif
  
!       if( igb == 0 .and. ew_type == 1 ) then
!         ! For regular ewald, user must set a value in mdin ctrl
!       else if( igb == 0 ) then
  #ifndef PSANDER
           lastrst = sizffwrk + siz_q + natom*(4 + 6*order)
           if( mpoltype == 1 ) lastrst = lastrst + 3*order*natom

-------------------------------------------------------------------------------
Temporary workaround: None.