Add PISCES, a two-dimensional device simulator which includes

models for surface mobility, impact ionization and photo-generation.
Quasi-three-dimensional simulation of cylindrically-symmetric devices is
also supported.

PR:		14686
Submitted by:	Gianlorenzo Masini <masini@uniroma3.it>

17 files changed, 814 insertions, 0 deletions

diff --git a/cad/pisces/files/FreeBSD.def b/cad/pisces/files/FreeBSD.def
new file mode 100644
index 00000000000..03099d32346
--- /dev/null
+++ b/cad/pisces/files/FreeBSD.def
@@ -0,0 +1,55 @@
+/* FreeBSD config exception file  */
+
+
+          SHELL = /bin/sh
+             CC = cc
+            F77 = ${WRKDIR}/bin/fc1
+           VF77 = $(F77)
+            VCC = $(CC)
+         RATFOR = ratfor
+       CMINUS_C = -c
+       FMINUS_C = -c
+      VCMINUS_C = -c
+      VFMINUS_C = -c
+            CPP = /usr/bin/cpp
+        INSTALL = install -c -m
+             RM = rm -f
+          RMDIR = rm -rf
+          MKDIR = mkdir
+          CHMOD = chmod
+             MV = mv
+             CP = cp
+             LN = ln -s
+         RANLIB = ranlib
+RANLIBINSTFLAGS = -t
+             AR = ar clq
+           LINT = lint
+       LINTOPTS = -axz
+           MAKE = make
+          NROFF = nroff
+       MANFLAGS = -man
+     NROFF_FILT = | colcrt -
+
+/* the following have been adapted from spice 3f5 port */
+/*
+MAKE            = /usr/bin/make
+INTERFACE_OPTS  = -DWANT_X11
+CC              = gcc
+CC_OPT          = -O2 -pipe
+CC_OPT_SAFE     = -O2 -fno-strength-reduce -pipe
+LDFLAGS         = -L$(X11BASE)/lib -lm -ltermcap
+ASM_HACK        = < /dev/null
+SYS_CFLAGS      = -Dbsd
+*/
+#define MathLib -lm
+#define FpaFlag 
+#define ManDir ${PREFIX}/man/manl
+#define SysIncludes -I${X11BASE}/include
+
+#ifdef DEBUG
+# define F_O()                                                          @@\
+.F.OBJ_EXT:                                                             @@\
+        $(F77) -F -Qoption cpp -P $(FFLAGS) $*.F                        @@\
+        $(F77) $(FMINUS_C) $(FFLAGS) $*.f
+#endif
+
diff --git a/cad/pisces/files/fc1 b/cad/pisces/files/fc1
new file mode 100644
index 00000000000..9e5beb812c9
--- /dev/null
+++ b/cad/pisces/files/fc1
@@ -0,0 +1,174 @@
+#!/bin/sh
+
+# This fc1 script invoke f2c and pass the output to cc
+# it includes the undocumented -Nn option of f2c
+# adapted from the netlib distribution 'fc' by G. Masini 04-18-00
+#
+
+
+# f77-style shell script to compile and load fortran, C, and assembly codes
+
+#       usage:  f77 [options] files [-l library]
+
+#       Options:
+
+#               -o objfile      Override default executable name a.out.
+
+#               -c              Do not call linker, leave relocatables in *.o.
+
+#               -C              Check that subscripts are in bounds.
+
+#               -S              leave assembler output on file.s
+
+#               -L libdir       (passed to ld)
+
+#               -l library      (passed to ld)
+
+#               -u              complain about undeclared variables
+
+#               -w              omit all warning messages
+
+#               -w66            omit Fortran 66 compatibility warning messages
+
+#               files           FORTRAN source files ending in .f .
+#                               Object files ending in .o .
+
+#                               f2c prototype files ending in .P ; such
+#                               files only affect subsequent files.
+
+#               -D def          passed to C compiler (for .f files)
+
+#               -I includepath  passed to C compiler (for .c files)
+#                               and to f2c
+
+#               -Ntnnn          allow nnn entries in table t
+
+#               -P              emit .P files
+
+#               -U def          passed to C compiler (for .c files)
+#                               to remove def
+
+s=/tmp/stderr_$$
+t=/tmp/f77_$$.o
+CC=${CC_f2c:-'cc'}
+F2C=${F2C:-/usr/local/bin/f2c}
+F2CFLAGS=${F2CFLAGS:='-ARw8 -Nn802 -Nq300 -Nx400'}
+rc=0
+trap "rm -f $s $t; exit \$rc" 0
+OUTF=a.out
+OUTO=
+cOPT=1
+set -- `getopt cCD:gI:L:N:OU:o:Suw6 "$@"`
+case $? in 0);; *) rc=$?; exit;; esac
+CFLAGSF2C=${CFLAGSF2C:-'-I/usr/local/include'}
+OFILES=
+while
+        test X"$1" != X--
+do
+        case "$1"
+        in
+        -C)     F2CFLAGS="$F2CFLAGS -C"
+                shift;;
+
+        -c)     cOPT=0
+                shift
+                ;;
+        -D)     CFLAGS="$CFLAGS -D$2"
+                shift 2
+                ;;
+
+        -g)     CFLAGS="$CFLAGS -g"
+                F2CFLAGS="$F2CFLAGS -g"
+                shift;;
+
+        -I)     F2CFLAGS="$F2CFLAGS -I$2"
+                shift 2
+                ;;
+
+        -o)     OUTF=$2
+                OUTO=$2
+                shift 2
+                ;;
+
+        -O)     case $2 in -1) O=-O1;; -2) O=-O2;; -3) O=-O3;; *) O=-O;; esac
+                case $O in -O);; *) shift;; esac
+                CFLAGS="$CFLAGS $O -O"
+                shift
+                ;;
+
+        -u)     F2CFLAGS="$F2CFLAGS -u"
+                shift
+                ;;
+
+        -w)     F2CFLAGS="$F2CFLAGS -w"
+                case $2 in -6) F2CFLAGS="$F2CFLAGS"66; shift
+                        case $2 in -6) shift;; esac;; esac
+                shift
+                ;;
+
+        -L)     OFILES="$OFILES $1$2"
+                shift 2
+                case $cOPT in 1) cOPT=2;; esac
+                ;;
+
+        -L*)    OFILES="$OFILES $1"
+                shift
+                case $cOPT in 1) cOPT=2;; esac
+                ;;
+
+        -N)     F2CFLAGS="$F2CFLAGS $1""$2"
+                shift 2
+                ;;
+
+        -P)     F2CFLAGS="$F2CFLAGS $1"
+                shift
+                ;;
+
+
+        -S)     CFLAGS="$CFLAGS -S"
+                cOPT=0
+                shift
+                ;;
+
+        *)
+                echo "invalid parameter $1" 1>&2
+                shift
+                ;;
+        esac
+done
+shift
+case $cOPT in 0) case $OUTO in '');; *) CFLAGS="$CFLAGS -o $OUTO";; esac;; esac
+while
+        test -n "$1"
+do
+        case "$1"
+        in
+        *.[f])
+                f=".f"
+				b=`basename $1 .f`
+                $F2C $F2CFLAGS $1
+                rc=$?
+                case $rc in 0);; *) exit;; esac
+                $CC -c $CFLAGSF2C $CFLAGS $b.c 2>$s
+                rc=$?
+                sed '/parameter .* is not referenced/d;/warning: too many parameters/d' $s 1>&2
+                case $rc in 0);; *) exit;; esac
+                OFILES="$OFILES $b.o"
+                rm $b.c
+                case $cOPT in 1) cOPT=2;; esac
+                shift
+                ;;
+        -o)
+                case $cOPT in 0) CFLAGS="$CFLAGS -o $2";; *) OUTF=$2;; esac
+                shift 2;;
+        *)
+                OFILES="$OFILES $1"
+                shift
+                case $cOPT in 1) cOPT=2;; esac
+                ;;
+        esac
+done
+
+case $cOPT in 2) $CC -o $OUTF -u MAIN__ -L/usr/local/lib $OFILES -lf2c -lm;; esac
+rc=$?
+exit $rc
diff --git a/cad/pisces/files/patch-aa b/cad/pisces/files/patch-aa
new file mode 100644
index 00000000000..d3f1cdb38db
--- /dev/null
+++ b/cad/pisces/files/patch-aa
@@ -0,0 +1,74 @@
+*** utils/imakesrc/site.def.orig	Tue May 28 22:42:01 1991
+--- utils/imakesrc/site.def	Fri Apr 21 17:59:42 2000
+***************
+*** 20,27 ****
+  
+  /* Gnu's ksh-like line editing around? */
+  #define EDLINE
+! #define TheTop "/tmp/release"
+! #define RunDir "/tmp/icl"
+  
+  #ifdef SUN3
+  #ifndef NO_GCC
+--- 20,27 ----
+  
+  /* Gnu's ksh-like line editing around? */
+  #define EDLINE
+! #define TheTop ${PREFIX}
+! #define RunDir ${PREFIX}
+  
+  #ifdef SUN3
+  #ifndef NO_GCC
+***************
+*** 51,57 ****
+  /* Set any of the following to override the values in Imake.tmpl */
+  /*#define DestDir	*/
+  
+! /*#define Pisces2Dir	*/
+  /*#define Suprem3Dir	*/
+  /*#define Suprem35Dir	*/
+  /*#define Suprem4Dir	*/
+--- 51,58 ----
+  /* Set any of the following to override the values in Imake.tmpl */
+  /*#define DestDir	*/
+  
+! #define Pisces2Dir ${PREFIX}
+! 
+  /*#define Suprem3Dir	*/
+  /*#define Suprem35Dir	*/
+  /*#define Suprem4Dir	*/
+***************
+*** 65,70 ****
+--- 66,74 ----
+  /*#define ManExt	*/
+  
+  /*#define Genii3Lib	*/
++ 
++ #define PlotcapDir	${PREFIX}/share/misc
++ 
+  /*#define PlotcapLibs	*/
+  /*#define PLOTCAP_INSTALLED */
+  
+***************
+*** 74,83 ****
+  /*#define FFpaFlag	*/
+  
+  /* Directory where the Imake rules are kept: */
+! #define ImakeRules /tmp/release/utils/imakesrc
+  /* Location of the Imake program: */
+  /*#define ImakeProgram /usr/local/bin/imake*/
+! #define ImakeProgram /tmp/bin/imake
+  
+  
+  /* END-OF-SITE.H */
+--- 78,87 ----
+  /*#define FFpaFlag	*/
+  
+  /* Directory where the Imake rules are kept: */
+! #define ImakeRules ${WRKDIR}/utils/imakesrc
+  /* Location of the Imake program: */
+  /*#define ImakeProgram /usr/local/bin/imake*/
+! #define ImakeProgram ${X11BASE}/bin/imake  
+  
+  
+  /* END-OF-SITE.H */
diff --git a/cad/pisces/files/patch-ab b/cad/pisces/files/patch-ab
new file mode 100644
index 00000000000..05d5216c97b
--- /dev/null
+++ b/cad/pisces/files/patch-ab
@@ -0,0 +1,30 @@
+*** utils/imakesrc/aelimake.orig	Fri Jan 15 18:49:29 1999
+--- utils/imakesrc/aelimake	Fri Jan 15 18:51:03 1999
+***************
+*** 7,14 ****
+  #	system is one of: $SYS_LIST
+  
+! SYS_LIST="SUN3 SUN4 ULTRIX CONVEX MIPS"
+  
+  # Templates directory:
+! imake="/tmp/release/utils/imakesrc"
+  
+  # local things are to be used...
+--- 7,14 ----
+  #	system is one of: $SYS_LIST
+  
+! SYS_LIST="SUN3 SUN4 ULTRIX CONVEX MIPS FBSD"
+  
+  # Templates directory:
+! imake=${WRKDIR}/utils/imakesrc
+  
+  # local things are to be used...
+***************
+*** 62,64 ****
+  fi
+  
+! /tmp/bin/imake $IVERBOSE -D$SYS $IFILE -T Imake.tmpl -I$imake/Defaults -I$imake $MFILE $DEFS "-DImakeDefines=$DEFS"
+--- 62,64 ----
+  fi
+  
+! ${X11BASE}/bin/imake  $IVERBOSE -D$SYS $IFILE -T Imake.tmpl -I$imake/Defaults -I$imake $MFILE $DEFS "-DImakeDefines=$DEFS"
diff --git a/cad/pisces/files/patch-ac b/cad/pisces/files/patch-ac
new file mode 100644
index 00000000000..d61679380f2
--- /dev/null
+++ b/cad/pisces/files/patch-ac
@@ -0,0 +1,52 @@
+*** utils/imakesrc/Imake.tmpl.orig	Tue May 28 20:11:14 1991
+--- utils/imakesrc/Imake.tmpl	Fri Apr 21 18:34:35 2000
+***************
+*** 16,21 ****
+--- 16,31 ----
+  #define	YES	1
+  #define NO	0
+  
++ #ifdef FBSD
++ #define DO_X11
++ #undef DO_SUNVIEW
++ #undef DO_X10
++ #define MacroIncludeFile "FreeBSD.def"
++ #define MacroFile FreeBSD.def
++ #define SystemDef -DFBSD
++ #define SystemType -DBSD
++ #endif /*  FreeBSD */
++ 
+  
+  #ifdef SUN3
+  #define DO_SUNVIEW YES
+***************
+*** 191,204 ****
+  #  ifdef PLOTCAP_INSTALLED
+  #    define PlotcapLibs	-lhigh2 -lgplot
+  #  else
+! #    define PlotcapLibs	PlotcapDir/libname(high2) PlotcapDir/libname(gplot)
+  #  endif
+  #endif
+  #ifndef F77PlotcapLibs
+  #  ifdef PLOTCAP_INSTALLED
+  #    define F77PlotcapLibs	-lgplotF77 PlotcapLibs
+  #  else
+! #    define F77PlotcapLibs	PlotcapDir/libname(gplotF77) PlotcapLibs
+  #  endif
+  #endif
+  
+--- 201,214 ----
+  #  ifdef PLOTCAP_INSTALLED
+  #    define PlotcapLibs	-lhigh2 -lgplot
+  #  else
+! #    define PlotcapLibs	LibDir/libname(high2) LibDir/libname(gplot)
+  #  endif
+  #endif
+  #ifndef F77PlotcapLibs
+  #  ifdef PLOTCAP_INSTALLED
+  #    define F77PlotcapLibs	-lgplotF77 PlotcapLibs
+  #  else
+! #    define F77PlotcapLibs	LibDir/libname(gplotF77) PlotcapLibs
+  #  endif
+  #endif
+  
diff --git a/cad/pisces/files/patch-ad b/cad/pisces/files/patch-ad
new file mode 100644
index 00000000000..4e53c964621
--- /dev/null
+++ b/cad/pisces/files/patch-ad
@@ -0,0 +1,22 @@
+*** library/plotcap/9016/gplot/Imakefile.orig	Wed Apr 26 12:50:39 2000
+--- library/plotcap/9016/gplot/Imakefile	Wed Apr 26 12:51:49 2000
+***************
+*** 108,114 ****
+  
+  DependNeeds(gp_vers.h gp_pclocs.h)
+  
+- #ifdef STANFORD
+  
+  ConditionalReplace(gp_vers.tmp,gp_vers.h)
+  ConditionalReplace(gp_pclocs.tmp,gp_pclocs.h)
+--- 108,113 ----
+***************
+*** 121,127 ****
+  	EchoInto('/* NOTE: this file created by the Makefile */',gp_pclocs.tmp)
+  	EchoAppend('#define PCAP_FILE	"$(PLOTCAP)"', gp_pclocs.tmp)
+  
+- #endif /*stanford*/
+  
+  
+  # INSTALL everything.
+--- 120,125 ----
diff --git a/cad/pisces/files/patch-ba b/cad/pisces/files/patch-ba
new file mode 100644
index 00000000000..5b681eb58e7
--- /dev/null
+++ b/cad/pisces/files/patch-ba
@@ -0,0 +1,52 @@
+*** library/plotcap/9016/gplot/gp_clip.c.orig	Mon Jan 18 16:19:06 1999
+--- library/plotcap/9016/gplot/gp_clip.c	Mon Jan 18 16:20:04 1999
+***************
+*** 104,117 ****
+  
+  /* Psect(P1, SIDE1) --> P1\**\out&SIDE1 --> P1out & SIDE 1 */
+! #define Psect(PNT,SID, BS) \
+! 	((PNT/**/out & SID) && fnsect(PNT/**/new, P1old, P2old,  BS))
+  
+  	/* clip if Point1 is out of bounds */
+  	is = 0;
+  	if (P1out) {
+! 		if      (Psect(P1, SIDE1, BS1)) is = 1 ;
+! 		else if (Psect(P1, SIDE2, BS2)) is = 2 ;
+! 		else if (Psect(P1, SIDE3, BS3)) is = 3 ;
+! 		else if (Psect(P1, SIDE4, BS4)) is = 4 ;
+  #ifdef FOO
+  		else  /* both out and no intersection: a way out segment */
+--- 104,117 ----
+  
+  /* Psect(P1, SIDE1) --> P1\**\out&SIDE1 --> P1out & SIDE 1 */
+! #define Psect(PNout, PNnew, SID, BS) \
+! 	((PNout & SID) && fnsect(PNnew, P1old, P2old,  BS))
+  
+  	/* clip if Point1 is out of bounds */
+  	is = 0;
+  	if (P1out) {
+! 		if      (Psect(P1out, P1new, SIDE1, BS1)) is = 1 ;
+! 		else if (Psect(P1out, P1new, SIDE2, BS2)) is = 2 ;
+! 		else if (Psect(P1out, P1new, SIDE3, BS3)) is = 3 ;
+! 		else if (Psect(P1out, P1new, SIDE4, BS4)) is = 4 ;
+  #ifdef FOO
+  		else  /* both out and no intersection: a way out segment */
+***************
+*** 122,129 ****
+  	is2 = 0 ;
+  	if (P2out) {
+! 		if      (Psect(P2, SIDE1, BS1)) is2 = 1 ;
+! 		else if (Psect(P2, SIDE2, BS2)) is2 = 2 ;
+! 		else if (Psect(P2, SIDE3, BS3)) is2 = 3 ;
+! 		else if (Psect(P2, SIDE4, BS4)) is2 = 4 ;
+  		}
+  
+--- 122,129 ----
+  	is2 = 0 ;
+  	if (P2out) {
+! 		if      (Psect(P2out, P2new, SIDE1, BS1)) is2 = 1 ;
+! 		else if (Psect(P2out, P2new, SIDE2, BS2)) is2 = 2 ;
+! 		else if (Psect(P2out, P2new, SIDE3, BS3)) is2 = 3 ;
+! 		else if (Psect(P2out, P2new, SIDE4, BS4)) is2 = 4 ;
+  		}
+  
diff --git a/cad/pisces/files/patch-bb b/cad/pisces/files/patch-bb
new file mode 100644
index 00000000000..dfd57b65af7
--- /dev/null
+++ b/cad/pisces/files/patch-bb
@@ -0,0 +1,12 @@
+*** library/plotcap/9016/gplot/pg_erset.c.orig	Mon Jan 18 16:27:21 1999
+--- library/plotcap/9016/gplot/pg_erset.c	Mon Jan 18 16:28:43 1999
+***************
+*** 149,153 ****
+--- 149,155 ----
+  		perror("\t") ;
+  #else
++ #ifndef __FreeBSD__
+  		extern	char *sys_errlist[] ;
++ #endif
+  		pr(stderr," [%s]", sys_errlist[syseno] ) ;
+  #endif
diff --git a/cad/pisces/files/patch-bc b/cad/pisces/files/patch-bc
new file mode 100644
index 00000000000..c600c8499df
--- /dev/null
+++ b/cad/pisces/files/patch-bc
@@ -0,0 +1,42 @@
+*** library/plotcap/9016/tool/Imakefile.orig	Tue Dec 11 00:53:36 1990
+--- library/plotcap/9016/tool/Imakefile	Mon Jan 18 18:26:24 1999
+***************
+*** 47,56 ****
+  X11	= x11gplot
+  X11_O	= x11_lib.o
+! X11_L	= -lX11
+  X11_D	= ${LIBDIR}/${X11}
+  
+  # ====== The Targets that this system will support. ========
+  
+! AllTarget(tool.o did.cnf)
+  
+  #ifdef DO_SUNVIEW
+--- 47,56 ----
+  X11	= x11gplot
+  X11_O	= x11_lib.o
+! X11_L	= -L${X11BASE}/lib -lX11
+  X11_D	= ${LIBDIR}/${X11}
+  
+  # ====== The Targets that this system will support. ========
+  
+! AllTarget(tool.o)
+  
+  #ifdef DO_SUNVIEW
+***************
+*** 68,74 ****
+  did.cnf:
+  	$(RM) Makefile.cnf
+! 	check$(SHELL_EXT) X10 $(X) $(X_L)
+! 	check$(SHELL_EXT) X11 $(X11) $(X11_L)
+! 	check$(SHELL_EXT) SUNVIEW $(SUNVIEW) $(SUNVIEW_L)
+  	touch $@
+  	touch Imakefile
+--- 68,74 ----
+  did.cnf:
+  	$(RM) Makefile.cnf
+! 	sh check$(SHELL_EXT) X10 $(X) $(X_L)
+! 	sh check$(SHELL_EXT) X11 $(X11) $(X11_L)
+! 	sh check$(SHELL_EXT) SUNVIEW $(SUNVIEW) $(SUNVIEW_L)
+  	touch $@
+  	touch Imakefile
diff --git a/cad/pisces/files/patch-be b/cad/pisces/files/patch-be
new file mode 100644
index 00000000000..949bfea1610
--- /dev/null
+++ b/cad/pisces/files/patch-be
@@ -0,0 +1,17 @@
+*** pisces/9009/src/version.f.orig	Fri Oct 29 10:38:31 1999
+--- pisces/9009/src/version.f	Fri Oct 29 10:57:24 1999
+***************
+*** 4,9 ****
+        character*(*) ver
+        character*(*) rel
+        ver    = '9009'
+!       rel    = 'S.0523 SunOS 4.1'
+        return
+        end
+--- 4,9 ----
+        character*(*) ver
+        character*(*) rel
+        ver    = '9009'
+!       rel    = 'FreeBSD 1.0'
+        return
+        end
diff --git a/cad/pisces/files/patch-bf b/cad/pisces/files/patch-bf
new file mode 100644
index 00000000000..0c8cb404ea2
--- /dev/null
+++ b/cad/pisces/files/patch-bf
@@ -0,0 +1,26 @@
+*** library/sysf77lib/9009/Imakefile.orig	Wed May 29 00:50:20 1991
+--- library/sysf77lib/9009/Imakefile	Fri Apr 21 13:59:16 2000
+***************
+*** 9,14 ****
+--- 9,17 ----
+  OBJS_DEF=	xdate_def.o  xexit_def.o xgeten_def.o xgtarg_def.o \
+  		xmktmp_def.o xtimer_def.o
+  
++ OBJS_FBSD=      xdate_fbsd.o  xexit_def.o xgeten_def.o xgtarg_def.o \
++                 xmktmp_bsd.o xtimer_fbsd.o
++ 
+  OBJS_BSD=	xdate_bsd.o  xexit_bsd.o xgeten_bsd.o xgtarg_bsd.o \
+  		xmktmp_bsd.o xtimer_bsd.o
+  
+***************
+*** 27,32 ****
+--- 30,38 ----
+  # Default (hopefully will get overriddend below):
+  OBJS=	$(OBJS_DEF)
+  
++ #ifdef FBSD
++ OBJS=	$(OBJS_FBSD)
++ #endif
+  #if defined(SUN3) || defined(SUN4) || defined(CONVEX)
+  OBJS=	$(OBJS_BSD)
+  #endif
diff --git a/cad/pisces/files/patch-bg b/cad/pisces/files/patch-bg
new file mode 100644
index 00000000000..2737f7c634e
--- /dev/null
+++ b/cad/pisces/files/patch-bg
@@ -0,0 +1,73 @@
+*** pisces/9009/src/Imakefile.orig	Tue May 28 20:21:12 1991
+--- pisces/9009/src/Imakefile	Thu Apr 27 11:56:15 2000
+***************
+*** 16,22 ****
+  INCLUDES= -I$(INCDIR)
+  # =============================================================================
+  
+! PISCES_DEST=$(PISCES_DIR)/$(PISCES_VERSION)
+  
+  MAIN_SRC=pisc2.F_EXT
+  MAIN_OBJ= pisc2.o
+--- 16,22 ----
+  INCLUDES= -I$(INCDIR)
+  # =============================================================================
+  
+! PISCES_DEST=$(PISCES_DIR)
+  
+  MAIN_SRC=pisc2.F_EXT
+  MAIN_OBJ= pisc2.o
+***************
+*** 190,198 ****
+  
+  # =============================================================================
+  
+! InstallProgram($(PISCES),$(PISCES_DEST)/$(PISCES))
+! InstallLibrary($(PISLIB),$(PISCES_DEST)/$(PISLIB))
+! InstallLibrary($(OPTLIB),$(PISCES_DEST)/$(OPTLIB))
+  InstallProgram(pisc2,$(BINDIR)/pisc2)
+  
+  #ifdef STANFORD
+--- 190,198 ----
+  
+  # =============================================================================
+  
+! InstallProgram($(PISCES),$(BINDIR)/$(PISCES))
+! InstallLibrary($(PISLIB),${PREFIX}/lib/$(PISLIB))
+! InstallLibrary($(OPTLIB),${PREFIX}/lib/$(OPTLIB))
+  InstallProgram(pisc2,$(BINDIR)/pisc2)
+  
+  #ifdef STANFORD
+***************
+*** 209,226 ****
+  
+  # and the shell to run the program.
+  ConditionalReplace(pisc2.tmp,pisc2)
+! pisc2.tmp: pisc2.sh Makefile
+  	sed -e 's;^[ 	]*PISC2DIR=.*;PISC2DIR=$(PISCES_DIR)/$(PISCES_VERSION);' \
+  	    -e 's;^[ 	]*VERS=.*;VERS=$(PISCES_VERSION);' pisc2.sh > pisc2.tmp
+  
+! InstallFile(pisc.key,$(PISCES_DEST)/pisc.key)
+! InstallFile(pisc.uky,$(PISCES_DEST)/pisc.uky)
+  
+- # make and install the binary keyfile.
+- pisc.uky:: pisc.key $(PISCES)
+- 	$(RM) $@
+- 	./$(PISCES) /dev/null
+- 	mv PISC2UKY  pisc.uky
+  clean::
+  	$(RM) pisc.uky
+  
+--- 209,220 ----
+  
+  # and the shell to run the program.
+  ConditionalReplace(pisc2.tmp,pisc2)
+! pisc2.tmp: pisc2.sh emptyrule
+  	sed -e 's;^[ 	]*PISC2DIR=.*;PISC2DIR=$(PISCES_DIR)/$(PISCES_VERSION);' \
+  	    -e 's;^[ 	]*VERS=.*;VERS=$(PISCES_VERSION);' pisc2.sh > pisc2.tmp
+  
+! InstallFile(pisc.key,${PREFIX}/share/misc/pisc.key)
+  
+  clean::
+  	$(RM) pisc.uky
+  
diff --git a/cad/pisces/files/patch-bh b/cad/pisces/files/patch-bh
new file mode 100644
index 00000000000..1e4bcbec31d
--- /dev/null
+++ b/cad/pisces/files/patch-bh
@@ -0,0 +1,19 @@
+*** library/plotcap/9016/plotcap/Imakefile.orig	Wed Nov  3 12:36:26 1999
+--- library/plotcap/9016/plotcap/Imakefile	Wed Nov  3 12:36:50 1999
+***************
+*** 22,28 ****
+  InstallFile(plotcap,$(PLOTCAP).std)
+  InstallNewFile(plotcap.def,$(PLOTCAP))
+  
+! DependsOn(plotcap.def,Makefile)
+  	EchoInto('# Date:',plotcap.def)
+  	EchoAppend('# LOCAL DEFINITIONS, edit this not $(PLOTCAPDIR)/plotcap.std',plotcap.def)
+  	EchoAppend(' ', plotcap.def)
+--- 22,28 ----
+  InstallFile(plotcap,$(PLOTCAP).std)
+  InstallNewFile(plotcap.def,$(PLOTCAP))
+  
+! DependsOn(plotcap.def,emptyrule)
+  	EchoInto('# Date:',plotcap.def)
+  	EchoAppend('# LOCAL DEFINITIONS, edit this not $(PLOTCAPDIR)/plotcap.std',plotcap.def)
+  	EchoAppend(' ', plotcap.def)
diff --git a/cad/pisces/files/patch-bi b/cad/pisces/files/patch-bi
new file mode 100644
index 00000000000..c5e10a74684
--- /dev/null
+++ b/cad/pisces/files/patch-bi
@@ -0,0 +1,19 @@
+*** library/sysf77lib/9009/xmktmp_bsd.c.orig	Fri Apr 21 13:55:24 2000
+--- library/sysf77lib/9009/xmktmp_bsd.c	Fri Apr 21 13:56:16 2000
+***************
+*** 56,62 ****
+  
+  	(void)sprintf(buf,TEMPLATE,lkey) ;
+  
+! 	(void)mktemp(buf) ;
+  
+  	for (p = &str[*len] ; p != str; ) *--p = ' ' ;	/* clear */
+  
+--- 56,62 ----
+  
+  	(void)sprintf(buf,TEMPLATE,lkey) ;
+  
+! 	(void)mkstemp(buf) ;
+  
+  	for (p = &str[*len] ; p != str; ) *--p = ' ' ;	/* clear */
+  
diff --git a/cad/pisces/files/systype b/cad/pisces/files/systype
new file mode 100644
index 00000000000..fa0c3452c11
--- /dev/null
+++ b/cad/pisces/files/systype
@@ -0,0 +1 @@
+FBSD
diff --git a/cad/pisces/files/xdate_fbsd.c b/cad/pisces/files/xdate_fbsd.c
new file mode 100644
index 00000000000..49a8f3015bf
--- /dev/null
+++ b/cad/pisces/files/xdate_fbsd.c
@@ -0,0 +1,103 @@
+/* ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+ *
+ *     Copyright c 1988 The Board of Trustees of the Leland Stanford
+ *     Junior University. All rights reserved.  This routine may not
+ *     be used without the prior written consent of Stanford University.
+ *
+ *ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+*/
+
+
+/* XDATE, XTIME - return current date and current time strings */
+
+/* ======================================================================
+ * "XDATE": Return current date string.
+ *
+ *  Usage:
+ *     call xdate(str)
+ *  Notes:
+ *     + Format is somewhat arbitrary; however, a good one is:
+ *          "23 Sep 88"   "04 sep 88"   " 4 Sep 88"  "04-Sep-88"
+ *       or 9 (or less) characters long.
+ *     + In clock() the time and date strings are cat'ed together
+ *       like: str = date // '  ' // time
+ *       This resultant string MUST be 20 or less characters or
+ *       saved solution files will not work (lodsol will always
+ *       read and write 20 characters)
+ *
+ *  Original: Michael Eldredge -- Stanford University (may 88)
+ *
+ * -----------------------------------------------------------------------
+ */
+
+void
+xdate_(str)
+	char	str[] ;
+	{
+
+	int*	_stack_ = (int*)&str ;
+	int	strLEN  = _stack_[1] ;
+	int	i ;
+	long	t = time(0) ;
+	char*	dat ;
+
+	char*	ctime() ;
+
+/* -----------------------------------------------------------------------
+ *..get the Unix ctime() string
+ *....  1234 6789,1234 6789,1234 6789,
+ *.... "Mon May 23 18:34:22 1988"
+ */
+	dat = ctime(&t) ;
+
+/* reformat to our liking. */
+       for (i = 0 ; i < strLEN; i) str[i++] = ' ' ;
+
+       strncpy(&str[0], &dat[ 8], 2) ;	/* str(1: 2) = dat(9:10) */
+       str[2] = '-' ;			/* str(3: 3) = '-' */
+       strncpy(&str[3], &dat[ 4], 3) ;	/* str(4: 6) = dat( 5: 7) */
+       str[6] = '-' ;			/* str(7: 7) = '-' */
+       strncpy(&str[7], &dat[22], 2) ;	/* str(8: 9) = dat(23:24) */
+       }
+	
+
+/* =====================================================================
+ * "XTIME": Return current time of day string.
+ *
+ *  Usage:
+ *     call xtime(str)
+ *  Notes:
+ *     + Format is somewhat arbitrary; however, a good one is:
+ *	   23:04:56     23:04:00    11:04:56pm
+ *       or 8 to 10 characters long (but no more than 10 - see note
+ *       for XDATE.
+ *
+ *  Original: Michael Eldredge -- Stanford University (may 88)
+ *
+ * -----------------------------------------------------------------------
+ */
+
+void
+xtime_(str)
+	char	str[] ;
+	{
+	int*	_stack_ = (int*)&str ;
+	int	strLEN = _stack_[1] ;
+	int	i ;
+	long	t = time(0) ;
+	char*	tim ;
+
+	char*	ctime() ;
+
+	/* get the Unix ctime() string
+	 *....  1234 6789,1234 6789,1234 6789,
+	 *.... "Mon May 23 18:34:22 1988"
+	 */
+	tim = ctime(&t) ;
+
+	/* reformat to our liking. */
+	for (i = 0 ; i < strLEN; ) str[i++] = ' ' ;
+
+	strncpy(str, &tim[11], 8) ;	/* str = tim(12:19) */
+	}
+
diff --git a/cad/pisces/files/xtimer_fbsd.c b/cad/pisces/files/xtimer_fbsd.c
new file mode 100644
index 00000000000..390035abf9e
--- /dev/null
+++ b/cad/pisces/files/xtimer_fbsd.c
@@ -0,0 +1,43 @@
+/* ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+ *
+ *    Copyright c 1988 The Board of Trustees of the Leland Stanford
+ *    Junior University. All rights reserved.  This routine may not
+ *    be used without the prior written consent of Stanford University.
+ *
+ * ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+ */
+
+/*  XTIMER - return cpu time usage. */
+
+/* =======================================================================
+ * "XTIMER" - Return current (user) cpu time (in seconds) usage.
+ *
+ *  Usage:
+ *     subroutine xdate(tim)
+ *       real tim		- user seconds of cpu used.
+ *
+ *  Original: Michael Eldredge -- Stanford University (may 88)
+ *
+ * -----------------------------------------------------------------------
+ */
+
+#include <sys/types.h>
+#include <sys/times.h>
+
+
+/*CENTRY*/
+void
+xtimer_(tim)
+	float*	tim ;
+	{
+
+	float	x ;
+	struct tms t ;
+	clock_t times() ;
+
+	(void)times(&t) ;
+	x = (float)t.tms_utime / 60.0 ;
+
+	*tim = x ;
+	}
+/*ENDCENTRY*/