| 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 | ||||