Home
last modified time | relevance | path

Searched refs:kflag (Results 1 – 25 of 598) sorted by relevance

12345678910>>...24

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dflux.f20 & nactdog,identity,ielprop,prop,kflag,v,xflow,f, argument
52 & nactdog,identity,ielprop,prop,kflag,v,xflow,f,
61 & nactdog,identity,ielprop,prop,kflag,v,xflow,f,
70 & nactdog,identity,ielprop,prop,kflag,v,xflow,f,
79 & nactdog,identity,ielprop,prop,kflag,v,xflow,f,
88 & nactdog,identity,ielprop,prop,kflag,v,xflow,f,
106 & nactdog,identity,ielprop,prop,kflag,v,xflow,f,
153 & nactdog,identity,ielprop,prop,kflag,v,xflow,f,
225 & nactdog,identity,ielprop,prop,kflag,v,xflow,f,
234 & nactdog,identity,ielprop,prop,kflag,v,xflow,f,
[all …]
H A Drearrange.f26 integer irow(*),icol(*),ndim,i,neq,k,icr,istart,idiag,kflag local
29 kflag=2
31 call isortiid(irow,icol,au,ndim,kflag)
43 call isortid(icol(istart),au(istart),icr,kflag)
54 call isortid(icol(istart),au(istart),icr,kflag)
H A Dpredgmres_struct_mt.c129 kflag=2; in predgmres_struct_mt()
131 &ndim,&kflag)); in predgmres_struct_mt()
148 &n,&kflag)); in predgmres_struct_mt()
158 &n,&kflag)); in predgmres_struct_mt()
238 kflag=2; in predgmres_struct_mt()
240 &ndim,&kflag)); in predgmres_struct_mt()
253 &n,&kflag)); in predgmres_struct_mt()
298 kflag=2; in predgmres_struct_mt()
300 &ndim,&kflag)); in predgmres_struct_mt()
317 &n,&kflag)); in predgmres_struct_mt()
[all …]
H A Dprefilter.f27 & ny(ndesi),nz(ndesi),kflag local
46 kflag=2
47 call dsort(x,nx,ndesi,kflag)
48 call dsort(y,ny,ndesi,kflag)
49 call dsort(z,nz,ndesi,kflag)
H A Dprecfdcyc.f41 & ifacew(8,5),ithree,ifour,iaux,kflag,nnodes,ikboun(*), local
69 kflag=1
99 call isortii(nodes,iaux,ifour,kflag)
142 call isortii(nodes,iaux,ithree,kflag)
186 call isortii(nodes,iaux,ithree,kflag)
191 call isortii(nodes,iaux,ifour,kflag)
285 kflag=2
286 call isortic(nelemface,sideface,nface,kflag)
H A Dmatrixsort.c41 ITG i,j,k,kflag,numb; in matrixsort() local
49 kflag=2; in matrixsort()
50 FORTRAN(isortiid,(mast1,irow,au,nzs,&kflag)); in matrixsort()
84 FORTRAN(isortid,(&irow[jq[i]-1],&au[jq[i]-1],&numb,&kflag)); in matrixsort()
H A Dcreate_contactdofs.f52 & idof,neqslav,neqtot,kflag local
74 kflag=2
75 call isortii(kslav,lslav,neqslav,kflag)
93 call isortii(ktot,ltot,neqtot,kflag)
H A Dconvert2rowbyrow.c27 ITG i,j,k,l,*irowpardiso=NULL,kflag,kstart,n,ndim,*icolpardiso=NULL, in convert2rowbyrow() local
67 kflag=2; in convert2rowbyrow()
69 &ndim,&kflag)); in convert2rowbyrow()
86 &n,&kflag)); in convert2rowbyrow()
96 &n,&kflag)); in convert2rowbyrow()
H A Dtopocfdfem.f44 & ifacew(8,5),ithree,ifour,iaux,kflag,nnodes,
72 kflag=1
102 call isortii(nodes,iaux,ifour,kflag)
145 call isortii(nodes,iaux,ithree,kflag)
189 call isortii(nodes,iaux,ithree,kflag)
194 call isortii(nodes,iaux,ifour,kflag)
283 call isortii(isolidsurf,iaux,nsolidsurf,kflag)
312 call isortii(ifreestream,iaux,nfreestream,kflag)
487 kflag=2
488 call isortic(nelemface,sideface,nface,kflag)
H A Dprethickness.f27 integer j,k,i,ifree,nx(*),ny(*),nz(*),kflag,ndesinode,id, local
85 kflag=2
86 call dsort(x,nx,ifree,kflag)
87 call dsort(y,ny,ifree,kflag)
88 call dsort(z,nz,ifree,kflag)
/dports/cad/feappv/feappv-4.1i/program/
H A Darclen.f146 if (kflag.le.3.or.kflag.eq.6) then
183 if (kflag.eq.4.or.kflag.eq.5) then
234 if(kflag.gt.1.and.kflag.ne.4) then
251 if (kflag.eq.0) then
257 elseif (kflag.eq.1) then
269 elseif (kflag.eq.4) then
274 elseif (kflag.eq.5) then
324 if(kflag.le.1.or.kflag.eq.4) then
331 if (kflag.eq.1) then
347 if (kflag.eq.3) then
[all …]
H A Ddicont.f53 50 if (kflag.eq.4.or.kflag.eq.5) then
87 if (kflag.lt.4.or.kflag.eq.6) then
112 if (kflag.eq.4.or.kflag.eq.5) then
/dports/science/sparta/sparta-20Oct2021/src/
H A Dcompute_lambda_grid.cpp161 kflag = KNONE; in ComputeLambdaGrid()
163 if (strcmp(arg[5],"kall") == 0) kflag = KALL; in ComputeLambdaGrid()
170 if (kflag == KZ && domain->dimension == 2) in ComputeLambdaGrid()
176 if (kflag == KNONE) size_per_grid_cols = 0; in ComputeLambdaGrid()
332 if (kflag == KNONE) vector_grid[i] = lambda; in compute_per_grid()
338 if (kflag == KNONE) return; in compute_per_grid()
343 if (kflag == KALL) { in compute_per_grid()
355 } else if (kflag == KX) { in compute_per_grid()
358 } else if (kflag == KY) { in compute_per_grid()
361 } else if (kflag == KZ) { in compute_per_grid()
[all …]
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/
H A Dzacon.lisp187 (setf kflag 2)
189 (setf kflag 1)
193 (setf kflag 3)
195 (setf bscle (f2cl-lib:fref bry (kflag) ((1 3))))
196 (setf s1r (* s1r (f2cl-lib:fref cssr (kflag) ((1 3)))))
197 (setf s1i (* s1i (f2cl-lib:fref cssr (kflag) ((1 3)))))
200 (setf csr (f2cl-lib:fref csrr (kflag) ((1 3))))
252 (if (>= kflag 3) (go label80))
257 (setf kflag (f2cl-lib:int-add kflag 1))
258 (setf bscle (f2cl-lib:fref bry (kflag) ((1 3))))
[all …]
/dports/science/sparta/sparta-20Oct2021/src/KOKKOS/
H A Dcompute_lambda_grid_kokkos.cpp57 if (kflag == KNONE) in ~ComputeLambdaGridKokkos()
168 if (kflag == KNONE) { in compute_per_grid_kokkos()
203 if (kflag == KNONE) d_vector(i) = lambda; in operator ()()
207 if (kflag == KNONE) return; in operator ()()
209 if (kflag == KALL) { in operator ()()
219 } else if (kflag == KX) { in operator ()()
221 } else if (kflag == KY) { in operator ()()
223 } else if (kflag == KZ) { in operator ()()
234 if (kflag == KNONE) { in reallocate()
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/
H A Dstodi.f8 1 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, local
108 kflag = 0
353 kflag = 0
376 500 kflag = kflag - 1
386 if (kflag .le. -7) go to 660
422 if (kflag .lt. 0 .and. rh .gt. 1.0d+0) rh = 1.0d+0
434 if (kflag .le. -2) rh = min(rh,0.10d+0)
449 660 kflag = -1
451 670 kflag = -2
453 680 kflag = -1 - ires
[all …]
H A Drkf45.f237 integer neqn,iflag,nfe,kop,init,jflag,kflag local
290 if ((t .eq. tout) .and. (kflag .ne. 3)) go to 10
294 if (kflag .eq. 3) go to 45
296 if (kflag .eq. 4) go to 40
297 if ((kflag .eq. 5) .and. (aerr .eq. 0.0d0)) go to 30
298 if ((kflag .eq. 6) .and. (rerr .le. savre) .and.
317 if (kflag .eq. 3) mflag=iabs(iflag)
322 kflag=0
338 kflag=3
479 kflag=4
[all …]
H A Dstode.f9 1 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, local
102 kflag = 0
346 kflag = 0
368 500 kflag = kflag - 1
378 if (kflag .le. -3) go to 640
414 if (kflag .lt. 0 .and. rh .gt. 1.0d+0) rh = 1.0d+0
426 if (kflag .le. -2) rh = min(rh,0.20d+0)
446 640 if (kflag .eq. -10) go to 660
468 660 kflag = -1
470 670 kflag = -2
[all …]
H A Dstoda.f9 1 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, local
124 kflag = 0
395 kflag = 0
520 500 kflag = kflag - 1
530 if (kflag .le. -3) go to 640
587 622 if (kflag .eq. 0 .and. rh .lt. 1.10d+0) go to 610
588 625 if (kflag .le. -2) rh = min(rh,0.20d+0)
608 640 if (kflag .eq. -10) go to 660
630 660 kflag = -1
632 670 kflag = -2
[all …]
/dports/irc/sic/sic-0.23a/
H A Doption.c102 if (kdel->kflag & K_REGEXP)
367 if (ktmp->kflag & K_BEEP)
369 if (ktmp->kflag & K_SPACE)
371 if (ktmp->kflag & K_NOTIFY)
373 if (ktmp->kflag & K_HIDE)
375 if (ktmp->kflag & K_IGNORE)
387 if (ktmp->kflag & K_REGEXP)
444 if (ktmp->kflag & K_OIGNORE)
626 if (k1->kflag & K_REGEXP)
638 k2->kflag = *val_ui | (k2->kflag & K_REGEXP);
[all …]
/dports/japanese/p5-Text-ChaSen/chasen-2.4.5/lib/
H A Djfgets.c205 int kflag; /* kanji flag(0=not found, 1=found) */ in cha_jfgets() local
211 kflag = 0; in cha_jfgets()
229 kflag = 1; in cha_jfgets()
283 if (!kflag && !(*pos & 0x80)) in cha_jfgets()
287 kflag = 0; in cha_jfgets()
/dports/japanese/chasen-base/chasen-2.4.5/lib/
H A Djfgets.c205 int kflag; /* kanji flag(0=not found, 1=found) */ in cha_jfgets() local
211 kflag = 0; in cha_jfgets()
229 kflag = 1; in cha_jfgets()
283 if (!kflag && !(*pos & 0x80)) in cha_jfgets()
287 kflag = 0; in cha_jfgets()
/dports/sysutils/heirloom/heirloom-070715/df/
H A Ddf.c288 if (kflag) in printfs()
660 kflag = 1;
685 kflag = 1;
687 kflag = 1;
751 kflag = 1;
789 kflag = 1;
792 kflag = 1;
796 kflag = tflag = 0;
797 } else if (tflag && !kflag)
804 else if (kflag)
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/
H A Dextfield.f9094 FUNCTION mopopla( zgate, x, kflag ) RESULT ( mopoplaout )
105 LOGICAL :: kflag local
125 IF (kflag) THEN
131 IF ( kflag ) THEN
/dports/editors/mg/mg-6.9/
H A Dyank.c116 kchunk(char *cp1, RSIZE chunk, int kflag) in kchunk() argument
123 kflag = KFORW; in kchunk()
125 if (kflag & KFORW) { in kchunk()
127 if (kgrow(kflag) == FALSE) in kchunk()
131 } else if (kflag & KBACK) { in kchunk()
133 if (kgrow(kflag) == FALSE) in kchunk()

12345678910>>...24