/dports/audio/guitarix-lv2/guitarix-0.43.1/tools/ampsim/tensbs/ |
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 …]
|
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
|
/dports/math/cmlib/cmlib-3.0_8/src/xerror/ |
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 …]
|
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
|
/dports/math/cmlib/cmlib-3.0_8/src/twodq/ |
H A D | lqm0.f | 46 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 D | lqm1.f | 46 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 D | splpqx.f | 163 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 D | dplpqx.f | 162 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 D | qxdbvs.f | 145 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 D | splp.f | 180 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 D | sorter.f | 51 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 D | lstcnt.F | 69 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 D | lstcnt.F | 69 INTEGER KOUNT, I 75 KOUNT = 0 78 $ KOUNT = KOUNT + 1 81 LSTCNT = KOUNT
|
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/ |
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
|
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
|
/dports/math/octave/octave-6.4.0/liboctave/external/slatec-err/ |
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
|
H A D | xermsg.f | 217 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 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
|
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 352 IF (LKNTRL.GT.0 .AND. KOUNT.LT.MAX(1,MAXMES)) THEN
|
/dports/math/slatec/src/ |
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
|
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
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | xersve.f | 66 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 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
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/ |
H A D | twodq.f | 609 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 D | sb03ot.f | 251 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 …]
|