ykonishi

/*
MC simulation code for 2-dimensional Ising model

Copyright (C) 2014 Yusuke Konishi

This software is released under the MIT License.
http://opensource.org/licenses/mit-license.php
*/
package main

ykonishi

! MT19937, Mersenne Twister Random Number Generator ([0,1) Real Number)
! in Fortran90
!
! Usage: 
!   1) When you use mt19937, add the sentence "use mt19937" 
!      above the implicit sentence.
!   2) To set an initial seed, call sgrnd(seed). (The "seed" is an integer.)
!      If you do not call this, the seed is 4357.
!   3) Use the function grnd().
!      (Do not declare "real(8) :: grnd".)