anchor.diff:       +               '++++++ WARNING - user deck table full at:',
        +               nudeck)
                        idfull=1
  +                     stop 1
                        goto 999
                     else
                        do 20 i=nudeck,ipos,-1
  
positive.code:             if(ndflag.eq.maxflg) then
                 call errms2(
       +         ' ++++++ WARNING - flag table full at limit =' ,ndflag)
                 goto 999
              endif
              ndflag=ndflag+1
  
negative.code:      +               ' ++++++ WARNING - user flag table full at:',
       +               nuflag)
                       iffull=1
                       stop 1
                       goto 999
                    else
                       nuflag=nuflag+1
  