| /dports/math/py-pynleq2/pysces-0.9.8/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/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/math/cmlib/cmlib-3.0_8/doc/slrpack/ |
| H A D | dlinfs | 75 KOUNT Integer scalar.
|
| H A D | linfs | 73 KOUNT Integer scalar.
|
| /dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/ |
| H A D | inputb.f | 67 COMMON /CASEID/ IDCSE(74), KOUNT, NAMSV(100), DIM local
117 DO 1300 I=1,KOUNT
|
| H A D | main04.f | 67 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100) local
|
| H A D | output.f | 35 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100),IDIM local
|
| H A D | main01.f | 66 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100) local
|
| H A D | main00.f | 79 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100),IDIM local
|
| H A D | wplot.f | 19 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100),IDIM local
|
| H A D | datcom.f | 102 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100),IDIM local
|
| H A D | headr.f | 24 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100),IDIM local
|
| H A D | inputc.f | 84 COMMON /CASEID/ IDCSE(74), KOUNT, NAMSV(100), DIM local
|
| H A D | auxout.f | 35 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100),IDIM local
|
| H A D | outpt2.f | 15 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100),IDIM local
|
| /dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/CONMIN/src/ |
| H A D | conmin.f | 33 . NVC,KOUNT,ICOUNT,IGOOD1,
588 . NCAL,KOUNT,JGOTO,
1116 . N1,NCAL,KOUNT,JGOTO,
1159 KOUNT=0
1164 KOUNT=KOUNT+1
1179 IF (KOUNT.GT.5) GO TO 60
|
| /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 | 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 …]
|
| 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 | 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 | 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
|
| /dports/graphics/raster3d/Raster3D_3.0-7/ |
| H A D | normal3d.f | 3 INTEGER, ALLOCATABLE, DIMENSION(:,:) :: KOUNT, MOUNT
|
| /dports/misc/libemos/libemos-4.5.9-Source/ |
| H A D | ChangeLog | 296 * HIRLAM(L12PNT,OLDFLD,KOUNT,KGAUSS,HTYPE,AREA,POLE,GRID,NEWFLD,KSIZE,NLON,NLAT)
297 * HIRLSM(L12PNT,OLDFLD,KOUNT,KGAUSS,HTYPE,AREA,POLE,GRID,NEWFLD,KSIZE,NLON,NLAT)
298 …* HIRLAMW(L12PNT,OLDFLDU,OLDFLDV,KOUNT,KGAUSS,HTYPE,AREA,POLE,GRID,NEWFLDU,NEWFLDV,KSIZE,NLON,NLAT)
|
| /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
|
| /dports/math/libRmath/R-4.1.1/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
|