2010年8月24日火曜日

Clefフォーマットのファイルをfortranで読み込む

open(20,file='fort.20',form='unformatted')
do
  read(20,iostat=ists) n,time
  if(ists /= 0) exit
  read(20) (((u(i,j,k),i=1,imax),j=1,jmax),k=1,kmax)
  read(20) (((v(i,j,k),i=1,imax),j=1,jmax),k=1,kmax)
  read(20) (((w(i,j,k),i=1,imax),j=1,jmax),k=1,kmax)
  read(20) (((p(i,j,k),i=1,imax),j=1,jmax),k=1,kmax)
! --- ここに,処理したい文を入れる.例えば,圧力を2倍したり,平均をとったりして,fort.21に書き出すなど.
end do
close(20)

お暇なときに

nag Fortran検定
http://www.nag-j.co.jp/fortran/exam/index.html

日本機械学会論文集への投稿

参考:
日本機械学会論文集 投稿のご案内
2010/8/24日現在の情報より作成.現在移行時期なので要注意.
  1. テンプレートファイルをダウンロード(電子版)
    http://www.jsme.or.jp/publish/ronbun/denshi01.html
  2. 執筆
    執筆要綱(2010/7/30改訂 PDF)
    http://www.jsme.or.jp/publish/ronbun/JSME_Manual_20100730.pdf
    執筆要綱(旧バージョン HTML)
    http://www.jsme.or.jp/publish/yoko/indext.htm
  3. 投稿
    1. オンライン原稿表紙をダウンロード(論文・技術論文・研究展望・研究随想)
      http://www.jsme.or.jp/publish/template/wordman/hyoshi10.doc
      ※基準キーワード: http://www.jsme.or.jp/publish/template/keyword.html
    2. 和文抄録をダウンロード(論文・技術論文・研究展望・研究随想)
      http://www.jsme.or.jp/publish/template/wordman/wa_syo_w2.doc
    3. 送付(投稿)
      http://www.jsme.or.jp/publish/ronbun/template.html#3


英文名称: Transactions of the Japan Society of Mechanical Engineers

ifortで2GB以上のメモリを要する場合

ifort -mcmodel=large -i-dynamic x.for

ifort command sample

ifort x.for
ifort x.for /exe:myprog.exe
ifort x.for /link /out:myprog.exe

gnuplot 出力

Windows 拡張メタファイルに出力
set term emf

Widows ディスプレイに出力(wgnuplot4.4では,wxtがデフォルト)
set term wxt