integer          ISUMMJ
      COMMON /INTCOM/  ISUMMJ