Jspice3
distker.c
Go to the documentation of this file.
1 /***************************************************************************
2 JSPICE3 adaptation of Spice3f2 - Copyright (c) Stephen R. Whiteley 1992
3 Copyright 1990 Regents of the University of California. All rights reserved.
4 Authors: 1988 Jaijeet S Roychowdhury
5  1993 Stephen R. Whiteley
6 ****************************************************************************/
7 
8 #include "spice.h"
9 #include <math.h>
10 #include "cktdefs.h"
11 #include "distodef.h"
12 #include "sperror.h"
13 #include "distoext.h"
14 
15 int
16 DkerProc(type,rPtr,iPtr,size,job)
17 
18 double *rPtr;
19 double *iPtr;
20 int size;
21 DISTOAN* job;
22 int type;
23 {
24  int i;
25  double temp;
26 
27  switch(type) {
28 
29  case D_F1:
30 
31  for (i = 1; i <= size; i++) {
32  iPtr[i] *= 2.0; /* convert to sinusoid amplitude */
33  rPtr[i] *= 2.0;
34  }
35  break;
36 
37  case D_F2:
38 
39  for (i = 1; i <= size; i++) {
40  rPtr[i] *= 2.0;
41  iPtr[i] *= 2.0;
42  }
43  break;
44 
45  case D_TWOF1:
46 
47  for (i = 1; i <= size; i++) {
48  iPtr[i] *= 2.0;
49  rPtr[i] *= 2.0;
50  }
51  break;
52 
53  case D_THRF1:
54 
55  for (i = 1; i <= size; i++) {
56  iPtr[i] *= 2.0;
57  rPtr[i] *= 2.0;
58  }
59  break;
60 
61  case D_F1PF2:
62 
63  for (i = 1; i <= size; i++) {
64  iPtr[i] *= 4.0;
65  rPtr[i] *= 4.0;
66  }
67  break;
68 
69  case D_F1MF2:
70 
71  for (i = 1; i <= size; i++) {
72  iPtr[i] *= 4.0;
73  rPtr[i] *= 4.0;
74  }
75  break;
76 
77  case D_2F1MF2:
78 
79  for (i = 1; i <= size; i++) {
80  iPtr[i] *= 6.0;
81  rPtr[i] *= 6.0;
82  }
83  break;
84 
85  default:
86 
87  return (E_BADPARM);
88 
89  }
90  return (OK);
91 }
#define D_F1
Definition: distodef.h:159
int DkerProc(int type, double *rPtr, double *iPtr, int size, DISTOAN *job)
Definition: distker.c:16
#define E_BADPARM
Definition: iferrmsg.h:26
#define D_F2
Definition: distodef.h:160
#define OK
Definition: iferrmsg.h:17
#define D_2F1MF2
Definition: distodef.h:165
Definition: types.c:18
#define D_TWOF1
Definition: distodef.h:161
#define D_F1PF2
Definition: distodef.h:163
#define D_F1MF2
Definition: distodef.h:164
#define D_THRF1
Definition: distodef.h:162