commit 802583e7b41e076c94a8279782af52dbd5df2f55
author avm99963 <me@avm99963.com> Thu May 12 10:56:56 2022 +0200
committer avm99963 <me@avm99963.com> Thu May 12 10:58:11 2022 +0200
tree f36579c43d929795735c14bc6ee04b36842ea7fa
parent 354187350193313e85cfed50a07c0c3971425a66

Afegir sessió 3 del lab de fenòmens

Change-Id: Ic21d679decc844e3c2899d6da4cca48301dbae0c

quad10/fenomens/lab/p3/writeconfigseed.f90

diff --git a/quad10/fenomens/lab/p3/writeconfigseed.f90 b/quad10/fenomens/lab/p3/writeconfigseed.f90
new file mode 100644
index 0000000..f7c8570
--- /dev/null
+++ b/quad10/fenomens/lab/p3/writeconfigseed.f90
@@ -0,0 +1,16 @@
+subroutine WRITECONFIGSEED(S, L, SEED)
+  implicit none
+  integer*4, intent(in) :: L
+  integer*4, intent(in) :: SEED
+  integer*2, intent(out) :: S(1:L,1:L)
+  integer*4 :: i, j
+  real*8 :: genrand_real2
+
+  call init_genrand(SEED)
+
+  do i = 1, L
+    do j = 1, L
+      S(i, j) = merge(1, -1, genrand_real2() < .5d0)
+    enddo
+  enddo
+end subroutine WRITECONFIGSEED