diff --git a/src/spicelib/devices/cktfinddev.c b/src/spicelib/devices/cktfinddev.c
index 4956073c5..c37224118 100644
--- a/src/spicelib/devices/cktfinddev.c
+++ b/src/spicelib/devices/cktfinddev.c
@@ -24,79 +24,79 @@ find_instance(GENinstance *here, IFuid name)
 int
 CKTfndDev(CKTcircuit *ckt, int *type, GENinstance **fast, IFuid name, GENmodel *modfast, IFuid modname)
 {
-   GENinstance *here;
-   GENmodel *mods;
+    GENinstance *here;
+    GENmodel *mods;
 
-   if(fast != NULL && 
-      *fast != NULL) 
-   {
-   /* already have fast, so nothing much to do just get & set type */
-      if (type)
-         *type = (*fast)->GENmodPtr->GENmodType;
-      return(OK);
-   }
+    if (fast != NULL &&
+       *fast != NULL)
+    {
+        /* already have fast, so nothing much to do just get & set type */
+        if (type)
+            *type = (*fast)->GENmodPtr->GENmodType;
+        return(OK);
+    }
 
-   if(modfast) {
-      /* have model, just need device */
-      mods = modfast;
-         here = find_instance(mods->GENinstances, name);
-         if (here) {
+    if (modfast) {
+        /* have model, just need device */
+        mods = modfast;
+        here = find_instance(mods->GENinstances, name);
+        if (here) {
             if (fast != NULL)
-               *fast = here;
+                *fast = here;
 
             if (type)
-               *type = mods->GENmodType;
+                *type = mods->GENmodType;
 
             return OK;
-         }
-      return E_NODEV;
-   }
+        }
+        return E_NODEV;
+    }
 
-   if (*type >= 0 && *type < DEVmaxnum) {
-      /* have device type, need to find model & device */
-      /* look through all models */
-      for (mods = ckt->CKThead[*type];
-             mods != NULL ; 
-             mods = mods->GENnextModel) 
-      {
-         /* and all instances */
-         if (modname == NULL || mods->GENmodName == modname) {
-               here = find_instance(mods->GENinstances, name);
-               if (here) {
-                  if (fast != 0)
-                     *fast = here;
-                  return OK;
-               }
-            if(mods->GENmodName == modname) {
-               return E_NODEV;
-            }
-         }
-     }
-     return E_NOMOD;
-   } else if (*type == -1) {
-      /* look through all types (UGH - worst case - take forever) */ 
-      for(*type = 0; *type < DEVmaxnum; (*type)++) {
-         /* need to find model & device */
-         /* look through all models */
-         for(mods = ckt->CKThead[*type]; mods != NULL;
-            mods = mods->GENnextModel) 
-         {
+    if (*type >= 0 && *type < DEVmaxnum) {
+        /* have device type, need to find model & device */
+        /* look through all models */
+        for (mods = ckt->CKThead[*type];
+             mods != NULL ;
+             mods = mods->GENnextModel)
+        {
             /* and all instances */
-            if(modname == NULL || mods->GENmodName == modname) {
-                  here = find_instance(mods->GENinstances, name);
-                  if (here) {
-                     if(fast != 0)
+            if (modname == NULL || mods->GENmodName == modname) {
+                here = find_instance(mods->GENinstances, name);
+                if (here) {
+                    if (fast != 0)
                         *fast = here;
-                     return OK;
-                  }
-               if(mods->GENmodName == modname) {
-                  return E_NODEV;
-               }
+                    return OK;
+                }
+                if (mods->GENmodName == modname) {
+                    return E_NODEV;
+                }
             }
-         }
-      }
-      *type = -1;
-      return E_NODEV;
-   } else
-   return E_BADPARM;
+        }
+        return E_NOMOD;
+    } else if (*type == -1) {
+        /* look through all types (UGH - worst case - take forever) */
+        for (*type = 0; *type < DEVmaxnum; (*type)++) {
+            /* need to find model & device */
+            /* look through all models */
+            for (mods = ckt->CKThead[*type]; mods != NULL;
+                 mods = mods->GENnextModel)
+            {
+                /* and all instances */
+                if (modname == NULL || mods->GENmodName == modname) {
+                    here = find_instance(mods->GENinstances, name);
+                    if (here) {
+                        if (fast != 0)
+                            *fast = here;
+                        return OK;
+                    }
+                    if (mods->GENmodName == modname) {
+                        return E_NODEV;
+                    }
+                }
+            }
+        }
+        *type = -1;
+        return E_NODEV;
+    } else
+        return E_BADPARM;
 }