anchor.diff:       &     int_mb(KCNOCCLS_BAT),int_mb(KCIBOCCLS_BAT),ILTEST)
   *. Space for strings
         IF(NOCSF.EQ.1) THEN
  -        CALL MEMMAN(KLASTR,MXNSTR*NAEL,'ADDL  ',1,'KLASTR')
  -        CALL MEMMAN(KLBSTR,MXNSTR*NBEL,'ADDL  ',1,'KLBSTR')
  +        CALL MEMMAN(KLASTR,MXNSTR*NAEL,'ADDL  ',1,'KLASTR') !done
  +        CALL MEMMAN(KLBSTR,MXNSTR*NBEL,'ADDL  ',1,'KLBSTR') !done
   *. 
   C       GET_MINMAX_ADR_IN_CISPACE_SD(
   C    &           IADR,NDET_UT,MINAC,MAXAC,MINMAX_ORB,NSSOA,NSSOB,NOCTPA,NOCTPB,
  
positive.code:         ELSE
            ICOMBI_L = 0
          END IF
          CALL MEMMAN(KLSCR,LSCR,'ADDL  ',1,'LSCR  ')
          XRJ = -1.0D0
          XRK = -1.0D0
  *. In DIHDJ2 it is assumed that the I-and J-strings are in different 
  
negative.code:           KLJASTR = KLIASTR
            KLJBSTR = KLIBSTR
          ELSE
            CALL MEMMAN(KLJASTR,NPRVAR*NAEL,'ADDL  ',1,'LJASTR') !done
            CALL MEMMAN(KLJBSTR,NPRVAR*NBEL,'ADDL  ',1,'LJBSTR') !done
            CALL ICOPVE(int_mb(KLIASTR),int_mb(KLJASTR),NPRVAR*NAEL)
            CALL ICOPVE(int_mb(KLIBSTR),int_mb(KLJBSTR),NPRVAR*NBEL)
          END IF
  