C     EDIT DATE   14APR78  10:21
C     SOURCE FILE PSHCOMFTM.IN
C     AUTHOR      F. T. MICKEY
C     CLUSTER     X
      INTEGER  PSTACK (12)
      INTEGER  PX
      INTEGER  PEND
      COMMON   /PPCOM/  PSTACK
      COMMON   /PPCOM/  PX
      COMMON   /PPCOM/  PEND