anchor.diff:         write(*,*) 'alpha   :  ',i_alpha
          write(*,*) 'E       :  ',i_E
          write(*,*) 'G       :  ',i_G
  +
  +       write(*,*) 'if you get this error doing higher multipoles with',
  +     & 'a small basis set, try modifying NWints/api/exact_mem.F:279' ! Jeff
   
          stop
   
  
positive.code:       i_alpha = 1
        i_top   = i_alpha + (NPA*NPB*NPC)*4 - 1
  
        if( i_top .gt. maxW0 .and. .not.Dryrun)then
  
         write(*,*) 'HF3CTR:  Insufficient scratch space.'
         write(*,*) '         needed    ',i_top
         write(*,*) '         allocated ',maxW0
  
         write(*,*) 'alpha   :  ',i_alpha
  
         stop
  
  
negative.code:      &                  Cxyz,Cprims,Ccoef,NPC,Lc,
       &                  b3OI,Nint,TriDiag,
       &                  DryRun,W0,maxW0)
  c $Id: hf3OIs.f,v 1.5 2008-02-01 17:18:15 jhammond Exp $
  
        Implicit real*8 (a-h,o-z)
        Implicit integer (i-n)
  