*
* $Id: shocas.F,v 1.1.1.1 1996/01/11 14:14:42 mclareni Exp $
*
* $Log: shocas.F,v $
* Revision 1.1.1.1  1996/01/11 14:14:42  mclareni
* Cojets
*
*
#include "cojets/pilot.h"
      SUBROUTINE SHOCAS(N)
C     ********************
C-- LISTS CASCADE PARTICLES
#if defined(CERNLIB_SINGLE)
      IMPLICIT REAL (A-H,O-Z)
#endif
#if defined(CERNLIB_DOUBLE)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
#endif
#include "cojets/data2.inc"
#include "cojets/data3.inc"
#include "cojets/decpar.inc"
#include "cojets/itapes.inc"
#include "cojets/jet.inc"
      CHARACTER*5 C1,C2,C3
      WRITE(ITLIS,110)
      IF(N.EQ.0) RETURN
      DO 100 I=1,N
      C2=CHA2(K(I,2))
      C3=CHA3(1)
      IF(IDB(K(I,2)).EQ.0) C3=CHA3(2)
100   WRITE(ITLIS,130) I,K(I,1),C2,C3,(P(I,J),J=1,5)
      RETURN
110   FORMAT(//T11,1HI,T17,3HORI,T24,4HPART,T32,4HSTAB,
     *T44,2HPX,T56,2HPY,T68,2HPZ,T80,1HE,T92,1HM/)
130   FORMAT(8X,I4,2X,I5,2(4X,A4),5(3X,E9.3))
      END