********> bugfix.10
Author:   Dave Case
Date:     5/05/02

Programs: nmode

Severity: Moderate

Description: nmode exits with a return code of 0 (rather than 1) when there
         is insufficient memory.  This mainly impacts mm_pbsa, which uses
         this code to determine success of failure of the nmode run.

Fix: Make the following change to amber7/src/nmode/alloc.f
-----------------------------------------------------------------------------
*** alloc.f	2001/09/18 21:01:30	7.1
--- alloc.f	2002/05/05 18:09:49
***************
*** 285,299 ****
        if(memusd_x .gt. memlimx) then 
            write(6,'(''increase the real memory by '',i10,'' words'')')
       -             (memusd_x-memlimx)
!           call exit
        endif
        if(memusd_i .gt. memlimi) then 
            write(6,'(''increase the int memory by '',i10,'' words'')')
       -             (memusd_i-memlimi)
!           call exit
        endif
  
  !         print *,'mkpvt', mkpvt
!       if(nbmax .le. 0 ) stop
        return 
        end
--- 285,303 ----
        if(memusd_x .gt. memlimx) then 
            write(6,'(''increase the real memory by '',i10,'' words'')')
       -             (memusd_x-memlimx)
!           call mexit(6,1)
        endif
        if(memusd_i .gt. memlimi) then 
            write(6,'(''increase the int memory by '',i10,'' words'')')
       -             (memusd_i-memlimi)
!           call mexit(6,1)
        endif
  
  !         print *,'mkpvt', mkpvt
!       if(nbmax .le. 0 ) then
!           write(6, '(''nbmax < 0 in alloc.f'')')
!           call mexit(6,1)
!       end if
! 
        return 
        end
-----------------------------------------------------------------------------

Workarounds: none.

Files affected:  amber7/src/nmode/alloc.f