view examples/fortransub.f @ 18610:6e81b59d657c gui-release

Add preference for terminal windows buffer size (bug #41474) * QTerminal.cc (notice_settings): call new function SetScrollBufferSize with the related value from the settings * QTerminal.h: new purely virtual function SetScrollBufferSize * QUnixTerminalImpl.cpp (initialize): corrections of coding style; (setScrollBufferSize): implementation of new function; * QUnixTerminalImpl.h: new function setScrollBufferSize; * QWinTerminalImpl.cpp (class QConsolePrivate): new function (QConsolePrivate::setScrollBufferSize): implementation of new function; (QWinTerminalImpl::setScrollBufferSize): implementation of new function; * QWinTerminalImpl.h: new function setScrollBufferSize; * settings-dialog.cc (constructor): init spinbox with buffer size from settings; (write_changed_settings): write value of spinbox into settings file * settings-dialog.ui: new spinbox for terminals buffer size (terminal tab)
author Ahsan Ali Shahid <ahsan.ali.shahid@gmail.com>
date Thu, 06 Mar 2014 03:56:59 +0500
parents 4b32677b6229
children
line wrap: on
line source

      subroutine fortransub (n, a, s)
      implicit none
      character*(*) s
      real*8 a(*)
      integer*4 i, n, ioerr
      do i = 1, n
        if (a(i) .eq. 0d0) then
          call xstopx ('fortransub: divide by zero')
        else
          a(i) = 1d0 / a(i)
        endif
      enddo
      write (unit = s, fmt = '(a,i3,a,a)', iostat = ioerr)
     $       'There are ', n,
     $       ' values in the input vector', char(0)
      if (ioerr .ne. 0) then
        call xstopx ('fortransub: error writing string')
      endif
      return
      end