Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / erdecks / erpini.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1996/03/06 15:37:35 mclareni
6* Add geane321 source directories
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.49 by S.Giani
11*-- Author :
12 SUBROUTINE ERPINI
13*
14C. ******************************************************************
15C. * *
16C. * Initializes the error propagation *
17C. * *
18C. * ==>Called by : ERTRAK *
19C. * Author E.Nagy ********* *
20C. * *
21C. ******************************************************************
22C.
23#include "geant321/gckine.inc"
24#include "geant321/gctrak.inc"
25#include "geant321/gcunit.inc"
26#include "geant321/erwork.inc"
27#include "geant321/ertrio.inc"
28*
29 DIMENSION DUMM(15)
30*
31* *** Starting point
32*
33 DO 11 I = 1,3
34 XI(I) = VECT(I)
35 PPI(I) = VECT(7)*VECT(3+I)
36 11 CONTINUE
37*
38* *** Initialize tracking
39*
40 MVAR = 0
41 IFLAG =-1
42 ITRAN = 0
43 CALL TRPROP (XI, PPI, HI, DUM, DUM, HI, CHTR, DUM, DUMM,
44 & MVAR, IFLAG, ITRAN, IERR)
45 IF (IERR.NE.0) THEN
46 WRITE (LOUT, 777) IERR
47 RETURN
48 ENDIF
49 DO 13 I = 1,15
50 EF(I) = EI(I)
51 13 CONTINUE
52*
53 777 FORMAT(//4X,' **** Error in subr. TRPROP',I4,' called by'
54 F ,' subr. ERPINI'//)
55*
56 END