C
C  MCX IS MAXIMUM DIMENSION OF CX ARRAY. SHOULD BE TOTAL(NQ)
C  MCP IS MAXIMUM DIMENSION OF CP ARRAY. SHOULD BE TOTAL(NQ(1:NLINE))*MMU
C  MCJ IS MAXIMUM OF CJ ARRAY. SHOULD BE TOTAL(NQ)
C
      PARAMETER (MCX=7680,MCP=1940*MMU,MCJ=MCX)
      COMMON /CXJPI/ ICX,ICP 
      COMMON /CXJP/ CX(MDEP*3,MCX),CJ(MDEP,MCJ),
     * CP(MDEP,MCP)