summaryrefslogtreecommitdiffstats
path: root/scilab/modules/elementary_functions
diff options
context:
space:
mode:
authorSylvestre Ledru <sylvestre.ledru@scilab.org>2010-03-16 15:19:56 +0100
committerSylvestre Ledru <sylvestre.ledru@scilab.org>2010-03-16 15:19:56 +0100
commitdd80edde2b9fdba5eea8fef2d73d0bc9d4b97661 (patch)
tree782dd57d6fd73a61b1147aa306dcd0863919c13b /scilab/modules/elementary_functions
parent0040387579b11cf982e2fbd59c05751a28971f47 (diff)
parentfcf094440a0507cc049d1be4444ff9a81b0af748 (diff)
downloadscilab-dd80edde2b9fdba5eea8fef2d73d0bc9d4b97661.zip
scilab-dd80edde2b9fdba5eea8fef2d73d0bc9d4b97661.tar.gz
Merge remote branch 'origin/5.2'
Diffstat (limited to 'scilab/modules/elementary_functions')
-rw-r--r--scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_isreal.f2
1 files changed, 1 insertions, 1 deletions
diff --git a/scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_isreal.f b/scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_isreal.f
index 5a79b8f..7f32d99 100644
--- a/scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_isreal.f
+++ b/scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_isreal.f
@@ -62,7 +62,7 @@ c . check for zero imaginary part
62 if(istk(il).ne.1.and.istk(il).ne.2.and.istk(il).ne.5) then 62 if(istk(il).ne.1.and.istk(il).ne.2.and.istk(il).ne.5) then
63 top=top+1 63 top=top+1
64 call ref2val 64 call ref2val
65 call funnam(ids(1,pt+1),'isreal',iadr(lstk(top))) 65 call funnam(ids(1,pt+1),'isreal',iadr(lstk(top-1)))
66 fun=-1 66 fun=-1
67 return 67 return
68 endif 68 endif