anchor.diff:       &            dbl_mb(KOOS1),dbl_mb(KOOS2),dbl_mb(KOOS3),
        $            dbl_mb(KOOS4),
        &            dbl_mb(KOOS5),int_mb(KI1),dbl_mb(KXI1S),
  -     &            int_mb(KI2),dbl_mb(KXI2S),IDOH2,MXPOBS,dbl_mb(KSVST),
  +     &            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,MXSXBL,
  
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
  