C
      REAL ICONT
      COMMON /CCNTRB/ CNTRBI(MQ,MDEP),CNTRBR(MQ,MDEP),PATHL(MQ,MDEP),
     * ICONT(MRAD,MDEP),CNTRBF(MQ,MDEP)