C     ---------------------------------------
C
C     Catalog information
      COMMON /ZDSSCA/ JCUNIT, JNUNIT, NOPTHS, LEXTND, LSORT,
     * IORDER(6), JPART(2,6), ISUNIT(5), MAXPRT(7), IBPMAX(6),
     * IEPMAX(6), MTOTAL, ILWFLG, JULLW, LSPROG
      LOGICAL LEXTND, LSORT, LSPROG
      INTEGER*4 NOPTHS, JULLW                                           ML
C
C     ---------------------------------------
