Installing Gamma

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。