Mercurial > octave-dspies
view examples/fortransub.f @ 18677:f684f7075aee
Don't fetch lots of axes state information for rendering if object is not visible.
* gl-render.cc (opengl_renderer::draw_axes_planes): Check axes color and
visibility and return immediately from function if there is nothing to do.
* gl-render.cc (opengl_renderer::draw_axes_boxes): Check axes
visibility and return immediately from function if there is nothing to do.
* gl-render.cc (opengl_renderer::draw_axes_x_grid, drax_axes_y_grid,
draw_axes_z_grid): Check axes state and visibility before bothering to
fetch any more state data.
* gl-render.cc (miscellaneous): Clean up comments. Change lines to wrap at <
80 chars.
* graphics.cc (axes::properties::update_axes_layout): Use std::swap instead
of intermediate temporary variable for clearer coding style.
author | Rik <rik@octave.org> |
---|---|
date | Fri, 25 Apr 2014 11:18:04 -0700 |
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