********> bugfix.3
Author: J. Kottalam
Date: 4/12/95

Programs: gibbs

Severity: limited

Problem: crashing on floating point violation

Affects: Cray shared-memory parallel version

Cause: bad array index in resnba


Fix:  Make the following change to machinedep.f

------------------------------------------------------------------
*** OLD machinedep.f
--- NEW machinedep.f
***************
*** 4144,4150
  #ifndef CRAY_MP
                       i_off = it_off + 8*i
  #else
!                      i_off = it_off + 9*i
  #endif
                       iar1(1,i) = itmp(i_off-7) 
                       iar1(2,i) = itmp(i_off-6)

--- 4144,4150 -----
  #ifndef CRAY_MP
                       i_off = it_off + 8*i
  #else
!                      i_off = it_off + 9*i - 1
  #endif
                       iar1(1,i) = itmp(i_off-7) 
                       iar1(2,i) = itmp(i_off-6)
------------------------------------------------------------------
Temporary workarounds: none

Routines affected: resnba