anchor.diff:        CALL MEMMAN(KI4  ,LSCR3,'ADDL  ',1,'I4    ')   !done
         CALL MEMMAN(KXI4S,LSCR3,'ADDL  ',2,'XI4S  ')   !done
   *
  -      CALL ZBLTP(ISMOST(1,ICSM),NSMST,IDC,int_mb(KCBLTP),dbl_mb(KSVST))
  +      CALL ZBLTP(ISMOST(1,ICSM),NSMST,IDC,int_mb(KCBLTP),int_mb(KSVST))
   *.Some TTS arrays 
         NOOS = NSMCI*NOCTPA*NOCTPB   
         NTTS = MXNTTS
  
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:       CALL MEMMAN(KI4  ,LSCR3,'ADDL  ',1,'I4    ')  !done
        CALL MEMMAN(KXI4S,LSCR3,'ADDL  ',2,'XI4S  ')  !done
        KSVST = 1
        CALL ZBLTP(ISMOST(1,ICSM),NSMST,IDC,int_mb(KCBLTP),int_mb(KSVST))
  *.Some TTS arrays 
        NOOS = NOCTPA*NOCTPB*NSMCI 
        NTTS = MXNTTS
  