anchor.diff:  COLD  CALL MEMMAN(KCBLTP,NSMST,'ADDL  ',2,'CBLTP ')
   *. Arrays for additional symmetry operation
         IF(IDC.EQ.3.OR.IDC.EQ.4) THEN
  -        CALL MEMMAN(KSVST,NSMST,'ADDL  ',2,'SVST  ')
  -        CALL SIGVST(WORK(KSVST),NSMST)
  +        CALL MEMMAN(KSVST,NSMST,'ADDL  ',2,'SVST  ')  !done
  +        CALL SIGVST(dbl_mb(KSVST),NSMST)
         ELSE
            KSVST = 1
         END IF
  
positive.code: * Jeppe Olsen, February 1996
  *
  c      IMPLICIT REAL*8(A-H,O-Z)
        INCLUDE 'wrkspc.inc'
        DIMENSION VEC1(*),VEC2(*)
  *
  
negative.code: c      IMPLICIT REAL*8(A-H,O-Z)
  *
  c      INCLUDE 'mxpdim.inc'
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'wrkspc.inc'
        INCLUDE 'orbinp.inc'
        INCLUDE 'cicisp.inc'
  