This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gheisha / add3.F
1 C *** VARIOUS VECTOR OPERATIONS ***
2 C
3 C COPIED FROM F14BLO.PAMLIB 23.4.82
4 C AUTHOR: V.BLOBEL (UNIVERSITY OF HAMBURG)
5 C DESYLIB
6 C
7 C *** BLANK COMMON REPLACED BY /VECUTY/ TO MATCH GEANT/GHEISHA CODE ***
8 C *** NOTE THAT P(10,100) HAS BECOME PV(10,200) DUE TO THIS         ***
9 C
10 C UN-USED ENTRIES REMOVED :
11 C     "PCOP" "PEXC" "PZER" "PWRT" "DOT4" "IMPU" "IMPULI" "ADD3"
12 C     "SUB3" "CROSS" "DOT" "SMUL" "NORZ" "PARPER" "PUNIT" "TRAP"
13 C
14 C *** ALL ENTRIES RE-WRITTEN AS SUBROUTINES USING ONLY NECESSARY ***
15 C *** "DOUBLE PRECISION" STMTS. AND ALL SPECIFIC FUNCTIONS HAVE  ***
16 C *** BEEN CHANGED TO THEIR GENERIC EQUIVALENCES                 ***
17 C *** NVE 29-MAR-1988 CERN GENEVA ***
18 C
19 C ORIGIN : H.FESEFELDT (22-JUNE-1984)
20 C
21       SUBROUTINE ADD3(K,L,M)
22 C
23 C --- PV-ARRAY ---
24 #include "geant321/mxgkgh.inc"
25 #include "geant321/s_blankp.inc"
26 C
27       DOUBLE PRECISION A
28 C
29       DO 2 I=1,3
30       A=PV(I,K)+PV(I,L)
31       PV(I,M)=A
32     2 CONTINUE
33       RETURN
34       END