Back to home page

Project CMSSW displayed by LXR

 
 

    


File indexing completed on 2021-02-14 13:07:24

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