luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Moved Truncation Error Calculation into GPU for CUSPICE

This commit is contained in:
Francesco Lannutti 2014-05-12 08:55:25 +02:00 committed by rlar
parent 8718b78b01
commit c3c8c8c176
28 changed files with 719 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/include/ngspice/CUSPICE/CUSPICE.h
View File

@ -33,29 +33,33 @@ int cuCKTrhsOldUpdateDtoH (CKTcircuit *) ;
int cuCKTsetup (CKTcircuit *) ;
int cuCKTsystemDtoH (CKTcircuit *) ;
int cuCKTstatesFlush (CKTcircuit *) ;
int cuCKTstatesUpdateDtoH (CKTcircuit *) ;
int cuCKTstate0UpdateHtoD (CKTcircuit *) ;
int cuCKTstate0UpdateDtoH (CKTcircuit *) ;
int cuCKTstate01copy (CKTcircuit *) ;
int cuCKTstatesCircularBuffer (CKTcircuit *) ;
int cuCKTstate123copy (CKTcircuit *) ;
int cuCKTdeltaOldUpdateHtoD (CKTcircuit *) ;
int cuCKTtrunc (CKTcircuit *, double, double *) ;
int cuBSIM4destroy (GENmodel *) ;
int cuBSIM4getic (GENmodel *) ;
int cuBSIM4load (GENmodel *, CKTcircuit *) ;
int cuBSIM4setup (GENmodel *) ;
int cuBSIM4temp (GENmodel *) ;
int cuBSIM4trunc (GENmodel *, CKTcircuit *, double *) ;
int cuCAPdestroy (GENmodel *) ;
int cuCAPgetic (GENmodel *) ;
int cuCAPload (GENmodel *, CKTcircuit *) ;
int cuCAPsetup (GENmodel *) ;
int cuCAPtemp (GENmodel *) ;
int cuCAPtrunc (GENmodel *, CKTcircuit *, double *) ;
int cuINDdestroy (GENmodel *) ;
int cuINDload (GENmodel *, CKTcircuit *) ;
int cuINDsetup (GENmodel *) ;
int cuINDtemp (GENmodel *) ;
int cuINDtrunc (GENmodel *, CKTcircuit *, double *) ;
int cuISRCdestroy (GENmodel *) ;
int cuISRCload (GENmodel *, CKTcircuit *) ;

8
src/include/ngspice/cktdefs.h
View File

@ -295,6 +295,7 @@ struct CKTcircuit {
#ifdef USE_CUSPICE
double *(d_CKTstates[8]) ;
double **dD_CKTstates ;
#define d_CKTstate0 d_CKTstates[0]
#define d_CKTstate1 d_CKTstates[1]
#define d_CKTstate2 d_CKTstates[2]
@ -304,6 +305,8 @@ struct CKTcircuit {
#define d_CKTstate6 d_CKTstates[6]
#define d_CKTstate7 d_CKTstates[7]
double *d_CKTdeltaOld ;
double *d_CKTrhsOld ;
int *d_CKTnoncon ;
int d_MatrixSize ;
@ -330,6 +333,11 @@ struct CKTcircuit {
int *d_CKTtopologyMatrixCSRpRHS ;
int *d_CKTtopologyMatrixCSRjRHS ;
double *d_CKTtopologyMatrixCSRxRHS ;
int total_n_timeSteps ;
double *CKTtimeSteps ;
double *d_CKTtimeSteps ;
double *d_CKTtimeStepsOut ;
#endif
};

20
src/spicelib/analysis/CUSPICE/cucktsetup.c
View File

@ -58,7 +58,7 @@ CKTcircuit *ckt
)
{
int i ;
long unsigned int m, mRHS, n, nz, TopologyNNZ, TopologyNNZRHS, size1, size2 ;
long unsigned int m, mRHS, n, nz, TopologyNNZ, TopologyNNZRHS, size1, size2, size3 ;
cudaError_t status ;
n = (long unsigned int)ckt->CKTmatrix->CKTkluN ;
@ -74,6 +74,7 @@ CKTcircuit *ckt
size1 = (long unsigned int)(ckt->d_MatrixSize + 1) ;
size2 = (long unsigned int)ckt->CKTnumStates ;
size3 = (long unsigned int)ckt->total_n_timeSteps ;
/* Topology Matrix Handling */
status = cudaMalloc ((void **)&(ckt->CKTmatrix->d_CKTrhs), (n + 1) * sizeof(double)) ;
@ -141,5 +142,22 @@ CKTcircuit *ckt
CUDAMALLOCCHECK (ckt->d_CKTstates[i], size2, double, status)
}
/* Truncation Error */
status = cudaMalloc ((void **)&(ckt->dD_CKTstates), 8 * sizeof(double *)) ;
CUDAMALLOCCHECK (ckt->dD_CKTstates, 8, double *, status)
status = cudaMemcpy (ckt->dD_CKTstates, ckt->d_CKTstates, 8 * sizeof(double *), cudaMemcpyHostToDevice) ;
CUDAMEMCPYCHECK (ckt->dD_CKTstates, 8, double *, status)
status = cudaMalloc ((void **)&(ckt->d_CKTdeltaOld), 7 * sizeof(double)) ;
CUDAMALLOCCHECK (ckt->d_CKTdeltaOld, 7, double, status)
// ckt->CKTtimeSteps = (double *) malloc (size3 * sizeof(double)) ;
status = cudaMalloc ((void **)&(ckt->d_CKTtimeSteps), size3 * sizeof(double)) ;
CUDAMALLOCCHECK (ckt->d_CKTtimeSteps, size3, double, status)
status = cudaMalloc ((void **)&(ckt->d_CKTtimeStepsOut), size3 * sizeof(double)) ;
CUDAMALLOCCHECK (ckt->d_CKTtimeStepsOut, size3, double, status)
return (OK) ;
}

