| ! Funció que guarda la configuració S d'un sistema de mida LxL al fitxer amb | |
| ! nom NOM. | |
| 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 |