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  ')
          CALL SIGVST(dbl_mb(KSVST),NSMST)
        ELSE
           KSVST = 1
        END IF
  
negative.code:      &     SXSTSM,dbl_mb(KSTSTS),dbl_mb(KSTSTD),SXDXSX,
       &     ADSXA,ASXAD,NGAS,NELFSPGP,IDC,
       &     int_mb(KI1),dbl_mb(KXI1S),
       &     int_mb(KI2),dbl_mb(KXI2S),IDOH2,MXPOBS,int_mb(KSVST),
       &     PSSIGN,IPRDIA,LUC,ICJKAIB,dbl_mb(KCJRES),
       &     dbl_mb(KSIRES),int_mb(KI3),dbl_mb(KXI3S),
       &     int_mb(KI4),dbl_mb(KXI4S),MXSXST,XSXBL,
  