anchor.diff:        INTSCR = MAX(MXTSOB ** 4, NTOOB**2)
         IF(IPRCIX.GE.5)
        &WRITE(6,*) ' Integral scratch space ',INTSCR
  -      CALL MEMMAN(KINSCR,INTSCR,'ADDL  ',2,'INSCR ')
  -      CALL MEMMAN(KINSCR2,INTSCR,'ADDL  ',2,'INSCR2')
  +      CALL MEMMAN(KINSCR,INTSCR,'ADDL  ',2,'INSCR ')  !done
  +      CALL MEMMAN(KINSCR2,INTSCR,'ADDL  ',2,'INSCR2')  !done
   *. Offsets for alpha and beta supergroups
         IOCTPA = IBSPGPFTP(IATP)
         IOCTPB = IBSPGPFTP(IBTP)
  
positive.code: C    &              WORK(KNSTSO(IATP)), WORK(KNSTSO(IBTP)),
  C    &              IDC,1,NTEST)
  *. reform 
          CALL RFTTS(HCB,WORK(KC2),IBLOCK(1,ILOFF),NLBLOCK,
       &             1,NSMST,NOCTPA,NOCTPB,
       &             WORK(KNSTSO(IATP)), WORK(KNSTSO(IBTP)),
       &             IDC,PSSIGN,1,NTEST)
  
negative.code: *
  C     IF(IPERTOP.NE.0) THEN
  *. Matrix specifying partiotioned spaces
          CALL MEMMAN(KLH0SPC,NOCTPA*NOCTPB,'ADDL  ',2,'H0SPC ')  !done
          CALL H0INTSPC(IH0SPC,NPTSPC,IOCPTSPC,NOCTPA,NOCTPB,
       &                ISPGPFTP(1,IOCTPA),ISPGPFTP(1,IOCTPB),
       &                NGAS,MXPNGAS,dbl_mb(KLH0SPC),NELFGP)
  C       IF(IH0SPC.EQ.0) THEN
  *. Form of perturbation in subspace has not been defined,
  *. Use current IPART
  