X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M-newcorr%2Fadd.f;fp=source%2Funres%2Fsrc_MD-M-newcorr%2Fadd.f;h=fd91a703b9e3d6cfcc5fe300263658f464e23298;hb=d101c97dea752458d76055fdbae49c26fff03c1f;hp=0000000000000000000000000000000000000000;hpb=325eda160c9ad2982501e091ca40606a29043712;p=unres.git

diff --git a/source/unres/src_MD-M-newcorr/add.f b/source/unres/src_MD-M-newcorr/add.f
new file mode 100644
index 0000000..fd91a70
--- /dev/null
+++ b/source/unres/src_MD-M-newcorr/add.f
@@ -0,0 +1,28 @@
+      SUBROUTINE ABRT
+      STOP 'IN ABRT'
+      END     
+C*MODULE MTHLIB  *DECK VCLR
+      SUBROUTINE VCLR(A,INCA,N)
+C
+      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
+C
+      DIMENSION A(*)
+C
+      PARAMETER (ZERO=0.0D+00)
+C
+C     ----- ZERO OUT VECTOR -A-, USING INCREMENT -INCA- -----
+C
+      IF (INCA .NE. 1) GO TO 200
+      DO 110 L=1,N
+         A(L) = ZERO
+  110 CONTINUE
+      RETURN
+C
+  200 CONTINUE
+      LA=1-INCA
+      DO 210 L=1,N
+         LA=LA+INCA
+         A(LA) = ZERO
+  210 CONTINUE
+      RETURN
+      END