BLOCK DATA 
 
      LOGICAL  MSEEN, SMSEEN, ZFLAG 
      INTEGER  SMODE, TPFLAG, DEFMOD, LEVEL 
      INTEGER  STOAC, OP 
      COMMON   /BPO/ MSEEN, SMSEEN, ZFLAG 
      COMMON   /BPO/ SMODE, TPFLAG, DEFMOD, LEVEL 
      COMMON   /BPO/ STOAC, OP 
      END