C
C  *** / F L A G S / ***
C
C   FLAG VARIABLES AND CONTROL VARIABLES
C
      COMMON /FLAGS/ DBNAME,USERID,NEXTOP,OWNER,DBDATE,DBTIME,
     X TOL,LSTCMD,DFLAG,IFMOD,PCENT,RUCK
      LOGICAL DFLAG
      REAL*8 DBNAME
      REAL*8 USERID
      REAL*8 NEXTOP
      REAL*8 OWNER
      REAL*8 DBDATE
      REAL*8 DBTIME
      LOGICAL IFMOD
      REAL TOL
      LOGICAL PCENT
      LOGICAL RUCK
      INTEGER LSTCMD
C
C  VARIABLE DEFINITIONS:
C         DFLAG---DEFINED DATA BASE FLAG
C         DBNAME--DATA BASE NAME
C         USERID--CURRENT USER PASSWORD
C         NEXTOP--NEXT OPERATION
C         OWNER---PASSWORD FOR DATA BASE DEFINITION
C         DBDATE--DATE THE DATA BASE WAS LAST CLOSED
C         DBTIME--TIME THE DATA BASE WAS LAST CLOSED
C         IFMOD---SET TO TRUE IFF DATA BASE HAS BEEN MODIFIED
C         TOL-----TOLORANCE FOR REAL COMPARS
C         PCENT---.TRUE. IF TOL IS PERCENT: .FALSE. IF ACTUAL VALUE
C         RUCK----RULE CHECKING SWITCH - .TRUE. OR .FALSE.
C         LSTCMD--LAST COMMAND ENTERED (3 CHARACTERS)
C         MACH----MACHINE IDENTIFIER (8 CHARACTERS)
C