initial import of simian-2.1

Surface Impedance Method for Interconnect Analysis.

SIMIAN is a two dimensional frequency dependent series
impedance extraction tool for inerconnects and transmission
lines using conductors of rectangular or circular cross section.

The use of the surface ribbon method (SRM) greatly enhances
the speed of computation relative to the volume filament
method (VFM).

4 files changed, 152 insertions, 0 deletions

diff --git a/cad/simian/patches/patch-aa b/cad/simian/patches/patch-aa
new file mode 100644
index 00000000000..8eff5c7ce5f
--- /dev/null
+++ b/cad/simian/patches/patch-aa
@@ -0,0 +1,34 @@
+$NetBSD: patch-aa,v 1.1.1.1 2001/04/28 02:36:35 dmcmahill Exp $
+
+--- Makefile.orig	Mon Dec  7 03:28:52 1998
++++ Makefile		Fri Apr 27 17:09:20 2001
+@@ -1,6 +1,4 @@
+ 
+-SHELL = /bin/csh
+-CCC = c++
+-CCFLAGS = -g  
++CXXFLAGS+= -Wformat
+ LDFLAGS = -lm 
+ RM = /bin/rm
+@@ -14,5 +12,5 @@
+ 
+ simian : $(OBJEC)
+-	$(CCC) $(CCFLAGS) $(TARGET_ARCH) $(OBJEC) -o simian $(LDFLAGS)
++	$(CXX) $(CXXFLAGS) $(TARGET_ARCH) $(OBJEC) -o simian $(LDFLAGS)
+ 
+ main.o : main.cc weeks.h  
+@@ -48,11 +46,11 @@
+ 
+ $(INCLU)/linear.o : $(INCLU)/linear.cc
+-	g++ -c $(CFLAGS) $(INCLU)/linear.cc -o $(INCLU)/linear.o
++	$(CXX) -c $(CXXFLAGS) $(INCLU)/linear.cc -o $(INCLU)/linear.o
+ 
+ $(INCLU)/bessel.o : $(INCLU)/bessel.cc
+-	g++ -c $(CFLAGS) $(INCLU)/bessel.cc -o $(INCLU)/bessel.o
++	$(CXX) -c $(CXXFLAGS) $(INCLU)/bessel.cc -o $(INCLU)/bessel.o
+ 
+ clean:
+-	$(RM) -f *.o
++	$(RM) -f *.o simian
+ 	cd ../include; $(RM) -f *.o
+ 
diff --git a/cad/simian/patches/patch-ab b/cad/simian/patches/patch-ab
new file mode 100644
index 00000000000..b41b651f21c
--- /dev/null
+++ b/cad/simian/patches/patch-ab
@@ -0,0 +1,64 @@
+$NetBSD: patch-ab,v 1.1.1.1 2001/04/28 02:36:35 dmcmahill Exp $
+
+--- main.cc.orig	Thu Dec 10 05:56:19 1998
++++ main.cc	Fri Apr 27 16:47:38 2001
+@@ -74,5 +74,5 @@
+   LastFil(fils);         //remove last empty entry. 
+ //  Corr(fils); /* x1 < x2 */
+-  printf("Total %ld ribbons, %ld conductor\n",Nf,Nc);
++  printf("Total %d ribbons, %d conductor\n",Nf,Nc);
+   L=allocator(Nf);
+ 
+@@ -85,5 +85,5 @@
+ 	L[j][i]=L[i][j]=Lp(iF,jF); 
+ 	jF=jF->next;
+-        fprintf(fo,"%ld %ld %le\n",i,j,L[i][j]*sis->unit);
++        fprintf(fo,"%d %d %e\n",i,j,L[i][j]*sis->unit);
+       }
+       iF=iF->next;
+@@ -97,5 +97,5 @@
+     for (i=0;i<Nf;i++) {
+       for (j=i;j<Nf;j++) {
+-        fscanf(fi,"%ld  %ld  %le\n",&k,&k,&L[i][j]); 
++        fscanf(fi,"%d  %d  %le\n",&k,&k,&L[i][j]); 
+         L[i][j]/=sis->unit;
+         L[j][i]=L[i][j];
+@@ -115,5 +115,5 @@
+       printf("\n");
+       printf("***********  \n");
+-      printf("Total Elapsed time=%ld Seconds\n",(stop-start)); 
++      printf("Total Elapsed time=%ld Seconds\n",(long int) (stop-start)); 
+       exit(1);
+     }
+@@ -144,9 +144,9 @@
+       z=matrix(Nc,Nc);
+       z=inverse(ymtrx,Nc);
+-      fprintf(fzs,"\nImpedance %ld x %ld matrix (R,L) at f=%10.4le Hz\n",
++      fprintf(fzs,"\nImpedance %d x %d matrix (R,L) at f=%10.4e Hz\n",
+ 	Nc,Nc,w/2/M_PI);
+       for (i=0;i<Nc;i++) {
+         for (j=0;j<Nc;j++) {
+-          fprintf(fzs,"(%11.4le,%11.4le)  ",RE(z[i][j])*sis->unit,IM(z[i][j])
++          fprintf(fzs,"(%11.4e,%11.4e)  ",RE(z[i][j])*sis->unit,IM(z[i][j])
+ 	/w*sis->unit);
+         } 
+@@ -182,10 +182,10 @@
+       Din=matrix(numsgn+1,numsgn+1);
+       Din=Zequ(cons,numsgn,Nc);
+-      fprintf(fzs,"\nImpedance %ld x %ld matrix (R,L) at f=%10.4le Hz\n",
++      fprintf(fzs,"\nImpedance %d x %d matrix (R,L) at f=%10.4e Hz\n",
+ 	numsgn,numsgn,w/2/M_PI);
+ 
+       for (i=0;i<numsgn;i++) {
+         for (j=0;j<numsgn;j++) {
+-          fprintf(fzs,"(%11.4le,%11.4le)  ",RE(Din[i][j])*sis->unit,IM(Din[i][j])
++          fprintf(fzs,"(%11.4e,%11.4e)  ",RE(Din[i][j])*sis->unit,IM(Din[i][j])
+  	       /w*sis->unit);
+         }
+@@ -200,5 +200,5 @@
+   printf("\n");
+   printf("***********  \n");
+-  printf("Total Elapsed time=%ld Seconds\n",(stop-start));  
++  printf("Total Elapsed time=%ld Seconds\n",(long int) (stop-start));  
+   exit(0);
+ }
diff --git a/cad/simian/patches/patch-ac b/cad/simian/patches/patch-ac
new file mode 100644
index 00000000000..749fd6161f0
--- /dev/null
+++ b/cad/simian/patches/patch-ac
@@ -0,0 +1,16 @@
+$NetBSD: patch-ac,v 1.1.1.1 2001/04/28 02:36:35 dmcmahill Exp $
+
+--- plane.cc.orig	Mon Dec  7 03:28:51 1998
++++ plane.cc	Fri Apr 27 16:48:43 2001
+@@ -335,9 +335,9 @@
+     for (j=1;j<=l[i];j++) {
+       if (l[i]!=2) 
+-	if (LX[i][j]!=LX[i][j+1])  fprintf(fo,"below %ld %le\n",i,LX[i][j]);
++	if (LX[i][j]!=LX[i][j+1])  fprintf(fo,"below %d %e\n",i,LX[i][j]);
+     } 
+     for (j=1;j<=u[i];j++) {
+      if (u[i]!=2) 
+-	if (UX[i][j]!=UX[i][j+1]) fprintf(fo,"above %ld %le\n",i,UX[i][j]);
++	if (UX[i][j]!=UX[i][j+1]) fprintf(fo,"above %d %e\n",i,UX[i][j]);
+     }
+   }
diff --git a/cad/simian/patches/patch-ad b/cad/simian/patches/patch-ad
new file mode 100644
index 00000000000..c8ab727282c
--- /dev/null
+++ b/cad/simian/patches/patch-ad
@@ -0,0 +1,38 @@
+$NetBSD: patch-ad,v 1.1.1.1 2001/04/28 02:36:35 dmcmahill Exp $
+
+--- reader.cc.orig	Thu Dec 10 04:02:44 1998
++++ reader.cc	Fri Apr 27 17:00:23 2001
+@@ -213,5 +213,5 @@
+       fl >> s1;
+       if (strcmp(s1,"=")==0) fl >> conduc->dx;
+-      else sscanf(s1,"%c%ld",&dum,&conduc->dx);
++      else sscanf(s1,"%c%d",&dum,&conduc->dx);
+     }
+     else if (strcmp(s1,"ny=")==0) fl >> conduc->dy;
+@@ -219,5 +219,5 @@
+       fl >> s1;
+       if (strcmp(s1,"=")==0) fl >> conduc->dy;
+-      else sscanf(s1,"%c%ld",&dum,&conduc->dy);
++      else sscanf(s1,"%c%d",&dum,&conduc->dy);
+     }
+     else if (strcmp(s1,"nr=")==0) fl >> conduc->nr;
+@@ -225,5 +225,5 @@
+       fl >> s1;
+       if (strcmp(s1,"=")==0) fl >> conduc->nr;
+-      else sscanf(s1,"%c%ld",&dum,&conduc->nr);
++      else sscanf(s1,"%c%d",&dum,&conduc->nr);
+     }
+     else  if ((strncmp(s1,"*",1)==0)||(strncmp(s1,".",1)==0)) {
+@@ -266,9 +266,9 @@
+ 	sscanf(s1,"%c%c%le",&dum,&dum,&conduc->v);
+       else if (strncmp(s1,"nx=",3)==0)
+-	sscanf(s1,"%c%c%c%ld",&dum,&dum,&dum,&conduc->dx);
++	sscanf(s1,"%c%c%c%d",&dum,&dum,&dum,&conduc->dx);
+       else if (strncmp(s1,"ny=",3)==0)
+-	sscanf(s1,"%c%c%c%ld",&dum,&dum,&dum,&conduc->dy);
++	sscanf(s1,"%c%c%c%d",&dum,&dum,&dum,&conduc->dy);
+       else if (strncmp(s1,"nr=",3)==0)
+-	sscanf(s1,"%c%c%c%ld",&dum,&dum,&dum,&conduc->nr);
++	sscanf(s1,"%c%c%c%d",&dum,&dum,&dum,&conduc->nr);
+       else if (strncmp(s1,"rx=",3)==0)
+ 	sscanf(s1,"%c%c%c%le",&dum,&dum,&dum,&conduc->rx);