Home
last modified time | relevance | path

Searched refs:DZERO (Results 1 – 25 of 871) sorted by relevance

12345678910>>...35

/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/
H A Ds9adstep.c138 if (s6scpr(sdiff,eptan1,k2dim) <= DZERO) goto dontstepthrough;
144 if (s6scpr(sdiff,eptan2,k2dim) <= DZERO) goto dontstepthrough;
151 if (tdum > DZERO)
156 if (DZERO < tdist && tdist <= (double)2.0*astep)
173 if (tdum > DZERO) goto stepthrough;
174 else if (tdum == DZERO)
184 if (tl1 != DZERO && tl2 != DZERO)
186 else if (tl1 == DZERO && tl2 == DZERO)
188 else if (tl2 == DZERO)
190 else if (tl2 != DZERO)
[all …]
H A Ds1960.c117 double lqua1=DZERO;
118 double lqua2=DZERO;
119 double lqua3=DZERO;
120 double lqua4=DZERO;
122 double lprj1=DZERO;
123 double lprj2=DZERO;
124 double lprj3=DZERO;
125 double lprj4=DZERO;
221 if (lqua1 != DZERO) gpos[0] = svals + (lprj1/lqua1)*(svale-svals);
223 if (lqua2 != DZERO) gpos[1] = tvals + (lprj2/lqua2)*(tvale-tvals);
[all …]
H A Ds1119.c180 tfirst = DZERO;
185 if (DEQUAL(tdiff,DZERO) )
189 else if (DEQUAL(tfirst,DZERO) )
196 else if (tprev*tdiff < DZERO)
212 kconcav1 = ((tfirst < DZERO) && kconcav1);
218 (ksign == 1 && tfirst >= DZERO)) && kconvex1);
234 tfirst = DZERO;
240 if (DEQUAL(tdiff,DZERO) )
244 else if (DEQUAL(tfirst,DZERO) )
251 else if (tprev*tdiff < DZERO)
[all …]
H A Ds1361.c107 if (tscal1 >= DZERO)
114 if (fabs(ta1) < ANGULAR_TOLERANCE) ta1 = DZERO;
123 if (DNEQUAL(ta1,DZERO))
135 if (DEQUAL(ta1,DZERO) || tang1 > tdist || epnt1[3*idim] <= DZERO)
137 if (DEQUAL(ta1,DZERO) || tang2 > tdist || epnt2[3*idim] <= DZERO)
145 tscal1 = DZERO;
146 tscal2 = DZERO;
147 tlength = DZERO;
167 if (DEQUAL(tlength,DZERO)) tlength = (double)1.0;
172 if (tscal1 >= DZERO)
[all …]
H A Ds9adsimp.c162 if (s6scpr(sdiff,eptan,k2dim) < DZERO) goto dontstepthrough;
170 if (tdum > DZERO)
172 if (DZERO < tdist && tdist <= (double)2.0*astep)
204 if (tdum > DZERO) goto stepthrough;
205 else if (tdum == DZERO)
215 if (tl1 != DZERO && tl2 != DZERO)
217 else if (tl1 == DZERO && tl2 == DZERO)
219 else if (tl2 == DZERO)
221 else if (tl2 != DZERO)
227 if (tl1 < DZERO)
H A Ds1173.c440 tdeltax = DZERO;
441 tdeltay = DZERO;
442 *cdiff1 = DZERO;
443 *cdiff2 = DZERO;
455 if (DEQUAL(tb1,DZERO) && DEQUAL(tb2,DZERO))
563 if (DEQUAL(t2,DZERO))
565 if (DEQUAL(t3,DZERO)) return DZERO;
587 if (t1 < DZERO)
589 if (t5 <= DZERO && t6 <= DZERO)
598 else if (t1 > DZERO)
[all …]
H A Ds1252.c124 double tdist=DZERO; /* Distance between position and origo. */
147 if (tdelta == DZERO) tdelta = fabs(tend);
148 if (tdelta == DZERO) tdelta = (double)1.0;
191 if (tder1>=DZERO && tder2<=DZERO) break;
213 else ref = DZERO;
429 if (DEQUAL(tmax,DZERO)) *cdiff = DZERO;
432 if (fabs(t2) == DZERO ) *cdiff = DZERO;
439 if (t4 < DZERO)
442 if (fabs(t2) == DZERO ) *cdiff = DZERO;
456 if (t4 == DZERO)
[all …]
H A Ds1771.c321 if (*cdist -aprev >= DZERO) kdiv2++;
472 if (DEQUAL(tmax,DZERO)) return DZERO;
478 if (fabs(t3)/tmax < ttol) return DZERO;
500 if (t1 < DZERO)
502 if (t5 <= DZERO && t6 <= DZERO)
507 else if (t5 <= DZERO) return t5;
508 else if (t6 <= DZERO) return t6;
511 else if (t1 > DZERO)
513 if (t5 >= DZERO && t6 >= DZERO)
518 else if (t5 >= DZERO) return t5;
[all …]
H A Ds1994.c145 if (fabs(tmint) < noice) tmint = DZERO;
146 if (fabs(tmaxt) < noice) tmaxt = DZERO;
147 if (fabs(tmins) < noice) tmins = DZERO;
148 if (fabs(tmaxs) < noice) tmaxs = DZERO;
154 if (kbez && (tmint*tmaxt >=DZERO || tmins*tmaxs >=DZERO))
156 else if (tmint*tmaxt > DZERO || tmins*tmaxs > DZERO)
H A Ds9iterimp.c206 if (DEQUAL(tlnorm,DZERO)) tlnorm = (double)1.0;
246 if (DEQUAL(tdum,DZERO)) tdum = (double)1.0;
263 if (DEQUAL(tdum,DZERO)) tdum = (double)1.0;
276 if (DEQUAL((tdum+tdum1),tdum)) tdum1 =DZERO;
282 if (tdum1 == DZERO && ideg < 1003)
291 if (DEQUAL(tdum,DZERO)) tdum = (double)1.0;
303 if (DEQUAL((tdum+tdum1),tdum)) tdum1 =DZERO;
306 if (DNEQUAL(tdum1,DZERO))
355 if (DEQUAL(tcurdst,DZERO) && DEQUAL(tdiststep,DZERO))
366 if (DEQUAL(tdum1,DZERO)) goto war02;
[all …]
H A Dsh1994.c132 for (tdiff=DZERO, ki=1; ki<kn1; ki+=kh, scoef+=kh)
136 if (tdiff*(*(scoef+kh) - *(scoef+kh-1)) < DZERO)
155 for (tdiff=DZERO, kj=1, scoef=s1->ecoef+ki; kj<kn2; kj+=kh, scoef+=kh*kn1)
159 if (tdiff*(*(scoef+kh*kn1) - *(scoef+(kh-1)*kn1)) < DZERO)
182 if (kbez && (tmint*tmaxt >=DZERO || tmins*tmaxs >=DZERO))
184 else if (tmint*tmaxt > DZERO || tmins*tmaxs > DZERO)
H A Ds1310.c329 if (amax>DZERO)
456 if (tlnorm == DZERO || tltan1 ==DZERO || tltan2 == DZERO)
457 tang1 = DZERO;
475 if (tlnorm == DZERO || tltan1 ==DZERO || tltan2 == DZERO)
476 tang2 = DZERO;
635 tstep = DZERO;
1043 tcurstep = DZERO;
1182 if (tl1 == DZERO || tl2 == DZERO)
1235 if (tdum < DZERO)
1539 if (tdist<DZERO)
[all …]
H A Ds1716.c152 for (tdel=DZERO,ki=0; ki<kdim; ki++)
154 if (km11<kk1) t1 = DZERO;
164 for (tdel=DZERO,ki=0; ki<kdim; ki++)
166 if (km11<kk1) t1 = DZERO;
179 for (tdel=DZERO,ki=0; ki<kdim; ki++)
181 if (km12<kk1) t1 = DZERO;
194 for (tdel=DZERO,ki=0; ki<kdim; ki++)
196 if (km12<kk1) t1 = DZERO;
208 if (aeps < DZERO || aeps >= sqrt(tdelmin))
H A Ds1990.c176 ps->pdir->aang = DZERO;
382 if (tlen > DZERO)
401 for (tnlen=DZERO,tlen=DZERO,k2=0;k2<kdim;k2++)
411 if (sqrt(tnlen) < aepsge2) tlen = DZERO;
424 for (tnlen=DZERO,tang=DZERO,k2=0;k2<kdim;k2++)
465 for (tlen=DZERO,k2=0; k2<kdim; k2++)
506 ps->pdir->aang = DZERO;
525 ps->pdir->aang = DZERO;
628 for (tlen = DZERO,ki=0; ki < idim; ki++)
647 for (tang=DZERO,ki=0;ki<idim;ki++)
[all …]
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/hopspack/community_problems/modflw96.3_3/src/
H A Dpcg2.f232 B=DZERO
240 H=DZERO
248 D=DZERO
256 F=DZERO
264 Z=DZERO
272 S=DZERO
363 B=DZERO
365 H=DZERO
367 D=DZERO
369 F=DZERO
[all …]
H A Dsip5.f156 DZERO=0.
231 126 B=DZERO
236 VNRL=DZERO
246 128 H=DZERO
253 130 D=DZERO
258 VNCL=DZERO
268 132 F=DZERO
275 134 Z=DZERO
280 VNLL=DZERO
290 136 S=DZERO
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/qmcmm/
H A Dinput.F90199 CALL DZERO(NPCHRG,MAXBLK)
200 CALL DZERO(MMCHRG,MAXBLK)
205 CALL DZERO(NPFPOL,MXNPFF)
206 CALL DZERO(NPFCAP,MXNPFF)
207 CALL DZERO(NPFOMG1,MXNPFF)
208 CALL DZERO(NPFGAM1,MXNPFF)
209 CALL DZERO(NPFOMG2,MXNPFF)
211 CALL DZERO(NPFFAC,MXNPFF)
212 CALL DZERO(MMFM0,MXMMFF)
213 CALL DZERO(MMFPOL,MXMMFF)
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/rsp/
H A Drspqm3.F171 CALL DZERO(WRK(KUFSOL),N2ORBX)
172 CALL DZERO(WRK(KUTGX),N2ORBX)
175 CALL DZERO(WRK(KRRAOx),NNBASX)
176 CALL DZERO(WRK(KURXAC),N2ASHX)
177 CALL DZERO(WRK(KTRMO),NNORBX)
178 CALL DZERO(WRK(KUTR),N2ORBX)
179 CALL DZERO(WRK(KUTRX),N2ORBX)
184 CALL DZERO(WRK(KXDIP),NCOMS)
185 CALL DZERO(WRK(KYDIP),NCOMS)
186 CALL DZERO(WRK(KZDIP),NCOMS)
[all …]
H A Drspqmmm.F168 CALL DZERO(WRK(KFPEMO),NNORBT)
169 CALL DZERO(WRK(KFPEAC),NNASHX)
175 CALL DZERO(WRK(KTFXCAC),NCSIM)
176 CALL DZERO(WRK(KUFPE),N2ORBX)
177 CALL DZERO(WRK(KUFXC),N2ORBX)
674 CALL DZERO(WRK(KUFPE),N2ORBX)
685 CALL DZERO(WRK(KOVLP),NOSIM)
1071 CALL DZERO(WRK(KCREF),NCREF)
1077 CALL DZERO(WRK(KUTR),N2ORBX)
1377 CALL DZERO(WRK(KCREF),NCREF)
[all …]
H A Drspief2.F79 CALL DZERO(WORK(KCHG), NTS)
80 CALL DZERO(WORK(KQ12), NTS)
81 CALL DZERO(WORK(KQ1), NTS)
82 CALL DZERO(WORK(KQ2), NTS)
83 CALL DZERO(WORK(KQD1), NTS)
84 CALL DZERO(WORK(KQD2), NTS)
85 CALL DZERO(WORK(KQ1D2), NTS)
86 CALL DZERO(WORK(KQ2D1), NTS)
87 CALL DZERO(WORK(KQD12), NTS)
88 CALL DZERO(WORK(KCTS),3*NTS)
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A Dcc_get_rmat.F108 CALL DZERO(RMAT,N2BST(ISYHOP))
143 CALL DZERO(RMAT,N2BST(ISYHOP))
145 CALL DZERO(RMAT,N2BST(ISYHOP))
156 CALL DZERO(RMAT,N2BST(ISYHOP))
158 CALL DZERO(RMAT,N2BST(ISYHOP))
185 CALL DZERO(RMAT,N2BST(ISYHOP))
187 CALL DZERO(RMAT,N2BST(ISYHOP))
199 CALL DZERO(RMAT,N2BST(ISYHOP))
201 CALL DZERO(RMAT,N2BST(ISYHOP))
H A Dcc_2eexp_2.F246 CALL DZERO(WORK(KONEIA),NT1AMX)
261 CALL DZERO(WORK(KAODEN),N2BST(1))
272 CALL DZERO(WORK(KKABAR),LENBAR)
291 CALL DZERO(WORK(KKABAO),N2BST(1))
369 CALL DZERO(WORK(KT1AM),NT1AMX)
445 CALL DZERO(WORK(KONEIA),NT1AMX)
482 CALL DZERO(WORK(KKABAR),LENBAR)
680 CALL DZERO(WORK(KONEAI),NT1AMX)
683 CALL DZERO(WORK(KONEIA),NT1AMX)
684 CALL DZERO(WORK(KKABAR),LENBAR)
[all …]
H A Dcc_2eexp_1.F235 CALL DZERO(WORK(KONEIA),NT1AMX)
250 CALL DZERO(WORK(KAODEN),N2BST(1))
261 CALL DZERO(WORK(KKABAR),LENBAR)
280 CALL DZERO(WORK(KKABAO),N2BST(1))
354 CALL DZERO(WORK(KT1AM),NT1AMX)
430 CALL DZERO(WORK(KONEIA),NT1AMX)
467 CALL DZERO(WORK(KKABAR),LENBAR)
659 CALL DZERO(WORK(KONEAI),NT1AMX)
662 CALL DZERO(WORK(KONEIA),NT1AMX)
663 CALL DZERO(WORK(KKABAR),LENBAR)
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/
H A Dabaop2.F42 CALL DZERO(TMPVEC,MCRD)
43 CALL DZERO(STEP,MCRD)
217 CALL DZERO(TMPMT2,IDIM*IDIM)
218 CALL DZERO(TMPMT3,IDIM*IDIM)
334 CALL DZERO(TMPMT3,MX2CRD)
335 CALL DZERO(STEP,NCRD)
380 CALL DZERO(TMPMT2,ICRD)
425 CALL DZERO(TMPMT2,MX2CRD)
455 CALL DZERO(TMPMT2,MX2CRD)
545 CALL DZERO(VECMOD,MXCOOR)
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/soppa/
H A Dso_excit1.F212 CALL DZERO(TRLEN, 3*NSYM*MXNEXI*NUM_ACTIVE)
213 CALL DZERO(TRVEL, 3*NSYM*MXNEXI*NUM_ACTIVE)
214 CALL DZERO(TQLEN, 3*3*NSYM*MXNEXI*NUM_ACTIVE)
216 CALL DZERO(TTLEN, 10*NSYM*MXNEXI*NUM_ACTIVE)
217 CALL DZERO(TRLON, 3*NSYM*MXNEXI*NUM_ACTIVE)
218 CALL DZERO(TRMAG, 3*NSYM*MXNEXI*NUM_ACTIVE)
219 CALL DZERO(BSRLON,3*NSYM*MXNEXI*NUM_ACTIVE)
220 CALL DZERO(SECMAT,3*NSYM*MXNEXI)
221 CALL DZERO(EXENG, NSYM*MXNEXI*NUM_ACTIVE)
222 CALL DZERO(BETHE,3*LQ*NUM_ACTIVE)
[all …]

12345678910>>...35