anchor.diff:  *
         CALL FOCK_MAT_STANDARD(WORK(KF),2,WORK(KINT1),WORK(KFA))
         IF(IPRNT.GE.100) WRITE(6,*) ' F constructed '
  -      CALL E1_FROM_F(WORK(KLE1),WORK(KF),1,WORK(KLOOEXC),
  -     &               WORK(KLOOEXCC),
  +      CALL E1_FROM_F(WORK(KLE1),WORK(KF),1,int_mb(KLOOEXC),
  +     &               int_mb(KLOOEXCC),
        &               NOOEXC,NTOOB,NTOOBS,NSMOB,IBSO,IREOST)
         E1NRM_ORB = SQRT(INPROD(WORK(KLE1),WORK(KLE1),NOOEXC))
         VNFINAL = E1NRM_ORB + ERROR_NORM_FINAL_CI
  
positive.code: *. Allow these parameters to be known outside
        KIOOEXC = KLOOEXC
        KIOOEXCC = KLOOEXCC
        CALL NONRED_OO_EXC2(NOOEXC,WORK(KLOOEXC),WORK(KLOOEXCC),
       &     1,WORK(KLTTACT),I_RESTRICT_SUPSYM,WORK(KMO_SUPSYM),
       &     N_INTER_EXC,N_INTRA_EXC,2)
  *
  * =========================================================================
  
negative.code:       WRITE(6,*)
       & ' ==============================='
        DO IT = 1, NIT
          ENER =  dbl_mb(KL_SUMMARY-1+(IT-1)*NITEM+2) 
          RNRMI =  dbl_mb(KL_SUMMARY-1+(IT-1)*NITEM+1) 
          WRITE(6,'(1X,I3,4X,E8.3,F20.12)') IT, RNRMI, ENER
        END DO
  *
  