INTEGER nTiles
& nTiles, nBlankTiles,
IF ( blankList(i).LT.1 .OR. blankList(i).GT.nTiles ) THEN
nTiles = nBlankTiles + (nSx*nSy*nPx*nPy)
& 'W2_E2SETUP: Total number of Tiles =', nTiles
IF ( nTiles.GT.W2_maxNbTiles ) THEN
& nTiles, ' >', W2_maxNbTiles, ' =W2_maxNbTiles'
DO I=1,nTiles
DO is=1,nTiles
nTiles = 0
nGr = nTiles*sNx*sNy
& ' nTiles*sNx*sNy=', nTiles, ' x',sNx,' x',sNy,' =',nGr
& 'W2_SET_MAP_TILES: not match (SIZE.h+blankList)=', nTiles
IF ( tCnt.NE.nTiles ) THEN