anchor.diff:         ELSE
   *. CSF's in use
           CALL GASDN2(I12,RHO1,RHO2,WORK(KVEC1P),WORK(KVEC2P),dbl_mb(KC2),
  -     &       WORK(KCIOIO),int_mb(KSIOIO),ISMOST(1,ICSM),
  +     &       int_mb(KCIOIO),int_mb(KSIOIO),ISMOST(1,ICSM),
        &       ISMOST(1,ISSM),int_mb(KCBLTP),WORK(KSBLTP),NACOB,
        &       int_mb(KNSTSO(IATP)),int_mb(KISTSO(IATP)),
        &       int_mb(KNSTSO(IBTP)),int_mb(KISTSO(IBTP)),
  
positive.code:       CALL T_TO_NK_VECS
       &  (T,KKORB,C,LUCIN,LUCOUT,int_mb(KNSTSO(IATP)),
       &      int_mb(KNSTSO(IBTP)),
       &      NBLOCK,WORK(KLCIBT),
       &      NAEL,NBEL,WORK(KLASTR),WORK(KLBSTR),
       &      WORK(KLCBLTP),NSMST,
       &      ICISTR,NTOOB,WORK(KLKAOC),WORK(KLKBOC))
     
        CALL MEMMAN(IDUM,IDUM,'FLUSM',IDUM,'T_TO_N')
  *
  
negative.code:       DO IGAS = 1, NGAS
          CALL ICOPVE2(int_mb(KNSTSGP(1)),(ITPFGS(IGAS)-1)*NSMST+1,NSMST,
       &               NNSTSGP(1,IGAS))
          CALL ICOPVE2(int_mb(KISTSGP(1)),(ITPFGS(IGAS)-1)*NSMST+1,NSMST,
       &               IISTSGP(1,IGAS))
        END DO
  *
  