| Adrià Vilanova Martínez | 24d8701 | 2022-06-16 00:29:59 +0200 | [diff] [blame] | 1 | ! Funció que guarda la configuració S d'un sistema de mida LxL al fitxer amb |
| 2 | ! nom NOM. |
| Adrià Vilanova Martínez | 1ee4edb | 2022-06-13 22:37:08 +0200 | [diff] [blame] | 3 | subroutine writeConfig(S, L, NOM) |
| 4 | implicit none |
| 5 | integer*4, intent(in) :: L |
| 6 | integer*2, intent(out) :: S(1:L,1:L) |
| 7 | integer*4 :: i, j |
| 8 | character(200) :: NOM |
| 9 | |
| 10 | open(17, file = trim(NOM)) |
| 11 | |
| 12 | do i = 1, L |
| 13 | do j = 1, L |
| 14 | if (S(i, j) == 1) then |
| 15 | write(17, *) i, j |
| 16 | endif |
| 17 | enddo |
| 18 | enddo |
| 19 | |
| 20 | close(17) |
| 21 | end subroutine writeConfig |