********>bugfix.14:
Author: Ross Walker
Date: 2/6/2009

Programs: sander

Description: Some missing initialization statements can cause allocation
             failures on some machines when running QMMM.

Apply the following patch to $AMBERHOME/src/sander/qmmm_module.f
                             $AMBERHOME/src/sander/qm2_scf.f

------------------------------------------------------------------------------
--- qmmm_module.f	2009-02-06 06:47:37.000000000 -0800
+++ qmmm_module.f	2009-02-06 06:52:09.000000000 -0800
@@ -1391,6 +1391,11 @@
       qmmm_struct%nquant = i-1
 
    end if
+
+!Initialize nlink to 0
+   qmmm_struct%nlink = 0
+   qmmm_struct%nquant_nlink = qmmm_struct%nquant
+
 #endif
 
 ! Test to see if QM atom selection is legal.
--- qm2_scf.f	2009-02-06 06:53:48.000000000 -0800
+++ qm2_scf.f	2009-02-06 06:55:20.000000000 -0800
@@ -106,9 +106,10 @@
     allow_pseudo_diag = .false.
     pseudo_converged = .false.
     eold = zero
-    energy_diff=zero
-    smallest_energy_diff(1) = 1.0E30
-    smallest_energy_diff(2) = 1.0E30
+    energy_diff = huge(energy_diff)
+    density_diff = huge(density_diff)
+    smallest_energy_diff(1) = huge(smallest_energy_diff(1))
+    smallest_energy_diff(2) = huge(smallest_energy_diff(2))
     sm_energy_diff_step_number = 0
 
     if (qmmm_nml%verbosity > 2 .and. qmmm_mpi%commqmmm_master) then
------------------------------------------------------------------------------
Temporary workarounds: None