5 * Revision 1.1.1.1 1995/10/24 10:21:08 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.38 by S.Giani
13 C *** VARIOUS VECTOR OPERATIONS ***
15 C COPIED FROM F14BLO.PAMLIB 23.4.82
16 C AUTHOR: V.BLOBEL (UNIVERSITY OF HAMBURG)
19 C *** BLANK COMMON REPLACED BY /VECUTY/ TO MATCH GEANT/GHEISHA CODE ***
20 C *** NOTE THAT P(10,100) HAS BECOME PV(10,200) DUE TO THIS ***
22 C UN-USED ENTRIES REMOVED :
23 C "PCOP" "PEXC" "PZER" "PWRT" "DOT4" "IMPU" "IMPULI" "ADD3"
24 C "SUB3" "CROSS" "DOT" "SMUL" "NORZ" "PARPER" "PUNIT" "TRAP"
26 C *** ALL ENTRIES RE-WRITTEN AS SUBROUTINES USING ONLY NECESSARY ***
27 C *** "DOUBLE PRECISION" STMTS. AND ALL SPECIFIC FUNCTIONS HAVE ***
28 C *** BEEN CHANGED TO THEIR GENERIC EQUIVALENCES ***
29 C *** NVE 29-MAR-1988 CERN GENEVA ***
31 C ORIGIN : H.FESEFELDT (22-JUNE-1984)
33 SUBROUTINE TRAC(K,L,M)
36 #include "geant321/mxgkgh.inc"
37 #include "geant321/s_blankp.inc"
39 DOUBLE PRECISION B,G(3)