ruby-lapack 1.7.1 → 1.7.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 0d5613ac86732b6afdbbddbade455853e275cf91
-  data.tar.gz: bfea6515bc1ac5e7d9ea9f8600685eb1f8fdb088
+  metadata.gz: 098368c8e96980512abbc75217bf685e8f869612
+  data.tar.gz: 93f656be91a7ca10383d90b51f48c9865db19098
 SHA512:
-  metadata.gz: 643f484bb4b5524bd496b39f7354034318c88e9b51396438eec12b18a7a03319a91345615fbe962753e79ced7858c1fc293a4e8af68e67fed8d9a248dca57f5b
-  data.tar.gz: a2b1ca62adb1f07eda92174feaf7c2b189b7623a721ab547b78dc703bee14fb182499801a243396d5167bf737fcf52811747dc6b1ef862343be4a7bd18c23a71
+  metadata.gz: 92480b3239ecc8232967ba221beb59110b63c1ac9ad7c63cfb04195e8c36c1e8c3d6e22e97ffb7cef99bc46ce3967536f8257c36e1799a2bfe1c2a4895f276a7
+  data.tar.gz: 840315569edbcc4d4623fe6c5588fa8e23a243cb0ffc60747234e8612014c3ec74ffdc7f1911af8fb0d61450a323d4b1bd2c4d1be63342ae97441fb3e9cf286a

data/Rakefile

@@ -3,7 +3,7 @@ require "rubygems/package_task"
 require "rake/clean"
 require "rake/testtask"
 
-version = "1.7.1"
+version = "1.7.2"
 target_prefix = "numru"
 
 # get options

data/dev/defs/claed7

@@ -120,7 +120,7 @@
   *\n\
   *        The first stage consists of deflating the size of the problem\n\
   *        when there are multiple eigenvalues or if there is a zero in\n\
-  *        the Z vector.  For each such occurence the dimension of the\n\
+  *        the Z vector.  For each such occurrence the dimension of the\n\
   *        secular equation problem is reduced by one.  This stage is\n\
   *        performed by the routine SLAED2.\n\
   *\n\

data/dev/defs/clarrv

@@ -134,7 +134,7 @@
   *  L       (input/output) REAL             array, dimension (N)\n\
   *          On entry, the (N-1) subdiagonal elements of the unit\n\
   *          bidiagonal matrix L are in elements 1 to N-1 of L\n\
-  *          (if the matrix is not splitted.) At the end of each block\n\
+  *          (if the matrix is not split.) At the end of each block\n\
   *          is stored the corresponding shift as given by SLARRE.\n\
   *          On exit, L is overwritten.\n\
   *\n\

data/dev/defs/dlaed1

@@ -68,7 +68,7 @@
   *\n\
   *        The first stage consists of deflating the size of the problem\n\
   *        when there are multiple eigenvalues or if there is a zero in\n\
-  *        the Z vector.  For each such occurence the dimension of the\n\
+  *        the Z vector.  For each such occurrence the dimension of the\n\
   *        secular equation problem is reduced by one.  This stage is\n\
   *        performed by the routine DLAED2.\n\
   *\n\

data/dev/defs/dlaed7

@@ -120,7 +120,7 @@
   *\n\
   *        The first stage consists of deflating the size of the problem\n\
   *        when there are multiple eigenvalues or if there is a zero in\n\
-  *        the Z vector.  For each such occurence the dimension of the\n\
+  *        the Z vector.  For each such occurrence the dimension of the\n\
   *        secular equation problem is reduced by one.  This stage is\n\
   *        performed by the routine DLAED8.\n\
   *\n\

data/dev/defs/dlag2

@@ -1,42 +1,42 @@
---- 
+---
 :name: dlag2
 :md5sum: cb3cffe0121d3cdef959429272b11c8d
 :category: :subroutine
-:arguments: 
-- a: 
+:arguments:
+- a:
     :type: doublereal
     :intent: input
-    :dims: 
+    :dims:
     - lda
     - "2"
-- lda: 
+- lda:
     :type: integer
     :intent: input
-- b: 
+- b:
     :type: doublereal
     :intent: input
-    :dims: 
+    :dims:
     - ldb
     - "2"
-- ldb: 
+- ldb:
     :type: integer
     :intent: input
-- safmin: 
+- safmin:
     :type: doublereal
     :intent: input
-- scale1: 
+- scale1:
     :type: doublereal
     :intent: output
-- scale2: 
+- scale2:
     :type: doublereal
     :intent: output
-- wr1: 
+- wr1:
     :type: doublereal
     :intent: output
-- wr2: 
+- wr2:
     :type: doublereal
     :intent: output
-- wi: 
+- wi:
     :type: doublereal
     :intent: output
 :substitutions: {}
