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(dbl_mb(KSVST),NSMST)
  +        CALL MEMMAN(KSVST,NSMST,'ADDL  ',1,'SVST  ')
  +        CALL SIGVST(int_mb(KSVST),NSMST)
         ELSE
            KSVST = 1
         END IF
  
positive.code: 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  ')  !done
          CALL SIGVST(dbl_mb(KSVST),NSMST)
        ELSE
           KSVST = 1
        END IF
  
negative.code: 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  ',1,'SVST  ')  !done
          CALL SIGVST(int_mb(KSVST),NSMST)
        ELSE
           KSVST = 1
        END IF
  