function sorry(nrec,modplot,outc)
c
c     Expresses apologies for not doing what the user wants it to do
c
      logical sorry,modplot
      integer*4 nrec,outc
c
      sorry=.true.
      if(nrec.eq.0.and..not.modplot)then
       write(outc,*)'*** Sorry: you have to read data and model first!'
      elseif(nrec.eq.0)then
       write(outc,*)'*** Sorry: you have to read the data first!'
      elseif(.not.modplot)then
       write(outc,*)'*** Sorry: you have to read the model first!'
      else
       sorry=.false.
      endif
c
      return
      end