anchor.diff:          NOCTPB = NOCTYP(IBTP)
   * 
           CALL MEMMAN(KLCIOIO,NOCTPA*NOCTPB,'ADDL  ',2,'CIOIO ')
  -        CALL IAIBCM(ISPC,WORK(KLCIOIO))
  -        CALL MXRESCPH(WORK(KLCIOIO),IOCTPA,IOCTPB,NOCTPA,NOCTPB,
  +        CALL IAIBCM(ISPC,dbl_mb(KLCIOIO))
  +        CALL MXRESCPH(dbl_mb(KLCIOIO),IOCTPA,IOCTPB,NOCTPA,NOCTPB,
        &              NSMST,NSTFSMSPGP,MXPNSMST,
        &              NSMOB,MXPNGAS,NGAS,NOBPTS,IPRCIX,MAXK,
        &              NELFSPGP,
  
positive.code:              WRITE(6,*) ' ======================'
               WRITE(6,*)
               IF(NROOT.EQ.1) THEN
                 CALL WRTVCD(WORK(KVEC1),LUC  ,1,LBLK)
               ELSE
                 CALL WRTVCD(WORK(KVEC1),LUSC1,1,LBLK)
               END IF
  *         ^ End if print of CI vector
          END IF
  
negative.code:         WRITE(6,*)
          END IF
          IF(ICISTR.EQ.1) THEN
            CALL FRMDSC(KPVEC1,NVAR,-1,LUC,IMZERO,IAMPACK)
            CALL COPVEC(KPVEC1,KPVEC2,NVAR)
  *
  C?      WRITE(6,*) ' Testing: CI vector read in '
  C?      CALL WRTMAT(WORK(KPVEC1),1,NVAR,1,NVAR)
  