X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fsrc%2Fadd.f;fp=source%2Funres%2Fsrc_MD%2Fsrc%2Fadd.f;h=0000000000000000000000000000000000000000;hb=0a11a2c4ccee14ed99ae44f2565b270ba8d4bbb6;hp=fd91a703b9e3d6cfcc5fe300263658f464e23298;hpb=5eb407964903815242c59de10960f42761139e10;p=unres.git

diff --git a/source/unres/src_MD/src/add.f b/source/unres/src_MD/src/add.f
deleted file mode 100644
index fd91a70..0000000
--- a/source/unres/src_MD/src/add.f
+++ /dev/null
@@ -1,28 +0,0 @@
-      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