summaryrefslogtreecommitdiff
path: root/cad/simian/patches/patch-ab
blob: b41b651f21cd066dda3ce166904210f98093254f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
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);
 }