1. ここ行って、ネタを持ってくる。
  2. SuSE 謹製の netCDF は Fortran 未対応なので、こっそり対応版持ってきて、上書きしてしまう。
  3. ネタを展開。元のフォートランソースが一行の行数制限をかなり無視した書き方をしているので、
 #!/bin/sh
 mkdir org
 for src in *.f *.F
 do
   expand $src > $fort.tmp
   mv $src org && mv $src.tmp $fort
 done

てなスクリプトで、展開して vi *.f *.F しとく。

  1. あんなパッチ
 *** Makefile.dist       2007-04-24 15:20:44.000000000 +0900
 --- Makefile    2007-04-24 15:21:04.000000000 +0900
 ***************
 *** 30,36 ****
   OBJECTS = $(SOURCES:.f=.o) $(FSOURCES:.F=.o)
 ! FFLAGS = -DPWD="'`pwd`'" -fast -O4 -cg89
   .KEEP_STATE :
   .PRECIOUS :
 --- 30,38 ----
   OBJECTS = $(SOURCES:.f=.o) $(FSOURCES:.F=.o)
 ! Fc = gfortran
 ! #FFLAGS = -DPWD="'`pwd`'" -fast -O4 -cg89
 ! FFLAGS =
   .KEEP_STATE :
   .PRECIOUS :
  1. こんなパッチ。ファイル名ハードコーディング名のがどうにもさえない。
 *** read-nc.F.dist      2007-04-24 15:26:59.000000000 +0900
 --- read-nc.F   2007-04-24 15:27:10.000000000 +0900
 ***************
 *** 78,84 ****
   ccc             open the netcdf file and get the variable id's
   ccc
 !           filename = PWD//'/gamma.nc'
             id_gnc = ncopn(filename,nw,ierr)
             if(i0.eq.1.and.j0.eq.1) then
 --- 78,84 ----
   ccc             open the netcdf file and get the variable id's
   ccc
 !           filename = '/home/ka/lib/matlab/gamma/gamma.nc'
             id_gnc = ncopn(filename,nw,ierr)
             if(i0.eq.1.and.j0.eq.1) then
  1. さらに 2 パッチ。
     *** gamma_n.m.dist      2007-04-24 17:17:57.000000000 +0900
     --- gamma_n.m   2007-04-24 15:50:02.000000000 +0900
     ***************
     *** 86,92 ****
       %%%           run external code
       %%%
     ! command = ['!glabel_matlab >& /dev/null'];
       eval(command);
     --- 86,92 ----
       %%%           run external code
       %%%
     ! command = ['!/home/ka/lib/matlab/gamma/matlab-interface/glabel_matlab'];
       eval(command);
 *** neutral_surfaces.m.dist     2007-04-24 17:20:22.000000000 +0900
 --- neutral_surfaces.m  2007-04-24 17:20:40.000000000 +0900
 ***************
 *** 106,112 ****
   %%%           run external code
   %%%
 ! command = ['!nsfces_matlab >& /dev/null'];
   eval(command);
 --- 106,112 ----
   %%%           run external code
   %%%
 ! command = ['!/home/ka/lib/matlab/gamma/matlab-interface/nsfces_matlab'];
   eval(command);
  1. cd matlab-interface して、タブ展開行長さ調整をして、Makefile にパッチして make。

最新の20件

2006-11-17 2006-10-05 2006-10-17 2006-10-05 2008-04-07 2007-11-16 2006-10-10 2007-04-24
  • Installing Gamma
2008-04-07 2010-06-01 2011-05-02 2007-02-17 2006-10-13 2006-10-10 2006-10-06 2006-10-05 2006-10-03

今日の3件

  • counter: 359
  • today: 1
  • yesterday: 0
  • online: 1