optran 0 0 0 0 0 uic may be used to load initial conditions

(.ic=xxx statements) without staring an op iteration.
This commit is contained in:
Holger Vogt 2024-04-07 21:36:59 +02:00
parent 89d35fb34b
commit 08c0f97999
1 changed files with 2 additions and 1 deletions

View File

@ -161,7 +161,8 @@ void com_optran(wordlist* wl) {
wltmp = wltmp->wl_next;
stpstr = wltmp->wl_word;
opramptime = INPevaluate(&stpstr, &err, 1);
if (err || (*stpstr != '\0'))
/* optran with uic reads initial conditions */
if (err || ((*stpstr != '\0') && !strstr(stpstr, "uic")))
goto bugquit;
if (opstepsize > opfinaltime) {
fprintf(stderr, "Error: Optran step size larger than final time.\n");