TRISS debug
[unres.git] / source / unres / src_MD-M / ssMD.F
index f59466c..8b7f2a4 100644 (file)
@@ -1990,7 +1990,7 @@ c      integer itypi,itypj,k,l
       double precision ssA,ssB,ssC,ssXs
       double precision ssxm,ljxm,ssm,ljm
       double precision d_ssxm(1:3),d_ljxm(1:3),d_ssm(1:3),d_ljm(1:3)
-
+      if (dtriss.eq.0) return
       i=resi
       j=resj
       k=resk