Home
last modified time | relevance | path

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

123456

/dports/audio/guitarix-lv2/guitarix-0.43.1/tools/ampsim/tensbs/
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 …]
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
/dports/math/cmlib/cmlib-3.0_8/src/xerror/
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 …]
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
/dports/math/cmlib/cmlib-3.0_8/src/twodq/
H A Dlqm0.f46 INTEGER J,KOUNT,L
108 KOUNT = 1
124 KOUNT = KOUNT+1
125 FV(KOUNT) = F(X(L),Y(L))
126 F0 = F0+FV(KOUNT)
127 DF0 = DF0+ABS(FV(KOUNT))
141 KOUNT = 2
143 DRESC = DRESC+(ABS(FV(KOUNT)-RES6)+ABS(FV(KOUNT+1)-RES6)+ABS(
144 * FV(KOUNT+2)-RES6))*W(J)
145 KOUNT = KOUNT+3
H A Dlqm1.f46 INTEGER J,KOUNT,L
117 KOUNT = 1
133 KOUNT = KOUNT+1
134 FV(KOUNT) = F(X(L),Y(L))
135 F0 = F0+FV(KOUNT)
136 DF0 = DF0+ABS(FV(KOUNT))
150 KOUNT = 2
152 DRESC = DRESC+(ABS(FV(KOUNT)-RES9)+ABS(FV(KOUNT+1)-RES9)+ABS(
153 * FV(KOUNT+2)-RES9))*W(J)
154 KOUNT = KOUNT+3
/dports/math/slatec/
H A Dsplpqx.f163 KOUNT = 1
165 DATTRV(KOUNT) = -MM
168 KOUNT = KOUNT + 1
169 DATTRV(KOUNT) = KK
170 KOUNT = KOUNT + 1
171 DATTRV(KOUNT) = D(KK,MM)
173 KOUNT = KOUNT + 1
175 DATTRV(KOUNT) = ZERO
H A Ddplpqx.f162 KOUNT = 1
164 DATTRV(KOUNT) = -MM
167 KOUNT = KOUNT + 1
168 DATTRV(KOUNT) = KK
169 KOUNT = KOUNT + 1
170 DATTRV(KOUNT) = D(KK,MM)
172 KOUNT = KOUNT + 1
174 DATTRV(KOUNT) = ZERO
H A Dqxdbvs.f145 KOUNT = 1
152 GO TO (80,90,100,110,120,130,140), KOUNT
160 KOUNT = 2
171 KOUNT = 3
183 KOUNT = 4
192 KOUNT = 5
200 KOUNT = 6
209 KOUNT = 7
/dports/math/cmlib/cmlib-3.0_8/test/
H A Dsplp.f180 KOUNT = 1
182 DATTRV(KOUNT) = -FLOAT(MM)
185 KOUNT = KOUNT + 1
186 DATTRV(KOUNT) = FLOAT(KK)
187 KOUNT = KOUNT + 1
188 DATTRV(KOUNT) = D(KK,MM)
190 KOUNT = KOUNT + 1
192 DATTRV(KOUNT) = ZERO
/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/
H A Dsorter.f51 KOUNT=0
66 KOUNT=KOUNT+1
69 KOUNT=0
72 1100 IF(KOUNT.GE.(N+1))GO TO 1110
97 KOUNT=0
112 KOUNT=KOUNT+1
115 KOUNT=0
118 1220 IF(KOUNT.GE.(M+1))GO TO 1230
/dports/science/nwchem-data/nwchem-7.0.2-release/src/fft/pfft1.0/pfft/
H A Dlstcnt.F69 INTEGER KOUNT, I
75 KOUNT = 0
78 $ KOUNT = KOUNT + 1
81 LSTCNT = KOUNT
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/fft/pfft1.0/pfft/
H A Dlstcnt.F69 INTEGER KOUNT, I
75 KOUNT = 0
78 $ KOUNT = KOUNT + 1
81 LSTCNT = KOUNT
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/
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
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
/dports/math/octave/octave-6.4.0/liboctave/external/slatec-err/
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
H A Dxermsg.f217 CALL XERSVE (LIBRAR, SUBROU, MESSG, 1, NERR, LEVEL, KOUNT)
221 IF (LEVEL.EQ.-1 .AND. KOUNT.GT.1) RETURN
239 IF (LEVEL.EQ.0 .AND. MAXMES.GE.0 .AND. KOUNT.GT.MAXMES) GO TO 30
240 IF (LEVEL.EQ.1 .AND. MAXMES.GE.0 .AND. KOUNT.GT.MAXMES
242 IF (LEVEL.EQ.2 .AND. MAXMES.GE.0 .AND. KOUNT.GT.MAX(1,MAXMES))
355 * .AND. (MAXMES.LT.0 .OR. KOUNT.LT.MAX(1,MAXMES))) THEN
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
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
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
352 IF (LKNTRL.GT.0 .AND. KOUNT.LT.MAX(1,MAXMES)) THEN
/dports/math/slatec/src/
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
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
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Dxersve.f66 DIMENSION NERTAB(LENTAB), LEVTAB(LENTAB), KOUNT(LENTAB)
67 SAVE LIBTAB, SUBTAB, MESTAB, NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG
85 * NERTAB(I),LEVTAB(I),KOUNT(I)
135 KOUNT(I) = KOUNT(I) + 1
136 ICOUNT = KOUNT(I)
151 KOUNT (I) = 1
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
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/
H A Dtwodq.f609 INTEGER J,KOUNT,L
674 KOUNT = 1
690 KOUNT = KOUNT+1
709 KOUNT = 2
711 DRESC = DRESC+(ABS(FV(KOUNT)-RES6)+ABS(FV(KOUNT+1)-RES6)+ABS(
713 KOUNT = KOUNT+3
846 KOUNT = 1
862 KOUNT = KOUNT+1
881 KOUNT = 2
883 DRESC = DRESC+(ABS(FV(KOUNT)-RES9)+ABS(FV(KOUNT+1)-RES9)+ABS(
[all …]
/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/
H A Dsb03ot.f251 KOUNT = 1
255 IF ( KOUNT.LE.N ) THEN
256 K = KOUNT
259 KOUNT = KOUNT + 1
262 KOUNT = KOUNT + 1
271 KOUNT = KOUNT + 2
615 KOUNT = N
620 K = KOUNT
623 KOUNT = KOUNT - 1
626 KOUNT = KOUNT - 1
[all …]

123456