@@ -91,7 +91,7 @@
   *          will always be positive.  If the eigenvalues are real, then\n\
   *          the first (real) eigenvalue is  WR1 / SCALE1 , but this may\n\
   *          overflow or underflow, and in fact, SCALE1 may be zero or\n\
-  *          less than the underflow threshhold if the exact eigenvalue\n\
+  *          less than the underflow threshold if the exact eigenvalue\n\
   *          is sufficiently large.\n\
   *\n\
   *  SCALE2  (output) DOUBLE PRECISION\n\
@@ -101,7 +101,7 @@
   *          eigenvalues are real, then the second (real) eigenvalue is\n\
   *          WR2 / SCALE2 , but this may overflow or underflow, and in\n\
   *          fact, SCALE2 may be zero or less than the underflow\n\
-  *          threshhold if the exact eigenvalue is sufficiently large.\n\
+  *          threshold if the exact eigenvalue is sufficiently large.\n\
   *\n\
   *  WR1     (output) DOUBLE PRECISION\n\
   *          If the eigenvalue is real, then WR1 is SCALE1 times the\n\

data/dev/defs/dlag2s

@@ -1,36 +1,36 @@
---- 
+---
 :name: dlag2s
 :md5sum: 669e5e37ddea7cbcff65fc0b9ae1eca2
 :category: :subroutine
-:arguments: 
-- m: 
+:arguments:
+- m:
     :type: integer
     :intent: input
-- n: 
+- n:
     :type: integer
     :intent: input
-- a: 
+- a:
     :type: doublereal
     :intent: input
-    :dims: 
+    :dims:
     - lda
     - n
-- lda: 
+- lda:
     :type: integer
     :intent: input
-- sa: 
+- sa:
     :type: real
     :intent: output
-    :dims: 
+    :dims:
     - ldsa
     - n
-- ldsa: 
+- ldsa:
     :type: integer
     :intent: input
-- info: 
+- info:
     :type: integer
     :intent: output
-:substitutions: 
+:substitutions:
   ldsa: MAX(1,m)
 :fortran_help: "      SUBROUTINE DLAG2S( M, N, A, LDA, SA, LDSA, INFO )\n\n\
   *  Purpose\n\
@@ -41,7 +41,7 @@
   *\n\
   *  RMAX is the overflow for the SINGLE PRECISION arithmetic\n\
   *  DLAG2S checks that all the entries of A are between -RMAX and\n\
-  *  RMAX. If not the convertion is aborted and a flag is raised.\n\
+  *  RMAX. If not the conversion is aborted and a flag is raised.\n\
   *\n\
   *  This is an auxiliary routine so there is no argument checking.\n\
   *\n\n\

data/dev/defs/dlarrf

@@ -91,7 +91,7 @@
   *  =========\n\
   *\n\
   *  N       (input) INTEGER\n\
-  *          The order of the matrix (subblock, if the matrix splitted).\n\
+  *          The order of the matrix (subblock, if the matrix split).\n\
   *\n\
   *  D       (input) DOUBLE PRECISION array, dimension (N)\n\
   *          The N diagonal elements of the diagonal matrix D.\n\

data/dev/defs/dlarrv

@@ -134,7 +134,7 @@
   *  L       (input/output) DOUBLE PRECISION array, dimension (N)\n\
   *          On entry, the (N-1) subdiagonal elements of the unit\n\
   *          bidiagonal matrix L are in elements 1 to N-1 of L\n\
-  *          (if the matrix is not splitted.) At the end of each block\n\
+  *          (if the matrix is not split.) At the end of each block\n\
   *          is stored the corresponding shift as given by DLARRE.\n\
   *          On exit, L is overwritten.\n\
   *\n\

data/dev/defs/dlasd1

@@ -90,7 +90,7 @@
   *\n\
   *     The first stage consists of deflating the size of the problem\n\
   *     when there are multiple singular values or when there are zeros in\n\
-  *     the Z vector.  For each such occurence the dimension of the\n\
+  *     the Z vector.  For each such occurrence the dimension of the\n\
   *     secular equation problem is reduced by one.  This stage is\n\
   *     performed by the routine DLASD2.\n\
   *\n\

data/dev/defs/dlasd6

@@ -152,7 +152,7 @@
   *\n\
   *        The first stage consists of deflating the size of the problem\n\
   *        when there are multiple singular values or if there is a zero\n\
-  *        in the Z vector. For each such occurence the dimension of the\n\
+  *        in the Z vector. For each such occurrence the dimension of the\n\
   *        secular equation problem is reduced by one. This stage is\n\
   *        performed by the routine DLASD7.\n\
   *\n\

data/dev/defs/slaed1

