            ELSE IF((XTIME.LT.-50.).AND.(THTPLT).AND.                            HPLOT.714
     *      (KDIM.NE.'2D').AND.                                                  30JUN97.22
     *      (KLEV.GE.KSIGBEG).AND.(KLEV.LE.KSIGEND)) THEN                        HPLOT.716
               WRITE(LAB,'(1X,A8,"=",F4.2,1X,A2,"    ",A8,                       HPLOT.717
     *         " (",A8,")  ",A19,"   SMOOTH=",I2)')                              HPLOT.718
     *            COORDNAM,COORD,COORDUNT,VARNAM,UNITS,MDATE,                    HPLOT.719
     *         NPASS                                                             HPLOT.720
            ICHRLEN = 64                                                         HPLOT.721
            ELSE IF((XTIME.LT.-50.).AND.(THTPLT).AND.                            HPLOT.722
     *      (KDIM.NE.'2D').AND.                                                  30JUN97.23
     *      (KLEV.GE.KTHTBEG).AND.(KLEV.LE.KTHTEND)) THEN                        HPLOT.724
               WRITE(LAB,'(1X,A8,"=",I4,1X,A2,"    ",A8,                         HPLOT.725
     *         " (",A8,")  ",A19,"   SMOOTH=",I2)')                              HPLOT.726
     *            COORDNAM,NINT(COORD),COORDUNT,VARNAM,UNITS,MDATE,              HPLOT.727
     *         NPASS                                                             HPLOT.728
            ICHRLEN = 64                                                         HPLOT.729
            ELSE IF((XTIME.LT.-50.).AND.(THTPLT).AND.                            HPLOT.730
     *      (KDIM.EQ.'2D')) THEN                                                 30JUN97.24
               WRITE(LAB,'(1X,A8,"=",A7,"    ",A8,                               HPLOT.732
     *         " (",A8,")  ",A19,"   SMOOTH=",I2)')                              HPLOT.733
     *            COORDNAM,'SURFACE',VARNAM,UNITS,MDATE,                         HPLOT.734
     *         NPASS                                                             HPLOT.735
            ICHRLEN = 64                                                         HPLOT.736
            ELSE IF((XTIME.LT.-50.).AND.(THTPLT).AND.                            HPLOT.737
     *      (KDIM.NE.'2D').AND.(KLEV.NE.1)) THEN                                 HPLOT.738
               WRITE(LAB,'(1X,A8,"=",I4,1X,A2,"    ",A8,                         HPLOT.739
     *         " (",A8,")  ",A19,"   SMOOTH=",I2)')                              HPLOT.740
     *            COORDNAM,NINT(COORD),COORDUNT,VARNAM,UNITS,MDATE,              HPLOT.741
     *         NPASS                                                             HPLOT.742
            ICHRLEN = 64                                                         HPLOT.743
            ELSE IF((XTIME.LT.-50.).AND.(THTPLT).AND.                            HPLOT.744
     *      ((KDIM.EQ.'2D').OR.(KLEV.EQ.1))) THEN                                HPLOT.745
               WRITE(LAB,'(1X,A8,"=",A7,"    ",A8,                               HPLOT.746
     *         " (",A8,")  ",A19,"   SMOOTH=",I2)')                              HPLOT.747
     *            COORDNAM,'SURFACE',VARNAM,UNITS,MDATE,                         HPLOT.748
     *         NPASS                                                             HPLOT.749
            ICHRLEN = 64                                                         HPLOT.750

