sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-03 08:21:29
0001 c------------------------------------------------------------------------------- 0002 c Jul 02 1998 P.Murat: routines to be called from C++ side 0003 c------------------------------------------------------------------------------- 0004 subroutine tpythia6_open_fortran_file(lun, name) 0005 implicit none 0006 integer lun 0007 character*(*) name 0008 0009 open (lun, file=name) 0010 return 0011 end 0012 0013 subroutine tpythia6_close_fortran_file(lun) 0014 implicit none 0015 integer lun 0016 close (lun) 0017 return 0018 end 0019 0020
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|