minor adjustments

Author: Joshua Osborne

fer/xeq/xeq_define.F

@@ -2170,6 +2170,14 @@ SUBROUTINE XEQ_DEFINE
 
 **************************************************************************
 * DEFINE VIEWPORT
+
+* main window opened yet ?
+	IF ( .NOT.pplus_started ) THEN
+	   CALL START_PPLUS(.TRUE.)
+*          this opens a window, so need to set physical_chg .TRUE. to resize it
+*           physical_chg = .TRUE.
+	ENDIF
+
  600	IF ( num_args .NE. 1 ) GOTO 5300
 
 	r4_unspec = unspecified_val4

fmt/src/tm_get_linematch.F

@@ -54,7 +54,7 @@ INTEGER FUNCTION TM_GET_LINEMATCH (gvn_line, dup_name, dup_guts)
 
 * Include files
 #include "tmap_dset.parm"	
-	include 'tmap_dims.parm'	! 
+	include 'tmap_dims.parm'	
 #include "gt_lib.parm"
 
 * argument variables

ppl/tmapadds/shade_set.F

@@ -427,8 +427,10 @@ SUBROUTINE SHADE_READ (str,beg,end,there)
 #endif
 #endif
 
+*  CHECK IF NUMBER OF LEVELS IS LARGER THAN SPEC_SIZE, clr_ct=0
+
 *	NOW READ IN THE LEVELS AND SET THEM
-10	read (70,'(a)',end=30,err=90) instr
+10	read (70,'(a)',end=30,err=90) instr 
 	do 15 i = 1,80
 	   if (instr(i:i) .ne. ' ') then
 	      j = i