Home
last modified time | relevance | path

Searched refs:KOUNT (Results 1 – 25 of 128) sorted by path

123456

/dports/audio/guitarix-lv2/guitarix-0.43.1/tools/ampsim/tensbs/
H A Dxerdmp.f21 CALL XERSAV(' ',0,0,0,KOUNT)
H A Dxerrwv.f76 CALL XERSAV(MESSG,NMESSG,NERR,LEVEL,KOUNT)
91 IF (((LLEVEL.EQ.(-1)).AND.(KOUNT.GT.MIN0(1,MAXMES)))
92 1.OR.((LLEVEL.EQ.0) .AND.(KOUNT.GT.MAXMES))
93 2.OR.((LLEVEL.EQ.1) .AND.(KOUNT.GT.MAXMES).AND.(MKNTRL.EQ.1))
94 3.OR.((LLEVEL.EQ.2) .AND.(KOUNT.GT.MAX0(1,MAXMES)))) GO TO 100
140 IF ((LKNTRL.LE.0).OR.(KOUNT.GT.MAX0(1,MAXMES))) GO TO 120
150 IF ((LLEVEL.EQ.2).AND.(KOUNT.GT.MAX0(1,MAXMES))) LMESSG = 0
H A Dxersav.f35 DIMENSION NERTAB(10),LEVTAB(10),KOUNT(10)
36 SAVE MESTAB,NERTAB,LEVTAB,KOUNT,KOUNTX
39 DATA KOUNT(1),KOUNT(2),KOUNT(3),KOUNT(4),KOUNT(5),
40 1 KOUNT(6),KOUNT(7),KOUNT(8),KOUNT(9),KOUNT(10)
46 IF (KOUNT(1).EQ.0) RETURN
58 IF (KOUNT(I).EQ.0) GO TO 30
72 70 KOUNT(I) = 0
82 IF (KOUNT(I).EQ.0) GO TO 110
94 100 KOUNT(II) = KOUNT(II) + 1
95 ICOUNT = KOUNT(II)
[all …]
/dports/biology/py-PySCeS/pysces-1.0.0/pysces/pitcon/
H A Ddpcon61.f2333 SUBROUTINE ROOT(A,FA,B,FB,U,FU,KOUNT,IFLAG,IERROR,EPMACH) argument
2416 INTEGER KOUNT
2431 IF(KOUNT.LE.0)THEN
2435 KOUNT=0
2438 KOUNT=1
2450 KOUNT=KOUNT+1
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dddeabm.f1478 CALL XERSVE (LIBRAR, SUBROU, MESSG, 1, NERR, LEVEL, KOUNT)
1482 IF (LEVEL.EQ.-1 .AND. KOUNT.GT.1) RETURN
1500 IF (LEVEL.EQ.0 .AND. KOUNT.GT.MAXMES) GO TO 30
1501 IF (LEVEL.EQ.1 .AND. KOUNT.GT.MAXMES .AND. MKNTRL.EQ.1) GO TO 30
1502 IF (LEVEL.EQ.2 .AND. KOUNT.GT.MAX(1,MAXMES)) GO TO 30
1613 IF (LKNTRL.GT.0 .AND. KOUNT.LT.MAX(1,MAXMES)) THEN
1919 DIMENSION NERTAB(LENTAB), LEVTAB(LENTAB), KOUNT(LENTAB)
1945 * NERTAB(I),LEVTAB(I),KOUNT(I)
1973 KOUNT(I) = KOUNT(I) + 1
1974 ICOUNT = KOUNT(I)
[all …]
/dports/cad/gmsh/gmsh-4.9.2-source/contrib/blossom/MATCH/
H A Dmatch.c3804 int KOUNT=0; local
3834 outp[1+3*KOUNT] = G->edgelist[G->nodelist[i].matched_edge].orig_nod1;
3835 outp[1+3*KOUNT+1] = G->edgelist[G->nodelist[i].matched_edge].orig_nod2;
3836 outp[1+3*KOUNT+2] = len;
3837 KOUNT++;
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/
H A Ddp3.F29499 INTEGER KOUNT,K,L,N,IV,IV1,IV2,D1,D2
29526 ALPHA(KOUNT)=ANGLE(L)+PI
29528 ALPHA(KOUNT)=ANGLE(L)
29534 ALPHA(KOUNT)=ANGLE(L)
29536 ALPHA(KOUNT)=ANGLE(L)+PI
29539 KAND1(KOUNT)=IND1(L)
29540 KAND2(KOUNT)=IND2(L)
29541 D(KOUNT)=DSIN(ALPHA(KOUNT))*X(IND1(L))
29543 KOUNT=KOUNT+1
29741 KOUNT=1
[all …]
H A Ddp36.F53879 INTEGER IC,IFLAG,KOUNT local
53902 KOUNT=2
53909 KOUNT=3
53935 IF(KOUNT.GE.500) GO TO 14
53985 KOUNT=KOUNT+1
54112 INTEGER IC,IFLAG,KOUNT local
54138 KOUNT=2
54145 KOUNT=3
54171 IF(KOUNT.GE.500) GO TO 14
54221 KOUNT=KOUNT+1
H A Ddp40.F41323 KOUNT=1
41325 IF(DABS(LGNMO2(DW,AMOM)).GE.1.0D-9 .AND. KOUNT.LT.500)THEN
41327 KOUNT=KOUNT+1
41330 IF(KOUNT.LT.500)THEN
H A Ddp43.F2852 SAVE NSKIP, NDSKIP, IN24, NEXT, KOUNT, MKOUNT, INSEED
2858 DATA NOTYET, LUXLEV, IN24, KOUNT, MKOUNT /.TRUE., LXDFLT, 0,0,0/
2878 KOUNT = 0
2928 KOUNT = KOUNT + NSKIP
2943 KOUNT = KOUNT + LENV
2944 IF (KOUNT .GE. IGIGA) THEN
2946 KOUNT = KOUNT - IGIGA
3011 K1 = KOUNT
3090 KOUNT = K1
3110 IN24 = MOD(KOUNT, NSKIP+24)
H A Ddp6.F11907 INTEGER IC,IFLAG,KOUNT local
11931 KOUNT = 2
11938 KOUNT = 3
12014 KOUNT = KOUNT + 1
12137 INTEGER IC,IFLAG,KOUNT local
12161 KOUNT = 2
12168 KOUNT = 3
12244 KOUNT = KOUNT + 1
12395 KOUNT = 2
12402 KOUNT = 3
[all …]
/dports/graphics/raster3d/Raster3D_3.0-7/
H A Dnormal3d.f3 INTEGER, ALLOCATABLE, DIMENSION(:,:) :: KOUNT, MOUNT
H A Dqinp.f183 KOUNT(ix,iy) = KOUNT(ix,iy) + 1
H A Drender.f2 INTEGER, ALLOCATABLE, DIMENSION(:,:) :: KOUNT, MOUNT variable
855 TMP2D = KOUNT
1263 KOUNT(I,J) = 0
1714 KOUNT(IX,IY) = KOUNT(IX,IY) + 1
1758 KOUNT(IX,IY) = KOUNT(IX,IY) + 1
1916 KOUNT(IX,IY) = KOUNT(IX,IY) + 1
2099 KOUNT(IX,IY) = KOUNT(IX,IY) + 1
2906 KNTTOT = KNTTOT + KOUNT(I,J)
2907 IF (KOUNT(I,J).GT.KNTMAX) KNTMAX = KOUNT(I,J)
2935 K = K + KOUNT(I,J)
[all …]
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/
H A Dxermsg.f216 CALL XERSVE (LIBRAR, SUBROU, MESSG, 1, NERR, LEVEL, KOUNT)
220 IF (LEVEL.EQ.-1 .AND. KOUNT.GT.1) RETURN
238 IF (LEVEL.EQ.0 .AND. KOUNT.GT.MAXMES) GO TO 30
239 IF (LEVEL.EQ.1 .AND. KOUNT.GT.MAXMES .AND. MKNTRL.EQ.1) GO TO 30
240 IF (LEVEL.EQ.2 .AND. KOUNT.GT.MAX(1,MAXMES)) GO TO 30
351 IF (LKNTRL.GT.0 .AND. KOUNT.LT.MAX(1,MAXMES)) THEN
H A Dxersve.f65 DIMENSION NERTAB(LENTAB), LEVTAB(LENTAB), KOUNT(LENTAB)
66 SAVE LIBTAB, SUBTAB, MESTAB, NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG
91 * NERTAB(I),LEVTAB(I),KOUNT(I)
119 KOUNT(I) = KOUNT(I) + 1
120 ICOUNT = KOUNT(I)
135 KOUNT (I) = 1
/dports/math/R-cran-quantreg/quantreg/src/
H A Drq0.f26 INTEGER I,J,K,KL,KOUNT,KR,M,M1,M2,M3,M4,M5,IFT
66 KOUNT = 0
227 KOUNT=KOUNT+1
235 WA(OUT,J)=WA(KOUNT,J)
236 WA(KOUNT,J)=D
238 260 IF(KOUNT+KR.NE.N1)GOTO 70
H A Drq1.f27 INTEGER I,J,K,KL,KOUNT,KR,M,M1,M2,M3,M4,M5,IFT
68 KOUNT = 0
229 KOUNT=KOUNT+1
237 WA(OUT,J)=WA(KOUNT,J)
238 WA(KOUNT,J)=D
240 260 IF(KOUNT+KR.NE.N1)GOTO 70
/dports/math/R-cran-robustbase/robustbase/src/
H A Drllarsbi.f116 KOUNT=0
230 KOUNT=KOUNT+1
237 CALL rlICHGbi(X(OUT,J),X(KOUNT,J))
239 CALL rlICHGbi(THETA(OUT),THETA(KOUNT))
240 CALL rlICHGbi(SC1(OUT),SC1(KOUNT))
243 IF (KOUNT+KR .NE. NP+1) GOTO 70
316 NIT=KOUNT
/dports/math/R/R-4.1.2/src/modules/lapack/
H A Dcmplx.f16785 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN,
17046 KOUNT = 0
17051 KOUNT = KOUNT + 1
17056 KOUNT = KOUNT + 1
17059 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM
17063 KOUNT = 0
17068 KOUNT = KOUNT + 1
17073 KOUNT = KOUNT + 1
17076 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
H A Ddlapack.f31916 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN,
32166 KOUNT = 0
32171 KOUNT = KOUNT + 1
32176 KOUNT = KOUNT + 1
32179 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM
32183 KOUNT = 0
32188 KOUNT = KOUNT + 1
32193 KOUNT = KOUNT + 1
32196 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
/dports/math/algae/algae-4.3.6/lapack/
H A Ddggbal.f113 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN,
356 KOUNT = 0
361 KOUNT = KOUNT + 1
366 KOUNT = KOUNT + 1
369 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM
373 KOUNT = 0
378 KOUNT = KOUNT + 1
383 KOUNT = KOUNT + 1
386 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
H A Dzggbal.f115 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN,
369 KOUNT = 0
374 KOUNT = KOUNT + 1
379 KOUNT = KOUNT + 1
382 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM
386 KOUNT = 0
391 KOUNT = KOUNT + 1
396 KOUNT = KOUNT + 1
399 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
/dports/math/blas/lapack-3.10.0/SRC/
H A Dcggbal.f203 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN,
464 KOUNT = 0
469 KOUNT = KOUNT + 1
474 KOUNT = KOUNT + 1
477 WORK( I+2*N ) = REAL( KOUNT )*WORK( I+N ) + SUM
481 KOUNT = 0
486 KOUNT = KOUNT + 1
491 KOUNT = KOUNT + 1
494 WORK( J+3*N ) = REAL( KOUNT )*WORK( J ) + SUM
H A Ddggbal.f201 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN,
451 KOUNT = 0
456 KOUNT = KOUNT + 1
461 KOUNT = KOUNT + 1
464 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM
468 KOUNT = 0
473 KOUNT = KOUNT + 1
478 KOUNT = KOUNT + 1
481 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM

123456