← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to examples/interface-tour/ex17f.f

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/interface-tour/ex17f.f
 
1
      subroutine ex17f(x,nx,y,ny,z,f)
 
2
      double precision x(*),y(*),z(nx,ny),zz
 
3
      integer nx,ny
 
4
      external f
 
5
      do 1 i=1,nx
 
6
      do 1 j=1,ny
 
7
         call f(x(i),y(j),zz)
 
8
         z(i,j)=zz
 
9
  1   continue
 
10
      end
 
11
 
 
12
      subroutine f1f(x,y,z) 
 
13
      double precision x,y,z
 
14
      z=x+y
 
15
      end
 
16
 
 
17
      subroutine f2f(x,y,z)
 
18
      double precision x,y,z
 
19
      z=x*x+y*y
 
20
      end
 
21