diotemp.c, set lower limit of saturation current 'is' to epsmin

src/spicelib/devices/dio/diomask.c

@@ -29,6 +29,8 @@ DIOmAsk (CKTcircuit *ckt, GENmodel *inModel, int which, IFvalue *value)
             return (OK);
         case DIO_MOD_IS:
             value->rValue = model->DIOsatCur;
+            if (value->rValue < ckt->CKTepsmin)
+                value->rValue = ckt->CKTepsmin;
             return(OK);
         case DIO_MOD_JSW:
             value->rValue = model->DIOsatSWCur;

src/spicelib/devices/dio/diotemp.c

@@ -66,6 +66,9 @@ DIOtemp(GENmodel *inModel, CKTcircuit *ckt)
                     model->DIOmodName);
             model->DIOdepletionSWcapCoeff=.95;
         }
+        /* set lower limit of saturation current */
+        if (model->DIOsatCur < ckt->CKTepsmin)
+            model->DIOsatCur = ckt->CKTepsmin;
         if((!model->DIOresistGiven) || (model->DIOresist==0)) {
             model->DIOconductance = 0.0;
         } else {