anchor.diff:         write(*,*) 'GT      :  ',i_GT
          write(*,*) 'ABC2I   :  ',i_ABC2I
   
  +       write(*,*) 'if you get this error doing higher multipoles with',
  +     & 'a small basis set, try modifying NWints/api/exact_mem.F:279' ! Jeff
  +
          stop
   
         end if
  
positive.code:       i_G   = i_E     + NABC*3*(La+Lb+Lc+1)*(La+1)*(Lb+1)*(Lc+1)
        i_top = i_G     + NABC*3 - 1
  
        if( i_top .gt. maxW0 .and. .not.Dryrun)then
  
         write(*,*) 'HF3CTR:  Insufficient scratch space.'
         write(*,*) '         needed    ',i_top
  
negative.code:        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
  
  