X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-HCD%2Finclude_unres%2FCOMMON.DERIV;h=9b47a7395409b3e25e3ae660aa97740180a8a5f1;hb=57038e4bdff4cc9534106b25bfbd4b9a844d47fd;hp=f1f5db5a29b28070a08ae86290c833435a703d31;hpb=32caa3b64eb94b90fa9fd402b77263ea89efffa1;p=unres.git

diff --git a/source/cluster/wham/src-HCD/include_unres/COMMON.DERIV b/source/cluster/wham/src-HCD/include_unres/COMMON.DERIV
index f1f5db5..9b47a73 100644
--- a/source/cluster/wham/src-HCD/include_unres/COMMON.DERIV
+++ b/source/cluster/wham/src-HCD/include_unres/COMMON.DERIV
@@ -15,7 +15,9 @@
      & gdfad,gdfat,gdfan,gdfab
       integer nfl,icg
       logical calc_grad
-      common /derivat/ dcdv(6,maxdim),dxdv(6,maxdim),dxds(6,maxres),
+c      common /derivat/ dcdv(6,maxdim),dxdv(6,maxdim),dxds(6,maxres),
+c 3/12/20 Adam:  Arrays dcdv, dxdv, and dxds removed following recoding of gradient.
+      common /derivat/
      & gradx(3,-1:maxres,2),gradc(3,-1:maxres,2),gvdwx(3,-1:maxres),
      & gvdwc(3,-1:maxres),gelc(3,-1:maxres),gelc_long(3,-1:maxres),
      & gvdwpp(3,-1:maxres),gvdwc_scpp(3,-1:maxres),