anchor.diff:        IOCTPA = IBSPGPFTP(IATP)
         IOCTPB = IBSPGPFTP(IBTP)
   *.Local memory
  -      CALL MEMMAN(KLBLTP,NSMST,'ADDL  ',2,'KLBLTP')
  +      CALL MEMMAN(KLBLTP,NSMST,'ADDL  ',2,'KLBLTP') !done
         IF(IDC.EQ.3 .OR. IDC .EQ. 4 )
  -     &CALL MEMMAN(KLCVST,NSMST,'ADDL  ',2,'KLCVST')
  -      CALL MEMMAN(KLIOIO,NOCTPA*NOCTPB,   'ADDL  ',2,'KLIOIO')
  +     &CALL MEMMAN(KLCVST,NSMST,'ADDL  ',2,'KLCVST') !done
  +      CALL MEMMAN(KLIOIO,NOCTPA*NOCTPB,   'ADDL  ',2,'KLIOIO') !d
   *. Obtain array giving symmetry of sigma v reflection times string
   *. symmetry.
         IF(IDC.EQ.3.OR.IDC.EQ.4)
  -     &CALL SIGVST(WORK(KLCVST),NSMST)
  +     &CALL SIGVST(dbl_mb(KLCVST),NSMST)
    
   *. Array defining symmetry combinations of internal strings
   *. Number of internal dets for each symmetry
  
positive.code: *. Input
  *     (and /LUCINP/ not occuring here )
  c      INCLUDE 'mxpdim.inc'
        INCLUDE 'wrkspc.inc'
        INCLUDE 'orbinp.inc'
        INCLUDE 'cgas.inc'
  
negative.code: * Jeppe Olsen, February 1994
  * GAS version August 1995
  *
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'wrkspc.inc'
        INCLUDE 'cicisp.inc'
        INCLUDE 'crun.inc'
  