corrections to changes form nostromo
[unres.git] / source / unres / src_MD / energy_p_new_barrier.F
index dcdd311..f40a993 100644 (file)
@@ -6025,7 +6025,7 @@ c
 c
 
 
-      do i=1,19
+      do i=1,max_template
         distancek(i)=9999999.9
       enddo