Fix nonreg test bug_614 (mexlib), update ref (windows), create ref (linux)
[scilab.git] / scilab_doc / intersci / fcalc.f
1       subroutine fcalc(str,a,n)
2       character*(*) str
3       integer a 
4 c
5 c     
6       if (str(1:n).eq.'one') then
7          a=1
8       elseif (str(1:n).eq.'two') then
9          a=2
10       else
11          a=-1
12       endif
13       end