Home
last modified time | relevance | path

Searched refs:MMAX (Results 1 – 25 of 565) sorted by relevance

12345678910>>...23

/dports/math/math77/MATH77/demo/
H A Ddrdsvdrs.f18 integer MMAX, NMAX variable
19 parameter(MMAX = 11, NMAX = 3)
20 double precision A(MMAX,NMAX), B(MMAX), C(NMAX), DOF, PI, RNORM
22 double precision VAR, WORK(2*NMAX), X(MMAX),Y(MMAX)
30 M = MMAX
42 call DSVDRS(A, MMAX, M, N, B, MMAX, 1, SING, WORK)
72 C(I) = DDOT(N, A(I,1), MMAX, B, 1)
81 call DCOV3(A, MMAX, N, SING, VAR, WORK, IERR)
H A Ddrdhfti.f16 integer MMAX, NMAX variable
18 parameter(MMAX=11, NMAX=3)
20 double precision X(MMAX),Y(MMAX),A(MMAX,NMAX),C(MMAX)
29 data M, N, NC, TAU/ MMAX, NMAX, 1, 0.0D0/
39 call DHFTI (A,MMAX,M,N,C,MMAX,NC,TAU,KRANK,RNORM,WORK,IP)
47 call DCOV2( A, MMAX, N, IP, VAR, IERR)
H A Ddrssvdrs.f18 integer MMAX, NMAX variable
19 parameter(MMAX = 11, NMAX = 3)
20 real A(MMAX,NMAX), B(MMAX), C(NMAX), DOF, PI, RNORM
22 real VAR, WORK(2*NMAX), X(MMAX),Y(MMAX)
30 M = MMAX
42 call SSVDRS(A, MMAX, M, N, B, MMAX, 1, SING, WORK)
72 C(I) = SDOT(N, A(I,1), MMAX, B, 1)
81 call SCOV3(A, MMAX, N, SING, VAR, WORK, IERR)
H A Ddrshfti.f16 integer MMAX, NMAX variable
18 parameter(MMAX=11, NMAX=3)
20 real X(MMAX),Y(MMAX),A(MMAX,NMAX),C(MMAX)
29 data M, N, NC, TAU/ MMAX, NMAX, 1, 0.0E0/
39 call SHFTI (A,MMAX,M,N,C,MMAX,NC,TAU,KRANK,RNORM,WORK,IP)
47 call SCOV2( A, MMAX, N, IP, VAR, IERR)
H A Ddrdsva.f14 integer I, J, KPVEC(4), M, MDATA, MMAX, N, NMAX, NMAX2 variable
15 parameter(MMAX = 15, NMAX = 5, NMAX2 = NMAX*2)
16 double precision A(MMAX,NMAX), B(MMAX), SING(NMAX)
46 M = MMAX
64 call DSVA(A, MMAX, M, N, MDATA, B, SING, KPVEC, NAMES, 1, D, WORK)
H A Ddrdmlc01.f20 integer MMAX, NMAX, LIW, LW variable
21 parameter(MMAX = 3, NMAX = 4)
22 parameter(LIW = 4 + MMAX + 2*NMAX)
23 parameter(LW = 3 + MMAX + NMAX*(16 + NMAX))
27 double precision A(MMAX, NMAX), ACC, B(MMAX), FVAL(1), GRAD(NMAX)
62 call DMLC01 (DXLOGX, N, M, MEQ, A, MMAX, B, XL, XU, X, ACC,
H A Ddrsmlc01.f20 integer MMAX, NMAX, LIW, LW variable
21 parameter(MMAX = 3, NMAX = 4)
22 parameter(LIW = 4 + MMAX + 2*NMAX)
23 parameter(LW = 3 + MMAX + NMAX*(16 + NMAX))
27 real A(MMAX, NMAX), ACC, B(MMAX), FVAL(1), GRAD(NMAX)
62 call SMLC01 (SXLOGX, N, M, MEQ, A, MMAX, B, XL, XU, X, ACC,
H A Ddrssva.f14 integer I, J, KPVEC(4), M, MDATA, MMAX, N, NMAX, NMAX2 variable
15 parameter(MMAX = 15, NMAX = 5, NMAX2 = NMAX*2)
16 real A(MMAX,NMAX), B(MMAX), SING(NMAX)
46 M = MMAX
64 call SSVA(A, MMAX, M, N, MDATA, B, SING, KPVEC, NAMES, 1, D, WORK)
/dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/
H A Dsph_dbes.f9023 REAL(DP) :: DJL(MMAX), R(MMAX)
31 DO IR=1,MMAX
36 DO IR=2,MMAX
45 DO IR=1,MMAX
50 DO IR=2,MMAX
59 DO IR=1,MMAX
64 DO IR=2,MMAX
74 DO IR=1,MMAX
79 DO IR=2,MMAX
90 DO IR=1,MMAX
[all …]
/dports/archivers/peazip/peazip-8.1.0.src/
H A Dt_cyccnt.pas32 MMAX = 31;
41 d: array[0..MMAX] of comp;
77 i := n and MMAX;
79 if i=MMAX then begin
81 for i:=1 to MMAX do mv := mv + d[i];
82 mv := mv / (MMAX+1);
84 for i:=1 to MMAX do begin
/dports/math/scilab/scilab-6.1.1/scilab/modules/integer/src/c/
H A Dgenmmax.c18 #define MMAX(Type) {\ macro
59 MMAX(integer1); in C2F()
62 MMAX(integer2); in C2F()
65 MMAX(int) ; in C2F()
68 MMAX(unsigned char); in C2F()
71 MMAX(unsigned short); in C2F()
74 MMAX(unsigned int); in C2F()
/dports/math/math77/MATH77/
H A Ddcft.f108 INTEGER MA, MMAX, MSI local
139 MMAX = 0
143 MMAX = MAX(MM, MMAX)
163 NEEDST = MMAX .GT. MSI
167 if (MMAX .le. MT + 2) then
177 MS = MMAX
178 MT = MMAX - 2
H A Dscft.f108 INTEGER MA, MMAX, MSI local
139 MMAX = 0
143 MMAX = MAX(MM, MMAX)
163 NEEDST = MMAX .GT. MSI
167 if (MMAX .le. MT + 2) then
177 MS = MMAX
178 MT = MMAX - 2
H A Ddrft.f135 INTEGER M1, MA, MMAX, MSI, MU(NDMAX-1) local
181 MMAX = -1
185 IF (MM .GT. MMAX) THEN
187 IF ((MMAX .EQ. 0) .OR. (MM .GT. MAXM)) GO TO 400
188 MMAX = MM
194 NEEDST = MMAX .GT. MSI
198 if (MMAX .le. MT + 2) then
208 MS = MMAX
209 MT = MMAX - 2
213 20 IF (MMAX .EQ. 0) RETURN
/dports/math/cmlib/cmlib-3.0_8/src/slvblk/
H A Dshiftb.f32 INTEGER IPIVOT(NROWI),LAST, IP,J,JMAX,JMAXP1,M,MMAX
34 MMAX = NROWI - LAST
36 IF (MMAX .LT. 1 .OR. JMAX .LT. 1) RETURN
38 DO 10 M=1,MMAX
46 DO 20 M=1,MMAX
/dports/science/afni/afni-AFNI_21.3.16/src/
H A Dtoxx.c4 #define MMAX 82 /* max # colors */ macro
7 static byte rmap[MMAX], gmap[MMAX], bmap[MMAX] ; /* color map */
9 static char alpha[MMAX] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" /* color codes */
35 "Max value of 'xx' is %d.\n\n" , MMAX in main()
88 if( nmap == MMAX ) in main()
89 ERROR_exit("Too many colors (> %d) in input %s\n",MMAX,argv[2]) ; in main()
189 for( ii=0 ; ii < MMAX ; ii++ ){ in SPLASH_decodexx()
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/EIG/
H A Dzckcsd.f184 $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, argument
193 INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT local
247 LDX = MMAX
248 LDU1 = MMAX
249 LDU2 = MMAX
250 LDV1T = MMAX
251 LDV2T = MMAX
252 LWORK = MMAX*MMAX
H A Ddckcsd.f184 $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, argument
193 INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT local
247 LDX = MMAX
248 LDU1 = MMAX
249 LDU2 = MMAX
250 LDV1T = MMAX
251 LDV2T = MMAX
252 LWORK = MMAX*MMAX
H A Dsckcsd.f184 $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, argument
193 INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT local
247 LDX = MMAX
248 LDU1 = MMAX
249 LDU2 = MMAX
250 LDV1T = MMAX
251 LDV2T = MMAX
252 LWORK = MMAX*MMAX
H A Dcckcsd.f184 $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, argument
193 INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT local
247 LDX = MMAX
248 LDU1 = MMAX
249 LDU2 = MMAX
250 LDV1T = MMAX
251 LDV2T = MMAX
252 LWORK = MMAX*MMAX
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/EIG/
H A Dcckcsd.f184 $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, argument
193 INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT local
247 LDX = MMAX
248 LDU1 = MMAX
249 LDU2 = MMAX
250 LDV1T = MMAX
251 LDV2T = MMAX
252 LWORK = MMAX*MMAX
H A Dzckcsd.f184 $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, argument
193 INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT local
247 LDX = MMAX
248 LDU1 = MMAX
249 LDU2 = MMAX
250 LDV1T = MMAX
251 LDV2T = MMAX
252 LWORK = MMAX*MMAX
H A Dsckcsd.f184 $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, argument
193 INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT local
247 LDX = MMAX
248 LDU1 = MMAX
249 LDU2 = MMAX
250 LDV1T = MMAX
251 LDV2T = MMAX
252 LWORK = MMAX*MMAX
H A Ddckcsd.f184 $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, argument
193 INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT local
247 LDX = MMAX
248 LDU1 = MMAX
249 LDU2 = MMAX
250 LDV1T = MMAX
251 LDV2T = MMAX
252 LWORK = MMAX*MMAX
/dports/devel/isa-l/isa-l-2.30.0/examples/ec/
H A Dec_simple_example.c36 #define MMAX 255 macro
68 u8 *frag_ptrs[MMAX]; in main()
71 u8 frag_err_list[MMAX]; in main()
77 u8 decode_index[MMAX]; in main()
102 k = (rand() % (MMAX - 1)) + 1; // Pick k {1 to MMAX - 1} in main()
103 p = (rand() % (MMAX - k)) + 1; // Pick p {1 to MMAX - k} in main()
118 if (m > MMAX || k > KMAX || m < 0 || p < 1 || k < 1) { in main()
232 u8 frag_in_err[MMAX]; in gf_gen_decode_matrix_simple()

12345678910>>...23