Geant4_10
g4dpmjet_open_fort6.f
Go to the documentation of this file.
1  subroutine g4dpmjet_open_fort6 (namelen, opened, filename)
2 
3  character*(*) filename
4  integer namelen
5  logical opened
6 C
7 C ------------------------------------------------------------------------------
8 C
9  opened = .true.
10  open (unit=6, file=filename(1:namelen), status="UNKNOWN",
11  & form="FORMATTED", err=1010)
12 
13  return
14 
15  1010 opened = .false.
16  return
17 
18  end
19 
subroutine g4dpmjet_open_fort6(namelen, opened, filename)
BasicVector3D< T > unit() const
TFile * file
int status
Definition: tracer.cxx:24