Geant4  10.02.p03
mztog4.F File Reference
#include "G3toG4.inc"
Include dependency graph for mztog4.F:

Go to the source code of this file.

Functions/Subroutines

subroutine mztog4
 

Function/Subroutine Documentation

◆ mztog4()

subroutine mztog4 ( )

Definition at line 30 of file mztog4.F.

30 ************************************************************************
31 *
32 * mztog4
33 *
34 * Within a Geant3 program, call this routine to perform conversion
35 * to Geant4 on G3 data structures in memory.
36 *
37 *... History:
38 * 15-Jan-1997 Lockman : Put tog4 in a separate file
39 ************************************************************************
40  implicit none
41 #include "G3toG4.inc"
42 *
43 *** conversion initialization
44  dogeom = .false.
45  context = '----'
46  lunlist = 98
47  open(unit=lunlist,file='g3calls.dat',status='unknown')
48  luncode = 99
49  nfile = 1
50  call g3source
51 *
52 *** do conversion
53  call tog4
54 *
TFile * file
subroutine g3source
Definition: g3tog4.F:148
subroutine tog4
Definition: tog4.F:30
Here is the call graph for this function: