Lines Matching refs:n_tiles
297 INTEGER :: handle, i, k, n_tiles, unit_nr local
317 n_tiles = SIZE(tiles)
318 dirichlet_bc%n_tiles = n_tiles
319 ALLOCATE (dirichlet_bc%tiles(n_tiles))
321 …IF ((unit_nr .GT. 0) .AND. verbose) WRITE (unit_nr, '(T7,A,I5)') "number of partitions : ", n_tiles
323 ALLOCATE (tile_maxvals(n_tiles))
325 DO k = 1, n_tiles
351 n_tiles = SIZE(tiles)
352 dirichlet_bc%n_tiles = n_tiles
353 ALLOCATE (dirichlet_bc%tiles(n_tiles))
355 …IF ((unit_nr .GT. 0) .AND. verbose) WRITE (unit_nr, '(T7,A,I5)') "number of partitions : ", n_tiles
360 DO k = 1, n_tiles
398 n_tiles = SIZE(tiles)
399 dirichlet_bc%n_tiles = n_tiles
400 ALLOCATE (dirichlet_bc%tiles(n_tiles))
402 …IF ((unit_nr .GT. 0) .AND. verbose) WRITE (unit_nr, '(T7,A,I5)') "number of partitions : ", n_tiles
404 DO k = 1, n_tiles
521 dirichlet_bc%n_tiles = 1
610 dirichlet_bc%n_tiles = 1
738 dirichlet_bc%n_tiles = 1
952 dbcs(j)%dirichlet_bc%n_tiles = 1
1004 dbcs(j)%dirichlet_bc%n_tiles = 1
1056 dbcs(j)%dirichlet_bc%n_tiles = 1