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 |