@@ -68,7 +68,7 @@
   *\n\
   *        The first stage consists of deflating the size of the problem\n\
   *        when there are multiple eigenvalues or if there is a zero in\n\
-  *        the Z vector.  For each such occurence the dimension of the\n\
+  *        the Z vector.  For each such occurrence the dimension of the\n\
   *        secular equation problem is reduced by one.  This stage is\n\
   *        performed by the routine SLAED2.\n\
   *\n\

data/dev/defs/slaed7

@@ -120,7 +120,7 @@
   *\n\
   *        The first stage consists of deflating the size of the problem\n\
   *        when there are multiple eigenvalues or if there is a zero in\n\
-  *        the Z vector.  For each such occurence the dimension of the\n\
+  *        the Z vector.  For each such occurrence the dimension of the\n\
   *        secular equation problem is reduced by one.  This stage is\n\
   *        performed by the routine SLAED8.\n\
   *\n\

data/dev/defs/slag2

@@ -1,42 +1,42 @@
---- 
+---
 :name: slag2
 :md5sum: 4299c5465453583eb5c3f7ba95c8c2df
 :category: :subroutine
-:arguments: 
-- a: 
+:arguments:
+- a:
     :type: real
     :intent: input
-    :dims: 
+    :dims:
     - lda
     - "2"
-- lda: 
+- lda:
     :type: integer
     :intent: input
-- b: 
+- b:
     :type: real
     :intent: input
-    :dims: 
+    :dims:
     - ldb
     - "2"
-- ldb: 
+- ldb:
     :type: integer
     :intent: input
-- safmin: 
+- safmin:
     :type: real
     :intent: input
-- scale1: 
+- scale1:
     :type: real
     :intent: output
-- scale2: 
+- scale2:
     :type: real
     :intent: output
-- wr1: 
+- wr1:
     :type: real
     :intent: output
-- wr2: 
+- wr2:
     :type: real
     :intent: output
-- wi: 
+- wi:
     :type: real
     :intent: output
 :substitutions: {}
@@ -91,7 +91,7 @@
   *          will always be positive.  If the eigenvalues are real, then\n\
   *          the first (real) eigenvalue is  WR1 / SCALE1 , but this may\n\
   *          overflow or underflow, and in fact, SCALE1 may be zero or\n\
-  *          less than the underflow threshhold if the exact eigenvalue\n\
+  *          less than the underflow threshold if the exact eigenvalue\n\
   *          is sufficiently large.\n\
   *\n\
   *  SCALE2  (output) REAL\n\
@@ -101,7 +101,7 @@
   *          eigenvalues are real, then the second (real) eigenvalue is\n\
   *          WR2 / SCALE2 , but this may overflow or underflow, and in\n\
   *          fact, SCALE2 may be zero or less than the underflow\n\
-  *          threshhold if the exact eigenvalue is sufficiently large.\n\
+  *          threshold if the exact eigenvalue is sufficiently large.\n\
   *\n\
   *  WR1     (output) REAL\n\
   *          If the eigenvalue is real, then WR1 is SCALE1 times the\n\

data/dev/defs/slarrf

@@ -91,7 +91,7 @@
   *  =========\n\
   *\n\
   *  N       (input) INTEGER\n\
-  *          The order of the matrix (subblock, if the matrix splitted).\n\
+  *          The order of the matrix (subblock, if the matrix split).\n\
   *\n\
   *  D       (input) REAL array, dimension (N)\n\
   *          The N diagonal elements of the diagonal matrix D.\n\

data/dev/defs/slarrv

@@ -134,7 +134,7 @@
   *  L       (input/output) REAL array, dimension (N)\n\
   *          On entry, the (N-1) subdiagonal elements of the unit\n\
   *          bidiagonal matrix L are in elements 1 to N-1 of L\n\
-  *          (if the matrix is not splitted.) At the end of each block\n\
+  *          (if the matrix is not split.) At the end of each block\n\
   *          is stored the corresponding shift as given by SLARRE.\n\
   *          On exit, L is overwritten.\n\
   *\n\

data/dev/defs/slasd1

@@ -89,7 +89,7 @@
   *\n\
   *     The first stage consists of deflating the size of the problem\n\
   *     when there are multiple singular values or when there are zeros in\n\
-  *     the Z vector.  For each such occurence the dimension of the\n\
+  *     the Z vector.  For each such occurrence the dimension of the\n\
   *     secular equation problem is reduced by one.  This stage is\n\
   *     performed by the routine SLASD2.\n\
   *\n\

data/dev/defs/slasd6

@@ -152,7 +152,7 @@
   *\n\
   *        The first stage consists of deflating the size of the problem\n\
   *        when there are multiple singular values or if there is a zero\n\
