DataTypes = [ ["S", "REAL"], ["D", "DOUBLE PRECISION"], ["C", "COMPLEX"], ["Z", "COMPLEX*16 or DOUBLE COMPLEX"], ["DS", "Data type in double but solving problem using single precision"], ["ZC", "Data type in complex*16 but solving problem using complex precision"] ] MatrixTypes = [ ["BD", "bidiagonal"], ["DI", "diagonal"], ["GB", "general band"], ["GE", "general (i.e., unsymmetric, in some cases rectangular)"], ["GG", "general matrices, generalized problem (i.e., a pair of general matrices)"], ["GT", "general tridiagonal"], ["HB", "(complex) Hermitian band"], ["HE", "(complex) Hermitian"], ["HG", "upper Hessenberg matrix, generalized problem (i.e a Hessenberg and a triangular matrix)"], ["HP", "(complex) Hermitian, packed storage"], ["HS", "upper Hessenberg"], ["OP", "(real) orthogonal, packed storage"], ["OR", "(real) orthogonal"], ["PB", "symmetric or Hermitian positive definite band"], ["PO", "symmetric or Hermitian positive definite"], ["PP", "symmetric or Hermitian positive definite, packed storage"], ["PT", "symmetric or Hermitian positive definite tridiagonal"], ["SB", "(real) symmetric band"], ["SP", "symmetric, packed storage"], ["ST", "(real) symmetric tridiagonal"], ["SY", "symmetric"], ["TB", "triangular band"], ["TG", "triangular matrices, generalized problem (i.e., a pair of triangular matrices)"], ["TP", "triangular, packed storage"], ["TR", "triangular (or in some cases quasi-triangular)"], ["TZ", "trapezoidal"], ["UN", "(complex) unitary"], ["UP", "(complex) unitary, packed storageBDbidiagonal"] ] require "numru/lapack" include NumRu prefix = File.dirname(__FILE__)+"/../doc" desc = Hash.new methods = Lapack.singleton_methods dts = Hash.new DataTypes.each{|cdt, dt| cdt = cdt.downcase dmethods = Array.new methods.each{|m| dmethods.push m if /^#{cdt}/ =~ m } dmethods.each do |m| methods.delete m end mts = Array.new MatrixTypes.each{|cmt, mt| cmt = cmt.downcase reg = /^#{cdt}#{cmt}/ ms = Array.new dmethods.each{|m| next unless reg =~ m ms.push m } ms.sort! unless ms.empty? mts.push [cmt,mt] dts[cmt] ||= Array.new dts[cmt].push [cdt, dt] File.open(File.join(prefix,"#{cdt}#{cmt}.html"),"w"){|file| file.print <<"EOF" #{dt} routines for #{mt} matrix

#{dt} routines for #{mt} matrix

EOF ms.each{|m| file.print <<"EOF"

#{m}

EOF
          IO.popen("-") do |io|
            if io # parent
              file.print io.read
            else # child
              Lapack.send(m, :help => true)
            end
          end
          file.print <<"EOF"
go to the page top EOF } file.print <<"EOF"
back to matrix types
back to data types EOF } end } unless mts.empty? File.open(File.join(prefix,"#{cdt}.html"),"w"){|file| file.print <<"EOF" #{dt} routines

#{dt} routines

back to index.html EOF } end } MatrixTypes.each do |cmt,mt| cmt = cmt.downcase if dts[cmt] File.open(File.join(prefix,"#{cmt}.html"),"w") do |file| file.print <<"EOF" #{mt} routines

#{mt} routines

back to index.html EOF end end end if methods.any? File.open(File.join(prefix,"others.html"),"w") do |file| file.print < other routines

other routines