anchor.diff:              if(ndflag.eq.maxflg) then
                  call errms2(
        +         ' ++++++ WARNING - flag table full at limit =' ,ndflag)
  +               stop 1
                  goto 999
               endif
               ndflag=ndflag+1
  
positive.code:       print *, ' '
        print *, ' +++ Warning: input file (SOURCE) is empty, STOP'
        print *, ' '
        stop
      2 continue
        write(ipunit,10000)  smast
     10 continue
  
negative.code:      +               '++++++ WARNING - user deck table full at:',
       +               nudeck)
                       idfull=1
                       stop 1
                       goto 999
                    else
                       do 20 i=nudeck,ipos,-1
  