Minor changes
[u/mrichter/AliRoot.git] / PYTHIA6 / tpythia6_called_from_cc.F
CommitLineData
952cc209 1c-------------------------------------------------------------------------------
2c Jul 02 1998 P.Murat: routines to be called from C++ side
3c-------------------------------------------------------------------------------
4 subroutine tpythia6_open_fortran_file(lun, name)
5 implicit none
6 integer lun
7 character*(*) name
8
9 open (lun, file=name)
10 return
11 end
12
13 subroutine tpythia6_close_fortran_file(lun)
14 implicit none
15 integer lun
16 close (lun)
17 return
18 end
19
20