home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
gould3.zip
/
k.filec
< prev
next >
Wrap
Text File
|
2011-08-09
|
4KB
|
45 lines
C 0001.000
C K.FILECOM - File i/o common block definitions 0002.000
C 0003.000
OPTION 1+ 0004.000
INTEGER MAXFILE !maximum number of files 0005.000
INTEGER MAXCH !maximum number of characters/buf 0006.000
PARAMETER (MAXFILE=8, MAXCH=768) 0007.000
INTEGER EOF !eof flag 0008.000
INTEGER ERROR !error flag 0009.000
PARAMETER (EOF=-1, ERROR=-2) 0010.000
INTEGER CLOSED !closed file 0011.000
INTEGER RD !read only file 0012.000
INTEGER WR !write only file 0013.000
PARAMETER (CLOSED=0, RD=1, WR=2) 0014.000
INTEGER TAB !tab character 0015.000
INTEGER LF !lf character 0016.000
INTEGER CR !cr character 0017.000
INTEGER NEL !new line 0018.000
INTEGER BLANK !blank character 0019.000
PARAMETER (TAB=9, LF=10, CR=13, NEL=O'205', BLANK=32) 0020.000
INTEGER NOIO !none started, none completed 0021.000
INTEGER IOSTART !io started 0022.000
INTEGER IOCOMP !io complete 0023.000
PARAMETER (NOIO = 0, IOSTART=2, IOCOMP = 3) 0024.000
C 0025.000
CHARACTER*8 FNAME(MAXFILE) !file names 0026.000
INTEGER FMODE(MAXFILE) !current mode 0027.000
INTEGER*1 FCHBUF(MAXCH, MAXFILE) !character buffer 0028.000
INTEGER FCHPTR(MAXFILE) !buffer pointer 0029.000
INTEGER FCHCNT(MAXFILE) !count of characters in buffer 0030.000
LOGICAL FEOF(MAXFILE) !eof encountered 0031.000
LOGICAL CTDEV(MAXFILE) !device 0032.000
INTEGER FREQ(MAXFILE) !i/o request size 0033.000
INTEGER IOPEND(MAXFILE) !i/o pending 0034.000
INTEGER FBLK(4, MAXFILE) !dio parameter blocks 0035.000
LOGICAL NOWAIT(MAXFILE) !do no wait io 0036.000
LOGICAL BINARY(MAXFILE) !binary mode or ascii mode 0037.000
INTEGER FTIMOUT(MAXFILE)!time for timeout 0038.000
C 0039.000
COMMON /FILECOM/ FNAME, FMODE, FCHPTR, FEOF, CTDEV, 0040.000
$ FCHCNT, FCHBUF, 0041.000
$ FREQ, IOPEND, FBLK, NOWAIT, BINARY, 0042.000
$ FTIMOUT 0043.000
OPTION 1- 0044.000