summaryrefslogtreecommitdiffstats
path: root/scilab/modules/symbolic/sci_gateway
diff options
context:
space:
mode:
authorAllan CORNET <allan.cornet@scilab.org>2008-11-20 16:57:36 +0100
committerAllan CORNET <allan.cornet@scilab.org>2008-11-20 16:57:36 +0100
commita1a3fd0d2cd6fc1f2ae9fcba7f5f7da945dc7488 (patch)
tree50af7f341a879d1b44e6dddcd2a7f3aeb2451729 /scilab/modules/symbolic/sci_gateway
parentbbfba7bbf7eb0c210084006314aba9e63433f9f4 (diff)
downloadscilab-a1a3fd0d2cd6fc1f2ae9fcba7f5f7da945dc7488.zip
scilab-a1a3fd0d2cd6fc1f2ae9fcba7f5f7da945dc7488.tar.gz
Warnings Intel Fortran 11
Diffstat (limited to 'scilab/modules/symbolic/sci_gateway')
-rw-r--r--scilab/modules/symbolic/sci_gateway/fortran/sci_addsubf.f8
-rw-r--r--scilab/modules/symbolic/sci_gateway/fortran/sci_ldivf.f4
-rw-r--r--scilab/modules/symbolic/sci_gateway/fortran/sci_mulf.f4
-rw-r--r--scilab/modules/symbolic/sci_gateway/fortran/sci_rdivf.f4
4 files changed, 10 insertions, 10 deletions
diff --git a/scilab/modules/symbolic/sci_gateway/fortran/sci_addsubf.f b/scilab/modules/symbolic/sci_gateway/fortran/sci_addsubf.f
index 017a57f..0cdfd3f 100644
--- a/scilab/modules/symbolic/sci_gateway/fortran/sci_addsubf.f
+++ b/scilab/modules/symbolic/sci_gateway/fortran/sci_addsubf.f
@@ -12,11 +12,11 @@ c ----------------------------
12 character*(*) fname 12 character*(*) fname
13 include 'stack.h' 13 include 'stack.h'
14 14
15 logical iseye,isnum 15 logical isnum
16 integer lparen,rparen,star,plus,minus,blanc,slash,bslash,symb 16 integer plus,minus
17 integer iadr,sadr 17 integer iadr,sadr
18 data lparen/41/,rparen/42/,star/47/,plus/45/,minus/46/,blanc/40/ 18 data plus/45/,minus/46/
19 data slash/48/ ,bslash/49/ 19
20 20
21 iadr(l)=l+l-1 21 iadr(l)=l+l-1
22 sadr(l)=(l/2)+1 22 sadr(l)=(l/2)+1
diff --git a/scilab/modules/symbolic/sci_gateway/fortran/sci_ldivf.f b/scilab/modules/symbolic/sci_gateway/fortran/sci_ldivf.f
index 0f9a7d0..5bdfba2 100644
--- a/scilab/modules/symbolic/sci_gateway/fortran/sci_ldivf.f
+++ b/scilab/modules/symbolic/sci_gateway/fortran/sci_ldivf.f
@@ -13,9 +13,9 @@ c ----------------------------
13 include 'stack.h' 13 include 'stack.h'
14 14
15 logical iseye,isnum 15 logical iseye,isnum
16 integer lparen,rparen,star,plus,minus,blanc,slash,bslash,symb 16 integer lparen,rparen,star,minus,blanc,slash,bslash,symb
17 integer iadr,sadr 17 integer iadr,sadr
18 data lparen/41/,rparen/42/,star/47/,plus/45/,minus/46/,blanc/40/ 18 data lparen/41/,rparen/42/,star/47/,minus/46/,blanc/40/
19 data slash/48/ ,bslash/49/ 19 data slash/48/ ,bslash/49/
20 20
21 iadr(l)=l+l-1 21 iadr(l)=l+l-1
diff --git a/scilab/modules/symbolic/sci_gateway/fortran/sci_mulf.f b/scilab/modules/symbolic/sci_gateway/fortran/sci_mulf.f
index f0c2d70..1e5af72 100644
--- a/scilab/modules/symbolic/sci_gateway/fortran/sci_mulf.f
+++ b/scilab/modules/symbolic/sci_gateway/fortran/sci_mulf.f
@@ -14,9 +14,9 @@ c ----------------------------
14 include 'stack.h' 14 include 'stack.h'
15 15
16 logical iseye,isnum 16 logical iseye,isnum
17 integer lparen,rparen,star,plus,minus,blanc,slash,bslash,symb 17 integer lparen,rparen,star,minus,blanc,slash,bslash,symb
18 integer iadr,sadr 18 integer iadr,sadr
19 data lparen/41/,rparen/42/,star/47/,plus/45/,minus/46/,blanc/40/ 19 data lparen/41/,rparen/42/,star/47/,minus/46/,blanc/40/
20 data slash/48/ ,bslash/49/ 20 data slash/48/ ,bslash/49/
21 21
22 iadr(l)=l+l-1 22 iadr(l)=l+l-1
diff --git a/scilab/modules/symbolic/sci_gateway/fortran/sci_rdivf.f b/scilab/modules/symbolic/sci_gateway/fortran/sci_rdivf.f
index 421e56b..8365d43 100644
--- a/scilab/modules/symbolic/sci_gateway/fortran/sci_rdivf.f
+++ b/scilab/modules/symbolic/sci_gateway/fortran/sci_rdivf.f
@@ -13,9 +13,9 @@ c ----------------------------
13 include 'stack.h' 13 include 'stack.h'
14 14
15 logical iseye,isnum 15 logical iseye,isnum
16 integer lparen,rparen,star,plus,minus,blanc,slash,bslash,symb 16 integer lparen,rparen,star,minus,blanc,slash,bslash,symb
17 integer iadr,sadr 17 integer iadr,sadr
18 data lparen/41/,rparen/42/,star/47/,plus/45/,minus/46/,blanc/40/ 18 data lparen/41/,rparen/42/,star/47/,minus/46/,blanc/40/
19 data slash/48/ ,bslash/49/ 19 data slash/48/ ,bslash/49/
20 20
21 iadr(l)=l+l-1 21 iadr(l)=l+l-1