anchor.diff:              if(k.eq.0) then
                  call errms1(' ++++++ WARNING - empty COMDECK declaration'
        +         ,sline)
  +               stop 1
                  goto 10
               endif
               call getnam(sline,k,l,kfch,klch)
  
positive.code:      +               ' ++++++ WARNING - user flag table full at:',
       +               nuflag)
                       iffull=1
                       goto 999
                    else
                       nuflag=nuflag+1
  
negative.code:             call errms1(
       +      ' ++++++ WARNING - limit of COMDECK expansion (loop ?)',
       +      sline)
              stop 1
              goto 999
           endif
           lev=lev+1
  