← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/plplot/intrepid

« back to all changes in this revision

Viewing changes to examples/f77/x08f.fm4

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2006-11-04 10:19:34 UTC
  • mfrom: (2.1.8 edgy)
  • Revision ID: james.westby@ubuntu.com-20061104101934-mlirvdg4gpwi6i5q
Tags: 5.6.1-10
* Orphaning the package
* debian/control: Changed the maintainer to the Debian QA Group

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/f77/x08f.fm4
1
 
C      $Id: x08f.fm4,v 1.12 2004/01/17 16:41:39 rlaboiss Exp $
 
1
C      $Id: x08f.fm4,v 1.14 2005/04/27 06:43:54 rlaboiss Exp $
2
2
C      3-d plot demo
3
3
C
4
4
C      Copyright (C) 2004  Alan W. Irwin
17
17
C
18
18
C      You should have received a copy of the GNU Library General Public
19
19
C      License along with PLplot; if not, write to the Free Software
20
 
C      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
20
C      Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
21
21
 
22
22
      implicit none
23
23
      real*8 PI
129
129
     &        clevel, 0, xdim)
130
130
          elseif(ifshade.eq.2) then
131
131
C            magnitude colored plot with faceted squares
 
132
            call cmap1_init(0)
132
133
            call plsurf3d(x, y, z, xpts, ypts,
133
134
     &        ior(MAG_COLOR, FACETED),
134
135
     &        clevel, 0, xdim)
135
136
          elseif(ifshade.eq.3) then
136
137
C            magnitude colored plot with contours
 
138
            call cmap1_init(0)
137
139
            call plsurf3d(x, y, z, xpts, ypts,
138
140
     &        ior(MAG_COLOR, ior(SURF_CONT, BASE_CONT)),
139
141
     &        clevel, nlevel, xdim)