anchor.diff:       &                  Cxyz,Cprims,Ccoef,NPC,Lc,
        &                  b3OI,Nint,TriDiag,
        &                  DryRun,W0,maxW0)
  -c $Id: hf3OIs.f,v 1.3 2000-10-25 22:50:06 windus Exp $
  +c $Id: hf3OIs.f,v 1.4 2008-01-23 17:22:19 bert Exp $
   
         Implicit real*8 (a-h,o-z)
         Implicit integer (i-n)
  
positive.code:       i_alpha = 1
        i_top   = i_alpha + (NPA*NPB*NPC)*4 - 1
  
        if( i_top .gt. maxW0 )then
  
         write(*,*) 'HF3CTR:  Insufficient scratch space.'
         write(*,*) '         needed    ',i_top
  
negative.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
  