Project CMSSW displayed by LXR |
|
|
|
|||
File indexing completed on 2024-04-06 12:13:55
0001 0002 SUBROUTINE FIOOPN(UNIT, EVFILE) 0003 INTEGER UNIT 0004 CHARACTER*(*) EVFILE 0005 0006 C Open file for reading 0007 OPEN(UNIT, FILE=EVFILE, STATUS='UNKNOWN') 0008 0009 END 0010 0011 SUBROUTINE FIOOPNW(UNIT, EVFILE) 0012 INTEGER UNIT 0013 CHARACTER*(*) EVFILE 0014 0015 C Open file for writing. (Replace if already exists !) 0016 CLOSE(UNIT) 0017 OPEN(UNIT, FILE=EVFILE, STATUS='UNKNOWN') 0018 0019 END 0020 0021 SUBROUTINE FIOCLS(UNIT) 0022 INTEGER UNIT 0023 0024 CLOSE(UNIT) 0025 0026 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.2.1 LXR engine. The LXR team |
|