use io_units
use geometry_data
use energy_data
-#ifndef WHAM_RUN
+#if .not. defined WHAM_RUN && .not. defined CLUSTER
use minim_data, only: maxfun,rtolf
#endif
implicit none
contains
-#ifndef WHAM_RUN
+#if .not. defined WHAM_RUN && .not. defined CLUSTER
!-----------------------------------------------------------------------------
! regularize.F
!-----------------------------------------------------------------------------
10 c(i,j)=c(i,j)+a(i,k)*b(k,j)
return
end subroutine mmmul
-#ifndef WHAM_RUN
+#if .not. defined WHAM_RUN || .not. defined CLUSTER
!-----------------------------------------------------------------------------
subroutine matvec(uvec,tmat,pvec,nback)