passive0.cpp

Go to the documentation of this file.

#include <../../nrnconf.h>
/* /local/src/master/nrn/src/nrnoc/passive0.cpp,v 1.2 1997/03/13 14:18:02 hines Exp */
 
#include "section.h"
#include "membdef.h"
#include "nrniv_mf.h"
 
#define nparm 2
static const char* mechanism[] = {"0", "fastpas", "g_fastpas", "e_fastpas", 0, 0, 0};
static void pas_alloc(Prop* p);
static void pas_cur(NrnThread* nt, Memb_list* ml, int type);
static void pas_jacob(NrnThread* nt, Memb_list* ml, int type);
 
extern "C" void passive0_reg_(void) {
    int mechtype;
    register_mech(mechanism, pas_alloc, pas_cur, pas_jacob, (Pvmi) 0, (Pvmi) 0, -1, 1);
    mechtype = nrn_get_mechtype(mechanism[1]);
    hoc_register_prop_size(mechtype, nparm, 0);
}
 
#define g vdata[i][0]
#define e vdata[i][1]
#define v NODEV(vnode[i])
 
static void pas_cur(NrnThread* nt, Memb_list* ml, int type) {
    int count = ml->nodecount;
    Node** vnode = ml->nodelist;
    double** vdata = ml->data;
    Datum** vpdata = ml->pdata;
    int i;
#if _CRAY
#pragma _CRI ivdep
#endif
    for (i = 0; i < count; ++i) {
        NODERHS(vnode[i]) -= g * (v - e);
    }
}
 
static void pas_jacob(NrnThread* nt, Memb_list* ml, int type) {
    int count = ml->nodecount;
    Node** vnode = ml->nodelist;
    double** vdata = ml->data;
    Datum** vpdata = ml->pdata;
    int i;
#if _CRAY
#pragma _CRI ivdep
#endif
    for (i = 0; i < count; ++i) {
        NODED(vnode[i]) += g;
    }
}
 
/* the rest can be constructed automatically from the above info*/
 
static void pas_alloc(Prop* p) {
    double* pd;
    pd = nrn_prop_data_alloc(p->type, nparm, p);
    p->param_size = nparm;
#if defined(__MWERKS__)
    pd[0] = 5.e-4; /*DEF_g;*/
#else
    pd[0] = DEF_g;
#endif
    pd[1] = DEF_e;
    p->param = pd;
}