]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 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 |