get tables from the aliroot directory if they are not in the current one
[u/mrichter/AliRoot.git] / HERWIG / herwig6_called_from_cc.f
CommitLineData
d909f169 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