PARAMETER(MLL=300000)
      CHARACTER*20 SRCELL(MLL),ABNILL(MLL),ABNJLL(MLL)
      COMMON /CALINI/ NLL,IONILL(MLL),IONJLL(MLL),IELLLL(MLL),ISOUL
      COMMON /CALINR/ ALAMLL(MLL),BLUELL(MLL),REDLL(MLL),
     * CHILL(MLL),GILL(MLL),
     * CHJLL(MLL),GJLL(MLL),
     * FLL(MLL),GALL(MLL),GWLL(MLL),GQLL(MLL),QNORML
      COMMON /CALINC/ SRCELL,ABNILL,ABNJLL