Merge branch 'devel' into feature-ga

[unres.git] / source / unres / src_MD / src / add.f

diff --git a/source/unres/src_MD/src/add.f b/source/unres/src_MD/src/add.f
deleted file mode 100644 (file)
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