Revert "Remove a dead function (isnum)"
[scilab.git] / scilab / modules / core / src / fortran / isnum.f
1 c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 c Copyright (C) INRIA
3
4 c This file must be used under the terms of the CeCILL.
5 c This source file is licensed as described in the file COPYING, which
6 c you should have received as part of this distribution.  The terms
7 c are also available at    
8 c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9
10       logical function isnum(s,n,ival)
11 c!but
12 c     cette fonction teste si la chaine de caractere codee donnee 
13 c     dans les n premiers entiers de s represente un nombre entier et si oui 
14 c     retourne sa valeur ival
15 c!
16       integer s(n),ival
17 c
18       ival=0
19       k=0
20  10   k=k+1
21       if(k.gt.n) goto 20
22       if(abs(s(k)).gt.9) goto 30
23       ival=10*ival+s(k)
24       goto 10
25 c
26  20   isnum=.true.
27       return
28  30   isnum=.false.
29       return
30       end