projects
/
unres.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Zmiany w potencjalach
[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