-  *        in the Z vector. For each such occurence the dimension of the\n\
+  *        in the Z vector. For each such occurrence the dimension of the\n\
   *        secular equation problem is reduced by one. This stage is\n\
   *        performed by the routine SLASD7.\n\
   *\n\

data/dev/defs/zlaed7

@@ -120,7 +120,7 @@
   *\n\
   *        The first stage consists of deflating the size of the problem\n\
   *        when there are multiple eigenvalues or if there is a zero in\n\
-  *        the Z vector.  For each such occurence the dimension of the\n\
+  *        the Z vector.  For each such occurrence the dimension of the\n\
   *        secular equation problem is reduced by one.  This stage is\n\
   *        performed by the routine DLAED2.\n\
   *\n\

data/dev/defs/zlag2c

@@ -1,36 +1,36 @@
---- 
+---
 :name: zlag2c
 :md5sum: 74fe0ffefcc616f52a172abaa7fccf0d
 :category: :subroutine
-:arguments: 
-- m: 
+:arguments:
+- m:
     :type: integer
     :intent: input
-- n: 
+- n:
     :type: integer
     :intent: input
-- a: 
+- a:
     :type: doublecomplex
     :intent: input
-    :dims: 
+    :dims:
     - lda
     - n
-- lda: 
+- lda:
     :type: integer
     :intent: input
-- sa: 
+- sa:
     :type: complex
     :intent: output
-    :dims: 
+    :dims:
     - ldsa
     - n
-- ldsa: 
+- ldsa:
     :type: integer
     :intent: input
-- info: 
+- info:
     :type: integer
     :intent: output
-:substitutions: 
+:substitutions:
   ldsa: MAX(1,m)
 :fortran_help: "      SUBROUTINE ZLAG2C( M, N, A, LDA, SA, LDSA, INFO )\n\n\
   *  Purpose\n\
@@ -40,7 +40,7 @@
   *\n\
   *  RMAX is the overflow for the SINGLE PRECISION arithmetic\n\
   *  ZLAG2C checks that all the entries of A are between -RMAX and\n\
-  *  RMAX. If not the convertion is aborted and a flag is raised.\n\
+  *  RMAX. If not the conversion is aborted and a flag is raised.\n\
   *\n\
   *  This is an auxiliary routine so there is no argument checking.\n\
   *\n\n\

data/dev/defs/zlarrv

@@ -134,7 +134,7 @@
   *  L       (input/output) DOUBLE PRECISION array, dimension (N)\n\
   *          On entry, the (N-1) subdiagonal elements of the unit\n\
   *          bidiagonal matrix L are in elements 1 to N-1 of L\n\
-  *          (if the matrix is not splitted.) At the end of each block\n\
+  *          (if the matrix is not split.) At the end of each block\n\
   *          is stored the corresponding shift as given by DLARRE.\n\
   *          On exit, L is overwritten.\n\
   *\n\

data/dev/make_csrc.rb

@@ -150,7 +150,7 @@ end
 
 
 
-def create_code(name, flag)
+def create_code(name, flag, debug)
   def_fname = File.join(TOPDIR, "dev", "defs", name)
   hash = nil
   begin
@@ -255,7 +255,7 @@ def create_code(name, flag)
     inputs.delete(k)
   end
 
-  if @@debug
+  if debug
     p "inputs"
     p inputs
     p "outputs"
@@ -481,7 +481,7 @@ EOF
   end
   order = new_order
 
- if @@debug
+ if debug
    p "order"
    pp order
  end
@@ -756,14 +756,14 @@ EOF
   return [code_all, sub_name]
 end
 
-def generate_code(fnames, names)
+def generate_code(fnames, names, debug)
   nfnames = fnames.length
   sub_names = Array.new
   fnames.each_with_index{|fname,i|
     print "#{i+1}/#{nfnames}\n" if (i+1)%100==0
     name = File.basename(fname)
     flag = names.nil? || names.include?(name)
-    code, sub_name = create_code(name, flag)
+    code, sub_name = create_code(name, flag, debug)
     if code
       sub_names.push sub_name
       if flag
@@ -846,7 +846,7 @@ end
 
 
 
-@@debug = ARGV.delete("--debug")
+debug = ARGV.delete("--debug")
 
 #dname = ARGV.shift || raise("Usage: ruby #$0 path_to_lapack_src [name0, name1, ..]")
 dname = File.join(TOPDIR, "dev", "defs")
@@ -856,7 +856,7 @@ end
 
 unless ARGV.empty?
   names = ARGV
-  @@debug = true
+  debug = true
 else
   names = nil
 end
@@ -864,4 +864,4 @@ end
 reg = File.join(dname, "[a-z]*[a-z0-9]")
 fnames = Dir[reg]
 
-generate_code(fnames, names)
+generate_code(fnames, names, debug)