Geant4  9.6.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
g4dpmjet_open_nuclear_bin.f
Go to the documentation of this file.
1  subroutine g4dpmjet_open_nuclear_bin (namelen, unit,
2  + opened, filename)
3 
4  character*(*) filename
5  integer namelen
6  integer unit
7  logical opened
8 C
9 C ------------------------------------------------------------------------------
10 C
11  opened = .true.
12 C write (6,'(A)') filename(1:namelen)
13 C close (6)
14  open (unit=unit, file=filename(1:namelen), status="OLD",
15  + form="UNFORMATTED", err=1010)
16 
17  return
18 
19  1010 opened = .false.
20  return
21 
22  end
23