| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_set_map_tiles.F |
248 |
W2_SET_MAP_TILES |
LOGICAL localDBg |
|
./pkg/exch2/w2_set_map_tiles.F |
250 |
W2_SET_MAP_TILES |
PARAMETER ( localDBg = .FALSE. ) |
|
./pkg/exch2/w2_set_map_tiles.F |
257 |
W2_SET_MAP_TILES |
IF (localDBg) WRITE(0,'(A,I8)') 'FIND_GCD_N: mnFld=',mnFld |
|
./pkg/exch2/w2_set_map_tiles.F |
263 |
W2_SET_MAP_TILES |
IF (localDBg) WRITE(0,'(A,I8)') ' GCD : try',ii |
|
./pkg/exch2/w2_set_map_tiles.F |
273 |
W2_SET_MAP_TILES |
IF (localDBg) WRITE(0,'(A,I8)') |
|
./pkg/exch2/w2_set_map_tiles.F |
282 |
W2_SET_MAP_TILES |
IF (localDBg) WRITE(0,'(10I8)') (fldList(j),j=1,nFld) |