blob: 3d4bd1377ebbcb4780397a2e8913665ae51db2f2 [file] [log] [blame]
subroutine WRITECONFIGSEED(S, L, SEED)
use iso_fortran_env
implicit none
integer*4, intent(in) :: L
integer*4, intent(in) :: SEED
integer*2, intent(out) :: S(1:64,1:64)
integer*4 :: i, j
integer(int32) :: genrand_int31
call init_genrand(SEED)
do i = 1, L
do j = 1, L
if (genrand_int31() < 2**30) then
S(i, j) = 1
else
S(i, j) = -1
endif
enddo
enddo
end subroutine WRITECONFIGSEED