平衡点

2008/12/01

_ 某所の XT4 へ計算機環境を仕込んだ時の log その 1

単なるメモ.

wget なんかで tar.gz を落そうとすると弾かれる. scp で手元から転送するのが吉.

クアッドコア対応モジュールの読み込み

$ source /work/sample/quad_module/quad.pgi
$ module load netcdf

NetCDF

実体は pgi fortran なので, CPPFLAGS を忘れずに付けないといけない.クアッドコア対応モジュールを利用する (初級講習会資料 p.17 を参考に).

$ export FC=ftn
$ export F90=ftn
$ export CC=cc
$ export CXX=CC
$ export CPPFLAGS=-DpgiFortran
$ export FFLAGS="-O3 -fastsse -Msmartalloc -tp barcelona-64 -Mlist -Mipa"
$ export F90FLAGS=$FFLAGS
$ ./configure --prefix=$HOME
$ make
$ make check
$ make install

gtool5

$ export FC=ftn
$ export SYSFFLAGS="-O3 -fastsse -Msmartalloc -tp barcelona-64 -Mlist -Mipa"
$ NCDUMP=$HOME/bin/ncdump \
  ./configure --prefix=$HOME \
              --with-netcdf=$HOME/lib/libnetcdf.a
$ make
$ make check
$ make install

[ツッコミを入れる]

2020/12/01

_ elscreenからtab-bar-modeへ移行

Emacs27から tab-bar-mode が同梱される様になったので, 思い切って移行を試みている。

(leaf tab-bar-mode
  :init
  (defvar my:ctrl-o-map (make-sparse-keymap)
    "My original keymap binded to C-o.")
  (defalias 'my:ctrl-o-prefix my:ctrl-o-map)
  (define-key global-map    (kbd "C-o") 'my:ctrl-o-prefix)
  (define-key my:ctrl-o-map (kbd "c")   'tab-new)
  (define-key my:ctrl-o-map (kbd "C-c") 'tab-new)
  (define-key my:ctrl-o-map (kbd "k")   'tab-close)
  (define-key my:ctrl-o-map (kbd "C-k") 'tab-close)
  (define-key my:ctrl-o-map (kbd "n")   'tab-next)
  (define-key my:ctrl-o-map (kbd "C-n") 'tab-next)
  (define-key my:ctrl-o-map (kbd "p")   'tab-previous)
  (define-key my:ctrl-o-map (kbd "C-p") 'tab-previous)
  :custom
  ((tab-bar-close-button-show      . nil)
   (tab-bar-close-last-tab-choice  . nil)
   (tab-bar-close-tab-select       . 'left)
   (tab-bar-history-mode           . nil)
   (tab-bar-new-button-show        . nil)
   (tab-bar-tab-name-function      . 'tab-bar-tab-name-truncated)
   (tab-bar-tab-name-truncated-max . 12))
  :config
  (tab-bar-mode +1)
  )