38
src/spicelib/analysis/CUSPICE/cucktstatesupdate.c
View File

@ -39,30 +39,6 @@
return (E_NOMEM) ; \
}
int
cuCKTstatesUpdateDtoH
(
CKTcircuit *ckt
)
{
int i ;
long unsigned int size ;
cudaError_t status ;
size = (long unsigned int)ckt->CKTnumStates ;
for (i = 0 ; i < 8 ; i++)
{
if (ckt->CKTstates[i] != NULL)
{
status = cudaMemcpy (ckt->CKTstates[i], ckt->d_CKTstates[i], size * sizeof(double), cudaMemcpyDeviceToHost) ;
CUDAMEMCPYCHECK (ckt->CKTstates[i], size, double, status)
}
}
return (OK) ;
}
int
cuCKTstatesFlush
(
@ -162,3 +138,17 @@ CKTcircuit *ckt
return (OK) ;
}
int
cuCKTdeltaOldUpdateHtoD
(
CKTcircuit *ckt
)
{
cudaError_t status ;
status = cudaMemcpy (ckt->d_CKTdeltaOld, ckt->CKTdeltaOld, 7 * sizeof(double), cudaMemcpyHostToDevice) ;
CUDAMEMCPYCHECK (ckt->d_CKTdeltaOld, 7, double, status)
return (OK) ;
}

99
src/spicelib/analysis/CUSPICE/cucktterr.cuh Normal file
View File

@ -0,0 +1,99 @@
/**********
Copyright 1990 Regents of the University of California. All rights reserved.
Author: 1985 Thomas L. Quarles
**********/
extern "C"
__device__
static
int
cuCKTterr
(
int qcap, double **CKTstates, double *d_CKTdeltaOld,
double d_CKTdelta, int d_CKTorder, int d_CKTintegrateMethod,
double d_CKTabsTol, double d_CKTrelTol, double d_CKTchgTol, double d_CKTtrTol,
//Return Value
double *timeStep
)
{
#define ccap (qcap+1)
/* known integration methods */
#define TRAPEZOIDAL 1
#define GEAR 2
#define MAX(a,b) ((a) > (b) ? (a) : (b))
double volttol, chargetol, tol, del ;
double diff [8] ;
double deltmp [8] ;
double factor = 0 ;
int i, j ;
double gearCoeff [] = {
.5,
.2222222222,
.1363636364,
.096,
.07299270073,
.05830903790
} ;
double trapCoeff [] = {
.5,
.08333333333
} ;
volttol = d_CKTabsTol + d_CKTrelTol * MAX (fabs (CKTstates [0] [ccap]), fabs (CKTstates [1] [ccap])) ;
chargetol = MAX (fabs (CKTstates [0] [qcap]), fabs (CKTstates [1] [qcap])) ;
chargetol = d_CKTrelTol * MAX (chargetol, d_CKTchgTol) / d_CKTdelta ;
tol = MAX (volttol, chargetol) ;
/* now divided differences */
for (i = d_CKTorder + 1 ; i >= 0 ; i--)
{
diff [i] = CKTstates [i] [qcap] ;
}
for (i = 0 ; i <= d_CKTorder ; i++)
{
deltmp [i] = d_CKTdeltaOld [i] ;
}
j = d_CKTorder ;
for (;;)
{
for (i = 0 ; i <= j ; i++)
{
diff [i] = (diff [i] - diff [i + 1]) / deltmp [i] ;
}
if (--j < 0)
break ;
for (i = 0 ; i <= j ; i++)
{
deltmp [i] = deltmp [i + 1] + d_CKTdeltaOld [i] ;
}
}
switch (d_CKTintegrateMethod)
{
case GEAR:
factor = gearCoeff [d_CKTorder - 1] ;
break ;
case TRAPEZOIDAL:
factor = trapCoeff [d_CKTorder - 1] ;
break ;
}
del = d_CKTtrTol * tol / MAX (d_CKTabsTol, factor * fabs (diff [0])) ;
if (d_CKTorder == 2)
{
del = sqrt (del) ;
} else if (d_CKTorder > 2) {
del = exp (log (del) / d_CKTorder) ;
}
*timeStep = del ;
return 0 ;
}

135
src/spicelib/analysis/CUSPICE/cuckttrunc.cu Normal file
View File

