Gabriele Cosmo
39 lines
1.1 KiB
FortranFixed
39 lines
1.1 KiB
FortranFixed
* This code implementation is the intellectual property of
|
|
* the GEANT4 collaboration.
|
|
*
|
|
* By copying, distributing or modifying the Program (or any work
|
|
* based on the Program) you indicate your acceptance of this statement,
|
|
* and all its terms.
|
|
*
|
|
* $Id: mztog4.F,v 1.2 1999/12/05 17:50:17 gcosmo Exp $
|
|
* GEANT4 tag $Name: geant4-03-00 $
|
|
*
|
|
subroutine mztog4
|
|
************************************************************************
|
|
*
|
|
* mztog4
|
|
*
|
|
* Within a Geant3 program, call this routine to perform conversion
|
|
* to Geant4 on G3 data structures in memory.
|
|
*
|
|
*... History:
|
|
* 15-Jan-1997 Lockman : Put tog4 in a separate file
|
|
************************************************************************
|
|
implicit none
|
|
#include "G3toG4.inc"
|
|
*
|
|
*** conversion initialization
|
|
dogeom = .false.
|
|
context = '----'
|
|
lunlist = 98
|
|
open(unit=lunlist,file='g3calls.dat',status='unknown')
|
|
luncode = 99
|
|
nfile = 1
|
|
call g3source
|
|
*
|
|
*** do conversion
|
|
call tog4
|
|
*
|
|
end
|
|
*
|