********>Bugfix 33:
Author: Dave Case, bug reported by Jesus Angulo
Date: 03/07/2007

Programs: sander

Description: The code will not compile correctly when -DHAS_10_12 is set.
             
Fix: Apply the following patches to src/sander/short_ene.f and egb.f
 
------------------------------------------------------------------------------

*** short_ene.f	3 Apr 2006 23:35:55 -0000	9.0
--- short_ene.f	7 Mar 2007 17:58:59 -0000
***************
*** 1000,1006 ****
        eelt,epol,evdw,ehb,frc,field,dir_vir, &
        ee_type,eedmeth,dxdr,eedvir)
     use nblist, only: bckptr,imagcrds,tranvec
!    use constants, only : zero, one, two, three, five, six, twelve, third, half
     implicit none
     _REAL_ xk,yk,zk
     integer i,numvdw,numtot
--- 1000,1007 ----
        eelt,epol,evdw,ehb,frc,field,dir_vir, &
        ee_type,eedmeth,dxdr,eedvir)
     use nblist, only: bckptr,imagcrds,tranvec
!    use constants, only : zero, one, two, three, five, six, twelve, third,  &
!                          half, ten
     implicit none
     _REAL_ xk,yk,zk
     integer i,numvdw,numtot

*** egb.f	3 Apr 2006 23:35:54 -0000	9.0
--- egb.f	7 Mar 2007 17:59:18 -0000
***************
*** 171,177 ****
     use icosasurf, only : icosa_init, icosa_sphere_approx
     use decomp, only: decsasa, decpair
     use qmmm_module, only : qmmm_nml,qmmm_struct,qm2_struct, qm_gb
!    use parms, only: cn1,cn2
     use constants, only: zero, one, two, three, four, five, six, seven, & 
                          eight, nine, ten, eleven, twelve, half, third, &
                          fourth, eighth, pi, fourpi, alpb_alpha, &
--- 171,177 ----
     use icosasurf, only : icosa_init, icosa_sphere_approx
     use decomp, only: decsasa, decpair
     use qmmm_module, only : qmmm_nml,qmmm_struct,qm2_struct, qm_gb
!    use parms, only: cn1,cn2,asol,bsol
     use constants, only: zero, one, two, three, four, five, six, seven, & 
                          eight, nine, ten, eleven, twelve, half, third, &
                          fourth, eighth, pi, fourpi, alpb_alpha, &

------------------------------------------------------------------------------

Temporary workarounds: none