Symbol | Description | Uses |
mnFld | 10 |
File | Line number | Procedure | Code |
./pkg/exch2/w2_set_map_tiles.F | 245 | W2_SET_MAP_TILES |
INTEGER mnFld, divide |
./pkg/exch2/w2_set_map_tiles.F | 253 | W2_SET_MAP_TILES |
mnFld = fldList(1) |
./pkg/exch2/w2_set_map_tiles.F | 255 | W2_SET_MAP_TILES |
mnFld = MIN( mnFld, fldList(j) ) |
./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 | 259 | W2_SET_MAP_TILES |
IF (mnFld.GT.1 ) THEN |
./pkg/exch2/w2_set_map_tiles.F | 262 | W2_SET_MAP_TILES |
DO WHILE ( ii.LE.mnFld ) |
./pkg/exch2/w2_set_map_tiles.F | 275 | W2_SET_MAP_TILES |
mnFld = mnFld/ii |
./pkg/exch2/w2_set_map_tiles.F | 287 | W2_SET_MAP_TILES |
divide = MAX( 0, mnFld ) |