subroutine putout (nout1, line)
      
c the unit no for output is nout1 - this can be = mout or
c = nout. If there is NO file output - mout=nout=6
c If there is file output - mout=11,nout=6

      include 'basics.inc'

      character*(*) line

      integer noline /0/
      integer linpag/24/
      logical stopit/.true./
      character*8 continue/' '/

      noline = noline + 1
      
c      if (nout .eq. 6 .and. stopit) then  ! old line

      if ( ( mout .eq. nout ) .and. stopit) then  ! old line 

        if (mod(noline,linpag) .eq. 0) then
          call caryon ('+more (number of lines,' 
     2          //' 0 = stop, C = continuous, <Return> = same)>', 
     2          continue)
          lencon = len_trim(continue)
          if (lencon .ne. 0) then
            lp = itch(continue(:lencon), ier)
            if (ier .eq. lencon) then
              if (lp .eq. 0) stop
              linpag = iabs(lp)
            else
              if (index('Nn',continue(1:1)) .ne. 0) stop
              if (index('Cc',continue(1:1)) .ne. 0) stopit = .false.
            end if
          end if
          noline = 0
        end if
      end if
      
      
      if (nout1 .eq. 6) then
        write (nout1, '(a,a)') '+',line(:max(1,len_trim(line)))
        write (nout1, '(1x)')
      else
        write (nout1, '(a)') line(:max(1,len_trim(line)))
      end if
      return
      end