Jspice3
distker.c File Reference
#include "spice.h"
#include <math.h>
#include "cktdefs.h"
#include "distodef.h"
#include "sperror.h"
#include "distoext.h"
Include dependency graph for distker.c:

Go to the source code of this file.

Functions

int DkerProc (int type, double *rPtr, double *iPtr, int size, DISTOAN *job)
 

Function Documentation

int DkerProc ( int  type,
double *  rPtr,
double *  iPtr,
int  size,
DISTOAN job 
)

Definition at line 16 of file distker.c.

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
#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