| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_set_map_tiles.F |
109 |
W2_SET_MAP_TILES |
nnx(1) = 0 |
|
./pkg/exch2/w2_set_map_tiles.F |
114 |
W2_SET_MAP_TILES |
nnx(k) = facet_dims(2*j-1)/tNx |
|
./pkg/exch2/w2_set_map_tiles.F |
117 |
W2_SET_MAP_TILES |
divide = FIND_GCD_N( nnx, k ) |
|
./pkg/exch2/w2_set_map_tiles.F |
48 |
W2_SET_MAP_TILES |
INTEGER divide, nnx(W2_maxNbFacets) |
|
./pkg/compon_communic/mitcoupler_register.F |
16 |
MITCOUPLER_REGISTER |
integer nnx, nny |
|
./pkg/compon_communic/mitcoupler_register.F |
5 |
MITCOUPLER_REGISTER |
subroutine MITCOUPLER_REGISTER( compName, nnx, nny ) |
|
./pkg/compon_communic/mitcoupler_register.F |
90 |
MITCOUPLER_REGISTER |
if (i0+nx-1.gt.nnx) then |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
10 |
MITCOUPLER_TILE_REGISTER |
integer nnx, nny |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
121 |
MITCOUPLER_TILE_REGISTER |
if (i0+nx-1.gt.nnx) then |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
5 |
MITCOUPLER_TILE_REGISTER |
subroutine MITCOUPLER_TILE_REGISTER( compName, nnx, nny ) |