BLOCK DATA 
 
      INTEGER  FCHRTS 
      INTEGER  SCFLAG 
      INTEGER  QMODE 
      INTEGER  LBIAS 
      INTEGER  SCOUNT 
      INTEGER  QINDEX 
      LOGICAL  NOTINQ 
      COMMON   /SRCEX/  FCHRTS 
      COMMON   /SRCEX/  SCFLAG 
      COMMON   /SRCEX/  QMODE 
      COMMON   /SRCEX/  LBIAS 
      COMMON   /SRCEX/  SCOUNT 
      COMMON   /SRCEX/  QINDEX 
      COMMON   /SRCEX/  NOTINQ 
      DATA     FCHRTS   /1/ 
      DATA     SCFLAG   /0/ 
      DATA     QMODE    /0/ 
      DATA     NOTINQ   /.TRUE./ 
      DATA     LBIAS    /0/ 
      DATA     QINDEX   /0/ 
      END