@ -0,0 +1,135 @@
/**********
Copyright 2014 - NGSPICE Software
Author: 2014 Francesco Lannutti
**********/
#include "ngspice/config.h"
#include "ngspice/cktdefs.h"
#include "cuda_runtime_api.h"
#include "ngspice/macros.h"
/* cudaMemcpy MACRO to check it for errors --> CUDAMEMCPYCHECK(name of pointer, dimension, type, status) */
#define CUDAMEMCPYCHECK(a, b, c, d) \
if (d != cudaSuccess) \
{ \
fprintf (stderr, "cuCKTtrunc routine...\n") ; \
fprintf (stderr, "Error: cudaMemcpy failed on %s size of %d bytes\n", #a, (int)(b * sizeof(c))) ; \
fprintf (stderr, "Error: %s = %d, %s\n", #d, d, cudaGetErrorString (d)) ; \
return (E_NOMEM) ; \
}
extern "C"
__global__ void cuCKTtrunc_kernel
(
double *, double *, int
) ;
extern "C"
int
cuCKTtrunc
(
CKTcircuit *ckt, double timetemp, double *timeStep
)
{
long unsigned int size ;
double timetempGPU ;
int thread_x, thread_y, block_x ;
cudaError_t status ;
/* Determining how many blocks should exist in the kernel */
thread_x = 1 ;
thread_y = 256 ;
if (ckt->total_n_timeSteps % thread_y != 0)
block_x = (int)((ckt->total_n_timeSteps + thread_y - 1) / thread_y) ;
else
block_x = ckt->total_n_timeSteps / thread_y ;
dim3 thread (thread_x, thread_y) ;
/* Kernel launch */
status = cudaGetLastError () ; // clear error status
cuCKTtrunc_kernel <<< block_x, thread, thread_y * sizeof(double) >>> (ckt->d_CKTtimeSteps, ckt->d_CKTtimeStepsOut, ckt->total_n_timeSteps) ;
cudaDeviceSynchronize () ;
cuCKTtrunc_kernel <<< 1, thread, thread_y * sizeof(double) >>> (ckt->d_CKTtimeStepsOut, ckt->d_CKTtimeSteps, block_x) ;
cudaDeviceSynchronize () ;
status = cudaGetLastError () ; // check for launch error
if (status != cudaSuccess)
{
fprintf (stderr, "Kernel launch failure in cuCKTtrunc\n\n") ;
return (E_NOMEM) ;
}
/* Copy back the reduction result */
size = (long unsigned int)(1) ;
status = cudaMemcpy (&timetempGPU, ckt->d_CKTtimeSteps, size * sizeof(double), cudaMemcpyDeviceToHost) ;
CUDAMEMCPYCHECK (&timetempGPU, size, double, status)
/* Final Comparison */
if (timetempGPU < timetemp)
{
timetemp = timetempGPU ;
}
if (2 * *timeStep < timetemp)
{
*timeStep = 2 * *timeStep ;
} else {
*timeStep = timetemp ;
}
return 0 ;
}
extern "C"
__global__
void
cuCKTtrunc_kernel
(
double *g_idata, double *g_odata, int n
)
{
extern __shared__ double sdata [] ;
unsigned int i, tid ;
tid = threadIdx.y ;
// i = blockIdx.x * (blockDim.y * 2) + tid ;
i = blockIdx.x * blockDim.y + tid ;
if (i < n)
{
// sdata [tid] = MIN (g_idata [i], g_idata [i + blockDim.y]) ;
sdata [tid] = g_idata [i] ;
}
__syncthreads () ;
if ((tid < 128) && (i + 128 < n))
{
sdata [tid] = MIN (sdata [tid], sdata [tid + 128]) ;
}
__syncthreads () ;
if ((tid < 64) && (i + 64 < n))
{
sdata [tid] = MIN (sdata [tid], sdata [tid + 64]) ;
}
__syncthreads () ;
if ((tid < 32) && (i + 32 < n))
{
sdata [tid] = MIN (sdata [tid], sdata [tid + 32]) ;
sdata [tid] = MIN (sdata [tid], sdata [tid + 16]) ;
sdata [tid] = MIN (sdata [tid], sdata [tid + 8]) ;
sdata [tid] = MIN (sdata [tid], sdata [tid + 4]) ;
sdata [tid] = MIN (sdata [tid], sdata [tid + 2]) ;
sdata [tid] = MIN (sdata [tid], sdata [tid + 1]) ;
}
if (tid == 0)
{
g_odata [blockIdx.x] = sdata [0] ;
}
}

5
src/spicelib/analysis/Makefile.am
View File

@ -111,6 +111,8 @@ AM_CPPFLAGS = @AM_CPPFLAGS@ -I$(top_srcdir)/src/include -I$(top_srcdir)/src/spi
AM_CFLAGS = $(STATIC)
if USE_CUSPICE_WANTED
.cu.lo:
$(AM_V_GEN)$(top_srcdir)/src/libtool_wrapper_for_cuda.tcl $@ $(AM_CFLAGS) $(NVCC) $(CUDA_CFLAGS) $(AM_CPPFLAGS) -c $<
libckt_la_SOURCES += \
CUSPICE/cucktflush.c \
@ -118,7 +120,8 @@ libckt_la_SOURCES += \
CUSPICE/cucktrhsoldupdate.c \
CUSPICE/cucktsetup.c \
CUSPICE/cucktstatesupdate.c \
CUSPICE/cucktsystem.c
CUSPICE/cucktsystem.c \
CUSPICE/cuckttrunc.cu
AM_CPPFLAGS += $(CUDA_CPPFLAGS)
AM_LDFLAGS = $(CUDA_LIBS) -lcusparse

2
src/spicelib/analysis/cktsetup.c
View File

@ -106,6 +106,8 @@ CKTsetup(CKTcircuit *ckt)
ckt->total_n_valuesRHS = 0 ;
ckt->total_n_PtrRHS = 0 ;
ckt->total_n_timeSteps = 0 ;
#endif
int i;

12
src/spicelib/analysis/ckttrunc.c
View File

@ -15,6 +15,9 @@ Author: 1985 Thomas L. Quarles
#include "ngspice/devdefs.h"
#include "ngspice/sperror.h"
#ifdef USE_CUSPICE
#include "ngspice/CUSPICE/CUSPICE.h"
#endif
int
CKTtrunc (CKTcircuit *ckt, double *timeStep)
@ -58,7 +61,16 @@ CKTtrunc (CKTcircuit *ckt, double *timeStep)
}
}
#ifdef USE_CUSPICE
int status ;
status = cuCKTtrunc (ckt, HUGE, timeStep) ;
if (status != 0)
return (E_NOMEM) ;
#else
*timeStep = MIN (2 * *timeStep, timetemp) ;
#endif
ckt->CKTstat->STATtranTruncTime += SPfrontEnd->IFseconds () - startTime ;
return (OK) ;

