summaryrefslogtreecommitdiffstats
path: root/scilab/modules/sparse
diff options
context:
space:
mode:
authorYuri Chornoivan <yurchor@ukr.net>2010-01-21 16:56:52 +0100
committerSylvestre Ledru <sylvestre.ledru@scilab.org>2010-01-21 16:56:52 +0100
commita57bb4cbbc7fa77de07de8d26d5bb49202511515 (patch)
treee5541a10c51bb746045ac2bddcf2f21c971407bf /scilab/modules/sparse
parent1952d02b3170753f8d55f35af4fd707baba5ba73 (diff)
downloadscilab-a57bb4cbbc7fa77de07de8d26d5bb49202511515.zip
scilab-a57bb4cbbc7fa77de07de8d26d5bb49202511515.tar.gz
Fix many english typos
Diffstat (limited to 'scilab/modules/sparse')
-rw-r--r--scilab/modules/sparse/src/fortran/spextr.f10
-rw-r--r--scilab/modules/sparse/src/fortran/spextr1.f4
2 files changed, 7 insertions, 7 deletions
diff --git a/scilab/modules/sparse/src/fortran/spextr.f b/scilab/modules/sparse/src/fortran/spextr.f
index f8db9d7..d7715b1 100644
--- a/scilab/modules/sparse/src/fortran/spextr.f
+++ b/scilab/modules/sparse/src/fortran/spextr.f
@@ -16,7 +16,7 @@
16* 16*
17* CAUTION 17* CAUTION
18* nel_max is the maximum non zeros elements authorized 18* nel_max is the maximum non zeros elements authorized
19* for B => if this limit is not enought the error 19* for B => if this limit is not enough the error
20* indicator ierr is set to -1 (else 0) 20* indicator ierr is set to -1 (else 0)
21* 21*
22* AUTHOR 22* AUTHOR
@@ -71,7 +71,7 @@
71 if ( A_mnel(ia) .gt. 0 ) then 71 if ( A_mnel(ia) .gt. 0 ) then
72 72
73 if (allcol) then 73 if (allcol) then
74 if ( kb+A_mnel(ia) .ge. nel_max ) then ! not enought memory 74 if ( kb+A_mnel(ia) .ge. nel_max ) then ! not enough memory
75 ierr = -1 75 ierr = -1
76 return 76 return
77 endif 77 endif
@@ -89,7 +89,7 @@
89 ja = A_icol(ka) 89 ja = A_icol(ka)
90 k = dicho_search(ja, j, nj) 90 k = dicho_search(ja, j, nj)
91 if ( k .ne. 0 ) then ! we have found (the smallest) k such that ja = j(k) 91 if ( k .ne. 0 ) then ! we have found (the smallest) k such that ja = j(k)
92 100 if (kb .gt. nel_max) then ! not enought memory 92 100 if (kb .gt. nel_max) then ! not enough memory
93 ierr = -1 93 ierr = -1
94 return 94 return
95 endif 95 endif
@@ -114,7 +114,7 @@
114 ja = A_icol(ka) 114 ja = A_icol(ka)
115 k = dicho_search_bis(ja, j, p, nj) 115 k = dicho_search_bis(ja, j, p, nj)
116 if ( k .ne. 0 ) then ! we have found (the smallest) k such that ja = j(p(k)) 116 if ( k .ne. 0 ) then ! we have found (the smallest) k such that ja = j(p(k))
117 200 if (kb .gt. nel_max) then ! not enought memory 117 200 if (kb .gt. nel_max) then ! not enough memory
118 ierr = -1 118 ierr = -1
119 return 119 return
120 endif 120 endif
@@ -135,7 +135,7 @@
135 kk = dicho_search(j(k), A_icol(ptr(ia)), A_mnel(ia)) 135 kk = dicho_search(j(k), A_icol(ptr(ia)), A_mnel(ia))
136 if ( kk .ne. 0 ) then ! we have found kk such that j(k) = A_icol(ptr(ia)-1+kk) 136 if ( kk .ne. 0 ) then ! we have found kk such that j(k) = A_icol(ptr(ia)-1+kk)
137 ka = kk + ptr(ia) - 1 137 ka = kk + ptr(ia) - 1
138 if (kb .gt. nel_max) then ! not enought memory 138 if (kb .gt. nel_max) then ! not enough memory
139 ierr = -1 139 ierr = -1
140 return 140 return
141 endif 141 endif
diff --git a/scilab/modules/sparse/src/fortran/spextr1.f b/scilab/modules/sparse/src/fortran/spextr1.f
index 137d5ba..570c062 100644
--- a/scilab/modules/sparse/src/fortran/spextr1.f
+++ b/scilab/modules/sparse/src/fortran/spextr1.f
@@ -19,7 +19,7 @@
19* 19*
20* CAUTION 20* CAUTION
21* nel_max is the maximum non zeros elements authorized 21* nel_max is the maximum non zeros elements authorized
22* for B => if this limit is not enought the error 22* for B => if this limit is not enough the error
23* indicator ierr is set to -1 (else 0) 23* indicator ierr is set to -1 (else 0)
24* 24*
25* AUTHOR 25* AUTHOR
@@ -63,7 +63,7 @@
63 B_mnel(1) = kb - 1 63 B_mnel(1) = kb - 1
64 64
65 else 65 else
66 call sz2ptr(A_mnel, A_m-1, ptr) ! need ptr to acces fastly at the beginning of a row 66 call sz2ptr(A_mnel, A_m-1, ptr) ! need ptr to access fastly at the beginning of a row
67 67
68 if (A_n .gt. 1) then 68 if (A_n .gt. 1) then
69 do k = 1, ni 69 do k = 1, ni