update

[unres.git] / source / unres / src_MD-M-SAXS-homology / gradient_p.F

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 (file)
--- 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