Searched refs:tincre (Results 1 – 7 of 7) sorted by relevance
/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/ |
H A D | s1933.c | 157 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 D | s1360.c | 174 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 D | s1383.c | 160 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 D | sh1784.c | 189 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 D | s1789.c | 126 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 D | s1785.c | 166 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 D | fstr_solve_NLGEOM.f90 | 290 real(kind=kreal) :: t_1, t_2, t_t, f_1, f_2, tincre local 299 tincre = fstrSOLID%step_ctrl( cstep )%initdt
|