anchor.diff:  *. Allocate scratch space for 2-electron integrals and 
   *. two-electron densities
         MX4IBLK = MXTSOB ** 4
  -      CALL MEMMAN(KLINT,MX4IBLK,'ADDL  ',2,'KLINT ')
  -      CALL MEMMAN(KLDEN,MX4IBLK,'ADDL  ',2,'KLDEN ')
  +      CALL MEMMAN(KLINT,MX4IBLK,'ADDL  ',2,'KLINT ') !done
  +      CALL MEMMAN(KLDEN,MX4IBLK,'ADDL  ',2,'KLDEN ') !done
   *. And a block of F
         MX2IBLK = MXTSOB ** 2
         CALL MEMMAN(KLFBLK,MX2IBLK,'ADDL  ',2,'KLFBL ')
  
positive.code:      &                int_mb(KNSTSO(IBTP)),
       &                ISPGPFTP(1,IBSPGPFTP(IATP)),
       &                ISPGPFTP(1,IBSPGPFTP(IBTP)),MXPNGAS,NELFGP,
       &                NCOMB,XNCOMB,MXS,MXSOO,WORK(KLBLTP),NTTSBL,
       &                LCOL,dbl_mb(KLIOIO),MXSOO_AS,XMXSOO,XMXSOO_AS)
        
            XISPSM(ISYM,ICI) = XNCOMB
  
negative.code: *
            CALL ADD_STR_GROUP(NSTI,
       &          IBSTFGS(IGRP),
       &          int_mb(KOCSTR(ITPFGS(IGRP))),
       &          NSTB,NSTA,ISTROC,NELB+1,NELI,NEL)
  *. Loop over strings in IGRP 
          END IF
  