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
!-----------------------------------------------------------------------------
' nstart_seq=',nstart_seq,' nstart_sup',nstart_sup
write (iout,'(/a/)') 'Initial energies:'
call geom_to_var(nvar,varia)
+ write(iout,*) 'Warning: Calling chainbuild'
call chainbuild
call etotal(energia)
etot=energia(0)
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)