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:             if(ndflag.eq.maxflg) then
                 call errms2(
       +         ' ++++++ WARNING - flag table full at limit =' ,ndflag)
                 goto 999
              endif
              ndflag=ndflag+1
  
negative.code:       if(ipos.eq.0)  then
           call errms1( ' ++++++ WARNING - comdeck '//sexp(i)//
       +   ' not found',string)
           stop 1
           goto 20
        endif
        j=isc(ipos)-1
  