[u/mrichter/AliRoot.git] / HERWIG / herwig6_called_from_cc.f


      subroutine herwig6_open_fortran_file(lun, name)
      implicit none
      integer lun
      character*(*) name

      open (lun, file=name)
      return
      end

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