anchor.diff:        i_alpha = 1
         i_top   = i_alpha + (NPA*NPB*NPC)*4 - 1
   
  -      if( i_top .gt. maxW0 )then
  +      if( i_top .gt. maxW0 .and. .not.Dryrun)then
   
          write(*,*) 'HF3CTR:  Insufficient scratch space.'
          write(*,*) '         needed    ',i_top
  
positive.code:       i_ABC2I = i_GT    + NABC*3
        i_top   = i_ABC2I + NABC*3 - 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
  