← Back to branch summary

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

« back to all changes in this revision

Viewing changes to routines/system2/isnum.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/isnum.f
 
1
      logical function isnum(s,n,ival)
 
2
c!but
 
3
c     cette fonction teste si la chaine de caractere codee donnee 
 
4
c     dans les n premiers entiers de s represente un nombre entier et si oui 
 
5
c     retourne sa valeur ival
 
6
c!
 
7
c     Copyright INRIA
 
8
      integer s(n),ival
 
9
c
 
10
      ival=0
 
11
      k=0
 
12
 10   k=k+1
 
13
      if(k.gt.n) goto 20
 
14
      if(abs(s(k)).gt.9) goto 30
 
15
      ival=10*ival+s(k)
 
16
      goto 10
 
17
c
 
18
 20   isnum=.true.
 
19
      return
 
20
 30   isnum=.false.
 
21
      return
 
22
      end