anchor.diff:        CALL ICOPVE(IGRP,KGRP,NIGRP)
         KGRP(IACGRP) = KACGRP
   *. Number of strings and symmetry distributions of K strings
  -      CALL NST_SPGRP(NIGRP,KGRP,KSM,WORK(KNSTSGP(1)),
  +      CALL NST_SPGRP(NIGRP,KGRP,KSM,int_mb(KNSTSGP(1)),
        &               NSMST,NKSTR,NKDIST)
   C          NST_SPGRP(NGRP,IGRP,ISM_TOT,NSTSGP,NSMST,NSTRIN,NDIST)
         IF(NTEST.GE.1000) WRITE(6,*) 
  
positive.code: *. Orbital K in type ordering
        KKORB = IREOST(KORB)
        CALL T_TO_NK_VECS
       &  (T,KKORB,C,LUCIN,LUCOUT,WORK(KNSTSO(IATP)),WORK(KNSTSO(IBTP)),
       &      NBLOCK,WORK(KLCIBT),
       &      NAEL,NBEL,WORK(KLASTR),WORK(KLBSTR),
       &      WORK(KLCBLTP),NSMST,
  
negative.code:       NGASL = 1
        DO JGRP = 1, NIGRP
         IF(NELFGP(KGRP(JGRP)).GT.0) NGASL = JGRP
         CALL ICOPVE2(int_mb(KNSTSGP(1)),(KGRP(JGRP)-1)*NSMST+1,NSMST,
       &              NNSTSGP(1,JGRP))
         CALL ICOPVE2(WORK(KISTSGP(1)),(KGRP(JGRP)-1)*NSMST+1,NSMST,
       &              IISTSGP(1,JGRP))
  