2
src/spicelib/analysis/dctran.c
View File

@ -884,7 +884,7 @@ resume:
}
#ifdef USE_CUSPICE
status = cuCKTstatesUpdateDtoH (ckt) ;
status = cuCKTdeltaOldUpdateHtoD (ckt) ;
if (status != 0)
return (E_NOMEM) ;
#endif

6
src/spicelib/devices/bsim4/CUSPICE/cubsim4setup.c
View File

@ -73,6 +73,12 @@ GENmodel *inModel
status = cudaMemcpy (model->d_PositionVectorRHS, model->PositionVectorRHS, size * sizeof(int), cudaMemcpyHostToDevice) ;
CUDAMEMCPYCHECK (model->d_PositionVectorRHS, size, int, status)
status = cudaMalloc ((void **)&(model->d_PositionVector_timeSteps), size * sizeof(int)) ;
CUDAMALLOCCHECK (model->d_PositionVector_timeSteps, size, int, status)
status = cudaMemcpy (model->d_PositionVector_timeSteps, model->PositionVector_timeSteps, size * sizeof(int), cudaMemcpyHostToDevice) ;
CUDAMEMCPYCHECK (model->d_PositionVector_timeSteps, size, int, status)
/* DOUBLE */
model->BSIM4paramCPU.BSIM4gbsRWArray = (double *) malloc (size * sizeof(double)) ;
status = cudaMalloc ((void **)&(model->BSIM4paramGPU.d_BSIM4gbsRWArray), size * sizeof(double)) ;

137
src/spicelib/devices/bsim4/CUSPICE/cubsim4trunc.cu Normal file
View File

@ -0,0 +1,137 @@
/**********
Copyright 2014 - NGSPICE Software
Author: 2014 Francesco Lannutti
**********/
#include "ngspice/config.h"
#include "CUSPICE/cucktterr.cuh"
#include "bsim4def.h"
extern "C"
__global__ void cuBSIM4trunc_kernel (BSIM4paramGPUstruct, int, double **, double *, double,
int, int, double, double, double, double, double *, int *) ;
extern "C"
int
cuBSIM4trunc
(
GENmodel *inModel, CKTcircuit *ckt, double *timeStep
)
{
(void)timeStep ;
BSIM4model *model = (BSIM4model *)inModel ;
int thread_x, thread_y, block_x ;
cudaError_t status ;
/* loop through all the BSIM4 models */
for ( ; model != NULL ; model = model->BSIM4nextModel)
{
/* Determining how many blocks should exist in the kernel */
thread_x = 1 ;
thread_y = 256 ;
if (model->n_instances % thread_y != 0)
block_x = (int)((model->n_instances + thread_y - 1) / thread_y) ;
else
block_x = model->n_instances / thread_y ;
dim3 thread (thread_x, thread_y) ;
/* Kernel launch */
status = cudaGetLastError () ; // clear error status
cuBSIM4trunc_kernel <<< block_x, thread >>> (model->BSIM4paramGPU, model->n_instances,
ckt->dD_CKTstates, ckt->d_CKTdeltaOld,
ckt->CKTdelta, ckt->CKTorder, ckt->CKTintegrateMethod,
ckt->CKTabstol, ckt->CKTreltol, ckt->CKTchgtol, ckt->CKTtrtol,
ckt->d_CKTtimeSteps, model->d_PositionVector_timeSteps) ;
cudaDeviceSynchronize () ;
status = cudaGetLastError () ; // check for launch error
if (status != cudaSuccess)
{
fprintf (stderr, "Kernel launch failure in the Trunc BSIM4 Model\n\n") ;
return (E_NOMEM) ;
}
}
return (OK) ;
}
extern "C"
__global__
void
cuBSIM4trunc_kernel
(
BSIM4paramGPUstruct BSIM4entry, int n_instances, double **CKTstates,
double *CKTdeltaOld, double CKTdelta, int CKTorder, int CKTintegrateMethod,
double CKTabsTol, double CKTrelTol, double CKTchgTol, double CKTtrTol,
double *CKTtimeSteps, int *PositionVector_timeSteps
)
{
int instance_ID, i ;
instance_ID = threadIdx.y + blockDim.y * blockIdx.x ;
if (instance_ID < n_instances)
{
if (threadIdx.x == 0)
{
i = 0 ;
cuCKTterr (BSIM4entry.d_BSIM4statesArray [instance_ID] + 11, CKTstates,
CKTdeltaOld, CKTdelta, CKTorder, CKTintegrateMethod,
CKTabsTol, CKTrelTol, CKTchgTol, CKTtrTol,
&(CKTtimeSteps [PositionVector_timeSteps [instance_ID] + i])) ;
i++ ;
cuCKTterr (BSIM4entry.d_BSIM4statesArray [instance_ID] + 13, CKTstates,
CKTdeltaOld, CKTdelta, CKTorder, CKTintegrateMethod,
CKTabsTol, CKTrelTol, CKTchgTol, CKTtrTol,
&(CKTtimeSteps [PositionVector_timeSteps [instance_ID] + i])) ;
i++ ;
cuCKTterr (BSIM4entry.d_BSIM4statesArray [instance_ID] + 15, CKTstates,
CKTdeltaOld, CKTdelta, CKTorder, CKTintegrateMethod,
CKTabsTol, CKTrelTol, CKTchgTol, CKTtrTol,
&(CKTtimeSteps [PositionVector_timeSteps [instance_ID] + i])) ;
i++ ;
if (BSIM4entry.d_BSIM4trnqsModArray [instance_ID])
{
cuCKTterr (BSIM4entry.d_BSIM4statesArray [instance_ID] + 25, CKTstates,
CKTdeltaOld, CKTdelta, CKTorder, CKTintegrateMethod,
CKTabsTol, CKTrelTol, CKTchgTol, CKTtrTol,
&(CKTtimeSteps [PositionVector_timeSteps [instance_ID] + i])) ;
i++ ;
}
if (BSIM4entry.d_BSIM4rbodyModArray [instance_ID])
{
cuCKTterr (BSIM4entry.d_BSIM4statesArray [instance_ID] + 19, CKTstates,
CKTdeltaOld, CKTdelta, CKTorder, CKTintegrateMethod,
CKTabsTol, CKTrelTol, CKTchgTol, CKTtrTol,
&(CKTtimeSteps [PositionVector_timeSteps [instance_ID] + i])) ;
i++ ;
cuCKTterr (BSIM4entry.d_BSIM4statesArray [instance_ID] + 21, CKTstates,
CKTdeltaOld, CKTdelta, CKTorder, CKTintegrateMethod,
CKTabsTol, CKTrelTol, CKTchgTol, CKTtrTol,
&(CKTtimeSteps [PositionVector_timeSteps [instance_ID] + i])) ;
i++ ;
}
if (BSIM4entry.d_BSIM4rgateModArray [instance_ID] == 3)
{
cuCKTterr (BSIM4entry.d_BSIM4statesArray [instance_ID] + 17, CKTstates,
CKTdeltaOld, CKTdelta, CKTorder, CKTintegrateMethod,
CKTabsTol, CKTrelTol, CKTchgTol, CKTtrTol,
&(CKTtimeSteps [PositionVector_timeSteps [instance_ID] + i])) ;
i++ ;
}
}
}
return ;
}

