← Back to branch summary

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

« back to all changes in this revision

Viewing changes to routines/default/mainsci.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/default/mainsci.f
 
1
      program mainsci
 
2
c     Copyright INRIA
 
3
      character*40 arg,display
 
4
      character*256 pname, path
 
5
      integer nos,now,idisp,mem
 
6
      integer p1,p2
 
7
      integer lpname, ldisp
 
8
      common /comnos/nos,mem
 
9
      common /starfi/path
 
10
      data now,idisp /0,0/
 
11
      data lpname,ldisp /256,40/
 
12
      nos=0
 
13
      mem=0
 
14
      path=' '
 
15
      nargs = iargc()
 
16
      call fgetarg(0,pname)
 
17
      call nofpex()
 
18
      i = 0
 
19
 10   continue
 
20
      i=i+1
 
21
      if (i.gt.nargs) goto 11
 
22
      call fgetarg(i,arg)
 
23
      if (arg.eq.'-ns') then 
 
24
         nos=1
 
25
      elseif (arg.eq.'-nw') then 
 
26
         now=1
 
27
      elseif (arg.eq.'-display') then 
 
28
         i=i+1
 
29
         call fgetarg(i,display)
 
30
         idisp=1
 
31
      elseif (arg.eq.'-pipes') then
 
32
         i=i+1
 
33
         call fgetarg(i,arg)
 
34
         read(arg,'(i5)') p1
 
35
         i=i+1
 
36
         call fgetarg(i,arg)
 
37
         read(arg,'(i5)') p2
 
38
         call initcom(p1,p2)
 
39
      elseif (arg.eq.'-mem') then
 
40
         i=i+1
 
41
         arg=' '
 
42
         call fgetarg(i,arg)
 
43
         read(arg,'(i10)') mem
 
44
      elseif (arg.eq.'-f') then
 
45
         i=i+1
 
46
         call fgetarg(i,path)         
 
47
      endif
 
48
      goto 10
 
49
 11   continue
 
50
      mem=max(mem,180000)
 
51
C     test enleve: jpc 18/01/2001 if ( nos.eq.0 ) 
 
52
      call settmpdir()
 
53
      if(now.eq.1) then
 
54
         call scilab(nos)
 
55
      else
 
56
         call winsci(pname,nos,idisp,display,lpname,ldisp)
 
57
      endif
 
58
      end