/dports/math/cmlib/cmlib-3.0_8/src/sdriv/ |
H A D | sdzro.f | 56 KOUNT = 0 71 IF (KOUNT .GT. 50) RETURN 113 KOUNT = KOUNT + 1
|
/dports/math/cmlib/cmlib-3.0_8/src/ddriv/ |
H A D | ddzro.f | 56 KOUNT = 0 71 IF (KOUNT .GT. 50) RETURN 113 KOUNT = KOUNT + 1
|
/dports/math/cmlib/cmlib-3.0_8/src/zeroin/ |
H A D | zeroin.f | 64 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 D | cdzro.f | 57 KOUNT = 0 72 IF (KOUNT .GT. 50) RETURN 114 KOUNT = KOUNT + 1
|
/dports/math/math77/MATH77/extras/ |
H A D | gloch1.f | 1015 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 D | tlinvs.f | 45 KOUNT=0 47 KOUNT=KOUNT+1 52 IF(KOUNT.GT.20)GO TO 1130
|
H A D | input.f | 82 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 D | flapcm.f | 225 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 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-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/math77/MATH77/demo/ |
H A D | drdtgrec.f | 208 KOUNT = 0 221 KOUNT = KOUNT + 1 249 RMS = SQRT(SUM1 / KOUNT) 251 RMSDZ(K) = SQRT(SUM2(K) / KOUNT)
|
H A D | drstgrec.f | 208 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 D | hirlam.F | 11 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 D | hirlamw.F | 11 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 D | hirlsm.F | 11 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 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/audio/guitarix-lv2/guitarix-0.43.1/tools/ampsim/tensbs/ |
H A D | xerdmp.f | 21 CALL XERSAV(' ',0,0,0,KOUNT)
|
/dports/math/cmlib/cmlib-3.0_8/src/xerror/ |
H A D | xerdmp.f | 21 CALL XERSAV(' ',0,0,0,KOUNT)
|
/dports/math/slatec/src/ |
H A D | xerdmp.f | 27 CALL XERSVE (' ',' ',' ',0,0,0,KOUNT)
|
/dports/graphics/raster3d/Raster3D_3.0-7/ |
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/math77/MATH77/ |
H A D | dmlc.f | 2514 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 D | smlc.f | 2514 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 D | README | 484 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.
|