********> bugfix.2
Author: J. Kottalam, updated by Bill Ross 5/3/95
Date:   4/12/95

Programs: sander

Severity: limited

Problem: crashing

Affects: Unicos 8.0.2  
Update:  This hack _breaks_ Unicos 8.0.3.2 so it is being commented out 
         in the source as of 5/3/95

Cause: vector compilation bug


Fix:  Make the following change to force.f or switch to Unicos 9.0

------------------------------------------------------------------
*** OLD force.f
--- NEW force.f	
***************
*** 577,582
  C
  C     ----- TRANSFER THE ENERGIES TO THE ARRAY ENER -----
  C
        DO 155 M = 1,10
        ENER(M) = ENE(M)
    155 CONTINUE

--- 577,586 -----
  C
  C     ----- TRANSFER THE ENERGIES TO THE ARRAY ENER -----
  C
+ c  Vectorizing this loop in Unicos version 8.0 results in a crash.
+ c  Unicos 9.0 is fine, but let us block vectorization always.
+ c  - Kottalam, CRI 4/6/95
+ cdir$ next scalar
        DO 155 M = 1,10
        ENER(M) = ENE(M)
    155 CONTINUE
------------------------------------------------------------------
Temporary workarounds: none

Routines affected: force