1 C *** VARIOUS VECTOR OPERATIONS ***
3 C COPIED FROM F14BLO.PAMLIB 23.4.82
4 C AUTHOR: V.BLOBEL (UNIVERSITY OF HAMBURG)
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 ***
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"
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 ***
19 C ORIGIN : H.FESEFELDT (22-JUNE-1984)
21 SUBROUTINE ADD3(K,L,M)
24 #include "geant321/mxgkgh.inc"
25 #include "geant321/s_blankp.inc"