tpythia6_called_from_cc.F

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file 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