14 parameter( dlen_ = 9 )
15 INTEGER maxn, lwork, liwork
16 parameter( maxn = 200, lwork = 500000,
20 CHARACTER subtests, uplo
21 INTEGER context, iam, info, ipostpad, iprepad, lda,
22 $ mattype, n, nb, npcol, nprocs, nprow
23 DOUBLE PRECISION abstol, thresh
26 INTEGER desca( dlen_ ), iclustr( maxn ), ifail( maxn ),
27 $ iseed( 4 ), iwork( liwork )
28 DOUBLE PRECISION gap( maxn ), rwork( lwork ), win( maxn ),
30 COMPLEX*16 a( maxn*maxn ), copya( maxn*maxn ),
31 $ work( lwork ), z( maxn*maxn )
37 EXTERNAL blacs_exit, blacs_get, blacs_gridinit,
61 abstol = 0.1175494351d-37
64 CALL blacs_pinfo( iam, nprocs )
65 IF( nprocs.LT.1 )
THEN
68 CALL blacs_setup( iam, nprocs )
70 CALL blacs_get( -1, 0, context )
71 CALL blacs_gridinit( context,
'R', nprow, npcol )
73 CALL descinit( desca, n, n, nb, nb, 0, 0, context, lda, info )
75 CALL pzseptst( desca, uplo, n, mattype, subtests, thresh, n,
76 $ abstol, iseed, a, copya, z, lda, win, wnew, ifail,
77 $ iclustr, gap, iprepad, ipostpad, work,
78 $ lwork-iprepad-ipostpad, rwork,
79 $ lwork-iprepad-ipostpad, iwork,
80 $ liwork-iprepad-ipostpad, 6, info )
subroutine descinit(desc, m, n, mb, nb, irsrc, icsrc, ictxt, lld, info)
subroutine pzseptst(desca, uplo, n, mattype, subtests, thresh, order, abstol, iseed, a, copya, z, lda, win, wnew, ifail, iclustr, gap, iprepad, ipostpad, work, lwork, rwork, lrwork, iwork, liwork, nout, info)