wham and cluster_wham Adam's new constr_dist multichain
[unres.git] / source / unres / src_MD-M / add.f
1       SUBROUTINE ABRT
2       STOP 'IN ABRT'
3       END     
4 C*MODULE MTHLIB  *DECK VCLR
5       SUBROUTINE VCLR(A,INCA,N)
6 C
7       IMPLICIT DOUBLE PRECISION(A-H,O-Z)
8 C
9       DIMENSION A(*)
10 C
11       PARAMETER (ZERO=0.0D+00)
12 C
13 C     ----- ZERO OUT VECTOR -A-, USING INCREMENT -INCA- -----
14 C
15       IF (INCA .NE. 1) GO TO 200
16       DO 110 L=1,N
17          A(L) = ZERO
18   110 CONTINUE
19       RETURN
20 C
21   200 CONTINUE
22       LA=1-INCA
23       DO 210 L=1,N
24          LA=LA+INCA
25          A(LA) = ZERO
26   210 CONTINUE
27       RETURN
28       END