anchor.diff:  *
   c      IMPLICIT REAL*8(A-H,O-Z)
   c      INCLUDE 'mxpdim.inc'
  +#include "mafdecls.fh"
  +#include "global.fh"
         INCLUDE 'wrkspc.inc'
    
   *.GLobal pointers
  
positive.code: CINA &            ISMFTO,IBSO,NACOB)
  COLD  CALL GT1DIS(H1DIA,IREOTS(1),WORK(KPINT1),WORK(KINT1O),
  COLD &            ISMFTO,IBSO,NTOOB)
        CALL GT1DIS(H1DIA,IREOTS(1),WORK(KPINT1),WORK(KINT1),
       &            ISMFTO,IBSO,NTOOB)
  *
  
negative.code:       CALL MEMMAN(KLISCR,NTOOB,   'ADDL  ',1,'KLISCR ')
        CALL MEMMAN(KLH1D ,NTOOB,   'ADDL  ',2,'KLH1D ')
  *. Space for blocks of strings
        MAXA = IMNMX(int_mb(KNSTSO(IATP)),NSMST*NOCTPA,2)
        MAXB = IMNMX(int_mb(KNSTSO(IBTP)),NSMST*NOCTPB,2)
        CALL MEMMAN(KLRJKA,MAXA,'ADDL  ',2,'KLRJKA')
        CALL MEMMAN(KLASTR,MAXA*NAEL,'ADDL  ',1,'KLASTR')
        CALL MEMMAN(KLBSTR,MAXB*NBEL,'ADDL  ',1,'KLBSTR')
  