some gfortran warning fixes

[unres.git] / source / unres / src_MIN / energy_p_new_barrier.F

diff --git a/source/unres/src_MIN/energy_p_new_barrier.F b/source/unres/src_MIN/energy_p_new_barrier.F
index 3fcf739..96df440 100644 (file)
--- a/source/unres/src_MIN/energy_p_new_barrier.F
+++ b/source/unres/src_MIN/energy_p_new_barrier.F
@@ -8007,7 +8007,7 @@ c----------------------------------------------------------------------------
       include 'COMMON.GEO'
       logical swap
       double precision vv(2),pizda(2,2),auxmat(2,2),auxvec(2),
-     & auxvec1(2),auxvec2(1),auxmat1(2,2)
+     & auxvec1(2),auxvec2(2),auxmat1(2,2)
       logical lprn
       common /kutas/ lprn
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC