anchor.diff:        MAXIK = MAX(MAXI,MAXK)
   *. I1 and Xi1s must also be able to hold largest st block
         LSCR3 = MAX(MXADKBLK,MAXIK*MXTSOB*MXTSOB,MXSTBL0)
  -      CALL MEMMAN(KI1  ,LSCR3,'ADDL  ',1,'I1    ')
  -      CALL MEMMAN(KXI1S,LSCR3,'ADDL  ',2,'XI1S  ')
  -*
  -      CALL MEMMAN(KI2  ,LSCR3,'ADDL  ',1,'I2    ')
  -      CALL MEMMAN(KXI2S,LSCR3,'ADDL  ',2,'XI2S  ')
  -*
  -      CALL MEMMAN(KI3  ,LSCR3,'ADDL  ',1,'I3    ')
  -      CALL MEMMAN(KXI3S,LSCR3,'ADDL  ',2,'XI3S  ')
  -*
  -      CALL MEMMAN(KI4  ,LSCR3,'ADDL  ',1,'I4    ')
  -      CALL MEMMAN(KXI4S,LSCR3,'ADDL  ',2,'XI4S  ')
  -      CALL ZBLTP(ISMOST(1,ICSM),NSMST,IDC,WORK(KCBLTP),WORK(KSVST))
  +      CALL MEMMAN(KI1  ,LSCR3,'ADDL  ',1,'I1    ')  !done
  +      CALL MEMMAN(KXI1S,LSCR3,'ADDL  ',2,'XI1S  ')  !done
  +*
  +      CALL MEMMAN(KI2  ,LSCR3,'ADDL  ',1,'I2    ')  !done
  +      CALL MEMMAN(KXI2S,LSCR3,'ADDL  ',2,'XI2S  ')  !done
  +*
  +      CALL MEMMAN(KI3  ,LSCR3,'ADDL  ',1,'I3    ')  !done
  +      CALL MEMMAN(KXI3S,LSCR3,'ADDL  ',2,'XI3S  ')  !done
  +*
  +      CALL MEMMAN(KI4  ,LSCR3,'ADDL  ',1,'I4    ')  !done
  +      CALL MEMMAN(KXI4S,LSCR3,'ADDL  ',2,'XI4S  ')  !done
  +      CALL ZBLTP(ISMOST(1,ICSM),NSMST,IDC,WORK(KCBLTP),dbl_mb(KSVST))
   *.Some TTS arrays 
         NOOS = NSMCI*NOCTPA*NOCTPB
         NTTS = MXNTTS
   *
  -      CALL MEMMAN(KOOS1,NOOS,'ADDL  ',2,'OOS1  ')
  -      CALL MEMMAN(KOOS2,NOOS,'ADDL  ',2,'OOS2  ')
  -      CALL MEMMAN(KOOS3,NOOS,'ADDL  ',2,'OOS3  ')
  -      CALL MEMMAN(KOOS4,NOOS,'ADDL  ',2,'OOS4  ')
  -      CALL MEMMAN(KOOS5,NOOS,'ADDL  ',2,'OOS5  ')
  +      CALL MEMMAN(KOOS1,NOOS,'ADDL  ',2,'OOS1  ')  !done
  +      CALL MEMMAN(KOOS2,NOOS,'ADDL  ',2,'OOS2  ')  !done
  +      CALL MEMMAN(KOOS3,NOOS,'ADDL  ',2,'OOS3  ')  !done
  +      CALL MEMMAN(KOOS4,NOOS,'ADDL  ',2,'OOS4  ')  !done
  +      CALL MEMMAN(KOOS5,NOOS,'ADDL  ',2,'OOS5  ')  !done
   *. Space for four blocks of string occupations and arrays of 
   *. reordering arrays
         LZSCR = (MAX(NAEL,NBEL)+1)*(NOCOB+1) + 2 * NOCOB
  
positive.code: * Jan. 98 : SHIFT_DIA added
  *
  c      IMPLICIT REAL*8(A-H,O-Z)
        INCLUDE 'wrkspc.inc'
        REAL*8 INPROD , INPRDD
        LOGICAL CONVER
  
negative.code: c      IMPLICIT REAL*8(A-H,O-Z)
  *
  c      INCLUDE 'mxpdim.inc'
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'wrkspc.inc'
        INCLUDE 'orbinp.inc'
        INCLUDE 'cicisp.inc'
  