This commit was generated by cvs2svn to compensate for changes in r1831,
[u/mrichter/AliRoot.git] / PYTHIA6 / tpythia6_called_from_cc.F
1 c-------------------------------------------------------------------------------
2 c  Jul 02 1998 P.Murat: routines to be called from C++ side
3 c-------------------------------------------------------------------------------
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