Home
last modified time | relevance | path

Searched refs:tincre (Results 1 – 7 of 7) sorted by relevance

/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/
H A Ds1933.c157 double tincre; local
338 tincre = (tinmax - tinmin) / (double) (kmax - 1);
340 tincre = (double) 0.0;
341 tincr2 = tincre / (double) 2.0;
383 if ((kmax == 1) || (tincre == (double) 0.0))
388 tval = tinmin + (double)kdum1 * tincre;
399 if ((ktell <= 1) || (tincre <= (double) 0.0))
405 kdum1 = (int)((curve->et[kfirst] - tinmin + tincr2) / tincre);
406 kdum2 = (int)((curve->et[klast] - tinmin + tincr2) / tincre);
437 tval = tinmin + kdum1 * tincre;
[all …]
H A Ds1360.c174 double tincre; /* Parameter value increment */ local
275 tincre = tx1*((double)1.0+REL_COMP_RES);
278 tincre = tstep/tlengthend;
282 tx2 = MIN(tx1 + tincre,st[kleftend+1]);
471 tnew = MIN(tincre/(double)2.0,(tx2-tx1)/tfak);
472 if (DEQUAL(tmax+tnew,tmax+tincre)) goto err179;
473 tincre = tnew;
474 tx2 = tx1 + tincre;
H A Ds1383.c160 double tincre; /* Parameter value increment */ local
269 tincre = max(tx1*((double)1.0+REL_PAR_RES),REL_PAR_RES);
272 tincre = tstep/tlengthend;
276 tx2 = MIN(tx1 + tincre,st[kleftc+1]);
441 tnew = MIN(tincre/(double)2.0,(tx2-tx1)/tfak);
442 if (DEQUAL(tmax+tnew,tmax+tincre)) goto err179;
443 tincre = tnew;
444 tx2 = tx1 + tincre;
H A Dsh1784.c189 double tincre; /* Parameter value increment */ local
345 tincre = REL_PAR_RES;
347 tincre = tstep / tlengthend;
349 tincre = MIN (tincre, tmaxinc);
353 if (idirc * (tx1 + tincre) > idirc * (st[kleftc + idirc] + REL_PAR_RES))
354 tincre = idirc * (st[kleftc + idirc] - tx1);
356 if (idirc < 0 && (tx1 - tincre < st[kleftc] - REL_PAR_RES))
357 tincre = idirc * (st[kleftc] - tx1);
361 tx2 = tx1 + idirc * tincre;
H A Ds1789.c126 double tincre; /* Parameter value increment */ local
279 tincre = REL_PAR_RES;
281 tincre = tstep/tlengthend;
283 spos2[0] = spos1[0] + tincre*spardir[0];
284 spos2[1] = spos1[1] + tincre*spardir[1];
H A Ds1785.c166 double tincre; /* Parameter value increment */ local
355 tincre = REL_PAR_RES;
357 tincre = tstep/tlengthend;
361 tincre = MIN(tincre,tmaxinc);
362 tx2 = MIN(tx1 + tincre,st[kleftc+1]);
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/
H A Dfstr_solve_NLGEOM.f90290 real(kind=kreal) :: t_1, t_2, t_t, f_1, f_2, tincre local
299 tincre = fstrSOLID%step_ctrl( cstep )%initdt