X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M-SAXS-homology%2Fgradient_p.F;h=75192e9341c1b724fbdcf27874d0fe52d5881788;hb=34d3ad3987785642be58fb2f26557d3314215577;hp=a9c0cc4ff713ea719f9b24167a69866c40cfeeb7;hpb=f690e8b70bab14132839afebf080d4a28363b226;p=unres.git

diff --git a/source/unres/src_MD-M-SAXS-homology/gradient_p.F b/source/unres/src_MD-M-SAXS-homology/gradient_p.F
index a9c0cc4..75192e9 100644
--- a/source/unres/src_MD-M-SAXS-homology/gradient_p.F
+++ b/source/unres/src_MD-M-SAXS-homology/gradient_p.F
@@ -11,7 +11,7 @@
       external ufparm
       integer uiparm(1)
       double precision urparm(1)
-      dimension x(maxvar),g(maxvar)
+      dimension x(n),g(n)
 c
 c This subroutine calculates total internal coordinate gradient.
 c Depending on the number of function evaluations, either whole energy