You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
283 lines
7.0 KiB
283 lines
7.0 KiB
/**********
|
|
Copyright 1991 Regents of the University of California. All rights reserved.
|
|
Author: 1987 Kartikeya Mayaram, U. C. Berkeley CAD Group
|
|
Author: 1991 David A. Gates, U. C. Berkeley CAD Group
|
|
**********/
|
|
|
|
/* Functions to read SUPREM (Binary or Ascii) & ASCII input files */
|
|
#include <errno.h>
|
|
#include <string.h>
|
|
|
|
#include "ngspice/cidersupt.h"
|
|
#include "ngspice/cpextern.h"
|
|
#include "ngspice/ngspice.h"
|
|
#include "ngspice/profile.h"
|
|
|
|
|
|
static void free_profile_data(double **p);
|
|
static double **alloc_profile_data(size_t n);
|
|
|
|
|
|
int readAsciiData(const char *fileName, int impType, DOPtable **ppTable)
|
|
{
|
|
int xrc = 0;
|
|
FILE *fpAscii = (FILE *) NULL;
|
|
int index;
|
|
double x, y;
|
|
int numPoints;
|
|
DOPtable *tmpTable = (DOPtable *) NULL;
|
|
double **profileData = (double **) NULL;
|
|
double sign;
|
|
|
|
/* Open Input File */
|
|
if ((fpAscii = fopen( fileName, "r" )) == NULL) {
|
|
(void) fprintf(cp_err, "unable to open SUPREM file \"%s\": %s\n",
|
|
fileName, strerror(errno));
|
|
xrc = -1;
|
|
goto EXITPOINT;
|
|
}
|
|
|
|
/* Get sign of concentrations */
|
|
if (impType == IMP_P_TYPE) {
|
|
sign = -1.0;
|
|
} else {
|
|
sign = 1.0;
|
|
}
|
|
|
|
/* read the number of points */
|
|
if (fscanf(fpAscii, "%d", &numPoints) != 1) {
|
|
(void) fprintf(cp_err, "unable to read point count "
|
|
"from SUPREM file \"%s\"\n",
|
|
fileName);
|
|
xrc = -1;
|
|
goto EXITPOINT;
|
|
}
|
|
|
|
|
|
/* allocate 2-D array to read in data of x-coordinate and N(x) */
|
|
profileData = alloc_profile_data((size_t) numPoints + 1);
|
|
|
|
/* the number of points is stored as profileData[0][0] */
|
|
profileData[0][0] = numPoints;
|
|
|
|
for (index = 1; index <= numPoints; index++ ) {
|
|
if (fscanf(fpAscii, "%lf %lf ", &x, &y) != 2) {
|
|
(void) fprintf(cp_err, "unable to read point %d"
|
|
"from SUPREM file \"%s\"\n",
|
|
index + 1, fileName);
|
|
xrc = -1;
|
|
goto EXITPOINT;
|
|
}
|
|
profileData[0][index] = x;
|
|
profileData[1][index] = sign * ABS(y);
|
|
} /* end of loop over points */
|
|
|
|
/* Now create a new lookup table */
|
|
XCALLOC(tmpTable, DOPtable, 1);
|
|
if (*ppTable == NULL) {
|
|
/* First Entry */
|
|
tmpTable->impId = 1;
|
|
tmpTable->dopData = profileData;
|
|
tmpTable->next = NULL;
|
|
*ppTable = tmpTable;
|
|
}
|
|
else {
|
|
tmpTable->impId = (*ppTable)->impId + 1;
|
|
tmpTable->dopData = profileData;
|
|
tmpTable->next = *ppTable;
|
|
*ppTable = tmpTable;
|
|
}
|
|
|
|
/* for debugging print the data that has been just read */
|
|
/*
|
|
for( index = 1; index <= numPoints; index++ ) {
|
|
printf("\n %e %e", profileData[ 0 ][ index ], profileData[ 1 ][ index ]);
|
|
}
|
|
*/
|
|
EXITPOINT:
|
|
if (fpAscii != (FILE *) NULL) { /* close data file if open */
|
|
fclose(fpAscii);
|
|
}
|
|
|
|
/* Free resources on error */
|
|
if (xrc != 0) {
|
|
free_profile_data(profileData);
|
|
free(tmpTable);
|
|
}
|
|
|
|
return xrc;
|
|
} /* end of function readAsciiData */
|
|
|
|
|
|
|
|
/* interface routine based on notes provided by Steve Hansen of Stanford */
|
|
|
|
/*
|
|
* The material types are:
|
|
* 1 = single crystal silicon
|
|
* 2 = silicon dioxide
|
|
* 3 = poly-crystalline silicon
|
|
* 4 = silicon nitride
|
|
* 5 = aluminum
|
|
|
|
* The impurity types are:
|
|
* 1 = boron
|
|
* 2 = phosphorus
|
|
* 3 = arsenic
|
|
* 4 = antimony
|
|
|
|
* The crystalline orientations are:
|
|
* 1 = <111>
|
|
* 2 = <100>
|
|
* 3 = <110>
|
|
|
|
* The layer thinkness, poly-crystalline grain size, node spacing and
|
|
* distance from the surface are all in microns.
|
|
|
|
* The integrated dopant concentration and the phophorus implant dose are
|
|
* in atoms per square centimeter.
|
|
|
|
* The interior polycrystalline grain concentration and the impurity
|
|
* concentrations at each node are in atoms per cubic centimeter.
|
|
*/
|
|
|
|
|
|
int readSupremData(const char *fileName, int fileType, int impType,
|
|
DOPtable **ppTable)
|
|
{
|
|
int xrc = 0;
|
|
#define MAX_GRID 500
|
|
float x[ MAX_GRID ], conc[ MAX_GRID ];
|
|
|
|
int index;
|
|
DOPtable *tmpTable = (DOPtable *) NULL;
|
|
double **profileData = (double **) NULL;
|
|
int numNodes;
|
|
|
|
/* read the Suprem data file */
|
|
if ( fileType == 0 ) { /* BINARY FILE */
|
|
const int rc = SUPbinRead(fileName, x, conc, &impType,
|
|
&numNodes);
|
|
if (rc != 0) {
|
|
(void) fprintf(cp_err, "Data input failed.\n");
|
|
xrc = -1;
|
|
goto EXITPOINT;
|
|
}
|
|
}
|
|
else {
|
|
SUPascRead( fileName, x, conc, &impType, &numNodes );
|
|
}
|
|
|
|
/* allocate 2-D array to read in data of x-coordinate and N(x) */
|
|
profileData = alloc_profile_data((size_t) numNodes + 1);
|
|
|
|
/* the number of points is stored as profileData[0][0] */
|
|
profileData[0][0] = numNodes;
|
|
|
|
for( index = 1; index <= numNodes; index++ ) {
|
|
profileData[ 0 ][ index ] = x[ index ];
|
|
profileData[ 1 ][ index ] = conc[ index ];
|
|
}
|
|
|
|
/* Now create a new lookup table */
|
|
XCALLOC(tmpTable, DOPtable, 1);
|
|
if ( *ppTable == NULL ) {
|
|
/* First Entry */
|
|
tmpTable->impId = 1;
|
|
tmpTable->dopData = profileData;
|
|
tmpTable->next = NULL;
|
|
*ppTable = tmpTable;
|
|
} else {
|
|
tmpTable->impId = (*ppTable)->impId + 1;
|
|
tmpTable->dopData = profileData;
|
|
tmpTable->next = *ppTable;
|
|
*ppTable = tmpTable;
|
|
}
|
|
|
|
/* for debugging print the data that has been just read */
|
|
/*
|
|
for( index = 1; index <= numNodes; index++ ) {
|
|
printf("%e %e\n", profileData[ 0 ][ index ], profileData[ 1 ][ index ]);
|
|
}
|
|
*/
|
|
EXITPOINT:
|
|
if (xrc != 0) {
|
|
free_profile_data(profileData);
|
|
free(tmpTable);
|
|
}
|
|
return xrc;
|
|
} /* end of function readSupremData */
|
|
|
|
|
|
|
|
/* Allocate a profile data */
|
|
static double **alloc_profile_data(size_t n)
|
|
{
|
|
double **p;
|
|
XCALLOC(p, double *, 2);
|
|
XCALLOC(p[0], double, n);
|
|
XCALLOC(p[1], double, n);
|
|
return p;
|
|
} /* end of function alloc_profile_data */
|
|
|
|
|
|
|
|
/* Free a profile data */
|
|
static void free_profile_data(double **p)
|
|
{
|
|
/* Immediate exit if no allocation */
|
|
if (p == (double **) NULL) {
|
|
return;
|
|
}
|
|
|
|
free(p[0]);
|
|
free(p[1]);
|
|
free(p);
|
|
} /* end of function alloc_profile_data */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* main program to debug readSupremData */
|
|
|
|
/*
|
|
main(ac, av)
|
|
char **av;
|
|
{
|
|
void readSupremData();
|
|
DOPtable *supTable = NULL;
|
|
double **supInput;
|
|
int numPoints, index;
|
|
char *impName;
|
|
int impType;
|
|
|
|
switch (ac) {
|
|
case 1:
|
|
printf( "Usage: %s suprem-file ...\n", av[0] );
|
|
exit(-1);
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
|
|
for ( index = 1; index < ac; index++ ) {
|
|
for ( impType=1; impType <= 4; impType++ ) {
|
|
readSupremData( av[index], 1, impType, &supTable );
|
|
}
|
|
}
|
|
for ( ; supTable ISNOT NULL; supTable = supTable->next ) {
|
|
fprintf( stdout, "\"Impurity Number: %d\n", supTable->impId );
|
|
supInput = supTable->dopData;
|
|
numPoints = supInput[0][0];
|
|
for( index = 1; index <= numPoints; index++ ) {
|
|
printf("%e\t%e\n",
|
|
supInput[ 0 ][ index ], ABS(supInput[ 1 ][ index ]) + 1e-20 );
|
|
}
|
|
fprintf( stdout, "\n" );
|
|
}
|
|
}
|
|
*/
|