| /dports/science/siesta/siesta-4.1.5/Src/ |
| H A D | initparallel.F | 75 real(dp) :: rcmax
146 rcmax = rspatial
148 rcmax = max(rmaxh,rcoor)
152 ncell(1) = abs(ucell(1,1)/rcmax) + 1
153 ncell(2) = abs(ucell(2,2)/rcmax) + 1
154 ncell(3) = abs(ucell(3,3)/rcmax) + 1
163 rcmax = min(rcmax,(ucell(2,2)-tiny)/dble(ncell(2)))
164 rcmax = min(rcmax,(ucell(3,3)-tiny)/dble(ncell(3)))
167 rcmaxopt = rcmax
176 if (cellmin.lt.2.0_dp*rcmax) then
[all …]
|
| /dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/SRC/ |
| H A D | dgsequ.c | 93 double rcmin, rcmax; in dgsequ() local
135 rcmax = 0.; in dgsequ()
137 rcmax = SUPERLU_MAX(rcmax, r[i]); in dgsequ()
140 *amax = rcmax; in dgsequ()
154 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
170 rcmax = 0.; in dgsequ()
172 rcmax = SUPERLU_MAX(rcmax, c[j]); in dgsequ()
188 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
|
| H A D | sgsequ.c | 93 float rcmin, rcmax; in sgsequ() local
135 rcmax = 0.; in sgsequ()
137 rcmax = SUPERLU_MAX(rcmax, r[i]); in sgsequ()
140 *amax = rcmax; in sgsequ()
154 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in sgsequ()
170 rcmax = 0.; in sgsequ()
172 rcmax = SUPERLU_MAX(rcmax, c[j]); in sgsequ()
188 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in sgsequ()
|
| H A D | cgsequ.c | 93 float rcmin, rcmax; in cgsequ() local
135 rcmax = 0.; in cgsequ()
137 rcmax = SUPERLU_MAX(rcmax, r[i]); in cgsequ()
140 *amax = rcmax; in cgsequ()
154 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in cgsequ()
170 rcmax = 0.; in cgsequ()
172 rcmax = SUPERLU_MAX(rcmax, c[j]); in cgsequ()
188 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in cgsequ()
|
| H A D | zgsequ.c | 93 double rcmin, rcmax; in zgsequ() local
135 rcmax = 0.; in zgsequ()
137 rcmax = SUPERLU_MAX(rcmax, r[i]); in zgsequ()
140 *amax = rcmax; in zgsequ()
154 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in zgsequ()
170 rcmax = 0.; in zgsequ()
172 rcmax = SUPERLU_MAX(rcmax, c[j]); in zgsequ()
188 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in zgsequ()
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/SUPERLU/ |
| H A D | cgsequ.c | 103 float rcmin, rcmax; in cgsequ() local
145 rcmax = 0.; in cgsequ()
147 rcmax = SUPERLU_MAX(rcmax, r[i]); in cgsequ()
150 *amax = rcmax; in cgsequ()
164 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in cgsequ()
180 rcmax = 0.; in cgsequ()
182 rcmax = SUPERLU_MAX(rcmax, c[j]); in cgsequ()
198 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in cgsequ()
|
| H A D | dgsequ.c | 103 double rcmin, rcmax; in dgsequ() local
145 rcmax = 0.; in dgsequ()
147 rcmax = SUPERLU_MAX(rcmax, r[i]); in dgsequ()
150 *amax = rcmax; in dgsequ()
164 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
180 rcmax = 0.; in dgsequ()
182 rcmax = SUPERLU_MAX(rcmax, c[j]); in dgsequ()
198 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
|
| H A D | zgsequ.c | 103 double rcmin, rcmax; in zgsequ() local
145 rcmax = 0.; in zgsequ()
147 rcmax = SUPERLU_MAX(rcmax, r[i]); in zgsequ()
150 *amax = rcmax; in zgsequ()
164 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in zgsequ()
180 rcmax = 0.; in zgsequ()
182 rcmax = SUPERLU_MAX(rcmax, c[j]); in zgsequ()
198 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in zgsequ()
|
| H A D | sgsequ.c | 103 float rcmin, rcmax; in sgsequ() local
145 rcmax = 0.; in sgsequ()
147 rcmax = SUPERLU_MAX(rcmax, r[i]); in sgsequ()
150 *amax = rcmax; in sgsequ()
164 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in sgsequ()
180 rcmax = 0.; in sgsequ()
182 rcmax = SUPERLU_MAX(rcmax, c[j]); in sgsequ()
198 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in sgsequ()
|
| /dports/math/algae/algae-4.3.6/superlu/ |
| H A D | zgsequ.c | 84 double rcmin, rcmax; in zgsequ() local
126 rcmax = 0.; in zgsequ()
128 rcmax = SUPERLU_MAX(rcmax, r[i]); in zgsequ()
131 *amax = rcmax; in zgsequ()
145 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in zgsequ()
161 rcmax = 0.; in zgsequ()
163 rcmax = SUPERLU_MAX(rcmax, c[j]); in zgsequ()
179 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in zgsequ()
|
| H A D | dgsequ.c | 84 double rcmin, rcmax; in dgsequ() local
126 rcmax = 0.; in dgsequ()
128 rcmax = SUPERLU_MAX(rcmax, r[i]); in dgsequ()
131 *amax = rcmax; in dgsequ()
145 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
161 rcmax = 0.; in dgsequ()
163 rcmax = SUPERLU_MAX(rcmax, c[j]); in dgsequ()
179 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/superlu/ |
| H A D | cgsequ.c | 93 float rcmin, rcmax; in cgsequ() local
135 rcmax = 0.; in cgsequ()
137 rcmax = SUPERLU_MAX(rcmax, r[i]); in cgsequ()
140 *amax = rcmax; in cgsequ()
154 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in cgsequ()
170 rcmax = 0.; in cgsequ()
172 rcmax = SUPERLU_MAX(rcmax, c[j]); in cgsequ()
188 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in cgsequ()
|
| H A D | sgsequ.c | 93 float rcmin, rcmax; in sgsequ() local
135 rcmax = 0.; in sgsequ()
137 rcmax = SUPERLU_MAX(rcmax, r[i]); in sgsequ()
140 *amax = rcmax; in sgsequ()
154 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in sgsequ()
170 rcmax = 0.; in sgsequ()
172 rcmax = SUPERLU_MAX(rcmax, c[j]); in sgsequ()
188 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in sgsequ()
|
| H A D | zgsequ.c | 93 double rcmin, rcmax; in zgsequ() local
135 rcmax = 0.; in zgsequ()
137 rcmax = SUPERLU_MAX(rcmax, r[i]); in zgsequ()
140 *amax = rcmax; in zgsequ()
154 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in zgsequ()
170 rcmax = 0.; in zgsequ()
172 rcmax = SUPERLU_MAX(rcmax, c[j]); in zgsequ()
188 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in zgsequ()
|
| H A D | dgsequ.c | 93 double rcmin, rcmax; in dgsequ() local
135 rcmax = 0.; in dgsequ()
137 rcmax = SUPERLU_MAX(rcmax, r[i]); in dgsequ()
140 *amax = rcmax; in dgsequ()
154 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
170 rcmax = 0.; in dgsequ()
172 rcmax = SUPERLU_MAX(rcmax, c[j]); in dgsequ()
188 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
|
| /dports/science/py-scipy/scipy-1.7.1/scipy/sparse/linalg/dsolve/SuperLU/SRC/ |
| H A D | zgsequ.c | 103 double rcmin, rcmax; in zgsequ() local
145 rcmax = 0.; in zgsequ()
147 rcmax = SUPERLU_MAX(rcmax, r[i]); in zgsequ()
150 *amax = rcmax; in zgsequ()
164 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in zgsequ()
180 rcmax = 0.; in zgsequ()
182 rcmax = SUPERLU_MAX(rcmax, c[j]); in zgsequ()
198 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in zgsequ()
|
| H A D | cgsequ.c | 103 float rcmin, rcmax; in cgsequ() local
145 rcmax = 0.; in cgsequ()
147 rcmax = SUPERLU_MAX(rcmax, r[i]); in cgsequ()
150 *amax = rcmax; in cgsequ()
164 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in cgsequ()
180 rcmax = 0.; in cgsequ()
182 rcmax = SUPERLU_MAX(rcmax, c[j]); in cgsequ()
198 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in cgsequ()
|
| H A D | dgsequ.c | 103 double rcmin, rcmax; in dgsequ() local
145 rcmax = 0.; in dgsequ()
147 rcmax = SUPERLU_MAX(rcmax, r[i]); in dgsequ()
150 *amax = rcmax; in dgsequ()
164 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
180 rcmax = 0.; in dgsequ()
182 rcmax = SUPERLU_MAX(rcmax, c[j]); in dgsequ()
198 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
|
| H A D | sgsequ.c | 103 float rcmin, rcmax; in sgsequ() local
145 rcmax = 0.; in sgsequ()
147 rcmax = SUPERLU_MAX(rcmax, r[i]); in sgsequ()
150 *amax = rcmax; in sgsequ()
164 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in sgsequ()
180 rcmax = 0.; in sgsequ()
182 rcmax = SUPERLU_MAX(rcmax, c[j]); in sgsequ()
198 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in sgsequ()
|
| /dports/math/superlu/superlu-5.2.2/SRC/ |
| H A D | sgsequ.c | 103 float rcmin, rcmax; in sgsequ() local
145 rcmax = 0.; in sgsequ()
147 rcmax = SUPERLU_MAX(rcmax, r[i]); in sgsequ()
150 *amax = rcmax; in sgsequ()
164 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in sgsequ()
180 rcmax = 0.; in sgsequ()
182 rcmax = SUPERLU_MAX(rcmax, c[j]); in sgsequ()
198 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in sgsequ()
|
| H A D | cgsequ.c | 103 float rcmin, rcmax; in cgsequ() local
145 rcmax = 0.; in cgsequ()
147 rcmax = SUPERLU_MAX(rcmax, r[i]); in cgsequ()
150 *amax = rcmax; in cgsequ()
164 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in cgsequ()
180 rcmax = 0.; in cgsequ()
182 rcmax = SUPERLU_MAX(rcmax, c[j]); in cgsequ()
198 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in cgsequ()
|
| H A D | dgsequ.c | 103 double rcmin, rcmax; in dgsequ() local
145 rcmax = 0.; in dgsequ()
147 rcmax = SUPERLU_MAX(rcmax, r[i]); in dgsequ()
150 *amax = rcmax; in dgsequ()
164 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
180 rcmax = 0.; in dgsequ()
182 rcmax = SUPERLU_MAX(rcmax, c[j]); in dgsequ()
198 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
|
| H A D | zgsequ.c | 103 double rcmin, rcmax; in zgsequ() local
145 rcmax = 0.; in zgsequ()
147 rcmax = SUPERLU_MAX(rcmax, r[i]); in zgsequ()
150 *amax = rcmax; in zgsequ()
164 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in zgsequ()
180 rcmax = 0.; in zgsequ()
182 rcmax = SUPERLU_MAX(rcmax, c[j]); in zgsequ()
198 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in zgsequ()
|
| /dports/science/liggghts/LIGGGHTS-PUBLIC-3.8.0-26-g6e873439/lib/hotint/HotInt_V1/SuperLU/ |
| H A D | dgsequ.c | 84 double rcmin, rcmax; in dgsequ() local
126 rcmax = 0.; in dgsequ()
128 rcmax = SUPERLU_MAX(rcmax, r[i]); in dgsequ()
131 *amax = rcmax; in dgsequ()
145 *rowcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
161 rcmax = 0.; in dgsequ()
163 rcmax = SUPERLU_MAX(rcmax, c[j]); in dgsequ()
179 *colcnd = SUPERLU_MAX( rcmin, smlnum ) / SUPERLU_MIN( rcmax, bignum ); in dgsequ()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | dgeequ.c | 134 doublereal rcmin, rcmax; in dgeequ_() local
227 rcmax = 0.; in dgeequ_()
234 d__1 = rcmax; in dgeequ_()
236 rcmax = max(d__1,d__2); in dgeequ_()
243 *amax = rcmax; in dgeequ_()
276 *rowcnd = max(rcmin,smlnum) / min(rcmax,bignum); in dgeequ_()
309 rcmax = 0.; in dgeequ_()
320 d__1 = rcmax; in dgeequ_()
322 rcmax = max(d__1,d__2); in dgeequ_()
357 *colcnd = max(rcmin,smlnum) / min(rcmax,bignum); in dgeequ_()
|