--- /dev/null
+# Created by Octave 3.6.1, Thu Mar 22 16:18:37 2012 UTC <root@t61>
+# name: cache
+# type: cell
+# rows: 3
+# columns: 9
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 5
+Ubern
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 82
+ [bp,bn]=Ubern(x)
+
+ Bernoulli function
+ bp = B(x)=x/(exp(x)-1)
+ bn = B(-x)=x+B(x)
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 18
+ [bp,bn]=Ubern(x)
+
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 10
+Ubernoulli
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 148
+
+ b=Ubernoulli(x,sg)
+
+ Bernoulli function
+ b = B(x)=x/(exp(x)-1) if sg==1
+ b = B(-x)=x+B(x) if sg==0
+ also works if x is a vector
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 80
+
+ b=Ubernoulli(x,sg)
+
+ Bernoulli function
+ b = B(x)=x/(exp(x)-1) if sg=
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 10
+Ucompconst
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 54
+ R = compconst (nodes,Nnodes,elements,Nelements,D,C);
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 54
+ R = compconst (nodes,Nnodes,elements,Nelements,D,C);
+
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 8
+Ucomplap
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 161
+ L = Ucomplap (nodes,Nnode,elements,Nelements,coeff)
+ Computes the P1 finite element approximation of the
+ differential operator - d ( coeff d (.)\dx)\dx
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 80
+ L = Ucomplap (nodes,Nnode,elements,Nelements,coeff)
+ Computes the P1 finite
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 9
+Ucompmass
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 65
+ Bmat = Ucompmass (nodes,Nnodes,elements,Nelements,Bvect,Cvect);
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 65
+ Bmat = Ucompmass (nodes,Nnodes,elements,Nelements,Bvect,Cvect);
+
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 15
+Udriftdiffusion
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 134
+A=Udriftdiffusion(x,psi,coeff)
+
+ Builds the Scharfetter-Gummel approximation
+ of the differential operator - (coeff (n' - n psi'))'
+
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 31
+A=Udriftdiffusion(x,psi,coeff)
+
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 14
+Umediaarmonica
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 101
+ m = mediaarmonica(w,x);
+ returns the harmonic mean value of w in each of the intervals x_i , x_i+1
+
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 80
+ m = mediaarmonica(w,x);
+ returns the harmonic mean value of w in each of the in
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 18
+Uscharfettergummel
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 387
+A=Uscharfettergummel(nodes,Nnodes,elements,Nelements,acoeff,bcoeff,v)
+
+ Builds the Scharfetter-Gummel matrix for the
+ the discretization of the LHS
+ of the Drift-Diffusion equation:
+
+ $ -(a(x) (u' - b v'(x) u))'= f $
+
+ where a(x) is piecewise constant
+ and v(x) is piecewise linear, so that
+ v'(x) is still piecewise constant
+ b is a constant independent of x
+ and u is the unknown
+
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 70
+A=Uscharfettergummel(nodes,Nnodes,elements,Nelements,acoeff,bcoeff,v)
+
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 9
+constants
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 814
+ This file is part of
+
+ SECS1D - A 1-D Drift--Diffusion Semiconductor Device Simulator
+ -------------------------------------------------------------------
+ Copyright (C) 2004-2007 Carlo de Falco
+
+
+
+ SECS1D is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ SECS1D is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with SECS1D; If not, see <http://www.gnu.org/licenses/>.
+
+
+
+# name: <cell-element>
+# type: sq_string
+# elements: 1
+# length: 23
+ This file is part of
+
+
+
+
+
+