carray 1.3.7 → 1.4.0

data/mkmath.rb

@@ -289,7 +289,12 @@ ca_binop_#{name}_#{type} (ca_size_t n, boolean8_t *m, char *ptr1, ca_size_t i1,
   io.puts
   io.print %{
 static VALUE rb_ca_#{name} (VALUE self, VALUE other)
-{ return rb_ca_call_binop(self, other, ca_binop_#{name}); }
+{ 
+  if ( ! rb_ca_test_castable(other) ) {
+    return rb_ca_binop_pass_to_other(self, other, rb_intern("#{op}"));
+  }
+  return rb_ca_call_binop(self, other, ca_binop_#{name}); 
+}
 static VALUE rb_ca_#{name}_bang (VALUE self, VALUE other)
 { return rb_ca_call_binop_bang(self, other, ca_binop_#{name}); }
   }
@@ -529,7 +534,12 @@ ca_bincmp_#{name}_#{type} (ca_size_t n, boolean8_t *m,
   io.puts
   io.print %{
 static VALUE rb_ca_#{name} (VALUE self, VALUE other)
-{ return rb_ca_call_bincmp(self, other, ca_bincmp_#{name}); }
+{ 
+  if ( ! rb_ca_test_castable(other) ) {
+    return rb_ca_binop_pass_to_other(self, other, rb_intern("#{op}"));
+  }
+  return rb_ca_call_bincmp(self, other, ca_bincmp_#{name});
+}
   }
   DEFINITIONS << io.string
   if op

data/version.h

@@ -10,9 +10,9 @@
 
 ---------------------------------------------------------------------------- */
 
-#define CA_VERSION "1.3.7"
-#define CA_VERSION_CODE 137
+#define CA_VERSION "1.4.0"
+#define CA_VERSION_CODE 140
 #define CA_VERSION_MAJOR 1
-#define CA_VERSION_MINOR 3
-#define CA_VERSION_TEENY 7
-#define CA_VERSION_DATE "2020/04/07"
+#define CA_VERSION_MINOR 4
+#define CA_VERSION_TEENY 0
+#define CA_VERSION_DATE "2020/06/15"

metadata

@@ -1,57 +1,15 @@
 --- !ruby/object:Gem::Specification
 name: carray
 version: !ruby/object:Gem::Version
-  version: 1.3.7
+  version: 1.4.0
 platform: ruby
 authors:
 - Hiroki Motoyoshi
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2020-04-07 00:00:00.000000000 Z
-dependencies:
-- !ruby/object:Gem::Dependency
-  name: narray
-  requirement: !ruby/object:Gem::Requirement
-    requirements:
-    - - "~>"
-      - !ruby/object:Gem::Version
-        version: 0.6.1.1
-  type: :runtime
-  prerelease: false
-  version_requirements: !ruby/object:Gem::Requirement
-    requirements:
-    - - "~>"
-      - !ruby/object:Gem::Version
-        version: 0.6.1.1
-- !ruby/object:Gem::Dependency
-  name: narray_miss
-  requirement: !ruby/object:Gem::Requirement
-    requirements:
-    - - "~>"
-      - !ruby/object:Gem::Version
-        version: '1.3'
-  type: :runtime
-  prerelease: false
-  version_requirements: !ruby/object:Gem::Requirement
-    requirements:
-    - - "~>"
-      - !ruby/object:Gem::Version
-        version: '1.3'
-- !ruby/object:Gem::Dependency
-  name: sqlite3
-  requirement: !ruby/object:Gem::Requirement
-    requirements:
-    - - "~>"
-      - !ruby/object:Gem::Version
-        version: '1.3'
-  type: :runtime
-  prerelease: false
-  version_requirements: !ruby/object:Gem::Requirement
-    requirements:
-    - - "~>"
-      - !ruby/object:Gem::Version
-        version: '1.3'
+date: 2020-06-15 00:00:00.000000000 Z
+dependencies: []
 description: |2
       CArray is a uniform multi-dimensional rectangular array class.
       It provides the various types of sub-arrays and references
@@ -61,16 +19,12 @@ email: ''
 executables: []
 extensions:
 - extconf.rb
-- ext/narray/extconf.rb
 - ext/mathfunc/extconf.rb
-- ext/fortio/extconf.rb
 - ext/calculus/extconf.rb
 extra_rdoc_files: []
 files:
 - COPYING
 - GPL
-- Gemfile
-- Gemfile.lock
 - LEGAL
 - NOTE
 - README.md
@@ -125,61 +79,33 @@ files:
 - carray_undef.c
 - carray_utils.c
 - devel/guess_shape.rb
+- devel/im2col.rb
 - ext/calculus/carray_calculus.c
 - ext/calculus/carray_interp.c
 - ext/calculus/extconf.rb
-- ext/calculus/lib/autoload/autoload_math_calculus.rb
 - ext/calculus/lib/math/calculus.rb
 - ext/calculus/lib/math/interp/adapter_interp1d.rb
-- ext/fortio/extconf.rb
-- ext/fortio/lib/carray/autoload/autoload_fortran_format.rb
-- ext/fortio/lib/carray/io/fortran_format.rb
-- ext/fortio/lib/fortio.rb
-- ext/fortio/lib/fortio/fortran_format.rb
-- ext/fortio/lib/fortio/fortran_format.tab.rb
-- ext/fortio/lib/fortio/fortran_format.y
-- ext/fortio/lib/fortio/fortran_namelist.rb
-- ext/fortio/lib/fortio/fortran_namelist.tab.rb
-- ext/fortio/lib/fortio/fortran_namelist.y
-- ext/fortio/lib/fortio/fortran_sequential.rb
-- ext/fortio/ruby_fortio.c
-- ext/fortio/test/test_H.rb
-- ext/fortio/test/test_T.rb
-- ext/fortio/test/test_fortran_format.rb
-- ext/fortio/test/test_namelist.rb
-- ext/fortio/test/test_namelist_write.rb
-- ext/fortio/test/test_sequential.rb
-- ext/fortio/test/test_sequential2.rb
-- ext/fortio/work/test.rb
-- ext/fortio/work/test_e.rb
-- ext/fortio/work/test_ep.rb
-- ext/fortio/work/test_parse.rb
 - ext/mathfunc/carray_mathfunc.c
 - ext/mathfunc/extconf.rb
-- ext/mathfunc/lib/autoload/autoload_math_mathfunc.rb
-- ext/mathfunc/lib/math/mathfunc.rb
 - ext/mathfunc/test/test_hypot.rb
 - ext/mathfunc/test/test_j0.rb
 - ext/mathfunc/test/test_jn.rb
 - ext/mathfunc/test/test_sph.rb
-- ext/narray/README
-- ext/narray/ca_wrap_narray.c
-- ext/narray/carray_narray.c
-- ext/narray/extconf.rb
-- ext/narray/lib/autoload/autoload_math_narray.rb
-- ext/narray/lib/autoload/autoload_math_narray_miss.rb
-- ext/narray/lib/math/narray.rb
-- ext/narray/lib/math/narray_miss.rb
 - extconf.rb
 - lib/carray.rb
 - lib/carray/autoload/autoload_base.rb
-- lib/carray/autoload/autoload_graphics_gnuplot.rb
-- lib/carray/autoload/autoload_graphics_zimg.rb
-- lib/carray/autoload/autoload_io_csv.rb
+- lib/carray/autoload/autoload_gem_cairo.rb
+- lib/carray/autoload/autoload_gem_ffi.rb
+- lib/carray/autoload/autoload_gem_gnuplot.rb
+- lib/carray/autoload/autoload_gem_io_csv.rb
+- lib/carray/autoload/autoload_gem_io_pg.rb
+- lib/carray/autoload/autoload_gem_io_sqlite3.rb
+- lib/carray/autoload/autoload_gem_narray.rb
+- lib/carray/autoload/autoload_gem_numo_narray.rb
+- lib/carray/autoload/autoload_gem_opencv.rb
+- lib/carray/autoload/autoload_gem_rmagick.rb
+- lib/carray/autoload/autoload_gem_zimg.rb
 - lib/carray/autoload/autoload_io_imagemagick.rb
-- lib/carray/autoload/autoload_io_numo.rb
-- lib/carray/autoload/autoload_io_pg.rb
-- lib/carray/autoload/autoload_io_sqlite3.rb
 - lib/carray/autoload/autoload_io_table.rb
 - lib/carray/autoload/autoload_math_histogram.rb
 - lib/carray/autoload/autoload_math_interp.rb
@@ -194,15 +120,10 @@ files:
 - lib/carray/base/math.rb
 - lib/carray/base/obsolete.rb
 - lib/carray/base/serialize.rb
+- lib/carray/base/string.rb
 - lib/carray/base/struct.rb
-- lib/carray/graphics/gnuplot.rb
-- lib/carray/graphics/zimg.rb
 - lib/carray/info.rb
-- lib/carray/io/csv.rb
 - lib/carray/io/imagemagick.rb
-- lib/carray/io/numo.rb
-- lib/carray/io/pg.rb
-- lib/carray/io/sqlite3.rb
 - lib/carray/io/table.rb
 - lib/carray/math/histogram.rb
 - lib/carray/math/interp.rb
@@ -296,11 +217,7 @@ rdoc_options:
 - rdoc_stat.rb
 - lib/carray/info.rb
 - lib/carray/io/table.rb
-- lib/carray/io/sqlite3.rb
-- lib/carray/io/csv.rb
-- lib/carray/io/numo.rb
 - lib/carray/io/imagemagick.rb
-- lib/carray/io/pg.rb
 - lib/carray/math/interp.rb
 - lib/carray/math/interp/adapter_gsl_spline.rb
 - lib/carray/math/histogram.rb
@@ -309,24 +226,28 @@ rdoc_options:
 - lib/carray/object/ca_obj_pack.rb
 - lib/carray/object/ca_obj_link.rb
 - lib/carray/autoload/autoload_io_table.rb
+- lib/carray/autoload/autoload_gem_narray.rb
 - lib/carray/autoload/autoload_math_histogram.rb
-- lib/carray/autoload/autoload_io_csv.rb
-- lib/carray/autoload/autoload_io_pg.rb
 - lib/carray/autoload/autoload_math_interp.rb
 - lib/carray/autoload/autoload_io_imagemagick.rb
-- lib/carray/autoload/autoload_io_numo.rb
+- lib/carray/autoload/autoload_gem_cairo.rb
+- lib/carray/autoload/autoload_gem_numo_narray.rb
+- lib/carray/autoload/autoload_gem_zimg.rb
 - lib/carray/autoload/autoload_math_recurrence.rb
-- lib/carray/autoload/autoload_io_sqlite3.rb
-- lib/carray/autoload/autoload_graphics_zimg.rb
-- lib/carray/autoload/autoload_graphics_gnuplot.rb
+- lib/carray/autoload/autoload_gem_io_pg.rb
+- lib/carray/autoload/autoload_gem_ffi.rb
+- lib/carray/autoload/autoload_gem_gnuplot.rb
+- lib/carray/autoload/autoload_gem_opencv.rb
+- lib/carray/autoload/autoload_gem_io_sqlite3.rb
+- lib/carray/autoload/autoload_gem_io_csv.rb
+- lib/carray/autoload/autoload_gem_rmagick.rb
 - lib/carray/autoload/autoload_base.rb
 - lib/carray/autoload/autoload_object_link.rb
 - lib/carray/autoload/autoload_object_pack.rb
 - lib/carray/autoload/autoload_object_iterator.rb
 - lib/carray/mkmf.rb
-- lib/carray/graphics/gnuplot.rb
-- lib/carray/graphics/zimg.rb
 - lib/carray/base/struct.rb
+- lib/carray/base/string.rb
 - lib/carray/base/math.rb
 - lib/carray/base/inspect.rb
 - lib/carray/base/iterator.rb
@@ -347,8 +268,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubyforge_project: 
-rubygems_version: 2.7.7
+rubygems_version: 3.0.3
 signing_key: 
 specification_version: 4
 summary: Multi-dimesional array class

data/Gemfile

@@ -1,8 +0,0 @@
-# A sample Gemfile
-source "https://rubygems.org"
-
-# gem "rails"
-gem "narray"
-gem "narray_miss"
-gem "spreadsheet"
-gem "sqlite3"

data/Gemfile.lock

@@ -1,33 +0,0 @@
-GEM
-  remote: https://rubygems.org/
-  specs:
-    axlsx (2.0.1)
-      htmlentities (~> 4.3.1)
-      nokogiri (>= 1.4.1)
-      rubyzip (~> 1.0.0)
-    htmlentities (4.3.4)
-    mini_portile2 (2.0.0)
-    narray (0.6.1.2)
-    narray_miss (1.3.0)
-      numru-narray
-    nokogiri (1.6.7.2)
-      mini_portile2 (~> 2.0.0.rc2)
-    numru-narray (1.0.3)
-    ruby-ole (1.2.12)
-    rubyzip (1.0.0)
-    spreadsheet (1.1.2)
-      ruby-ole (>= 1.0)
-    sqlite3 (1.3.11)
-
-PLATFORMS
-  ruby
-
-DEPENDENCIES
-  axlsx
-  narray
-  narray_miss
-  spreadsheet
-  sqlite3
-
-BUNDLED WITH
-   1.11.2

data/ext/calculus/lib/autoload/autoload_math_calculus.rb

@@ -1,2 +0,0 @@
-require "carray/carray_calculus"
-require "carray/math/calculus"

data/ext/fortio/extconf.rb

@@ -1,3 +0,0 @@
-require "mkmf"
-
-create_makefile("fortio_ext")

data/ext/fortio/lib/carray/autoload/autoload_fortran_format.rb

@@ -1,5 +0,0 @@
-
-class CArray
-  autoload_method "self.from_fortran_format",  "carray/io/fortran_format"
-  autoload_method "to_fortran_format",  "carray/io/fortran_format"
-end

data/ext/fortio/lib/carray/io/fortran_format.rb

@@ -1,43 +0,0 @@
-require "fortio"
-
-class CArray
-
-  def self.from_fortran_format (fmt, io)
-    case io
-    when String
-      io = StringIO.new(io)
-    end
-    case fmt
-    when String
-      fmt = FortranFormat.new(fmt)
-    end
-    data = []
-    begin
-      data << fmt.read(io)
-    end until io.eof?
-    return data.to_ca
-  end
-
-  def to_fortran_format (fmt, input="")
-    case input
-    when String
-      io = StringIO.new(input)
-    else
-      io = input
-    end
-    case fmt
-    when String
-      fmt = FortranFormat.new(fmt)
-    end
-    n = fmt.count_args
-    attach {
-      self[nil].blocks(0...n).each do |blk|
-        fmt.write(io, *blk.to_a)
-      end
-    }
-    return input
-  end
-
-end
-
-

data/ext/fortio/lib/fortio.rb

@@ -1,3 +0,0 @@
-require "fortio/fortran_format"
-require "fortio/fortran_namelist"
-require "fortio/fortran_sequential"

data/ext/fortio/lib/fortio/fortran_format.rb

@@ -1,605 +0,0 @@
-# ----------------------------------------------------------------------------
-#
-#  carray/io/fortran_format.rb
-#
-#  This file is part of Ruby/CArray extension library.
-#  You can redistribute it and/or modify it under the terms of
-#  the Ruby Licence.
-#
-#  Copyright (C) 2005 Hiroki Motoyoshi
-#
-# ----------------------------------------------------------------------------
-#
-# Supported format descriptors
-# ----------------------------
-#   nFw.d        : floating point
-#   nEw.d        : floating point
-#   nDw.d        : floating point
-#   nGw.d        : floating point
-#   nESw.d       : 
-#   nEd          : exponential
-#   nIw(.d)      : integer
-#   nLw          : logical
-#   nAw          : string
-#   nX           : write n white space or skip reading by n-characters
-#   Tn           : move to n-character from line head
-#   TLn          : move left relative by n-characters
-#   TRn          : move right relative by n-characters
-#   +P, -P
-#   S, SP, SS
-#   BN,BZ        
-#   nH...        : hollerith string (e.g. 5Hhello)
-#   '...', "..." : quoted string
-#   /            : line feed
-#   $            : surppress line feed
-#
-# Short methods
-# -------------
-#
-# ### fortran_format(fmt, *vals)
-#
-# ### fortran_format_write(io, fmt, *vals)
-#
-# ### fortran_format_read(io, fmt)
-#
-
-
-require "fortio_ext"
-require "fortio/fortran_format.tab"
-require "stringio"
-
-class FortranFormat
-
-  FORMAT_POOL = Hash.new { |hash, fmt| 
-    hash[fmt] = FortranFormatParser.new.parse(fmt)
-  }
-
-  def self.reset
-    FORMAT_POOL.clear
-  end
-
-  def initialize (fmt)
-    @format = FORMAT_POOL[fmt]
-  end
-
-  def write (io, *list)
-	  io ||= ""
-    buf = StringIO.new()
-    @format.write_as_root(buf, list)
-    io << buf.string
-    return io 
-  end
-
-  def read (io, list = [])
-    if io.is_a?(String)
-      io = StringIO.new(io)
-    end
-    @format.read_as_root(io, list)
-    return list
-  end
-  
-  def count_args
-    return @format.count_args
-  end
-  
-  def inspect
-    return "<FortranFormat: #{@format.inspect}>"
-  end
-  
-end
-
-def FortranFormat.check_length (len, str)
-  if str.length > len
-    return "*" * len
-  else
-    return str
-  end
-end
-
-def FortranFormat (fmt)
-  return FortranFormat.new(fmt)
-end
-
-def fortran_format_write (io, fmt, *data)
-  if fmt.is_a?(FortranFormat)
-    return fmt.write(io, *data)
-  else
-    return FortranFormat.new(fmt).write(io, *data)
-  end
-end
-
-def fortran_format_read (io, fmt)
-  if fmt.is_a?(FortranFormat)
-    return fmt.read(io)
-  else
-    return FortranFormat.new(fmt).read(io)
-  end
-end
-
-def fortran_format (fmt, *data)
-  return fortran_format_write(nil, fmt, *data)
-end
-
-class FortranFormatParser
-  
-  State = Struct.new(:scale, :sign, :zero, :continue, :pos0, :tab_move)
-  
-  Group = Struct.new(:count, :member)
-  class Group 
-    def write_as_root (io, list)
-      state = State.new(0, false, false, false, io.pos, false)
-      write(io, list, state)
-      if state.continue
-        if state.tab_move
-	        io.string.gsub!(/\000/, ' ')
-	      end
-	    else
-	      if state.tab_move
-	        io.string.gsub!(/\000/, ' ')
-          io.seek(0, IO::SEEK_END)
-	      end
-        io.puts
-		  end
-    end
-    def write (io, list, state)
-      count.times do |i|
-        member.each do |mem|
-          mem.write(io, list, state)
-        end
-      end
-    end
-    def read_as_root (io, list)
-      state = State.new(0, false, false, false, io.pos, false)
-      read(io, list, state)
-      unless state.continue
-        io.gets
-      end
-    end
-    def read (io, list, state)
-      count.times do |i|
-        member.each do |mem|
-          mem.read(io, list, state)
-        end
-      end
-    end
-    def count_args
-      return count*member.inject(0){|s,m| s + m.count_args}
-    end
-    def inspect
-      count_str = count == 1 ? "" : count.to_s
-      return "#{count_str}(" + member.map{|x| x.inspect}.join(",")+ ')'
-    end
-  end
-
-  class Continue
-    def write (io, list, state)
-      state.continue = true
-    end
-    def read (io, list, state)
-      state.continue = true
-    end
-    def count_args
-      return 0
-    end
-    def inspect
-      return "$"
-    end
-  end
-  
-  Flush = Struct.new(:count)
-  class Flush
-    def write (io, list, state)
-      io << "\n" * count
-    end
-    def read (io, list, state)
-      count.times do 
-        io.gets
-      end
-    end
-    def count_args
-      return count
-    end  
-    def inspect
-      count_str = count == 1 ? "" : count.to_s
-      return "#{count_str}/"
-    end
-  end
-
-  NodeS = Struct.new(:text)
-  class NodeS
-    def write (io, list, state)
-      io << text
-    end
-    def read (io, list, state)
-      raise RuntimeError, "constant string for reading"
-    end
-    def count_args
-      return 0
-    end  
-    def inspect
-      if text !~ /'/
-        return "'" + text + "'"
-      else 
-        return '"' + text.gsub(/"/, '""') + '"'
-      end
-    end
-  end
-
-  NodeT= Struct.new(:n)
-  class NodeT
-    def write (io, list, state)
-      io.pos = state.pos0 + n
-      state.tab_move = true
-    end
-    def read (io, list, state)
-      io.pos = state.pos0 + n
-    end
-    def count_args
-      return 0
-    end  
-    def inspect
-      return "TL#{n}"
-    end
-  end
-
-  NodeTL = Struct.new(:n)
-  class NodeTL
-    def write (io, list, state)
-      io.pos -= n
-      state.tab_move = true
-    end
-    def read (io, list, state)
-      io.pos -= n
-    end
-    def count_args
-      return 0
-    end  
-    def inspect
-      return "TL#{n}"
-    end
-  end
-
-  NodeTR = Struct.new(:n)
-  class NodeTR
-    def write (io, list, state)
-      io.pos += n
-      state.tab_move = true
-    end
-    def read (io, list, state)
-      io.pos += n
-    end
-    def count_args
-      return 0
-    end  
-    def inspect
-      return "TR#{n}"
-    end
-  end
-
-  NodeX = Struct.new(:count)
-  class NodeX
-    def write (io, list, state)
-      io << " " * count
-    end
-    def read (io, list, state)
-      io.read(count)
-    end
-    def count_args
-      return 0
-    end  
-    def inspect
-      count_str = count == 1 ? "" : count.to_s
-      return "#{count_str}X"
-    end
-  end
-
-  NodeP = Struct.new(:scale)
-  class NodeP
-    def write (io, list, state)
-      state.scale = scale
-    end
-    def read (io, list, state)
-      state.scale = scale      
-    end
-    def count_args
-      return 0
-    end  
-    def inspect
-      return "#{scale}P"
-    end
-  end
-
-  NodeSp = Struct.new(:sign)
-  class NodeSp
-    def write (io, list, state)
-      state.sign = sign
-    end
-    def read (io, list, state)
-    end
-    def count_args
-      return 0
-    end  
-    def inspect
-      if sign
-        return "SP"
-      else
-        return "SS"
-      end
-    end
-  end
-
-  NodeB = Struct.new(:zero)
-  class NodeB
-    def write (io, list, state)
-    end
-    def read (io, list, state)
-      state.zero = zero
-#      if zero
-#        warn "FortranFormat: BZ is not supported descriptor"
-#      end
-    end
-    def count_args
-      return 0
-    end  
-    def inspect
-      if zero
-        return "BZ"
-      else
-        return "BN"
-      end
-    end
-  end
-
-  NodeH = Struct.new(:count, :string)
-  class NodeH
-    def write (io, list, state)
-      io << string
-    end
-    def read (io, list, state)
-      raise "format h is not implemented for reading"
-    end
-    def count_args
-      return count
-    end  
-    def inspect
-      count_str = count == 1 ? "" : count.to_s
-      return "#{count_str}H#{string}"
-    end
-  end
-
-  NodeA = Struct.new(:count, :length)
-  class NodeA
-    def write (io, list, state)
-      len = length
-      if len
-        count.times do 
-          str = list.shift
-          if str.length > len
-            io << str[0,len]
-          else
-            io << str.rjust(len)
-          end
-        end
-      else
-        io << str
-      end
-    end
-    def read (io, list, state)
-      str = nil
-      if length
-        count.times do 
-          list << (str = io.read(length))
-        end
-      else
-        list << (str = io.read)
-      end
-    rescue
-      raise "reading error in fortran format : #{str.dump} for #{self.inspect}"
-    end
-    def count_args
-      return count
-    end  
-    def inspect
-      count_str = count == 1 ? "" : count.to_s
-      return "#{count_str}A#{length}"
-    end
-  end
-
-  NodeL = Struct.new(:count, :length)
-  class NodeL
-    def write (io, list, state)
-      count.times do
-        if list.shift
-          io << " "*(length-1) + "T"
-	      else
-          io << " "*(length-1) + "F"
-		    end
-		  end
-    end
-    def read (io, list, state)
-      count.times do
-        case io.read(length)
-	      when /\A *?\.?t/i
-		      list.push(true)
-		    else
-			    list.push(false)
-		    end
-		  end      
-    end
-    def count_args
-      return count
-    end  
-    def inspect
-      count_str = count == 1 ? "" : count.to_s
-      return "#{count_str}L#{length}"
-    end
-  end
-
-  NodeI = Struct.new(:count, :length, :prec)
-  class NodeI
-    def write (io, list, state)
-      if prec
-        if state.sign
-          fmt = "%#{length-prec}s%+0#{prec-1}i"
-        else
-          fmt = "%#{length-prec}s%0#{prec}i"        
-        end
-      else
-        if state.sign
-          fmt = "%s%+#{length-1}i"
-        else
-          fmt = "%s%#{length}i"        
-        end
-      end 
-      count.times do
-        str = format(fmt, "", list.shift)
-        io << FortranFormat.check_length(length, str)
-      end
-    end
-    def read (io, list, state)
-      str = nil
-      count.times do
-        str = io.read(length)
-        if state.zero 
-          list << str.gsub(/ /,'0').to_i
-        else
-          list << str.to_i
-        end
-      end
-    rescue
-      raise "reading error in fortran format : #{str.dump} for #{self.inspect}"
-    end
-    def count_args
-      return count
-    end  
-    def inspect
-      count_str = count == 1 ? "" : count.to_s
-      if prec
-        return "#{count_str}I#{length}.#{prec}"
-      else
-        return "#{count_str}I#{length}"        
-      end
-    end
-  end
-  
-  NodeF = Struct.new(:count, :length, :prec)
-  class NodeF
-    def write (io, list, state)
-      count.times do
-        str = FortranFormat.write_F(state.sign, state.scale, length, prec, list.shift)
-        io << FortranFormat.check_length(length, str)
-      end
-    end
-    def read (io, list, state)
-      str = nil
-      count.times do
-        str = io.read(length)
-        if state.zero 
-          str = str.gsub(/ /,'0')
-        end
-        list << FortranFormat.read_F(str, state.scale, length, prec)
-      end
-    rescue
-      raise "reading error in fortran format : #{str.dump} for #{self.inspect}"
-    end
-    def count_args
-      return count
-    end  
-    def inspect
-      count_str = count == 1 ? "" : count.to_s
-      return "#{count_str}F#{length}.#{prec}"
-    end
-  end
-
-  NodeE = Struct.new(:count, :length, :prec, :exp)
-  class NodeE
-    def write (io, list, state) 
-      count.times do
-        str = FortranFormat.write_E(state.sign, state.scale, length, prec, exp, list.shift)
-        io << FortranFormat.check_length(length, str)
-      end
-    end
-    def read (io, list, state)
-      str = nil
-      count.times do
-        str = io.read(length)
-        if state.zero 
-          str = str.gsub(/ /,'0')
-        end
-        list << str.to_f
-      end
-    rescue
-      raise "reading error in fortran format : #{str.dump} for #{self.inspect}"
-    end
-    def count_args
-      return count
-    end  
-    def inspect
-      count_str = count == 1 ? "" : count.to_s
-      exp_str   = (exp.nil? or exp == 2) ? "" :  "E#{exp}"
-      return "#{count_str}E#{length}.#{prec}#{exp_str}"
-    end
-  end
-
-  NodeES = Struct.new(:count, :length, :prec, :exp)
-  class NodeES
-    def write (io, list, state) 
-      count.times do
-        str = FortranFormat.write_E(state.sign, 1, length, prec, exp, list.shift)
-        io << FortranFormat.check_length(length, str)
-      end
-    end
-    def read (io, list, state)
-      str = nil
-      count.times do
-        str = io.read(length)
-        if state.zero 
-          str = str.gsub(/ /,'0')
-        end
-        list << str.to_f
-      end
-    rescue
-      raise "reading error in fortran format : #{str.dump} for #{self.inspect}"
-    end
-    def count_args
-      return count
-    end  
-    def inspect
-      count_str = count == 1 ? "" : count.to_s
-      exp_str   = (exp.nil? or exp == 2) ? "" :  "E#{exp}"
-      return "#{count_str}ES#{length}.#{prec}#{exp_str}"
-    end
-  end
-
-  NodeG = Struct.new(:count, :length, :prec, :exp)
-  class NodeG
-    def write (io, list, state)
-      count.times do
-        str = FortranFormat.write_G(state.sign, state.scale, length, prec, exp, list.shift)
-        io << FortranFormat.check_length(length, str)
-      end
-    end
-    def read (io, list, state)
-      str = nil
-      count.times do
-        str = io.read(length)
-        if state.zero 
-          str = str.gsub(/ /,'0')
-        end
-        list << str.to_f
-      end
-    rescue
-      raise "reading error in fortran format : #{str.dump} for #{self.inspect}"
-    end
-    def count_args
-      return count
-    end  
-    def inspect
-      count_str = count == 1 ? "" : count.to_s
-      exp_str   = (exp.nil? or exp == 2) ? "" :  "E#{exp}"
-      return "#{count_str}G#{length}.#{prec}#{exp_str}"
-    end
-  end
-    
-end
-