5
src/spicelib/devices/bsim4/Makefile.am
View File

@ -47,9 +47,10 @@ libbsim4_la_SOURCES += \
CUSPICE/cubsim4getic.c \
CUSPICE/cubsim4load.cu \
CUSPICE/cubsim4setup.c \
CUSPICE/cubsim4temp.c
CUSPICE/cubsim4temp.c \
CUSPICE/cubsim4trunc.cu
AM_CPPFLAGS += $(CUDA_CPPFLAGS)
AM_CPPFLAGS += $(CUDA_CPPFLAGS) -I$(top_srcdir)/src/spicelib/analysis
endif
MAINTAINERCLEANFILES = Makefile.in

27
src/spicelib/devices/bsim4/b4set.c
View File

@ -2575,7 +2575,7 @@ do { if((here->ptr = SMPmakeElt(matrix,here->first,here->second))==(double *)NUL
}
#ifdef USE_CUSPICE
int i, j, jRHS, l, lRHS, status ;
int i, j, jRHS, l, lRHS, lTimeSteps, status ;
/* Counting the instances */
for (model = (BSIM4model *)inModel ; model != NULL ; model = model->BSIM4nextModel)
@ -2600,15 +2600,22 @@ do { if((here->ptr = SMPmakeElt(matrix,here->first,here->second))==(double *)NUL
/* Position Vector Allocation for the RHS */
model->PositionVectorRHS = TMALLOC (int, model->n_instances) ;
/* Position Vector Allocation for timeSteps */
model->PositionVector_timeSteps = TMALLOC (int, model->n_instances) ;
model->offset = ckt->total_n_values ;
model->offsetRHS = ckt->total_n_valuesRHS ;
model->offset_timeSteps = ckt->total_n_timeSteps ;
i = 0 ;
j = 0 ;
jRHS = 0 ;
l = 0 ;
lRHS = 0 ;
lTimeSteps = 0 ;
/* loop through all the instances of the model */
for (here = model->BSIM4instances ; here != NULL ; here = here->BSIM4nextInstance)
@ -2619,6 +2626,9 @@ do { if((here->ptr = SMPmakeElt(matrix,here->first,here->second))==(double *)NUL
/* Position Vector Assignment for the RHS */
model->PositionVectorRHS [i] = model->offsetRHS + lRHS ;
/* Position Vector Assignment for timeSteps */
model->PositionVector_timeSteps [i] = model->offset_timeSteps + lTimeSteps ;
/* For the Matrix */
if (here->BSIM4rgateMod == 1)
@ -2767,6 +2777,9 @@ do { if((here->ptr = SMPmakeElt(matrix,here->first,here->second))==(double *)NUL
/* Different Values for the CKTloadOutput */
l += 14 ;
/* Different TimeSteps */
lTimeSteps += 1 ;
} else {
/* m * (gcggb - ggtg + gIgtotg) */
if ((here->BSIM4gNodePrime != 0) && (here->BSIM4gNodePrime != 0))
@ -2899,6 +2912,9 @@ do { if((here->ptr = SMPmakeElt(matrix,here->first,here->second))==(double *)NUL
/* Different Values for the CKTloadOutput */
l += 16 ;
/* Different TimeSteps */
lTimeSteps += 3 ;
if (here->BSIM4rbodyMod)
{
@ -2976,6 +2992,9 @@ do { if((here->ptr = SMPmakeElt(matrix,here->first,here->second))==(double *)NUL
/* Different Values for the CKTloadOutput */
l += 12 ;
/* Different TimeSteps */
lTimeSteps += 2 ;
}
@ -3015,6 +3034,9 @@ do { if((here->ptr = SMPmakeElt(matrix,here->first,here->second))==(double *)NUL
/* Different Values for the CKTloadOutput */
l += 8 ;
/* Different TimeSteps */
lTimeSteps += 1 ;
}
@ -3125,6 +3147,9 @@ do { if((here->ptr = SMPmakeElt(matrix,here->first,here->second))==(double *)NUL
model->n_PtrRHS = jRHS ;
ckt->total_n_PtrRHS += model->n_PtrRHS ;
model->n_timeSteps = lTimeSteps ;
ckt->total_n_timeSteps += model->n_timeSteps ;
}
/* loop through all the BSIM4 models */

5
src/spicelib/devices/bsim4/bsim4def.h
View File

@ -3330,6 +3330,11 @@ typedef struct sBSIM4model
int *PositionVectorRHS ;
int *d_PositionVectorRHS ;
int offset_timeSteps ;
int n_timeSteps ;
int *PositionVector_timeSteps ;
int *d_PositionVector_timeSteps ;
int n_instances ;
#endif

4
src/spicelib/devices/bsim4/bsim4init.c
View File

@ -54,7 +54,11 @@ SPICEdev BSIM4info = {
BSIM4unsetup, /* DEVunsetup */
BSIM4setup, /* DEVpzSetup */
BSIM4temp, /* DEVtemperature */
#ifdef USE_CUSPICE
cuBSIM4trunc, /* DEVtrunc */
#else
BSIM4trunc, /* DEVtrunc */
#endif
NULL, /* DEVfindBranch */
BSIM4acLoad, /* DEVacLoad */
NULL, /* DEVaccept */

6
src/spicelib/devices/cap/CUSPICE/cucapsetup.c
View File

@ -73,6 +73,12 @@ GENmodel *inModel
status = cudaMemcpy (model->d_PositionVectorRHS, model->PositionVectorRHS, size * sizeof(int), cudaMemcpyHostToDevice) ;
CUDAMEMCPYCHECK (model->d_PositionVectorRHS, size, int, status)
status = cudaMalloc ((void **)&(model->d_PositionVector_timeSteps), size * sizeof(int)) ;
CUDAMALLOCCHECK (model->d_PositionVector_timeSteps, size, int, status)
status = cudaMemcpy (model->d_PositionVector_timeSteps, model->PositionVector_timeSteps, size * sizeof(int), cudaMemcpyHostToDevice) ;
CUDAMEMCPYCHECK (model->d_PositionVector_timeSteps, size, int, status)
/* DOUBLE */
model->CAPparamCPU.CAPinitCondArray = (double *) malloc (size * sizeof(double)) ;
status = cudaMalloc ((void **)&(model->CAPparamGPU.d_CAPinitCondArray), size * sizeof(double)) ;

89
src/spicelib/devices/cap/CUSPICE/cucaptrunc.cu Normal file
View File

@ -0,0 +1,89 @@
/**********
Copyright 2014 - NGSPICE Software
Author: 2014 Francesco Lannutti
**********/
#include "ngspice/config.h"
#include "CUSPICE/cucktterr.cuh"
#include "capdefs.h"
extern "C"
__global__ void cuCAPtrunc_kernel (CAPparamGPUstruct, int, double **, double *, double,
int, int, double, double, double, double, double *, int *) ;
extern "C"
int
cuCAPtrunc
(
GENmodel *inModel, CKTcircuit *ckt, double *timeStep
)
{
(void)timeStep ;
CAPmodel *model = (CAPmodel *)inModel ;
int thread_x, thread_y, block_x ;
cudaError_t status ;
/* loop through all the capacitor models */
for ( ; model != NULL ; model = model->CAPnextModel)
{
/* Determining how many blocks should exist in the kernel */
thread_x = 1 ;
thread_y = 256 ;
if (model->n_instances % thread_y != 0)
block_x = (int)((model->n_instances + thread_y - 1) / thread_y) ;
else
block_x = model->n_instances / thread_y ;
dim3 thread (thread_x, thread_y) ;
/* Kernel launch */
status = cudaGetLastError () ; // clear error status
cuCAPtrunc_kernel <<< block_x, thread >>> (model->CAPparamGPU, model->n_instances,
ckt->dD_CKTstates, ckt->d_CKTdeltaOld,
ckt->CKTdelta, ckt->CKTorder, ckt->CKTintegrateMethod,
ckt->CKTabstol, ckt->CKTreltol, ckt->CKTchgtol, ckt->CKTtrtol,
ckt->d_CKTtimeSteps, model->d_PositionVector_timeSteps) ;
cudaDeviceSynchronize () ;
status = cudaGetLastError () ; // check for launch error
if (status != cudaSuccess)
{
fprintf (stderr, "Kernel launch failure in the Trunc Capacitor Model\n\n") ;
return (E_NOMEM) ;
}
}
return (OK) ;
}
extern "C"
__global__
void
cuCAPtrunc_kernel
(
CAPparamGPUstruct CAPentry, int n_instances, double **CKTstates,
double *CKTdeltaOld, double CKTdelta, int CKTorder, int CKTintegrateMethod,
double CKTabsTol, double CKTrelTol, double CKTchgTol, double CKTtrTol,
double *CKTtimeSteps, int *PositionVector_timeSteps
)
{
int instance_ID ;
instance_ID = threadIdx.y + blockDim.y * blockIdx.x ;
if (instance_ID < n_instances)
{
if (threadIdx.x == 0)
{
cuCKTterr (CAPentry.d_CAPstateArray [instance_ID], CKTstates,
CKTdeltaOld, CKTdelta, CKTorder, CKTintegrateMethod,
CKTabsTol, CKTrelTol, CKTchgTol, CKTtrTol,
&(CKTtimeSteps [PositionVector_timeSteps [instance_ID]])) ;
}
}
return ;
}

5
src/spicelib/devices/cap/Makefile.am
View File

@ -48,9 +48,10 @@ libcap_la_SOURCES += \
CUSPICE/cucapgetic.c \
CUSPICE/cucapload.cu \
CUSPICE/cucapsetup.c \
CUSPICE/cucaptemp.c
CUSPICE/cucaptemp.c \
CUSPICE/cucaptrunc.cu
AM_CPPFLAGS += $(CUDA_CPPFLAGS)
AM_CPPFLAGS += $(CUDA_CPPFLAGS) -I$(top_srcdir)/src/spicelib/analysis
endif
MAINTAINERCLEANFILES = Makefile.in

5
src/spicelib/devices/cap/capdefs.h
View File

@ -163,6 +163,11 @@ typedef struct sCAPmodel { /* model structure for a capacitor */
int *PositionVectorRHS ;
int *d_PositionVectorRHS ;
int offset_timeSteps ;
int n_timeSteps ;
int *PositionVector_timeSteps ;
int *d_PositionVector_timeSteps ;
int n_instances ;
#endif

4
src/spicelib/devices/cap/capinit.c
View File

@ -53,7 +53,11 @@ SPICEdev CAPinfo = {
/* DEVunsetup */ NULL,
/* DEVpzSetup */ CAPsetup,
/* DEVtemperature*/ CAPtemp,
#ifdef USE_CUSPICE
/* DEVtrunc */ cuCAPtrunc,
#else
/* DEVtrunc */ CAPtrunc,
#endif
/* DEVfindBranch */ NULL,
/* DEVacLoad */ CAPacLoad,
/* DEVaccept */ NULL,

12
src/spicelib/devices/cap/capsetup.c
View File

@ -195,6 +195,18 @@ do { if((here->ptr = SMPmakeElt(matrix, here->first, here->second)) == NULL){\
for (j = 0 ; j < model->n_instances ; j++)
model->PositionVectorRHS [j] = model->offsetRHS + j ;
/* Position Vector for timeSteps */
model->offset_timeSteps = ckt->total_n_timeSteps ;
model->n_timeSteps = model->n_instances ;
ckt->total_n_timeSteps += model->n_timeSteps ;
/* Position Vector assignment for timeSteps */
model->PositionVector_timeSteps = TMALLOC (int, model->n_instances) ;
for (j = 0 ; j < model->n_instances ; j++)
model->PositionVector_timeSteps [j] = model->offset_timeSteps + j ;
}
/* loop through all the capacitor models */

6
src/spicelib/devices/ind/CUSPICE/cuindsetup.c
View File

@ -73,6 +73,12 @@ GENmodel *inModel
status = cudaMemcpy (model->d_PositionVectorRHS, model->PositionVectorRHS, size * sizeof(int), cudaMemcpyHostToDevice) ;
CUDAMEMCPYCHECK (model->d_PositionVectorRHS, size, int, status)
status = cudaMalloc ((void **)&(model->d_PositionVector_timeSteps), size * sizeof(int)) ;
CUDAMALLOCCHECK (model->d_PositionVector_timeSteps, size, int, status)
status = cudaMemcpy (model->d_PositionVector_timeSteps, model->PositionVector_timeSteps, size * sizeof(int), cudaMemcpyHostToDevice) ;
CUDAMEMCPYCHECK (model->d_PositionVector_timeSteps, size, int, status)
/* DOUBLE */
model->INDparamCPU.INDinitCondArray = (double *) malloc (size * sizeof(double)) ;
status = cudaMalloc ((void **)&(model->INDparamGPU.d_INDinitCondArray), size * sizeof(double)) ;

89
src/spicelib/devices/ind/CUSPICE/cuindtrunc.cu Normal file
View File

@ -0,0 +1,89 @@
/**********
Copyright 2014 - NGSPICE Software
Author: 2014 Francesco Lannutti
**********/
#include "ngspice/config.h"
#include "CUSPICE/cucktterr.cuh"
#include "inddefs.h"
extern "C"
__global__ void cuINDtrunc_kernel (INDparamGPUstruct, int, double **, double *, double,
int, int, double, double, double, double, double *, int *) ;
extern "C"
int
cuINDtrunc
(
GENmodel *inModel, CKTcircuit *ckt, double *timeStep
)
{
(void)timeStep ;
INDmodel *model = (INDmodel *)inModel ;
int thread_x, thread_y, block_x ;
cudaError_t status ;
/* loop through all the inductor models */
for ( ; model != NULL ; model = model->INDnextModel)
{
/* Determining how many blocks should exist in the kernel */
thread_x = 1 ;
thread_y = 256 ;
if (model->n_instances % thread_y != 0)
block_x = (int)((model->n_instances + thread_y - 1) / thread_y) ;
else
block_x = model->n_instances / thread_y ;
dim3 thread (thread_x, thread_y) ;
/* Kernel launch */
status = cudaGetLastError () ; // clear error status
cuINDtrunc_kernel <<< block_x, thread >>> (model->INDparamGPU, model->n_instances,
ckt->dD_CKTstates, ckt->d_CKTdeltaOld,
ckt->CKTdelta, ckt->CKTorder, ckt->CKTintegrateMethod,
ckt->CKTabstol, ckt->CKTreltol, ckt->CKTchgtol, ckt->CKTtrtol,
ckt->d_CKTtimeSteps, model->d_PositionVector_timeSteps) ;
cudaDeviceSynchronize () ;
status = cudaGetLastError () ; // check for launch error
if (status != cudaSuccess)
{
fprintf (stderr, "Kernel launch failure in the Trunc Inductor Model\n\n") ;
return (E_NOMEM) ;
}
}
return (OK) ;
}
extern "C"
__global__
void
cuINDtrunc_kernel
(
INDparamGPUstruct INDentry, int n_instances, double **CKTstates,
double *CKTdeltaOld, double CKTdelta, int CKTorder, int CKTintegrateMethod,
double CKTabsTol, double CKTrelTol, double CKTchgTol, double CKTtrTol,
double *CKTtimeSteps, int *PositionVector_timeSteps
)
{
int instance_ID ;
instance_ID = threadIdx.y + blockDim.y * blockIdx.x ;
if (instance_ID < n_instances)
{
if (threadIdx.x == 0)
{
cuCKTterr (INDentry.d_INDstateArray [instance_ID], CKTstates,
CKTdeltaOld, CKTdelta, CKTorder, CKTintegrateMethod,
CKTabsTol, CKTrelTol, CKTchgTol, CKTtrTol,
&(CKTtimeSteps [PositionVector_timeSteps [instance_ID]])) ;
}
}
return ;
}

5
src/spicelib/devices/ind/Makefile.am
View File

@ -57,7 +57,8 @@ libind_la_SOURCES += \
CUSPICE/cuindfree.c \
CUSPICE/cuindload.cu \
CUSPICE/cuindsetup.c \
CUSPICE/cuindtemp.c
CUSPICE/cuindtemp.c \
CUSPICE/cuindtrunc.cu
libind_la_SOURCES += \
CUSPICE/muttopology.c \
@ -66,7 +67,7 @@ libind_la_SOURCES += \
CUSPICE/cumutsetup.c \
CUSPICE/cumuttemp.c
AM_CPPFLAGS += $(CUDA_CPPFLAGS)
AM_CPPFLAGS += $(CUDA_CPPFLAGS) -I$(top_srcdir)/src/spicelib/analysis
endif
MAINTAINERCLEANFILES = Makefile.in

5
src/spicelib/devices/ind/inddefs.h
View File

@ -154,6 +154,11 @@ typedef struct sINDmodel { /* model structure for an inductor */
int *PositionVectorRHS ;
int *d_PositionVectorRHS ;
int offset_timeSteps ;
int n_timeSteps ;
int *PositionVector_timeSteps ;
int *d_PositionVector_timeSteps ;
int n_instances ;
#endif

4
src/spicelib/devices/ind/indinit.c
View File

@ -53,7 +53,11 @@ SPICEdev INDinfo = {
/* DEVunsetup */ INDunsetup,
/* DEVpzSetup */ INDsetup,
/* DEVtemperature*/ INDtemp,
#ifdef USE_CUSPICE
/* DEVtrunc */ cuINDtrunc,
#else
/* DEVtrunc */ INDtrunc,
#endif
/* DEVfindBranch */ NULL,
/* DEVacLoad */ INDacLoad,
/* DEVaccept */ NULL,

13
src/spicelib/devices/ind/indsetup.c
View File

@ -183,6 +183,19 @@ do { if((here->ptr = SMPmakeElt(matrix, here->first, here->second)) == NULL){\
for (j = 0 ; j < model->n_instances ; j++)
model->PositionVectorRHS [j] = model->offsetRHS + j ;
/* Position Vector for timeSteps */
model->offset_timeSteps = ckt->total_n_timeSteps ;
model->n_timeSteps = model->n_instances ;
ckt->total_n_timeSteps += model->n_timeSteps ;
/* Position Vector assignment for timeSteps */
model->PositionVector_timeSteps = TMALLOC (int, model->n_instances) ;
for (j = 0 ; j < model->n_instances ; j++)
model->PositionVector_timeSteps [j] = model->offset_timeSteps + j ;
}
/* loop through all the inductor models */