C ICODE               INDICES FOR FITTING
C
C ICODE                  FIRST MATRIX OR FITTING INDEX
C JCODE                  SECOND MATRIX OR FITTING INDEX
C
      INTEGER         ICODE, JCODE
      COMMON /ICODE/  ICODE, JCODE