Home
last modified time | relevance | path

Searched refs:MAXN (Results 1 – 25 of 316) sorted by relevance

12345678910>>...13

/dports/math/scalapack/scalapack-2.1.0/TESTING/EIG/
H A Dpdgrptseptst.f15 INTEGER MAXN, LWORK, LIWORK variable
16 PARAMETER ( MAXN = 200, LWORK = 500000,
17 $ LIWORK = 6*MAXN+4 )
26 INTEGER DESCA( DLEN_ ), ICLUSTR( MAXN ), IFAIL( MAXN ),
28 DOUBLE PRECISION A( MAXN*MAXN ), B( MAXN, MAXN ),
29 $ COPYA( MAXN*MAXN ), COPYB( MAXN, MAXN ),
30 $ GAP( MAXN ), WIN( MAXN ), WNEW( MAXN ),
31 $ WORK( LWORK ), Z( MAXN*MAXN )
44 LDA = MAXN
H A Dpsgrptseptst.f13 INTEGER MAXN, LWORK, LIWORK variable
14 PARAMETER ( MAXN = 200, LWORK = 500000,
15 $ LIWORK = 6*MAXN+4 )
24 INTEGER DESCA( DLEN_ ), ICLUSTR( MAXN ), IFAIL( MAXN ),
26 REAL A( MAXN*MAXN ), B( MAXN, MAXN ),
27 $ COPYA( MAXN*MAXN ), COPYB( MAXN, MAXN ),
28 $ GAP( MAXN ), WIN( MAXN ), WNEW( MAXN ),
29 $ WORK( LWORK ), Z( MAXN*MAXN )
42 LDA = MAXN
H A Dpdrptseptst.f15 INTEGER MAXN, LWORK, LIWORK variable
16 PARAMETER ( MAXN = 200, LWORK = 500000,
17 $ LIWORK = 6*MAXN+4 )
26 INTEGER DESCA( DLEN_ ), ICLUSTR( MAXN ), IFAIL( MAXN ),
28 DOUBLE PRECISION A( MAXN*MAXN ), COPYA( MAXN*MAXN ),
29 $ GAP( MAXN ), WIN( MAXN ), WNEW( MAXN ),
30 $ WORK( LWORK ), Z( MAXN*MAXN )
43 LDA = MAXN
H A Dpsrptseptst.f15 INTEGER MAXN, LWORK, LIWORK variable
16 PARAMETER ( MAXN = 200, LWORK = 500000,
17 $ LIWORK = 6*MAXN+4 )
26 INTEGER DESCA( DLEN_ ), ICLUSTR( MAXN ), IFAIL( MAXN ),
28 REAL A( MAXN*MAXN ), COPYA( MAXN*MAXN ),
29 $ GAP( MAXN ), WIN( MAXN ), WNEW( MAXN ),
30 $ WORK( LWORK ), Z( MAXN*MAXN )
43 LDA = MAXN
H A Dpzrptseptst.f15 INTEGER MAXN, LWORK, LIWORK variable
16 PARAMETER ( MAXN = 200, LWORK = 500000,
17 $ LIWORK = 6*MAXN+4 )
26 INTEGER DESCA( DLEN_ ), ICLUSTR( MAXN ), IFAIL( MAXN ),
28 DOUBLE PRECISION GAP( MAXN ), RWORK( LWORK ), WIN( MAXN ),
29 $ WNEW( MAXN )
30 COMPLEX*16 A( MAXN*MAXN ), COPYA( MAXN*MAXN ),
31 $ WORK( LWORK ), Z( MAXN*MAXN )
44 LDA = MAXN
H A Dpcrptseptst.f13 INTEGER MAXN, LWORK, LIWORK variable
14 PARAMETER ( MAXN = 200, LWORK = 500000,
15 $ LIWORK = 6*MAXN+4 )
24 INTEGER DESCA( DLEN_ ), ICLUSTR( MAXN ), IFAIL( MAXN ),
26 REAL GAP( MAXN ), RWORK( LWORK ), WIN( MAXN ),
27 $ WNEW( MAXN )
28 COMPLEX A( MAXN*MAXN ), COPYA( MAXN*MAXN ),
29 $ WORK( LWORK ), Z( MAXN*MAXN )
42 LDA = MAXN
/dports/math/nauty/nauty27r3/
H A Dgtnauty.c75 #if MAXN in setlabptnfmt()
91 #if !MAXN in setlabptnfmt()
160 #if MAXN in fcanonise()
161 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in fcanonise()
180 #if MAXN in fcanonise()
242 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in fcanonise_inv()
328 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in fcanonise_inv_sg()
413 int lab[MAXN],ptn[MAXN]; in fgroup()
513 int lab[MAXN],ptn[MAXN]; in fgroup_inv()
651 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in istransitive()
[all …]
H A Dnautyex1.c7 #define MAXN 1000 /* Define this before including nauty.h */ macro
13 graph g[MAXN*MAXM]; in main()
14 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in main()
32 if (n > MAXN) in main()
34 printf("n must be in the range 1..%d\n",MAXN); in main()
H A Dgutil1.c149 #if MAXN in degstats2()
166 #if !MAXN in degstats2()
337 #if MAXN in isconnected()
338 int queue[MAXN],visited[MAXN]; in isconnected()
385 #if MAXN in issubconnected()
386 int queue[MAXN],visited[MAXN]; in issubconnected()
488 #if MAXN in isbiconnected()
489 int num[MAXN],lp[MAXN],stack[MAXN]; in isbiconnected()
552 #if MAXN in twocolouring()
755 int dist[MAXN],queue[MAXN]; in girth()
[all …]
H A Dwatercluster2.c90 #define MAX_BOGEN ((MAXN*(MAXN-1))/2)
194 int rememberorbits[MAXN][MAXN];
200 graph workg[MAXN], staticg[MAXN], canong[MAXN];
202 int deg[MAXN]={0}, outdeg[MAXN]={0}, indeg[MAXN]={0};
227 int generators[MAXN][MAXN];
328 int lijst[MAXN][MAXN], lengte[MAXN]; in writeBcode_invers()
979 int in_image[MAXN], out_image[MAXN], double_image[MAXN]; in compute_image_operation()
2839 int inorbit[MAXN][MAXN], numberinorbit[MAXN]; in trynextstep()
2974 int inorbit[MAXN][MAXN], numberinorbit[MAXN]; in trynextstep_par()
3458 int inv[MAXN][MAXN]; in compute_par_orbits()
[all …]
/dports/math/py-pynauty/pynauty-1.0.2/src/nauty27r1/
H A Dgtnauty.c75 #if MAXN in setlabptnfmt()
91 #if !MAXN in setlabptnfmt()
160 #if MAXN in fcanonise()
161 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in fcanonise()
180 #if MAXN in fcanonise()
242 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in fcanonise_inv()
328 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in fcanonise_inv_sg()
413 int lab[MAXN],ptn[MAXN]; in fgroup()
513 int lab[MAXN],ptn[MAXN]; in fgroup_inv()
651 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in istransitive()
[all …]
H A Dnautyex1.c7 #define MAXN 1000 /* Define this before including nauty.h */ macro
13 graph g[MAXN*MAXM]; in main()
14 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in main()
32 if (n > MAXN) in main()
34 printf("n must be in the range 1..%d\n",MAXN); in main()
H A Dgutil1.c149 #if MAXN in degstats2()
166 #if !MAXN in degstats2()
337 #if MAXN in isconnected()
338 int queue[MAXN],visited[MAXN]; in isconnected()
385 #if MAXN in issubconnected()
386 int queue[MAXN],visited[MAXN]; in issubconnected()
488 #if MAXN in isbiconnected()
489 int num[MAXN],lp[MAXN],stack[MAXN]; in isbiconnected()
552 #if MAXN in twocolouring()
755 int dist[MAXN],queue[MAXN]; in girth()
[all …]
H A Dwatercluster2.c90 #define MAX_BOGEN ((MAXN*(MAXN-1))/2)
194 int rememberorbits[MAXN][MAXN];
200 graph workg[MAXN], staticg[MAXN], canong[MAXN];
202 int deg[MAXN]={0}, outdeg[MAXN]={0}, indeg[MAXN]={0};
253 int maxindeg=MAXN, maxoutdeg=MAXN, maxdirectdeg=MAXN, nodegbound=1;
328 int lijst[MAXN][MAXN], lengte[MAXN]; in writeBcode_invers()
979 int in_image[MAXN], out_image[MAXN], double_image[MAXN]; in compute_image_operation()
2839 int inorbit[MAXN][MAXN], numberinorbit[MAXN]; in trynextstep()
2974 int inorbit[MAXN][MAXN], numberinorbit[MAXN]; in trynextstep_par()
3458 int inv[MAXN][MAXN]; in compute_par_orbits()
[all …]
/dports/math/gap/gap-4.11.0/pkg/grape-4.8.3/nauty22/
H A Dgtnauty.c64 #if MAXN in fcanonise()
65 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in fcanonise()
85 #if MAXN in fcanonise()
184 #if MAXN in fcanonise_inv()
185 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in fcanonise_inv()
205 #if MAXN in fcanonise_inv()
308 #if MAXN in fgroup()
309 int lab[MAXN],ptn[MAXN]; in fgroup()
445 int lab[MAXN],ptn[MAXN]; in fgroup_inv()
620 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in istransitive()
[all …]
H A Dgutil1.c95 #if MAXN in isconnected()
96 int queue[MAXN],visited[MAXN]; in isconnected()
104 #if !MAXN in isconnected()
141 #if MAXN in issubconnected()
142 int queue[MAXN],visited[MAXN]; in issubconnected()
244 #if MAXN in isbiconnected()
245 int num[MAXN],lp[MAXN],stack[MAXN]; in isbiconnected()
307 #if MAXN in twocolouring()
356 #if MAXN in isbipartite()
381 int dist[MAXN],queue[MAXN]; in girth()
[all …]
H A Dnautyex.c8 #define MAXN 100 macro
14 graph g[MAXN*MAXM]; in main()
15 int lab[MAXN],ptn[MAXN],orbits[MAXN]; in main()
30 if (n > MAXN) in main()
32 printf("n must be in the range 1..%d\n",MAXN); in main()
/dports/math/gambit/gambit-16.0.1/library/src/enummixed/
H A Dclique.h188 #define MAXN MAXM // max. no of right nodes for incidence matrix macro
196 #define STKSIZE (MAXM + 1) * (MAXN + 1)
227 bool connected[MAXM][MAXN],
238 bool connected[MAXM][MAXN],
246 int orignode2[MAXN]);
248 bool connected[MAXM][MAXN],
255 int orignode2[MAXN]);
257 bool connected[MAXM][MAXN],
271 int orignode2[MAXN],
272 bool connected[MAXM][MAXN],
[all …]
/dports/math/openblas/TIMING/EIG/
H A Dctimee.f255 INTEGER MAXN, LDAMAX, LG2MXN
256 PARAMETER ( MAXN = 400, LDAMAX = MAXN+20, LG2MXN = 9 )
260 PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN )
262 PARAMETER ( LWORK = 2*LDAMAX+1+3*MAXN+2*MAXN*LG2MXN+
263 $ 4*MAXN**2 )
269 $ 1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 )
288 REAL AR( LDAMAX*MAXN, 2*NEED ), DR( MAXN, 2*NEED ),
293 COMPLEX A( LDAMAX*MAXN, NEED ), D( MAXN, NEED ),
387 ELSE IF( MVAL( I ).GT.MAXN ) THEN
496 NBMVAL( I ) = MAXN + 1
[all …]
H A Dztimee.f255 INTEGER MAXN, LDAMAX, LG2MXN
256 PARAMETER ( MAXN = 400, LDAMAX = MAXN+20, LG2MXN = 9 )
260 PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN )
262 PARAMETER ( LWORK = 2*LDAMAX+1+3*MAXN+2*MAXN*LG2MXN+
263 $ 4*MAXN**2 )
269 $ 1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 )
288 DOUBLE PRECISION AR( LDAMAX*MAXN, 2*NEED ), DR( MAXN, 2*NEED ),
293 COMPLEX*16 A( LDAMAX*MAXN, NEED ), D( MAXN, NEED ),
387 ELSE IF( MVAL( I ).GT.MAXN ) THEN
496 NBMVAL( I ) = MAXN + 1
[all …]
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/
H A Dctimee.f255 INTEGER MAXN, LDAMAX, LG2MXN variable
256 PARAMETER ( MAXN = 400, LDAMAX = MAXN+20, LG2MXN = 9 )
260 PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN )
262 PARAMETER ( LWORK = 2*LDAMAX+1+3*MAXN+2*MAXN*LG2MXN+
263 $ 4*MAXN**2 )
269 $ 1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 )
288 REAL AR( LDAMAX*MAXN, 2*NEED ), DR( MAXN, 2*NEED ),
293 COMPLEX A( LDAMAX*MAXN, NEED ), D( MAXN, NEED ),
387 ELSE IF( MVAL( I ).GT.MAXN ) THEN
496 NBMVAL( I ) = MAXN + 1
[all …]
H A Dztimee.f255 INTEGER MAXN, LDAMAX, LG2MXN
256 PARAMETER ( MAXN = 400, LDAMAX = MAXN+20, LG2MXN = 9 )
260 PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN )
262 PARAMETER ( LWORK = 2*LDAMAX+1+3*MAXN+2*MAXN*LG2MXN+
263 $ 4*MAXN**2 )
269 $ 1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 )
288 DOUBLE PRECISION AR( LDAMAX*MAXN, 2*NEED ), DR( MAXN, 2*NEED ),
293 COMPLEX*16 A( LDAMAX*MAXN, NEED ), D( MAXN, NEED ),
387 ELSE IF( MVAL( I ).GT.MAXN ) THEN
496 NBMVAL( I ) = MAXN + 1
[all …]
/dports/math/cmlib/cmlib-3.0_8/test/
H A Dvfft.f70 PARAMETER (MAXN=20, MAXSEQ=20, NWORK=3*MAXN+15)
71 REAL X(MAXSEQ,MAXN+1), XT(MAXSEQ,MAXN+1), WORK(NWORK)
72 REAL SAVE(MAXSEQ,MAXN+1)
81 DO 10 J=1,MAXN
89 + KPRINT,IPASS,MAXN,MAXSEQ,X,XT,WORK,SAVE)
91 + KPRINT,IPASS,MAXN,MAXSEQ,X,XT,WORK,SAVE)
93 + KPRINT,IPASS,MAXN,MAXSEQ,X,XT,WORK,SAVE)
95 + KPRINT,IPASS,MAXN,MAXSEQ,X,XT,WORK,SAVE)
107 + MAXN,MAXSEQ,X,XT,WORK,SAVE)
125 DO 500 N=1,MAXN
/dports/math/slatec/
H A Ddpchq4.f68 INTEGER MAXN, MAXN2, MAXN3, NB
69 PARAMETER (MAXN = 16, MAXN2 = 8, MAXN3 = 6, NB = 7)
70 INTEGER I, IERR, IFAIL, INCFD, ISMEX1(MAXN), ISMEX2(MAXN2),
71 * ISMEX3(MAXN3), ISMEXB(NB), ISMON(MAXN), K, N, NS(3)
72 DOUBLE PRECISION D(MAXN), DB(NB), F(MAXN), FB(NB), X(MAXN)
91 DO 1 I = 1, MAXN
95 DO 2 I = 2, MAXN, 3
129 DO 20 I = NB+1, MAXN
207 DO 40 I = 1, MAXN
H A Dpchqk4.f67 INTEGER MAXN, MAXN2, MAXN3, NB
68 PARAMETER (MAXN = 16, MAXN2 = 8, MAXN3 = 6, NB = 7)
69 INTEGER I, IERR, IFAIL, INCFD, ISMEX1(MAXN), ISMEX2(MAXN2),
70 * ISMEX3(MAXN3), ISMEXB(NB), ISMON(MAXN), K, N, NS(3)
71 REAL D(MAXN), DB(NB), F(MAXN), FB(NB), X(MAXN)
90 DO 1 I = 1, MAXN
94 DO 2 I = 2, MAXN, 3
128 DO 20 I = NB+1, MAXN
206 DO 40 I = 1, MAXN

12345678910>>...13