avm99963 | 45a8a46 | 2022-06-04 12:41:03 +0200 | [diff] [blame^] | 1 | subroutine WRITECONFIG(S, L) |
2 | implicit none | ||||
3 | integer*4, intent(in) :: L | ||||
4 | integer*2, intent(out) :: S(1:64,1:64) | ||||
5 | integer*4 :: SEED, i, j | ||||
6 | real*8 :: genrand_real2 | ||||
7 | |||||
8 | SEED = 23456 | ||||
9 | call init_genrand(SEED) | ||||
10 | |||||
11 | do i = 1, L | ||||
12 | do j = 1, L | ||||
13 | if (genrand_real2() < .5d0) then | ||||
14 | S(i, j) = 1 | ||||
15 | else | ||||
16 | S(i, j) = -1 | ||||
17 | endif | ||||
18 | enddo | ||||
19 | enddo | ||||
20 | end subroutine WRITECONFIG |