home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
gould3.zip
/
k.dbugc
< prev
next >
Wrap
Text File
|
2011-08-09
|
1KB
|
17 lines
C 0001.000
C K.DBUGCOM - DEBUG COMMON BLOCK 0002.000
C 0003.000
OPTION 1+ 0004.000
INTEGER DBGSTAT !debug statistics displayed 0005.000
INTEGER DBGPACK !dump transmissions 0006.000
INTEGER DBGON !general debug flag 0007.000
PARAMETER (DBGON =1, DBGSTAT=2, DBGPACK=3) 0008.000
C 0009.000
LOGICAL DEBUG(3) !debug flags 0010.000
INTEGER DBGFD !debug file code 0011.000
CHARACTER*8 DBGFILE !name of debug file 0012.000
C 0013.000
COMMON /DEBUG/ DEBUG, DBGFD, DBGFILE 0014.000
OPTION 1- 0015.000
C-----END OF FILE: DBUGCOM 0016.000