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*3 continue/' '/
      character*1 cont

      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, c for'
     2       //' continuous, 0 to stop, enter=same)>', 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 = lp
            else
              cont = continue
              if (index('Nn',cont) .ne. 0) stop
              if (index('Cc',cont) .ne. 0) stopit = .false.
            end if
          end if
          noline = 0
        end if
      end if
      
      
      write (nout1, '(a)') line(:max(1,len_trim(line)))
      return
      end