| /dports/math/cmlib/cmlib-3.0_8/src/cluster/ |
| H A D | search.f | 1 SUBROUTINE SEARCH(M, DMD, D, K, ITER, ALPHA, DMWORK, DMWRK1, argument
106 INTEGER DMWORK, DMWRK1, DMWRK2, DMD, OUNIT
107 DIMENSION IWORK(*), WORK1(DMWORK, DMWRK1,*), WORK2(DMWRK2,*),
115 CALL TRDIST(M, DMD, D, DMWORK, DMWRK1, WORK1)
141 CALL TRIAD(I,M,K,IWORK,DMWORK,DMWRK1,WORK1,DMWRK2,
154 CALL TRIAD(K,M,K,IWORK,DMWORK,DMWRK1,WORK1,DMWRK2,WORK2,TT,
|
| H A D | sparse.f | 2 * DMWRK1, WORK1, DMWRK2, WORK2, CWORK, OUNIT)
106 INTEGER DMWRK1, DMWRK2, DMCOV, OUNIT
107 DIMENSION COV(DMCOV,*), WORK1(DMWRK1,*), WORK2(DMWRK2,*), A(MM,*)
151 CALL OUT(DMWRK1,N,KK,WORK1,CWORK(N+1),CWORK(1),BTITLE,OUNIT)
|
| H A D | aid.f | 3 * DMWRK1, WORK1, WORK2, OUNIT)
129 INTEGER DMIWRK, DMWRK1, OUNIT
130 DIMENSION A(MM,*), WORK1(DMWRK1,*), IWORK(DMIWRK,*), WORK2(*)
223 * IWORK,DMWRK1,WORK1,OUNIT)
|
| H A D | mix.f | 2 * DMWORK, WORK1, DMWRK1, DMWRK2, WORK2, DMWRK3,
153 INTEGER OUNIT, P, U, PMIX, T, DMWORK, DMWRK1, DMWRK2, DMWRK3
154 DIMENSION A(MM,*), WORK1(DMWORK,*), WORK2(DMWRK1,DMWRK2,*),
180 40 CALL MOM(MM,M,N,A,J,WORK1(P+1,J),WORK1(U+1,J),DMWRK1,
220 * DMWRK1,DMWRK2,WORK2,WORK1(T+1,1),OUNIT)
|
| /dports/math/cmlib/cmlib-3.0_8/test/ |
| H A D | cluster.f | 72 INTEGER OUNIT, DMWRK1, DMIWRK, DMSUM1, DMSUM2 local
107 DMWRK1 = 10
115 CALL TWO(MM, M, N, A, CLAB, RLAB, TITLE, DMWRK1, WORK1, COVLAB,
172 CALL JOIN2(MM, M, N, A, CLAB, RLAB, TITLE, KC, TH, DMWRK1, WORK1,
|
| /dports/math/cmlib/cmlib-3.0_8/doc/cluster/ |
| H A D | sparse | 3 * DMWRK1, WORK1, DMWRK2, WORK2, CWORK, OUNIT)
77 C DMWRK1 INTEGER SCALAR (UNCHANGED ON OUTPUT).
81 C WORK1 REAL MATRIX WHOSE FIRST DIMENSION MUST BE DMWRK1 AND WHOSE
|
| H A D | search | 2 SUBROUTINE SEARCH(M, DMD, D, K, ITER, ALPHA, DMWORK, DMWRK1,
78 C DMWRK1 INTEGER SCALAR (UNCHANGED ON OUTPUT).
82 C DIMENSION MUST BE AT DMWRK1, AND WHOSE THIRD DIMENSION MUST
|
| H A D | aid | 3 * DMWRK1, WORK1, WORK2, OUNIT)
104 C DMWRK1 INTEGER SCALAR (UNCHANGED ON OUTPUT).
107 C WORK1 REAL MATRIX WHOSE FIRST DIMENSION MUST BE DMWRK1 AND SECOND
|
| H A D | mix | 3 * DMWORK, WORK1, DMWRK1, DMWRK2, WORK2, DMWRK3,
106 C DMWRK1 INTEGER SCALAR (UNCHANGED ON OUTPUT).
113 C WORK2 REAL MATRIX WHOSE FIRST DIMENSION MUST BE DMWRK1, WHOSE SECOND
|
| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
| H A D | cluster.F | 2228 * NCOV, DMWORK, WORK1, DMWRK1, DMWRK2, WORK2, DMWRK3, argument
2381 INTEGER P, U, PMIX, T, DMWORK, DMWRK1, DMWRK2, DMWRK3 local
2382 DIMENSION A(MM,*), WORK1(DMWORK,*), WORK2(DMWRK1,DMWRK2,*),
2418 CALL CLUMOM(MM,M,N,A,J,WORK1(P+1,J),WORK1(U+1,J),DMWRK1,
2469 * DMWRK1,DMWRK2,WORK2,WORK1(T+1,1),
|