You need a Fortran compiler that is compatible with your C
compiler.  We used NDP-Fortran-386 by MicroWay Inc.  This
gets installed in /usr/microway, and the f77 command is in
/usr/microway/mf77.  You should make f77 work in a standard
place by doing, for example, (as root):
	ln /usr/microway/mf77 /usr/bin/f77

Due to a bug in the microway compiler, make the following changes:
in $F/smooth/smooth.i, add the line
	STATIC(integer x43s2h)
in $F/hclust/hclust.i, add
	STATIC(integer hcmmam,hcmmim,hcmavm)
in $P/twice.r and $P/hcp.r, comment-out the lines beginning "external".

You will have to install the ratfor supplied with S:
	cd $SHOME/src/ratfor
	make
	make install
The last command must be done as root.

You will need to make some changes to $QPE/Makefile and
$QPE/S_makefile.  First, change the definition
for SYSLIB in both files to read:
	SYSLIB=/usr/microway/BIN/386/lib/libf.a -lm
This may be different if you have a different Fortran compiler.

In $QPE/Makefile, change the definition of UNDEF to:
UNDEF = -u ld_init -u Sfun
The same change should be made in $QPE/S_Makefile.

To load the X11 device driver, make sure you have installed the
X11 development software on the machine and define in $QPE/Makefile:
X11=/usr/lib/libX11.a
X11LIB= -lX11 -linet


-------
Changes to $QPE/Spost.c for the 386 C compiler (simplify some expressions)

47,48d46
< static int uxr, uyr; /* 386 fix */
< 
264,265c262
< 	uxr=UxR(*x++); uyr=UyR(*y++); /* 386 fix */
< 	fprintf(File, "B\n%d %d M\n", uxr, uyr); 
---
> 	fprintf(File, "B\n%d %d M\n", UxR(*x++), UyR(*y++)); 
267,268c264
< 		uxr=UxR(*x++); uyr=UyR(*y++); /* 386 fix */
< 		fprintf(File, "%d %d L\n", uxr, uyr);
---
> 		fprintf(File, "%d %d L\n", UxR(*x++), UyR(*y++));
286,291c282
< 	while(nn--) {
< 		uxr=UxR(*x1++); uyr=UyR(*y1++); /* 386 fix */
< 		fprintf(File, "%d %d ", uxr, uyr);
< 		uxr=UxR(*x2++); uyr=UyR(*y2++); /* 386 fix */
< 		fprintf(File, "%d %d S\n", uxr, uyr);
< /*
---
> 	while(nn--)
294,295d284
< */
< 	}
307,312c296,298
< 	uxr=UxR(*x++); uyr=UyR(*y++); /* 386 fix */
< 	fprintf(File, "B\n%d %d M\n", uxr, uyr); 
< 	while(--nn) {
< 		uxr=UxR(*x++); uyr=UyR(*y++); /* 386 fix */
< 		fprintf(File, "%d %d L\n", uxr, uyr);
< 	}
---
> 	fprintf(File, "B\n%d %d M\n", UxR(*x++), UyR(*y++)); 
> 	while(--nn)
> 		fprintf(File, "%d %d L\n", UxR(*x++), UyR(*y++));
328,331c314,315
< 		while(nn--) {
< 			uxr=UxR(*xx++); uyr=UyR(*yy++); /* 386 fix */
< 			fprintf(File, "%d %d P\n", uxr, uyr);
< 		}
---
> 		while(nn--)
> 			fprintf(File, "%d %d P\n", UxR(*xx++), UyR(*yy++));
368,369c352
< 	uxr=UxR(*x); uyr=UyR(*y); /* 386 fix */
< 	fprintf(File, " %d %d %g T\n", uxr, uyr, *pos);
---
> 	fprintf(File, " %d %d %g T\n", UxR(*x), UyR(*y), *pos);
