commit 9622dc7e2fce6ae7349338ae2be289e42d72795e
author avm99963 <me@avm99963.com> Fri Apr 29 15:44:05 2022 +0200
committer avm99963 <me@avm99963.com> Fri Apr 29 15:53:16 2022 +0200
tree ea36e1e1eb2d0678357e0eb140abd9f67dc0e7b8
parent 72184a0f0ebdc29d56961fe8b307bb50afbb66d9

Afegir sessions 1, 2 del lab de fenòmens

A la sessió 1 falta completar l'exercici extra.

Change-Id: I76f9a74f7648b77c3c60ac91cc4a29477386f383

quad10/fenomens/lab/p2/writeconfig.f90

diff --git a/quad10/fenomens/lab/p2/writeconfig.f90 b/quad10/fenomens/lab/p2/writeconfig.f90
new file mode 100644
index 0000000..5313d0b
--- /dev/null
+++ b/quad10/fenomens/lab/p2/writeconfig.f90
@@ -0,0 +1,28 @@
+subroutine WRITECONFIG(S, L)
+  implicit none
+  integer*4, intent(in) :: L
+  integer*2, intent(out) :: S(1:L,1:L)
+  integer*4 :: SEED, i, j
+  real*8 :: genrand_real2
+
+  SEED = 23456
+  call init_genrand(SEED)
+
+  do i = 1, L
+    do j = 1, L
+      S(i, j) = merge(1, -1, genrand_real2() < .5d0)
+    enddo
+  enddo
+
+  open(1, file = "configuration.conf")
+
+  do i = 1, L
+    do j = 1, L
+      if (S(i, j) == 1) then
+        write(1, *) i, j
+      endif
+    enddo
+  enddo
+
+  close(1)
+end subroutine WRITECONFIG