diff -uNr dcl-5.3.3_orig/src/grph2/uepack/uetonc.f dcl-5.3.3/src/grph2/uepack/uetonc.f
--- dcl-5.3.3_orig/src/grph2/uepack/uetonc.f	2006-09-30 15:04:34.000000000 +0900
+++ dcl-5.3.3/src/grph2/uepack/uetonc.f	2007-07-14 05:09:54.000000000 +0900
@@ -8,7 +8,13 @@
       PARAMETER (MAXPXL=4000)
 
       INTEGER   IMAGE(MAXPXL)
-      LOGICAL   LIMC,LMISS
+      LOGICAL   LMISS,LIMC
+
+      COMMON    /UEBLK1/ TL1,TL2,IPT,NT,LASCND
+      PARAMETER (MAXNT=100)
+      LOGICAL   LASCND
+      INTEGER   IPT(MAXNT)
+      REAL      TL1(MAXNT),TL2(MAXNT)
 
       EXTERNAL  IUETON, IUWGX, IUWGY
 
@@ -22,10 +28,10 @@
 
 *     / GET INTERNAL PARAMETERS /
 
-      CALL GLLGET('LMISS   ',LMISS)
-      CALL GLRGET('RMISS   ',RMISS)
       CALL GLRGET('RUNDEF  ',RUNDEF)
       CALL GLIGET('IUNDEF  ',IUNDEF)
+      CALL GLLGET('LMISS   ',LMISS )
+      CALL GLRGET('RMISS   ',RMISS )
 
 *     / SET GRID ATTRIBUTE IF IT HAS NOT BEEN SET YET /
 
@@ -82,7 +88,7 @@
             CALL STITRF(VX, VY, UX, UY)
           END IF
 
-          IF (UX .EQ. RUNDEF) THEN
+          IF (UX.EQ.RUNDEF) THEN
             IMAGE(I) = 0
           ELSE
             IX = IUWGX(UX)
@@ -94,7 +100,11 @@
               IF (LMISS .AND. ZZ.EQ.RMISS) THEN
                 IMAGE(I) = 0
               ELSE
-                IMAGE(I) = IUETON(ZZ)/1000
+                IF (TL1(1) .LE. ZZ .AND. ZZ .LE. TL2(NT)) THEN
+                  IMAGE(I) = IUETON(ZZ)/1000
+                ELSE
+                  IMAGE(I) = 0
+                END IF
               END IF
             END IF
           END IF