anchor.diff:            LSCR = MAX(L,LSCR)
           END IF
         END DO
  -      CALL MEMMAN(KLSCR2,LSCR,'ADDL  ',1,'KLSCR2')
  +      CALL MEMMAN(KLSCR2,LSCR,'ADDL  ',1,'KLSCR2')  !done
   *
         IDTBS = 1
         DO IOPEN = MINOP, MAXOP
  
positive.code: *. Jeppe Olsen, Mar. 26, 2013
  *
  *. General input
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'glbbas.inc'
  
negative.code: * Reorder array created is Conf-order => AB-order 
  *
  c     IMPLICIT REAL*8(A-H,O-Z)
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        include 'wrkspc.inc'
  *. General input
  *.---------------
  