Fenòmens p4: allow to save final configuration
Change-Id: I9f14110403a8313357ab04df624373789de47233
diff --git a/quad10/fenomens/lab/p4/writeconfig.f90 b/quad10/fenomens/lab/p4/writeconfig.f90
new file mode 100644
index 0000000..30de3c9
--- /dev/null
+++ b/quad10/fenomens/lab/p4/writeconfig.f90
@@ -0,0 +1,19 @@
+subroutine writeConfig(S, L, NOM)
+ implicit none
+ integer*4, intent(in) :: L
+ integer*2, intent(out) :: S(1:L,1:L)
+ integer*4 :: i, j
+ character(200) :: NOM
+
+ open(17, file = trim(NOM))
+
+ do i = 1, L
+ do j = 1, L
+ if (S(i, j) == 1) then
+ write(17, *) i, j
+ endif
+ enddo
+ enddo
+
+ close(17)
+end subroutine writeConfig