X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=inline;f=source%2Funres%2Fsrc_CSA%2Fenergy_p_new_barrier.F;h=015a2b336105ccc536cdc923bb4ef29221101c3c;hb=0bc26432861b8aa8fb7cb98becda4da4f0ae8b48;hp=821d8f7491e1cd612083988ff9702f40970c4a2d;hpb=b0afc942699ed3c410a4b648c0cd8f51612c8a5a;p=unres.git

diff --git a/source/unres/src_CSA/energy_p_new_barrier.F b/source/unres/src_CSA/energy_p_new_barrier.F
index 821d8f7..015a2b3 100644
--- a/source/unres/src_CSA/energy_p_new_barrier.F
+++ b/source/unres/src_CSA/energy_p_new_barrier.F
@@ -8133,7 +8133,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