C     EDIT DATE   16SEP78  10:58
C     SOURCE FILE   SRCXDFFTM.IN
C     AUTHOR        F. T. MICKEY
C     SOURCE EXTERNAL COMMUNICATION DATA AREA
      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