
Ruby-ISPACK

ISPACKвFOTRAN77ˤͷ׻饤֥꡼Ǥ 
http://www.gfd-dennou.org/arch/ispack/
Ruby-ISPACKISPACKRubyǻȤ褦ˤ褦ȤΤǤ

ˡ:

F77ISPACK򥤥󥹥ȡ뤷Ƥ
  rubyΤΥѥƱΤ(gccg77ʤ)
  ѥ뤷ʲǤʤmake䤹Ȼפޤ

ruby-ispack-0.? ɡŸ롣
    $ tar zxvf ruby-ispack-0.?.tar.gz

Makefile롣
    $ ruby extconf.rb --with-ispack-lib=ѥ
  뤤
    $ ruby extconf_FFC.rb --with-ispack-lib=ѥ
    $ ruby extconf_ifort9.rb --with-ispack-lib=ѥ
  ǤޤMakefileǤ롢⤷ʤ
  ޤʤsample/ʲ˥ץ򤪤ƤޤΤ
  ͤˤƤ

make롣
  makeޤ ispack_raw.o, ispack_raw.so Ǥޤ
  줬̥åѡǡrubyF77饤֥ζϤ򤹤ʬ

̥åѡѤ롣
  rubyץ require "ѥ/ispack_raw.so" Ȥ
  Ȥ褦ˤʤޤ
  㤨Fortran
    CALL STSRVA(MM,JM,IM,S,U,V,P,Q,R,IT,T)
  ȤƤʬ
    u,v = ISPACK::stsrva(mm,jm,im,s,p,q,r,it,t)
  Ȥä褦ˤʤޤ

̥åѡѤ롣
  ̥åѡǤϻȤˤΤǲ̥åѡȤ
  饹äƤޤispack.rb Ǥ
  rubyץ require "ѥ/ispack" Ȥ
  Ȥ褦ˤʤޤ
  Ǥϡޤ
    st = STPACK.new(mm,jm,im)
  STPACK饹Υ󥹥󥹤
    u,v = st.srva(s)
  Ȥ뤳ȤǤޤкѿä졢ʬ
  ѿѰդɬפʤʤޤ

ץǥƥȤ롣
  sample/ʲ֤Ƥޤ
  test_c2pack.rb : ٥ʡήǤޤ
                   ܲȤsample/2D-channel/benard.f Ʊ
  test_n2pack.rb : лұΤޤ
                   ܲȤsample/2D-plane/model2d.f Ʊ
  test_sppack.rb : ǥ(ϽФʤ)
                   ܲȤsample/shallow-water-sphare/model.f Ʊ
  test_stpack.rb : Ʊ߷αहӷѲޤ


(05/10/04 R.Mizuta)
