/dports/math/scalapack/scalapack-2.1.0/TESTING/EIG/ |
H A D | pdgrptseptst.f | 15 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 D | psgrptseptst.f | 13 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 D | pdrptseptst.f | 15 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 D | psrptseptst.f | 15 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 D | pzrptseptst.f | 15 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 D | pcrptseptst.f | 13 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 D | gtnauty.c | 75 #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 D | nautyex1.c | 7 #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 D | gutil1.c | 149 #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 D | watercluster2.c | 90 #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 D | gtnauty.c | 75 #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 D | nautyex1.c | 7 #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 D | gutil1.c | 149 #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 D | watercluster2.c | 90 #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 D | gtnauty.c | 64 #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 D | gutil1.c | 95 #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 D | nautyex.c | 8 #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 D | clique.h | 188 #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 D | ctimee.f | 255 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 D | ztimee.f | 255 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 D | ctimee.f | 255 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 D | ztimee.f | 255 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 D | vfft.f | 70 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 D | dpchq4.f | 68 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 D | pchqk4.f | 67 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
|