/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | flux.f | 20 & 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 D | rearrange.f | 26 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 D | predgmres_struct_mt.c | 129 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 D | prefilter.f | 27 & 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 D | precfdcyc.f | 41 & 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 D | matrixsort.c | 41 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 D | create_contactdofs.f | 52 & idof,neqslav,neqtot,kflag local 74 kflag=2 75 call isortii(kslav,lslav,neqslav,kflag) 93 call isortii(ktot,ltot,neqtot,kflag)
|
H A D | convert2rowbyrow.c | 27 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 D | topocfdfem.f | 44 & 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 D | prethickness.f | 27 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 D | arclen.f | 146 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 D | dicont.f | 53 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 D | compute_lambda_grid.cpp | 161 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 D | zacon.lisp | 187 (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 D | compute_lambda_grid_kokkos.cpp | 57 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 D | stodi.f | 8 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 D | rkf45.f | 237 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 D | stode.f | 9 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 D | stoda.f | 9 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 D | option.c | 102 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 D | jfgets.c | 205 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 D | jfgets.c | 205 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 D | df.c | 288 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 D | extfield.f90 | 94 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 D | yank.c | 116 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()
|