]>
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 |