inpcom.c: H Source with equation and temper in transresistance

src/frontend/inpcom.c

@@ -4637,9 +4637,83 @@ inp_compat(struct line *card)
         }
         /* H element compatibility */
         else if (*curr_line == 'h') {
+            char actchar, *beg_tstr, *equastr, *vnamstr;
             /* Hxxx n1 n2 CCVS vnam transres --> Hxxx n1 n2 vnam transres
                remove cccs */
             replace_token(curr_line, "ccvs", 4, 6);
+            /* Deal with
+               Hxxx n1 n2 vnam {equation}
+               if equation contains the 'temper' token */
+            beg_tstr = curr_line;
+            while ((beg_tstr = strstr(beg_tstr, "temper")) != NULL) {
+                actchar = *(beg_tstr - 1);
+                if (!isspace(actchar) && !is_arith_char(actchar) && !(actchar == ',') && !(actchar == '{')) {
+                    beg_tstr++;
+                    continue;
+                }
+                actchar = *(beg_tstr + 6);
+                if (!isspace(actchar) && !is_arith_char(actchar) && !(actchar == ',') && !(actchar == '}')) {
+                    beg_tstr++;
+                    continue;
+                }
+                /* we have found a true 'temper' */
+                cut_line = curr_line;
+                title_tok = gettok(&cut_line);
+                node1 =  gettok(&cut_line);
+                node2 =  gettok(&cut_line);
+                vnamstr = gettok(&cut_line);
+                equastr = gettok(&cut_line);
+                /*
+                Hxxx n1 n2 vnam {equation}
+                -->
+                Hxxx n1 n2 vbHxxx -1
+                bHxxx int1 0 i = i(vnam)*{equation}
+                vbHxxx int1 0 0
+                */
+                xlen = 2*strlen(title_tok) + strlen(node1) + strlen(node2) + 9;
+                ckt_array[0] = TMALLOC(char, xlen);
+                //Hxxx n1 n2 VBHxxx -1
+                sprintf(ckt_array[0], "%s %s %s vb%s -1",
+                        title_tok, node1, node2, title_tok);
+                //BHxxx BHxxx_int1 0 I = I(vnam)*{equation}
+                xlen = 2*strlen(title_tok) + strlen(vnamstr) + strlen(equastr)
+                    + 21;
+                ckt_array[1] = TMALLOC(char, xlen);
+                sprintf(ckt_array[1], "b%s %s_int1 0 i = i(%s) * %s",
+                        title_tok, title_tok, vnamstr, equastr);
+                //VBHxxx int1 0 0
+                xlen = 2*strlen(title_tok)
+                    + 16;
+                ckt_array[2] = TMALLOC(char, xlen);
+                sprintf(ckt_array[2], "vb%s %s_int1 0 dc 0",
+                        title_tok, title_tok);
+                // insert new three lines immediately after current line
+                for (i = 0; i < 3; i++) {
+                    struct line *x = xx_new_line(NULL, ckt_array[i], 0, 0);
+
+                    if (param_end)
+                        param_end->li_next = x;
+                    else
+                        param_beg = x;
+
+                    param_end = x;
+                }
+                // comment out current variable h line
+                *(card->li_line)   = '*';
+                // insert new param lines immediately after current line
+                param_end->li_next = card->li_next;
+                card->li_next      = param_beg;
+                // point 'card' pointer to last in scalar list
+                card               = param_end;
+
+                param_beg = param_end = NULL;
+                tfree(title_tok);
+                tfree(vnamstr);
+                tfree(equastr);
+                tfree(node1);
+                tfree(node2);
+                break;
+            }
         }
 
         /* Rxxx n1 n2 R = {equation} or Rxxx n1 n2 {equation}