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(k.eq.0) then
                 call errms1(' ++++++ WARNING - empty DECK declaration'
       +         ,sline)
                 goto 10
              endif
              call getnam(sline,k,l,kfch,klch)
  
negative.code:                call errms1(' ++++++ WARNING - duplicate COMDECK ignored'
       +         ,sline)
                 cdflag=.false.
                 stop 1
                 goto 10
              endif
              if(ndcomm.eq.mxdcom) then
  