HERWIG/herwig6_called_from_cc.f

   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