This routine smears the track parameters in TPAR according to the error matrix ERRARR (with a 5-dim gaussian).
TYPSUR : CHARACTER - type of surface to wich track should be propagated 'CYL' : Cylinder 'PLANE' : Plane 'PERI' : To perigee CGIVEN : Cooridinate where TPAR is given (R or z depending on TYPSUR). Ignored if TYPSUR = PERI TPAR & ERRARR : true TKR parameters with error matrix (weight matrix if parameters are at the perigee, else covariance matrix)
PAR : smeared TKR parameters. ERROR : error flag : 0 - no error 1 - intersection with cylinder just outside the requested one in z. Parameters on this cylinder returned instead. 2 - no intersection, perigee parameters returned 3 - other error, no parameters returned
none
none
(To get a GAUSsian random numbers.)
(To bring angle In the range 0 to 2PI.)
(To bring angle IN the range 0 to PI.)
(To invert a matrix (5X5))