home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d594 / analyrimsrc.lha / AnalyRimSrc / AnaRimSrcDoc.Zoo / flags.blk < prev    next >
Text File  |  1991-09-30  |  1KB  |  36 lines
  1. C
  2. C  *** / F L A G S / ***
  3. C
  4. C   FLAG VARIABLES AND CONTROL VARIABLES
  5. C
  6.       COMMON /FLAGS/ DBNAME,USERID,NEXTOP,OWNER,DBDATE,DBTIME,
  7.      X TOL,LSTCMD,DFLAG,IFMOD,PCENT,RUCK
  8.       LOGICAL DFLAG
  9.       REAL*8 DBNAME
  10.       REAL*8 USERID
  11.       REAL*8 NEXTOP
  12.       REAL*8 OWNER
  13.       REAL*8 DBDATE
  14.       REAL*8 DBTIME
  15.       LOGICAL IFMOD
  16.       REAL TOL
  17.       LOGICAL PCENT
  18.       LOGICAL RUCK
  19.       INTEGER LSTCMD
  20. C
  21. C  VARIABLE DEFINITIONS:
  22. C         DFLAG---DEFINED DATA BASE FLAG
  23. C         DBNAME--DATA BASE NAME
  24. C         USERID--CURRENT USER PASSWORD
  25. C         NEXTOP--NEXT OPERATION
  26. C         OWNER---PASSWORD FOR DATA BASE DEFINITION
  27. C         DBDATE--DATE THE DATA BASE WAS LAST CLOSED
  28. C         DBTIME--TIME THE DATA BASE WAS LAST CLOSED
  29. C         IFMOD---SET TO TRUE IFF DATA BASE HAS BEEN MODIFIED
  30. C         TOL-----TOLORANCE FOR REAL COMPARS
  31. C         PCENT---.TRUE. IF TOL IS PERCENT: .FALSE. IF ACTUAL VALUE
  32. C         RUCK----RULE CHECKING SWITCH - .TRUE. OR .FALSE.
  33. C         LSTCMD--LAST COMMAND ENTERED (3 CHARACTERS)
  34. C         MACH----MACHINE IDENTIFIER (8 CHARACTERS)
  35. C
  36.