New valence-torsionals completed

[unres.git] / source / unres / src_MD-M / minimize_p.F

diff --git a/source/unres/src_MD-M/minimize_p.F b/source/unres/src_MD-M/minimize_p.F
index 326c02d..ef24c0c 100644 (file)
--- a/source/unres/src_MD-M/minimize_p.F
+++ b/source/unres/src_MD-M/minimize_p.F
@@ -263,7 +263,7 @@ c     endif
 cd      print *,'func',nf,nfl,icg
       call var_to_geom(n,x)
       call zerograd
-      call chainbuild
+      call chainbuild_extconf
 cd    write (iout,*) 'ETOTAL called from FUNC'
       call etotal(energia(0))
       call sum_gradient
@@ -297,7 +297,7 @@ c     endif
       icg=mod(nf,2)+1
       call var_to_geom_restr(n,x)
       call zerograd
-      call chainbuild
+      call chainbuild_extconf
 cd    write (iout,*) 'ETOTAL called from FUNC'
       call etotal(energia(0))
       call sum_gradient