anchor.diff:        NTEST = 100
   *
         CALL GET_SUPSYM_FOR_BASIS_S(ISUPSYM_FOR_BAS,
  -     &     WORK(KLVAL_FOR_ORB),WORK(KMLVAL_FOR_ORB),
  -     &     WORK(KPA_FOR_ORB),NTOOB)
  +     &     int_mb(KLVAL_FOR_ORB),int_mb(KMLVAL_FOR_ORB),
  +     &     int_mb(KPA_FOR_ORB),NTOOB)
   *
   *
         IZERO = 0
  
positive.code: *
  * Last modified July 8, 2012 (Jeppe)
  *
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'wrkspc-static.inc'
  
negative.code:       END IF
  * Labels for the basis functions
        CALL GET_SUPSYM_LABELS_FOR_ORBITALS
       &(int_mb(KCSUPSYM_FOR_ORB),int_mb(KLVAL_FOR_ORB),
       & int_mb(KMLVAL_FOR_ORB),int_mb(KPA_FOR_ORB))
  *. Relation between supersymmetry and irreps
        CALL SYM_AND_IRREP_FOR_SUPSYM(
       & WORK(KL_FOR_SUPSYM),WORK(KML_FOR_SUPSYM),
  