********>Bugfix.35:
Author: Bob Duke
Date: 02/23/2005

Programs: pmemd

Description: The Portland Group compiler is picky about variable declarations.

Fix:  apply the following patch to amber8/src/pmemd/src/nmr_calls.f90

------------------------------------------------------------------------------
*** nmr_calls.f90	2005/01/21 17:15:08	1.4
--- nmr_calls.f90	2005/02/23 15:48:19
***************
*** 3428,3434 ****
    double precision  e
    integer           i
    integer           iave
!   integer           ierr
    integer           ifirst
    integer           incflg(3)
    integer           inum(3)
--- 3428,3434 ----
    double precision  e
    integer           i
    integer           iave
!   integer           ierr_nmr
    integer           ifirst
    integer           incflg(3)
    integer           inum(3)
***************
*** 3469,3475 ****
  ! and this is the first call to nmrnrg, open the appropriate file:
  
    if (master .and. ifirst .eq. 1 .and. iredir(6) .gt. 0) &
!     call opnmrg(redir(6)(1:iredir(6)), idumpu, 0, iout, ierr)
  
  ! Zero the accumulators:
  
--- 3469,3475 ----
  ! and this is the first call to nmrnrg, open the appropriate file:
  
    if (master .and. ifirst .eq. 1 .and. iredir(6) .gt. 0) &
!     call opnmrg(redir(6)(1:iredir(6)), idumpu, 0, iout, ierr_nmr)
  
  ! Zero the accumulators:
  
------------------------------------------------------------------------------

Workarounds: none