VDMOS diode current op information

src/spicelib/devices/vdmos/vdmos.c

@@ -32,6 +32,7 @@ IFparm VDMOSpTable[] = { /* parameters */
  OP( "cgs",         VDMOS_CAPGS,      IF_REAL,    "Gate-Source capacitance"),
  OP( "cgd",         VDMOS_CAPGD,      IF_REAL,    "Gate-Drain capacitance"),
  OP( "cds",         VDMOS_CAPDS,      IF_REAL,    "Drain-Source capacitance"),
+ OP( "idio",        VDMOS_CDIO,       IF_REAL,    "Body diode current"),
 
  OPU( "dnode",      VDMOS_DNODE,      IF_INTEGER, "Number of the drain node "),
  OPU( "gnode",      VDMOS_GNODE,      IF_INTEGER, "Number of the gate node "),

src/spicelib/devices/vdmos/vdmosask.c

@@ -122,6 +122,9 @@ VDMOSask(CKTcircuit *ckt, GENinstance *inst, int which, IFvalue *value,
         case VDMOS_CQGD:
             value->rValue = *(ckt->CKTstate0 + here->VDMOScqgd);
             return(OK);
+        case VDMOS_CDIO:
+            value->rValue = *(ckt->CKTstate0 + here->VDIOcurrent);
+            return(OK);
         case VDMOS_CG :
             if (ckt->CKTcurrentAnalysis & DOING_AC) {
                 errMsg = TMALLOC(char, strlen(msg) + 1);

src/spicelib/devices/vdmos/vdmosdefs.h

@@ -531,6 +531,7 @@ enum {
     VDMOS_CQGS,
     VDMOS_QGD,
     VDMOS_CQGD,
+    VDMOS_CDIO,
     VDMOS_SOURCERESIST,
     VDMOS_DRAINRESIST,
 };