← Back to branch summary

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

« back to all changes in this revision

Viewing changes to routines/system2/extlarg.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:
routines/system2/extlarg.f
 
1
 
 
2
c     Copyright INRIA
 
3
      subroutine extlarg(l,ils,nelt,mrhs)
 
4
C     Used in dealing with externals when 
 
5
C     extra arguments are given by a list list(external,arg1,...,argn)
 
6
C      implicit undefined (a-z) 
 
7
      INCLUDE '../stack.h'
 
8
      integer l,ils,nelt,vol,mrhs,i
 
9
      nelt=nelt-1
 
10
      if(nelt.ne.0) then
 
11
         l=l+istk(ils+1)-istk(ils)
 
12
         vol=istk(ils+nelt+1)-istk(ils+1)
 
13
         if(top+1+nelt.ge.bot) then
 
14
            call error(18)
 
15
            if(err.gt.0) return 
 
16
         endif
 
17
         err=lstk(top+1)+vol-lstk(bot)
 
18
         if(err.gt.0) then
 
19
            call error(17)
 
20
            if(err.gt.0) return 
 
21
         endif
 
22
         call unsfdcopy(vol,stk(l),1,stk(lstk(top+1)),1)
 
23
         do 11 i=1,nelt
 
24
            top=top+1
 
25
            lstk(top+1)=lstk(top)+istk(ils+i+1)-istk(ils+i)
 
26
 11      continue
 
27
         mrhs=mrhs+nelt
 
28
      endif
 
29
      return 
 
30
      end
 
31
 
 
32
 
 
33