|
|
@ -45,18 +45,19 @@ void INPpas2(CKTcircuit *ckt, struct card *data, INPtables * tab, TSKtask *task) |
|
|
#endif |
|
|
#endif |
|
|
|
|
|
|
|
|
error = INPgetTok(&groundname, &gname, 1); |
|
|
error = INPgetTok(&groundname, &gname, 1); |
|
|
if (error) |
|
|
|
|
|
|
|
|
if (error) { |
|
|
data->error = |
|
|
data->error = |
|
|
INPerrCat(data->error, |
|
|
INPerrCat(data->error, |
|
|
INPmkTemp |
|
|
INPmkTemp |
|
|
("can't read internal ground node name!\n")); |
|
|
("can't read internal ground node name!\n")); |
|
|
|
|
|
|
|
|
|
|
|
} |
|
|
error = INPgndInsert(ckt, &gname, tab, &gnode); |
|
|
error = INPgndInsert(ckt, &gname, tab, &gnode); |
|
|
if (error && error != E_EXISTS) |
|
|
|
|
|
|
|
|
if (error && error != E_EXISTS) { |
|
|
data->error = |
|
|
data->error = |
|
|
INPerrCat(data->error, |
|
|
INPerrCat(data->error, |
|
|
INPmkTemp |
|
|
INPmkTemp |
|
|
("can't insert internal ground node in symbol table!\n")); |
|
|
("can't insert internal ground node in symbol table!\n")); |
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
#ifdef TRACE |
|
|
#ifdef TRACE |
|
|
printf("Examining this deck:\n"); |
|
|
printf("Examining this deck:\n"); |
|
|
@ -66,7 +67,6 @@ void INPpas2(CKTcircuit *ckt, struct card *data, INPtables * tab, TSKtask *task) |
|
|
printf("\n"); |
|
|
printf("\n"); |
|
|
#endif |
|
|
#endif |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#ifdef HAS_PROGREP |
|
|
#ifdef HAS_PROGREP |
|
|
for (current = data; current != NULL; current = current->nextcard) |
|
|
for (current = data; current != NULL; current = current->nextcard) |
|
|
linecount++; |
|
|
linecount++; |
|
|
|