/dports/math/math77/MATH77/demo/ |
H A D | drdsvdrs.f | 18 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 D | drdhfti.f | 16 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 D | drssvdrs.f | 18 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 D | drshfti.f | 16 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 D | drdsva.f | 14 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 D | drdmlc01.f | 20 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 D | drsmlc01.f | 20 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 D | drssva.f | 14 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 D | sph_dbes.f90 | 23 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 D | t_cyccnt.pas | 32 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 D | genmmax.c | 18 #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 D | dcft.f | 108 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 D | scft.f | 108 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 D | drft.f | 135 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 D | shiftb.f | 32 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 D | toxx.c | 4 #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 D | zckcsd.f | 184 $ 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 D | dckcsd.f | 184 $ 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 D | sckcsd.f | 184 $ 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 D | cckcsd.f | 184 $ 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 D | cckcsd.f | 184 $ 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 D | zckcsd.f | 184 $ 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 D | sckcsd.f | 184 $ 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 D | dckcsd.f | 184 $ 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 D | ec_simple_example.c | 36 #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()
|