Home
last modified time | relevance | path

Searched refs:KOUNT (Results 76 – 100 of 128) sorted by relevance

123456

/dports/math/cmlib/cmlib-3.0_8/src/sdriv/
H A Dsdzro.f56 KOUNT = 0
71 IF (KOUNT .GT. 50) RETURN
113 KOUNT = KOUNT + 1
/dports/math/cmlib/cmlib-3.0_8/src/ddriv/
H A Dddzro.f56 KOUNT = 0
71 IF (KOUNT .GT. 50) RETURN
113 KOUNT = KOUNT + 1
/dports/math/cmlib/cmlib-3.0_8/src/zeroin/
H A Dzeroin.f64 KOUNT=2
122 KOUNT=KOUNT+1
123 IF (KOUNT .GT. 500) GO TO 15
/dports/math/cmlib/cmlib-3.0_8/src/cdriv/
H A Dcdzro.f57 KOUNT = 0
72 IF (KOUNT .GT. 50) RETURN
114 KOUNT = KOUNT + 1
/dports/math/math77/MATH77/extras/
H A Dgloch1.f1015 CTYPA(KOUNT:KOUNT) = '-'
1016 CSTK(KCSTK+1:KCSTK+KOUNT) = CTYPA(1:KOUNT)
1048 CTYPA(KOUNT:KOUNT) = GLTYPE(NTYPA+1:NTYPA+1)
1050 KOUNT = KOUNT + 1
1058 500 CTYPA(KOUNT:KOUNT) = GLTYPE(NTYPA+1:NTYPA+1)
1163 CTYPA(1:KOUNT) = CSTK(KCSTK+1:KCSTK+KOUNT)
1168 610 CTYPA(KOUNT:KOUNT) = GLTYPE(NTYPA+1:NTYPA+1)
1169 KOUNT = KOUNT + 1
2258 CTYPT(1:KOUNT+1) = CTYPA(1:KOUNT+1)
2292 CTYPA(1:KOUNT+1) = CTYPT(1:KOUNT+1)
[all …]
/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/
H A Dtlinvs.f45 KOUNT=0
47 KOUNT=KOUNT+1
52 IF(KOUNT.GT.20)GO TO 1130
H A Dinput.f82 COMMON /CASEID/ IDCSE(74),KOUNT,NAMSV(100),DIM local
253 KOUNT=0
258 1010 KK=KOUNT/3
260 IF(KK3.NE.KOUNT)KK=KK+KOUNT-KK3
340 KOUNT=KOUNT+1
344 IF(KOUNT.LT.300) GO TO 1160
348 1160 NAMORD(KOUNT)=I
362 IF(KOUNT.NE.0) GO TO 1200
385 KK=KOUNT
H A Dflapcm.f225 KOUNT=1
249 KOUNT=3
252 KOUNT=2
272 IF(KOUNT.EQ.3)GO TO 1240
273 IF(KOUNT.EQ.2)INDEX=KOUTBD
288 IF(KOUNT.EQ.2)L=KOUTBD
/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-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/math77/MATH77/demo/
H A Ddrdtgrec.f208 KOUNT = 0
221 KOUNT = KOUNT + 1
249 RMS = SQRT(SUM1 / KOUNT)
251 RMSDZ(K) = SQRT(SUM2(K) / KOUNT)
H A Ddrstgrec.f208 KOUNT = 0
221 KOUNT = KOUNT + 1
249 RMS = SQRT(SUM1 / KOUNT)
251 RMSDZ(K) = SQRT(SUM2(K) / KOUNT)
/dports/misc/libemos/libemos-4.5.9-Source/interpolation/
H A Dhirlam.F11 INTEGER FUNCTION HIRLAM(L12PNT,OLDFLD,KOUNT,KGAUSS,
156 INTEGER KOUNT, KGAUSS, KSIZE, NLON, NLAT
198 REAL OLD(KOUNT)
319 IF( NUMBER.NE.KOUNT ) THEN
345 IF( NUMBER.NE.KOUNT ) THEN
346 CALL INTLOG(JP_ERROR,FNAME//': Given no. of points =',KOUNT)
354 CALL INTLOG(JP_ERROR,FNAME//': Given no. of points =',KOUNT)
H A Dhirlamw.F11 INTEGER FUNCTION HIRLAMW(L12PNT,OLDFLDU,OLDFLDV,KOUNT,KGAUSS,
155 INTEGER KOUNT, KGAUSS, KSIZE, NLON, NLAT
202 REAL OLDU(KOUNT), OLDV(KOUNT)
318 IF( NUMBER.NE.KOUNT ) THEN
319 CALL INTLOG(JP_ERROR,FNAME//': Given no. of points =',KOUNT)
H A Dhirlsm.F11 INTEGER FUNCTION HIRLSM(L12PNT,OLDFLD,KOUNT,KGAUSS,
160 INTEGER KOUNT, KGAUSS, KSIZE, NLON, NLAT
215 REAL OLD(KOUNT)
385 IF( NUMBER.NE.KOUNT ) THEN
386 CALL INTLOG(JP_ERROR,FNAME//': Given no. of points =',KOUNT)
/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/audio/guitarix-lv2/guitarix-0.43.1/tools/ampsim/tensbs/
H A Dxerdmp.f21 CALL XERSAV(' ',0,0,0,KOUNT)
/dports/math/cmlib/cmlib-3.0_8/src/xerror/
H A Dxerdmp.f21 CALL XERSAV(' ',0,0,0,KOUNT)
/dports/math/slatec/src/
H A Dxerdmp.f27 CALL XERSVE (' ',' ',' ',0,0,0,KOUNT)
/dports/graphics/raster3d/Raster3D_3.0-7/
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/math77/MATH77/
H A Ddmlc.f2514 integer I, KDEBUG, KOUNT, NFVALS local
2522 save EPSR, FAC, FACX, KOUNT, LNOPP
2525 data FAC / 0.0D0 /, KOUNT / 0 /
2545 KOUNT = 1
2548 KOUNT = KOUNT + 1
2549 if (mod(KOUNT,10) .eq. 1) then
2550 if (W(0) .gt. 1.D-5) KOUNT = 0
2552 if (W(0) .gt. 0.01D0) KOUNT = 0
2573 20 if ((W(LPP+I) .lt. 0.D0) .or. (mod(KOUNT, 10) .eq. 0)) then
2628 if (mod(KOUNT, 10) .ne. 0) then
[all …]
H A Dsmlc.f2514 integer I, KDEBUG, KOUNT, NFVALS local
2522 save EPSR, FAC, FACX, KOUNT, LNOPP
2525 data FAC / 0.0E0 /, KOUNT / 0 /
2545 KOUNT = 1
2548 KOUNT = KOUNT + 1
2549 if (mod(KOUNT,10) .eq. 1) then
2550 if (W(0) .gt. 1.E-5) KOUNT = 0
2552 if (W(0) .gt. 0.01E0) KOUNT = 0
2573 20 if ((W(LPP+I) .lt. 0.E0) .or. (mod(KOUNT, 10) .eq. 0)) then
2628 if (mod(KOUNT, 10) .ne. 0) then
[all …]
/dports/misc/libemos/libemos-4.5.9-Source/pbio/
H A DREADME484 SUBROUTINE PBREAD(KUNIT,KARRAY,KOUNT,KRET)
496 KOUNT = number of BYTES to read from the file.
529 SUBROUTINE PBREAD2(KUNIT,KARRAY,KOUNT,KRET)
541 KOUNT = number of BYTES to read from the file.
569 SUBROUTINE PBWRITE(KUNIT,KARRAY,KOUNT,KRET)
583 KOUNT = number of BYTES to write to the file.

123456