anchor.diff:  C    &     WORK(KTPAM),TPAM,1)
   *
         LENT = LEN_BLMAT(NSMOB,NTOOBS,NTOOBS,0)
  -      CALL COPVEC(WORK(KTPAM),TPAM,LENT)
  +      CALL COPVEC(dbl_mb(KTPAM),TPAM,LENT)
   *
         IF(NTEST.GE.100) THEN
           WRITE(6,*) ' TPAM as copied '
  
positive.code:      &       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),
       &       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 MEMMAN(KXI3S,LSCR3       ,'ADDL  ',2,'XI3S  ') !done
        CALL MEMMAN(KXI4S,LSCR3       ,'ADDL  ',2,'XI4S  ') !done
  *
        CALL ZBLTP(ISMOST(1,ISSM),NSMST,IDC,int_mb(KSBLTP),int_mb(KSVST))
        CALL ZBLTP(ISMOST(1,ICSM),NSMST,IDC,int_mb(KCBLTP),int_mb(KSVST))
  *.0 OOS arrayy
        NOOS = NOCTPA*NOCTPB*NSMST
  * scratch space containing active one body
  