| /dports/math/math77/MATH77/ |
| H A D | dtgset.f | 25 TRIANG(6*J-5) = T1
26 TRIANG(6*J-4) = T2
27 TRIANG(6*J-3) = T3
28 TRIANG(6*J-2) = P1
29 TRIANG(6*J-1) = P2
30 TRIANG(6*J) = P3
42 TJ(1) = TRIANG(6*J-5)
43 TJ(2) = TRIANG(6*J-4)
44 TJ(3) = TRIANG(6*J-3)
47 TJ(6) = TRIANG(6*J)
[all …]
|
| H A D | stgset.f | 25 TRIANG(6*J-5) = T1
26 TRIANG(6*J-4) = T2
27 TRIANG(6*J-3) = T3
28 TRIANG(6*J-2) = P1
29 TRIANG(6*J-1) = P2
30 TRIANG(6*J) = P3
42 TJ(1) = TRIANG(6*J-5)
43 TJ(2) = TRIANG(6*J-4)
44 TJ(3) = TRIANG(6*J-3)
47 TJ(6) = TRIANG(6*J)
[all …]
|
| H A D | dtggrd.f | 1 SUBROUTINE DTGGRD(X,Y,NP,IP,W,TRIANG,MT,B,MB,NT,INFO) argument
224 call DTGSET(1,0,0,0,I1,I2,I3,TRIANG,MT)
333 1 JNEW, TRIANG, MT)
375 1 JNEW, TRIANG, MT)
425 call DTGGET(KB4,TRI,TRIANG)
432 20 call DTGPUT(KB4, TRI, TRIANG, MT)
538 call DTGGET(T1,TRI1,TRIANG)
543 call DTGGET(T2,TRI2,TRIANG)
619 call DTGGET( T12,TRI2, TRIANG)
663 call DTGGET( T22,TRI2, TRIANG)
[all …]
|
| H A D | stggrd.f | 1 SUBROUTINE STGGRD(X,Y,NP,IP,W,TRIANG,MT,B,MB,NT,INFO) argument
224 call STGSET(1,0,0,0,I1,I2,I3,TRIANG,MT)
333 1 JNEW, TRIANG, MT)
375 1 JNEW, TRIANG, MT)
425 call STGGET(KB4,TRI,TRIANG)
432 20 call STGPUT(KB4, TRI, TRIANG, MT)
538 call STGGET(T1,TRI1,TRIANG)
543 call STGGET(T2,TRI2,TRIANG)
619 call STGGET( T12,TRI2, TRIANG)
663 call STGGET( T22,TRI2, TRIANG)
[all …]
|
| H A D | dtgprg.f | 1 SUBROUTINE DTGPRG(X,Y,NP,TRIANG,B,NB,NT) argument
24 integer TRIANG(1:*) local
55 CALL DTGGET(I,IPR(2), TRIANG)
|
| H A D | stgprg.f | 1 SUBROUTINE STGPRG(X,Y,NP,TRIANG,B,NB,NT) argument
24 integer TRIANG(1:*) local
55 CALL STGGET(I,IPR(2), TRIANG)
|
| H A D | dtgfnd.f | 1 SUBROUTINE DTGFND(X,Y, TRIANG,NT,Q,INDTRI,TRI,S,MODE) argument
78 integer TRI(7), TRIANG(1:*) local
86 CALL DTGGET(INDTRI,TRI,TRIANG)
|
| H A D | stgfnd.f | 1 SUBROUTINE STGFND(X,Y, TRIANG,NT,Q,INDTRI,TRI,S,MODE) argument
78 integer TRI(7), TRIANG(1:*) local
86 CALL STGGET(INDTRI,TRI,TRIANG)
|
| H A D | dtgpd.f | 1 SUBROUTINE DTGPD (X, Y, Z, DZ, NP, TRIANG, NT, IWORK) argument
104 integer TNOW, TRI(6), TRIANG(1:*), TRSAVE(6) local
131 call DTGGET(IT , TRSAVE, TRIANG)
156 call DTGMOR ( X,Y,Z,NP, TRIANG,W)
163 call DTGMOR (X,Y,Z,NP, TRIANG,W)
241 200 call DTGGET(TNOW,TRI, TRIANG)
311 call DTGGET(TNOW,TRI, TRIANG)
355 SUBROUTINE DTGMOR(X,Y,Z,NP,TRIANG,W) argument
383 integer SUB1(3),TNOW, TRI(6),TRIANG(1:*),V1,V2 local
467 call DTGGET( TNOW,TRI, TRIANG)
[all …]
|
| H A D | stgpd.f | 1 SUBROUTINE STGPD (X, Y, Z, DZ, NP, TRIANG, NT, IWORK) argument
104 integer TNOW, TRI(6), TRIANG(1:*), TRSAVE(6) local
131 call STGGET(IT , TRSAVE, TRIANG)
156 call sTGMOR ( X,Y,Z,NP, TRIANG,W)
163 call sTGMOR (X,Y,Z,NP, TRIANG,W)
241 200 call STGGET(TNOW,TRI, TRIANG)
311 call STGGET(TNOW,TRI, TRIANG)
355 SUBROUTINE sTGMOR(X,Y,Z,NP,TRIANG,W) argument
383 integer SUB1(3),TNOW, TRI(6),TRIANG(1:*),V1,V2 local
467 call STGGET( TNOW,TRI, TRIANG)
[all …]
|
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/ |
| H A D | herdrv.F | 642 TRIANG = .FALSE.
1707 IF (.NOT.TRIANG) WRITE (LUPRI,'(A)')
2422 & IDUMMY,TRIANG,PROPRI,IPRONE)
2425 & IDUMMY,TRIANG,PROPRI,IPRONE)
2491 & IDUMMY,TRIANG,PROPRI,IPRONE)
2503 & IDUMMY,TRIANG,PROPRI,IPRONE)
3513 & TRIANG,PROPRI,IPRONE)
3522 & TRIANG,PROPRI,IPRONE)
3531 & TRIANG,PROPRI,IPRONE)
3560 & IDUMMY,TRIANG,PROPRI,IPRONE)
[all …]
|
| /dports/math/math77/MATH77/demo/ |
| H A D | drdtgfi2.f | 20 integer mode, ncont, np, nt, TRIANG(mt) variable
51 call DTGGRD(X,Y,NP,IP,W,TRIANG,MT,Bdry,MB,NT, INFO)
52 call DTGPRG(X,Y,NP,TRIANG,Bdry,info(2),NT)
69 call DTGPD(X,Y,Z,DZ,NP, TRIANG, NT, IP)
81 call DTGFI( X, Y, Z, DZ, TRIANG, NT, Bdry, Mb,
|
| H A D | drstgfi2.f | 20 integer mode, ncont, np, nt, TRIANG(mt) variable
51 call STGGRD(X,Y,NP,IP,W,TRIANG,MT,Bdry,MB,NT, INFO)
52 call STGPRG(X,Y,NP,TRIANG,Bdry,info(2),NT)
69 call STGPD(X,Y,Z,DZ,NP, TRIANG, NT, IP)
81 call STGFI( X, Y, Z, DZ, TRIANG, NT, Bdry, Mb,
|
| H A D | drdtgfi.f | 19 integer mode, ncont, np, nt, TRIANG(mt) variable
46 call DTGGRD(X,Y,NP,IP,W,TRIANG,MT,Bdry,MB,NT, INFO)
61 call DTGPD(X,Y,Z,DZ,NP, TRIANG, NT, IP)
72 call DTGFI( X, Y, Z, DZ, TRIANG, NT, Bdry, Mb,
|
| H A D | drdtgfi1.f | 19 integer mode, ncont, np, nt, TRIANG(mt) variable
46 call DTGGRD(X,Y,NP,IP,W,TRIANG,MT,Bdry,MB,NT, INFO)
63 call DTGPD(X,Y,Z,DZ,NP, TRIANG, NT, IP)
74 call DTGFI( X, Y, Z, DZ, TRIANG, NT, Bdry, Mb,
|
| H A D | drdtgrec.f | 103 integer ncont, np, nt, nx, ny, TRIANG(mt), filmod variable
136 call DTGGRD(X,Y,NP,IP,W,TRIANG,MT,Bdry,MB,NT, INFO)
142 if(PRTT) call DTGPRG(X,Y,NP,TRIANG,Bdry,INFO(2),NT)
151 call DTGPD(X,Y,Z,DZ,NP, TRIANG, NT, IP)
176 call DTGREC(X,Y,Z,DZ,NP,TRIANG,NT, Bdry, MB, XYLIM,NX,NY,
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/ |
| H A D | slatm4.f | 176 $ TRIANG, IDIST, ISEED, A, LDA )
185 REAL AMAGN, RCOND, TRIANG
427 IF( TRIANG.NE.ZERO ) THEN
434 $ A( JR, JR+1 ) = TRIANG*SLARND( IDIST, ISEED )
440 A( JR, JC ) = TRIANG*SLARND( IDIST, ISEED )
|
| /dports/math/xlapack/lapack-3.10.0/TESTING/EIG/ |
| H A D | slatm4.f | 174 $ TRIANG, IDIST, ISEED, A, LDA )
182 REAL AMAGN, RCOND, TRIANG
424 IF( TRIANG.NE.ZERO ) THEN
431 $ A( JR, JR+1 ) = TRIANG*SLARND( IDIST, ISEED )
437 A( JR, JC ) = TRIANG*SLARND( IDIST, ISEED )
|
| H A D | dlatm4.f | 174 $ TRIANG, IDIST, ISEED, A, LDA )
182 DOUBLE PRECISION AMAGN, RCOND, TRIANG
424 IF( TRIANG.NE.ZERO ) THEN
431 $ A( JR, JR+1 ) = TRIANG*DLARND( IDIST, ISEED )
437 A( JR, JC ) = TRIANG*DLARND( IDIST, ISEED )
|
| /dports/math/blas/lapack-3.10.0/TESTING/EIG/ |
| H A D | slatm4.f | 174 $ TRIANG, IDIST, ISEED, A, LDA )
182 REAL AMAGN, RCOND, TRIANG
424 IF( TRIANG.NE.ZERO ) THEN
431 $ A( JR, JR+1 ) = TRIANG*SLARND( IDIST, ISEED )
437 A( JR, JC ) = TRIANG*SLARND( IDIST, ISEED )
|
| H A D | dlatm4.f | 174 $ TRIANG, IDIST, ISEED, A, LDA )
182 DOUBLE PRECISION AMAGN, RCOND, TRIANG
424 IF( TRIANG.NE.ZERO ) THEN
431 $ A( JR, JR+1 ) = TRIANG*DLARND( IDIST, ISEED )
437 A( JR, JC ) = TRIANG*DLARND( IDIST, ISEED )
|
| /dports/math/lapack/lapack-3.10.0/TESTING/EIG/ |
| H A D | dlatm4.f | 174 $ TRIANG, IDIST, ISEED, A, LDA ) argument
182 DOUBLE PRECISION AMAGN, RCOND, TRIANG local
424 IF( TRIANG.NE.ZERO ) THEN
431 $ A( JR, JR+1 ) = TRIANG*DLARND( IDIST, ISEED )
437 A( JR, JC ) = TRIANG*DLARND( IDIST, ISEED )
|
| H A D | slatm4.f | 174 $ TRIANG, IDIST, ISEED, A, LDA ) argument
182 REAL AMAGN, RCOND, TRIANG local
424 IF( TRIANG.NE.ZERO ) THEN
431 $ A( JR, JR+1 ) = TRIANG*SLARND( IDIST, ISEED )
437 A( JR, JC ) = TRIANG*SLARND( IDIST, ISEED )
|
| /dports/math/lapacke/lapack-3.10.0/TESTING/EIG/ |
| H A D | slatm4.f | 174 $ TRIANG, IDIST, ISEED, A, LDA )
182 REAL AMAGN, RCOND, TRIANG
424 IF( TRIANG.NE.ZERO ) THEN
431 $ A( JR, JR+1 ) = TRIANG*SLARND( IDIST, ISEED )
437 A( JR, JC ) = TRIANG*SLARND( IDIST, ISEED )
|
| H A D | dlatm4.f | 174 $ TRIANG, IDIST, ISEED, A, LDA )
182 DOUBLE PRECISION AMAGN, RCOND, TRIANG
424 IF( TRIANG.NE.ZERO ) THEN
431 $ A( JR, JR+1 ) = TRIANG*DLARND( IDIST, ISEED )
437 A( JR, JC ) = TRIANG*DLARND( IDIST, ISEED )
|