[u/mrichter/AliRoot.git] / PYTHIA6 / tpythia6_called_from_cc.F

c-------------------------------------------------------------------------------
c  Jul 02 1998 P.Murat: routines to be called from C++ side
c-------------------------------------------------------------------------------
      subroutine tpythia6_open_fortran_file(lun, name)
      implicit none
      integer lun
      character*(*) name

      open (lun, file=name)
      return
      end

      subroutine tpythia6_close_fortran_file(lun)
      implicit none
      integer lun
      close (lun)
      return
      end
Commit	Line	Data
952cc209	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