anchor.diff:  *. Blocks of  CI vector, using a single batch for complete  expansion
         ICOMP = 1
         ISIMSYM = 1
  -      CALL PART_CIV2(IDC,dbl_mb(KLCBLTP),WORK(KNSTSO(IATP)),
  -     &              WORK(KNSTSO(IBTP)),
  +      CALL PART_CIV2(IDC,dbl_mb(KLCBLTP),int_mb(KNSTSO(IATP)),
  +     &              int_mb(KNSTSO(IBTP)),
        &              NOCTPA,NOCTPB,NSMST,LBLOCK,dbl_mb(KLCIOIO),
        &              ISMOST(1,ISM),
        &              NBATCH,int_mb(KLCLBT),int_mb(KLCLEBT),
  
positive.code:      &    WRITE(6,*) ' JABSPGP, JASPGP, JBSPGP = ',
       &                 JABSPGP, JASPGP, JBSPGP
            CALL DIM_ABSPGP(JASPGP,JBSPGP,NSMST,
       &         WORK(KNSTSO(IATP)),WORK(KNSTSO(IBTP)),
       &         IBLTP,ISMOST(1,ISM),NSDL,NCML)
  C     DIM_ABSPGP(IASPGP,IBSPGP,NSMST,
  C    &           NSSOA,NSSOB,IBLTP,ISMOST,NSDL,NCML)
  
negative.code:       IB_B = IBSPGPFTP(IBTP)
  *
        CALL GET_DIM_PLSTRING_S(
       &     NOCCLS_MAX,dbl_mb(KNABSPGP_FOR_OCCLS),
       &     dbl_mb(KIABSPGP_FOR_OCCLS),
       &     NELFSPGP(1,IB_A),NELFSPGP(1,IB_B))
  *
        RETURN
  