| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | dla_lin_berr.c | 97 doublereal tmp, safe1; in dla_lin_berr_() local
127 safe1 = dlamch_("Safe minimum"); in dla_lin_berr_()
128 safe1 = (*nz + 1) * safe1; in dla_lin_berr_()
142 … tmp = (safe1 + (d__1 = res[i__ + j * res_dim1], f2c_abs(d__1))) / ayb[i__ + j * ayb_dim1]; in dla_lin_berr_()
|
| H A D | sla_lin_berr.c | 97 real tmp, safe1; in sla_lin_berr_() local
127 safe1 = slamch_("Safe minimum"); in sla_lin_berr_()
128 safe1 = (*nz + 1) * safe1; in sla_lin_berr_()
142 … tmp = (safe1 + (r__1 = res[i__ + j * res_dim1], f2c_abs(r__1))) / ayb[i__ + j * ayb_dim1]; in sla_lin_berr_()
|
| H A D | cla_lin_berr.c | 100 real tmp, safe1; in cla_lin_berr_() local
134 safe1 = slamch_("Safe minimum"); in cla_lin_berr_()
135 safe1 = (*nz + 1) * safe1; in cla_lin_berr_()
153 q__2.r = safe1 + q__3.r; in cla_lin_berr_()
|
| H A D | zla_lin_berr.c | 100 doublereal tmp, safe1; in zla_lin_berr_() local
134 safe1 = dlamch_("Safe minimum"); in zla_lin_berr_()
135 safe1 = (*nz + 1) * safe1; in zla_lin_berr_()
153 z__2.r = safe1 + z__3.r; in zla_lin_berr_()
|
| H A D | dla_geamv.c | 176 doublereal safe1; in dla_geamv_() local
273 safe1 = dlamch_("Safe minimum"); in dla_geamv_()
274 safe1 = (*n + 1) * safe1; in dla_geamv_()
317 y[iy] += d_sign(&safe1, &y[iy]); in dla_geamv_()
357 y[iy] += d_sign(&safe1, &y[iy]); in dla_geamv_()
402 y[iy] += d_sign(&safe1, &y[iy]); in dla_geamv_()
444 y[iy] += d_sign(&safe1, &y[iy]); in dla_geamv_()
|
| H A D | sla_geamv.c | 176 real safe1; in sla_geamv_() local
273 safe1 = slamch_("Safe minimum"); in sla_geamv_()
274 safe1 = (*n + 1) * safe1; in sla_geamv_()
317 y[iy] += r_sign(&safe1, &y[iy]); in sla_geamv_()
357 y[iy] += r_sign(&safe1, &y[iy]); in sla_geamv_()
402 y[iy] += r_sign(&safe1, &y[iy]); in sla_geamv_()
444 y[iy] += r_sign(&safe1, &y[iy]); in sla_geamv_()
|
| H A D | dla_gbamv.c | 187 doublereal safe1; in dla_gbamv_() local
292 safe1 = dlamch_("Safe minimum"); in dla_gbamv_()
293 safe1 = (*n + 1) * safe1; in dla_gbamv_()
342 y[iy] += d_sign(&safe1, &y[iy]); in dla_gbamv_()
386 y[iy] += d_sign(&safe1, &y[iy]); in dla_gbamv_()
435 y[iy] += d_sign(&safe1, &y[iy]); in dla_gbamv_()
481 y[iy] += d_sign(&safe1, &y[iy]); in dla_gbamv_()
|
| H A D | sla_gbamv.c | 187 real safe1; in sla_gbamv_() local
292 safe1 = slamch_("Safe minimum"); in sla_gbamv_()
293 safe1 = (*n + 1) * safe1; in sla_gbamv_()
342 y[iy] += r_sign(&safe1, &y[iy]); in sla_gbamv_()
386 y[iy] += r_sign(&safe1, &y[iy]); in sla_gbamv_()
435 y[iy] += r_sign(&safe1, &y[iy]); in sla_gbamv_()
481 y[iy] += r_sign(&safe1, &y[iy]); in sla_gbamv_()
|
| H A D | dla_syamv.c | 176 doublereal temp, safe1; in dla_syamv_() local
259 safe1 = dlamch_("Safe minimum"); in dla_syamv_()
260 safe1 = (*n + 1) * safe1; in dla_syamv_()
312 y[iy] += d_sign(&safe1, &y[iy]); in dla_syamv_()
361 y[iy] += d_sign(&safe1, &y[iy]); in dla_syamv_()
416 y[iy] += d_sign(&safe1, &y[iy]); in dla_syamv_()
468 y[iy] += d_sign(&safe1, &y[iy]); in dla_syamv_()
|
| H A D | sla_syamv.c | 176 real temp, safe1; in sla_syamv_() local
259 safe1 = slamch_("Safe minimum"); in sla_syamv_()
260 safe1 = (*n + 1) * safe1; in sla_syamv_()
312 y[iy] += r_sign(&safe1, &y[iy]); in sla_syamv_()
361 y[iy] += r_sign(&safe1, &y[iy]); in sla_syamv_()
416 y[iy] += r_sign(&safe1, &y[iy]); in sla_syamv_()
468 y[iy] += r_sign(&safe1, &y[iy]); in sla_syamv_()
|
| H A D | zla_geamv.c | 177 doublereal safe1; in zla_geamv_() local
278 safe1 = dlamch_("Safe minimum"); in zla_geamv_()
279 safe1 = (*n + 1) * safe1; in zla_geamv_()
325 y[iy] += d_sign(&safe1, &y[iy]); in zla_geamv_()
368 y[iy] += d_sign(&safe1, &y[iy]); in zla_geamv_()
416 y[iy] += d_sign(&safe1, &y[iy]); in zla_geamv_()
461 y[iy] += d_sign(&safe1, &y[iy]); in zla_geamv_()
|
| H A D | cla_geamv.c | 177 real safe1; in cla_geamv_() local
278 safe1 = slamch_("Safe minimum"); in cla_geamv_()
279 safe1 = (*n + 1) * safe1; in cla_geamv_()
325 y[iy] += r_sign(&safe1, &y[iy]); in cla_geamv_()
368 y[iy] += r_sign(&safe1, &y[iy]); in cla_geamv_()
416 y[iy] += r_sign(&safe1, &y[iy]); in cla_geamv_()
461 y[iy] += r_sign(&safe1, &y[iy]); in cla_geamv_()
|
| H A D | zla_gbamv.c | 188 doublereal safe1; in zla_gbamv_() local
297 safe1 = dlamch_("Safe minimum"); in zla_gbamv_()
298 safe1 = (*n + 1) * safe1; in zla_gbamv_()
350 y[iy] += d_sign(&safe1, &y[iy]); in zla_gbamv_()
397 y[iy] += d_sign(&safe1, &y[iy]); in zla_gbamv_()
449 y[iy] += d_sign(&safe1, &y[iy]); in zla_gbamv_()
498 y[iy] += d_sign(&safe1, &y[iy]); in zla_gbamv_()
|
| H A D | cla_gbamv.c | 188 real safe1; in cla_gbamv_() local
297 safe1 = slamch_("Safe minimum"); in cla_gbamv_()
298 safe1 = (*n + 1) * safe1; in cla_gbamv_()
350 y[iy] += r_sign(&safe1, &y[iy]); in cla_gbamv_()
397 y[iy] += r_sign(&safe1, &y[iy]); in cla_gbamv_()
449 y[iy] += r_sign(&safe1, &y[iy]); in cla_gbamv_()
498 y[iy] += r_sign(&safe1, &y[iy]); in cla_gbamv_()
|
| H A D | cla_syamv.c | 178 real temp, safe1; in cla_syamv_() local
265 safe1 = slamch_("Safe minimum"); in cla_syamv_()
266 safe1 = (*n + 1) * safe1; in cla_syamv_()
324 y[iy] += r_sign(&safe1, &y[iy]); in cla_syamv_()
379 y[iy] += r_sign(&safe1, &y[iy]); in cla_syamv_()
440 y[iy] += r_sign(&safe1, &y[iy]); in cla_syamv_()
498 y[iy] += r_sign(&safe1, &y[iy]); in cla_syamv_()
|
| H A D | zla_syamv.c | 178 doublereal temp, safe1; in zla_syamv_() local
265 safe1 = dlamch_("Safe minimum"); in zla_syamv_()
266 safe1 = (*n + 1) * safe1; in zla_syamv_()
324 y[iy] += d_sign(&safe1, &y[iy]); in zla_syamv_()
379 y[iy] += d_sign(&safe1, &y[iy]); in zla_syamv_()
440 y[iy] += d_sign(&safe1, &y[iy]); in zla_syamv_()
498 y[iy] += d_sign(&safe1, &y[iy]); in zla_syamv_()
|
| H A D | zla_heamv.c | 177 doublereal temp, safe1; in zla_heamv_() local
264 safe1 = dlamch_("Safe minimum"); in zla_heamv_()
265 safe1 = (*n + 1) * safe1; in zla_heamv_()
323 y[iy] += d_sign(&safe1, &y[iy]); in zla_heamv_()
378 y[iy] += d_sign(&safe1, &y[iy]); in zla_heamv_()
439 y[iy] += d_sign(&safe1, &y[iy]); in zla_heamv_()
497 y[iy] += d_sign(&safe1, &y[iy]); in zla_heamv_()
|
| H A D | cla_heamv.c | 177 real temp, safe1; in cla_heamv_() local
264 safe1 = slamch_("Safe minimum"); in cla_heamv_()
265 safe1 = (*n + 1) * safe1; in cla_heamv_()
323 y[iy] += r_sign(&safe1, &y[iy]); in cla_heamv_()
378 y[iy] += r_sign(&safe1, &y[iy]); in cla_heamv_()
439 y[iy] += r_sign(&safe1, &y[iy]); in cla_heamv_()
497 y[iy] += r_sign(&safe1, &y[iy]); in cla_heamv_()
|
| H A D | dptrfs.c | 162 doublereal eps, safe1, safe2; in dptrfs_() local
251 safe1 = nz * safmin; in dptrfs_()
252 safe2 = safe1 / eps; in dptrfs_()
320 … d__3 = ((d__1 = work[*n + i__], f2c_abs(d__1)) + safe1) / (work[i__] + safe1); // , expr subst in dptrfs_()
365 work[i__] = (d__1 = work[*n + i__], f2c_abs(d__1)) + nz * eps * work[i__] + safe1; in dptrfs_()
|
| H A D | sptrfs.c | 162 real eps, safe1, safe2; in sptrfs_() local
251 safe1 = nz * safmin; in sptrfs_()
252 safe2 = safe1 / eps; in sptrfs_()
320 … r__3 = ((r__1 = work[*n + i__], f2c_abs(r__1)) + safe1) / (work[i__] + safe1); // , expr subst in sptrfs_()
365 work[i__] = (r__1 = work[*n + i__], f2c_abs(r__1)) + nz * eps * work[i__] + safe1; in sptrfs_()
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | sptrfs.c | 25 static real eps, safe1, safe2; in sptrfs_() local
182 safe1 = nz * safmin; in sptrfs_()
183 safe2 = safe1 / eps; in sptrfs_()
246 r__2 = s, r__3 = ((r__1 = work[*n + i__], dabs(r__1)) + safe1) in sptrfs_()
247 / (work[i__] + safe1); in sptrfs_()
297 work[i__] + safe1; in sptrfs_()
|
| H A D | dptrfs.c | 26 static doublereal eps, safe1, safe2; in dptrfs_() local
183 safe1 = nz * safmin; in dptrfs_()
184 safe2 = safe1 / eps; in dptrfs_()
247 d__2 = s, d__3 = ((d__1 = work[*n + i__], abs(d__1)) + safe1) in dptrfs_()
248 / (work[i__] + safe1); in dptrfs_()
298 work[i__] + safe1; in dptrfs_()
|
| H A D | dpprfs.c | 31 static doublereal safe1, safe2; in dpprfs_() local
204 safe1 = nz * safmin; in dpprfs_()
205 safe2 = safe1 / eps; in dpprfs_()
291 d__2 = s, d__3 = ((d__1 = work[*n + i__], abs(d__1)) + safe1) in dpprfs_()
292 / (work[i__] + safe1); in dpprfs_()
347 work[i__] + safe1; in dpprfs_()
|
| H A D | dsprfs.c | 32 static doublereal safe1, safe2; in dsprfs_() local
212 safe1 = nz * safmin; in dsprfs_()
213 safe2 = safe1 / eps; in dsprfs_()
299 d__2 = s, d__3 = ((d__1 = work[*n + i__], abs(d__1)) + safe1) in dsprfs_()
300 / (work[i__] + safe1); in dsprfs_()
355 work[i__] + safe1; in dsprfs_()
|
| H A D | spprfs.c | 31 static real safe1, safe2; in spprfs_() local
201 safe1 = nz * safmin; in spprfs_()
202 safe2 = safe1 / eps; in spprfs_()
288 r__2 = s, r__3 = ((r__1 = work[*n + i__], dabs(r__1)) + safe1) in spprfs_()
289 / (work[i__] + safe1); in spprfs_()
344 work[i__] + safe1; in spprfs_()
|