parallel/TopC/ParN04/pythia_main.f File Reference

Go to the source code of this file.

Functions/Subroutines
program	__pythia_main.f__
subroutine	hep2g4

Function/Subroutine Documentation

__pythia_main.f__()

program __pythia_main.f__

(

)

Definition at line 7 of file parallel/TopC/ParN04/pythia_main.f.

Here is the call graph for this function:

hep2g4()

subroutine hep2g4

(

)

Definition at line 67 of file parallel/TopC/ParN04/pythia_main.f.

*
* Output /HEPEVT/ event structure to G4HEPEvtInterface
*
* M.Asai (asai@kekvax.kek.jp)  --  24/09/96
*
***********************************************************
      parameter(nmxhep=2000)
      common/hepevt/nevhep,nhep,isthep(nmxhep),idhep(nmxhep),
     >jmohep(2,nmxhep),jdahep(2,nmxhep),phep(5,nmxhep),vhep(4,nmxhep)
      DOUBLE PRECISION phep,vhep
*
      WRITE(6,*) nhep
      DO ihep=1,nhep
       WRITE(6,10) 
     >  isthep(ihep),idhep(ihep),jdahep(1,ihep),jdahep(2,ihep),
     >  phep(1,ihep),phep(2,ihep),phep(3,ihep),phep(5,ihep)
10    FORMAT(4i5,4(1x,d15.8))
      ENDDO
*
      RETURN

Here is the call graph for this function:

Here is the caller graph for this function: