← Back to branch summary

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

« back to all changes in this revision

Viewing changes to examples/misc-examples/res22.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/misc-examples/res22.f
 
1
      subroutine res22(t,y,ydot,delta,ires,rpar,ipar)
 
2
c     Copyright INRIA
 
3
      double precision t,y,ydot,delta,rpar
 
4
      integer neq,ipar
 
5
c
 
6
      dimension y(*), ydot(*), delta(*)
 
7
      neq=2
 
8
      call f22(neq,t,y,delta)
 
9
      do 10 i = 1,neq
 
10
         delta(i) = ydot(i) - delta(i)
 
11
 10   continue
 
12
      end
 
13
 
 
14
      subroutine f22 (neq, t, y, ydot)
 
15
      double precision t,y,ydot
 
16
      integer neq
 
17
c
 
18
      dimension y(*), ydot(*)
 
19
      ydot(1) = y(2)
 
20
      ydot(2) = 100.0d0*(1.0d0 - y(1)*y(1))*y(2) - y(1)
 
21
      end
 
22