GEANT321/erdecks/erpini.F

   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