anchor.diff:            CALL MEMCHK2('BE_NWM')
   C              GET_EXP_MKAPPA(EXPMK,KAPPAP,IOOEXC,NOOEXC)
             CALL GET_EXP_MKAPPA(WORK(KLMO1),WORK(KLKAPPA),
  -     &                        WORK(KLOOEXCC),NOOEXC)
  +     &                        int_mb(KLOOEXCC),NOOEXC)
             CALL MEMCHK2('AF_EMK')
   *. And new MO-coefficients
             CALL MULT_BLOC_MAT(WORK(KLMO2),WORK(KMOREF),WORK(KLMO1),
  
positive.code:         IF(I_DO_FDCHECK.EQ.1) THEN
  *. First: Analytic gradient from Fock matrix - As kappa = 0, Brillouin vector
  * = gradient
            CALL E1_FROM_F(WORK(KLE1),WORK(KF),1,WORK(KLOOEXC),
       &                   WORK(KLOOEXCC),
       &                   NOOEXC,NTOOB,NTOOBS,NSMOB,IBSO,IREOST)
  *
            CALL MEMMAN(KLE1FD,NOOEXC,'ADDL  ',2,'E1_FD ')
  
negative.code: *. Allow these parameters to be known outside
        KIOOEXC = KLOOEXC
        KIOOEXCC = KLOOEXCC
        CALL NONRED_OO_EXC2(NOOEXC,int_mb(KLOOEXC),int_mb(KLOOEXCC),
       &     1,int_mb(KLTTACT),I_RESTRICT_SUPSYM,int_mb(KMO_SUPSYM),
       &     N_INTER_EXC,N_INTRA_EXC,2)
  *
  * =========================================================================
  