anchor.diff:       &       dbl_mb(KINSCR),
        &       MXPOBS,IPRDEN,dbl_mb(KRHO1S),LLUL,LLUR,
        &       PSSIGN,PSSIGN,dbl_mb(KRHO1P),dbl_mb(KXNATO),
  -     &       NBATCHL,int_mb(KSLBT),WORK(KSLEBT),WORK(KSI1BT),
  +     &       NBATCHL,int_mb(KSLBT),int_mb(KSLEBT),WORK(KSI1BT),
        &       int_mb(KSIBT),
  -     &       NBATCHR,int_mb(KCLBT),WORK(KCLEBT),WORK(KCI1BT),
  +     &       NBATCHR,int_mb(KCLBT),int_mb(KCLEBT),WORK(KCI1BT),
        &       int_mb(KCIBT),int_mb(KCONSPA),int_mb(KCONSPB),
        &       dbl_mb(KLSCLFCL),dbl_mb(KLSCLFCR),S2_TERM1,IUSE_PH,IPHGAS,
        &       IDOSRHO1,SRHO1,IDOSRHO2,RHO2AA,RHO2AB,RHO2BB,
  
positive.code:      &       dbl_mb(KINSCR),
       &       MXPOBS,IPRDEN,dbl_mb(KRHO1S),-1,-1,
       &       PSSIGN,PSSIGN,dbl_mb(KRHO1P),dbl_mb(KXNATO),
       &       NBATCHL,int_mb(KSLBT),WORK(KSLEBT),WORK(KSI1BT),
       &       int_mb(KSIBT),
       &       NBATCHR,int_mb(KCLBT),WORK(KCLEBT),WORK(KCI1BT),
       &       int_mb(KCIBT),int_mb(KCONSPA),int_mb(KCONSPB),
       &       dbl_mb(KLSCLFCL),dbl_mb(KLSCLFCR),S2_TERM1,IUSE_PH,IPHGAS,
       &       IDOSRHO1,SRHO1,IDOSRHO2,RHO2AA,RHO2AB,RHO2BB,
  
negative.code:       CALL T_TO_NK_VECS
       &  (T,KKORB,C,LUCIN,LUCOUT,int_mb(KNSTSO(IATP)),
       &      int_mb(KNSTSO(IBTP)),
       &      NBLOCK,int_mb(KLCIBT),
       &      NAEL,NBEL,int_mb(KLASTR),int_mb(KLBSTR),
       &      dbl_mb(KLCBLTP),NSMST,
       &      ICISTR,NTOOB,int_mb(KLKAOC),int_mb(KLKBOC))
     
        CALL MEMMAN(IDUM,IDUM,'FLUSM',IDUM,'T_TO_N')
  *
  