[u/mrichter/AliRoot.git] / GEANT321 / erdecks / erpini.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 15:37:35  mclareni
* Add geane321 source directories
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.49  by  S.Giani
*-- Author :
      SUBROUTINE ERPINI
*
C.    ******************************************************************
C.    *                                                                *
C.    *       Initializes the error propagation                        *
C.    *                                                                *
C.    *    ==>Called by : ERTRAK                                       *
C.    *       Author    E.Nagy  *********                              *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gckine.inc"
#include "geant321/gctrak.inc"
#include "geant321/gcunit.inc"
#include "geant321/erwork.inc"
#include "geant321/ertrio.inc"
*
      DIMENSION DUMM(15)
*
* *** Starting point
*
      DO 11 I = 1,3
         XI(I) = VECT(I)
         PPI(I) = VECT(7)*VECT(3+I)
   11 CONTINUE
*
* *** Initialize tracking
*
      MVAR   = 0
      IFLAG  =-1
      ITRAN  = 0
      CALL TRPROP (XI, PPI, HI, DUM, DUM, HI, CHTR, DUM, DUMM,
     &            MVAR, IFLAG, ITRAN, IERR)
      IF (IERR.NE.0) THEN
         WRITE (LOUT, 777) IERR
         RETURN
      ENDIF
      DO 13 I = 1,15
         EF(I) = EI(I)
   13 CONTINUE
*
  777 FORMAT(//4X,' **** Error in subr. TRPROP',I4,'  called by'
     F     ,' subr. ERPINI'//)
*
       END
Commit	Line	Data
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	*
	14	C. ******************************************************************
	15	C. * *
	16	C. * Initializes the error propagation *
	17	C. * *
	18	C. * ==>Called by : ERTRAK *
	19	C. * Author E.Nagy ********* *
	20	C. * *
	21	C. ******************************************************************
	22	C.
	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