commit 45a8a462b0f64b2a96796a25ae064ffe252e225d
author avm99963 <me@avm99963.com> Sat Jun 04 12:41:03 2022 +0200
committer Adrià Vilanova Martínez <me@avm99963.com> Sat Jun 04 18:47:37 2022 +0200
tree 6631fcdda187b70505decaceefaeb7934d217c95
parent 802583e7b41e076c94a8279782af52dbd5df2f55

Afegir sessió 4 del lab de fenomens

Change-Id: I68a9c725acd6cde3fd43413fe673e5ec7794f7e6

quad10/fenomens/lab/p4/writeconfigseed.f90

diff --git a/quad10/fenomens/lab/p4/writeconfigseed.f90 b/quad10/fenomens/lab/p4/writeconfigseed.f90
new file mode 100644
index 0000000..3d4bd13
--- /dev/null
+++ b/quad10/fenomens/lab/p4/writeconfigseed.f90
@@ -0,0 +1,21 @@
+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