+PATCH,//MY_INCLUDE_W19/PYTHIA
+DECK,atpyini,IF=PYTHIA,PYTHIA6.
*CMZ :          23/01/98  14.18.17  by  Dugan C ONeil
*CMZ :  2.70/00 21/05/97  18.44.50  by  Antonio Amorim
*CMZU:  0.31/00 11/02/95  17.03.20  by  Antonio Amorim LIP/CFNUL
*-- Author :    A. Amorim FCUL/LIP LISBOA   06/04/94

           SUBROUTINE ATPYINI
*                                                                      *
*----------------------------------------------------------------------*
*                                                                      *
* Name : $DECK                                                       $#*
*        (module)                                                      *
*                                                                      *
* Description :                                                        *
*        [description]                                                 *
*                                                                      *
* Arguments   :                                                        *
*        [name]  ([in | out | in/out])      [description]              *
*                                                                      *
* Banks/Tables:                                                        *
*        [name]  ([filled | used | modified])                          *
*                                                                      *
*----------------------------------------------------------------------*
*                                                                      *
* Author : $AUTHOR                          $#Date : $DATE           $#*
*                                                                      *
*                                                                      *
* Last modifications :                                                 *
*        [name]                               Date : [date]            *
*                                                                      *
* Keywords :                                                           *
*        [keywords]                                                    *
*----------------------------------------------------------------------*
*
*+CDE, TYPING.
+CDE,PYSUBS,PYPARS,LUDAT2,LUDAT3,LUDATR,PYINT5,LUJETS,LUDAT1.
+CDE,ATGKEEP.
C ----------- end CDE --------------------------------------------------
*
*

           EXTERNAL PYDATA
+SELF,IF=PYTHIA.
           EXTERNAL LUDATA
+SELF.
           CHARACTER*4 CFRA,CBEA(2)
           LOGICAL FIRST
           DATA FIRST/.TRUE./
+SELF,IF=PYTHIA6.
           DOUBLE PRECISION ECM6
+SELF.
C Convert Hollerith stuff from FFREAD to character:
           IF (FIRST) THEN
           FIRST=.FALSE.
           CALL UHTOC(JFRAME,4,CFRA,4)
           CALL UHTOC(JBEAME(1),4,CBEA(1),4)
           CALL UHTOC(JBEAME(2),4,CBEA(2),4)
+SELF,IF=PYTHIA.
           MRLU(1)=RNDM
           CALL PYINIT(CFRA,CBEA(1),CBEA(2),ECM)
+SELF,IF=PYTHIA6.
ccc
           call pyupin(195,'Dugans dummy process',6.334D-04)
ccc
           MRPY(1)=RNDM
           ECM6=ECM
           CALL PYINIT(CFRA,CBEA(1),CBEA(2),ECM6)
+SELF.
           END IF

           IF(IPDTAB.NE.0) THEN
             IF(IPDTAB.EQ.2) THEN
+SELF,IF=PYTHIA.
                 CALL LULIST(13)
+SELF,IF=PYTHIA6.
                 CALL PYLIST(13)
+SELF.
             ELSE IF (IPDTAB.EQ.3) THEN
+SELF,IF=PYTHIA.
                 CALL LULIST(11)
+SELF,IF=PYTHIA6.
                 CALL PYLIST(11)
+SELF.
             ELSE IF (IPDTAB.EQ.4) THEN
+SELF,IF=PYTHIA.
                 CALL LULIST(11)
                 CALL LULIST(12)
+SELF,IF=PYTHIA6.
                 CALL PYLIST(11)
                 CALL PYLIST(12)
+SELF.
             ELSE IF (IPDTAB.EQ.5) THEN
+SELF,IF=PYTHIA.
                 CALL LULIST(11)
                 CALL LULIST(12)
                 CALL LULIST(13)
+SELF,IF=PYTHIA6.
                 CALL PYLIST(11)
                 CALL PYLIST(12)
                 CALL PYLIST(13)
+SELF.
             ELSE
+SELF,IF=PYTHIA.
                 CALL LULIST(12)
+SELF,IF=PYTHIA6.
                 CALL PYLIST(12)
+SELF.
             END IF
           CALL PYSTAT(4)
           CALL PYSTAT(5)
           END IF
C
           RETURN
           END