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