H A D | cluster.F | 717 1 DMSUM1, DMSUM2, SUM, IWORK, WORK, CWORK) argument 825 INTEGER DMSUM1, DMSUM2, DCLUS local 826 DIMENSION SUM(DMSUM1,DMSUM2,*), A(MM,*), WORK(*), IWORK(*) 886 CALL KMEANS(N, WORK, KK, XMISS, DMSUM1, DMSUM2, SUM, 894 * DMSUM1, DMSUM2, SUM, IWORK, WORK(DCLUS+1), 1906 SUBROUTINE KMEANS(N, X, K, XMISS, DMSUM1, DMSUM2, SUM, JMIN, DMIN) argument 1967 INTEGER DMSUM1, DMSUM2 local 1968 DIMENSION SUM(DMSUM1,DMSUM2,*), X(*) 2002 * DMSUM2, SUM, NCLUS, DCLUS, DD, R, CWORK) argument 2105 INTEGER DMSUM1, DMSUM2 local [all …]
|