| Adrià Vilanova MartÃnez | 1ee4edb | 2022-06-13 22:37:08 +0200 | [diff] [blame^] | 1 | subroutine writeConfig(S, L, NOM) |
| 2 | implicit none | ||||
| 3 | integer*4, intent(in) :: L | ||||
| 4 | integer*2, intent(out) :: S(1:L,1:L) | ||||
| 5 | integer*4 :: i, j | ||||
| 6 | character(200) :: NOM | ||||
| 7 | |||||
| 8 | open(17, file = trim(NOM)) | ||||
| 9 | |||||
| 10 | do i = 1, L | ||||
| 11 | do j = 1, L | ||||
| 12 | if (S(i, j) == 1) then | ||||
| 13 | write(17, *) i, j | ||||
| 14 | endif | ||||
| 15 | enddo | ||||
| 16 | enddo | ||||
| 17 | |||||
| 18 | close(17) | ||||
| 19 | end subroutine writeConfig | ||||