anchor.diff:       &       dbl_mb(KINSCR),
        &       MXPOBS,IPRDEN,dbl_mb(KRHO1S),-1,-1,
        &       PSSIGN,PSSIGN,dbl_mb(KRHO1P),dbl_mb(KXNATO),
  -     &       NBATCHL,WORK(KSLBT),WORK(KSLEBT),WORK(KSI1BT),
  -     &       WORK(KSIBT),
  -     &       NBATCHR,WORK(KCLBT),WORK(KCLEBT),WORK(KCI1BT),
  +     &       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,
  
positive.code: C    &       WORK(KSNOCCLS_BAT),WORK(KSIBOCCLS_BAT),0,ILTEST)
         ELSE
  *. CSF's in use
          CALL GASDN2(I12,RHO1,RHO2,WORK(KVEC1P),WORK(KVEC2P),WORK(KC2),
       &       WORK(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)),
       &       NAEL,IATP,NBEL,IBTP,IOCTPA,IOCTPB,NOCTPA,NOCTPB,
       &       NSMST,NSMOB,NSMSX,NSMDX,MXPNGAS,NOBPTS,IOBPTS,      
       &       MAXK,MAXI,LSCR1,LSCR1,WORK(KCSCR),WORK(KSSCR),
       &       SXSTSM,dbl_mb(KSTSTS),dbl_mb(KSTSTD),SXDXSX,
       &       ADSXA,ASXAD,NGAS,NELFSPGP,IDC,
       &       int_mb(KI1),dbl_mb(KXI1S),int_mb(KI2),dbl_mb(KXI2S),
  
negative.code: C?        WRITE(6,*) ' KCLBT, WORK(KCLBT) = ', KCLBT
  C?        CALL IWRTMA(WORK(KCLBT),1,1,1,1)
  *
            CALL CSDTVCMN(KKVEC1,KKVEC2,dbl_mb(KVEC3),
       &         1,0,ICSM,ICSPC,2,2,LUC_SD,LUCEFF,NCOCCLS,
       &         dbl_mb(KCIOCCLS_ACT),int_mb(KCIBT),int_mb(KCLBT))
            LUC2 = LUC_SD
  C?        WRITE(6,*) ' After CSDTVCMN '
           END IF
  