Empirical cut to increase robustness
[u/mrichter/AliRoot.git] / HERWIG / herwig6_called_from_cc.f
1
2       subroutine herwig6_open_fortran_file(lun, name)
3       implicit none
4       integer lun
5       character*(*) name
6
7       open (lun, file=name)
8       return
9       end
10
11       subroutine herwig6_close_fortran_file(lun)
12       implicit none
13       integer lun
14       close (lun)
15       return
16       end
17
18