/dports/audio/guitarix-lv2/guitarix-0.43.1/tools/ampsim/tensbs/ |
H A D | xerdmp.f | 21 CALL XERSAV(' ',0,0,0,KOUNT)
|
H A D | xerrwv.f | 76 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 D | xersav.f | 35 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 D | dpcon61.f | 2333 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 D | ddeabm.f | 1478 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 D | match.c | 3804 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 D | dp3.F | 29499 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 D | dp36.F | 53879 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 D | dp40.F | 41323 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 D | dp43.F | 2852 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 D | dp6.F | 11907 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 D | normal3d.f | 3 INTEGER, ALLOCATABLE, DIMENSION(:,:) :: KOUNT, MOUNT
|
H A D | qinp.f | 183 KOUNT(ix,iy) = KOUNT(ix,iy) + 1
|
H A D | render.f | 2 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 D | xermsg.f | 216 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 D | xersve.f | 65 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 D | rq0.f | 26 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 D | rq1.f | 27 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 D | rllarsbi.f | 116 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 D | cmplx.f | 16785 $ 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 D | dlapack.f | 31916 $ 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 D | dggbal.f | 113 $ 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 D | zggbal.f | 115 $ 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 D | cggbal.f | 203 $ 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 D | dggbal.f | 201 $ 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
|