Skip to content

Instantly share code, notes, and snippets.

View t-nissie's full-sized avatar

Takeshi Nishimatsu t-nissie

View GitHub Profile
@t-nissie
t-nissie / 00anatase.en.md
Last active October 7, 2018 23:44
Quantum EspressoでTiO2アナターゼの電子のバンド構造とDOSを描く

Plot band structure and DOS of TiO2 anatase

Original files are in https://gist.github.com/t-nissie/ad99810ddf1bceb602f6 .

Preparation

  • Clone files in the gist as git clone https://gist.github.com/ad99810ddf1bceb602f6.git anatase08-k6x6x4-band-dos-gist.
  • cd anatase08-k6x6x4-band-dos-gist.
  • Get O.pw-mt_fhi.UPF and Ti.pw-mt_fhi.UPF form http://www.quantum-espresso.org/pseudopotentials/ .
  • Make symlinks to bands.x, dos.x, plotband.x and pw.x in the current directory, i.e. ln -s /SOMEWHERE/espresso-5.1.2/bin/bands.x.
@t-nissie
t-nissie / sincos.F
Last active December 14, 2015 00:14
FFTの係数の準備をするときに、必ずしもsin(π/2)=1, cos(π/2)=0, sin(π/4)=cos(π/4)とかではないので、0<=θ<=π/4のsinθ, cosθを使うべき
! sincos.F
! You cannot say "sin(pi/2)=1, cos(pi/2)=0, sin(pi/4)=cos(pi/4)".
! Time-stamp: <2015-12-14 08:12:49 takeshi>
! Author: Takeshi NISHIMATSU
! Ref1: http://notabs.org/fpuaccuracy/index.htm
! Ref2: http://tomeapp.jp/archives/1282
! Ref3: https://sourceware.org/ml/libc-alpha/2015-12/msg00205.html
! Ref4: https://twitter.com/takehiro_t/status/676006684259540992
!!
#if defined(__PGI) || defined(__sparc)
@t-nissie
t-nissie / Discrete_Fourier_transform_exercise.en.md
Last active October 2, 2016 11:23
離散フーリエ変換 (DFT) ・高速フーリエ変換 (FFT) の演習問題

Exercises for discrete Fourier transform (DFT) and fast Fourier transform (FFT)

We fourier-transform eight complex data sampled at eight points (X=0a, 1a, 2a, 3a, 4a, 5a, 6a, 7a, where a is the unit cell length). Answer following questions.

Here, $ indicates the command-line prompt.

Keywords: Born-von Karman boundary condition, first Brillouin zone, phonon, k-point

Exercises

Q1

@t-nissie
t-nissie / MacOSX.md
Last active January 4, 2016 01:03
Mac OS XだかXcodeをアップグレードしたらやるべきこと

Mac OS XだかXcodeをアップグレードしたらやるべきこと

OS X Yosemite (10.10) から OS X El Capitan (10.11.1) にアップグレードした時のメモを残す

Mac OS Xのアップグレードの前に2つバックアップを作っておく

  • TimeMachineの外付けHDDをunmountして取り外し
  • 新しい外付けHDDを付けてTimeMachineでバックアップ

Mac OS XだかXcodeをアップグレードしたらやるべきこと

  • xcodeのライセンスを承認
@t-nissie
t-nissie / 00Miyagi.md
Last active October 28, 2015 13:33
宮城県で必ず訪れたい観光地

宮城県で必ず訪れたい観光地

太白区

  • 太白山
  • 釜房湖
  • 湖畔公園
  • 八木山動物公園(ベーブルース像)

登米

  • 佐沼城と隣の博物館
@t-nissie
t-nissie / FeramGettingStarted.en.md
Last active October 13, 2015 03:22
MateriApps LIVE!をUSBメモリから起動し、強誘電体用高速分子動力学シミュレーターferamを試用する方法を説明しています
@t-nissie
t-nissie / gnupack.md
Last active May 22, 2017 06:53
gnupackをアップグレードしたらまずはじめにやるべきこと

gnupackをアップグレードしたらまずはじめにやるべきこと

gnupackは手軽にcygwinとemacsを導入できるパッケージソフトウェア。 アーカイブファイルをc:\以下に展開するだけですぐに利用できる。

gnupack Users Guide: http://gnupack.osdn.jp/docs/UsersGuide.html

ただし、新しいバージョンのgnupackを展開してアップグレードすると c:\以下にディレクトリが積みあがっていくだけ。環境の移行には このメモに書かれている一連の操作が必要。

@t-nissie
t-nissie / spinpump.F
Last active November 12, 2015 07:38
Fu-Kane Spin Pump
! spinpump.F -*-f90-*-
! Fu-Kane spin pump
! Shun-Qing Shen: "Topological Insulators: Dirac Equation in Condensed Matters"
! (Springer Series in Solid-State Sciences, 2013) Section 4.6
! Liang Fu and C. L. Kane: "Time reversal polarization and a Z_2 adiabatic spin pump",
! Phys. Rev. B 74, 195312 (2006).
! Time-stamp: <2015-10-07 17:00:57 takeshi>
! Author: Takeshi NISHIMATSU
! Gist: https://gist.github.com/t-nissie/98aeb84ed30467aa24b7
! Clone: git clone git@gist.github.com:98aeb84ed30467aa24b7.git 04.6.Fu-Kane-spin-pump
@t-nissie
t-nissie / edge.F
Last active December 13, 2016 05:47
Edge states of Thouless charge pump
! edge.F -*-f90-*-
! Edge states of Thouless charge pump
! Shun-Qing Shen: "Topological Insulators: Dirac Equation in Condensed Matters"
! (Springer Series in Solid-State Sciences, 2013)
! Fig. 4.1
! Time-stamp: <2015-07-30 23:47:00 takeshi>
! Author: Takeshi NISHIMATSU
! Gist: https://gist.github.com/t-nissie/9b2c8a2ec2fde28dc39f
! Clone: git clone git@gist.github.com:9b2c8a2ec2fde28dc39f.git 04.5.Thouless-charge-pump
!!
@t-nissie
t-nissie / quicksort.f
Last active January 31, 2023 18:49
quick sort in Fortran
! quicksort.f -*-f90-*-
! Author: t-nissie
! License: GPLv3
! Gist: https://gist.github.com/t-nissie/479f0f16966925fa29ea
!!
recursive subroutine quicksort(a, first, last)
implicit none
real*8 a(*), x, t
integer first, last
integer i, j