/dports/math/cmlib/cmlib-3.0_8/src/cluster/ |
H A D | dot.f | 3 * OUNIT) 173 INTEGER DMIWRK, DMWORK, OUNIT 191 IF (OUNIT .GT. 0) WRITE(OUNIT,1) 205 * OUNIT) 220 IF (OUNIT .GT. 0) WRITE(OUNIT,1) 227 IF (OUNIT .GT. 0) WRITE(OUNIT,2) I,J,KL 244 IF (OUNIT .GT. 0) WRITE(OUNIT,3) 263 IF (OUNIT .GT. 0) WRITE(OUNIT,7) J,RLAB(J),(CWORK2(L),L=1,KT) 270 IF (OUNIT .GT. 0) THEN 271 WRITE(OUNIT,4)((I,J=1,10),I=1,IKT) [all …]
|
H A D | pmany.f | 2 * OUNIT) 96 INTEGER OUNIT 115 IF (OUNIT .GT. 0) WRITE(OUNIT,8) 123 IF (OUNIT .GT. 0) WRITE(OUNIT,1) 129 IF (OUNIT .GT. 0) WRITE(OUNIT,2) TITLE 158 IF (OUNIT .GT. 0) THEN 159 WRITE(OUNIT,3) AAL 160 WRITE(OUNIT,6)(AH(I),I=1,122) 208 IF (OUNIT .GT. 0) THEN 219 IF (OUNIT .GT. 0) THEN [all …]
|
H A D | sparse.f | 2 * DMWRK1, WORK1, DMWRK2, WORK2, CWORK, OUNIT) 106 INTEGER DMWRK1, DMWRK2, DMCOV, OUNIT 119 IF (OUNIT .GT. 0) WRITE(OUNIT,1) 121 CALL OUT(DMCOV,N,N,COV,CWORK(1),CWORK(1),CTITLE,OUNIT) 141 IF (OUNIT .GT. 0) WRITE(OUNIT,2) 144 CALL OUT(DMWRK2,N,N,WORK2,CWORK(1),CWORK(1),RTITLE,OUNIT) 148 IF (OUNIT .GT. 0) WRITE(OUNIT,3) 151 CALL OUT(DMWRK1,N,KK,WORK1,CWORK(N+1),CWORK(1),BTITLE,OUNIT) 159 IF (OUNIT .GT. 0) WRITE(OUNIT,4) SS,(WORK1(N+1,K),K=1,KK) 166 IF (OUNIT .GT. 0) WRITE(OUNIT,5)(WORK1(N+1,K),K=1,KK)
|
H A D | covout.f | 2 * WORK1, DMC1, DMC2, C, WORK, OUNIT) 29 INTEGER DMWORK, P, U, PMIX, DMC1, DMC2, OUNIT 37 WRITE(OUNIT,1) TITLE,K 39 WRITE(OUNIT,2)(KK,KK=1,K) 44 WRITE(OUNIT,3)(WORK1(PMIX,KK),KK=1,K) 49 WRITE(OUNIT,4) 52 10 WRITE(OUNIT,5)CLAB(J),(WORK1(U+J,KK),KK=1,K) 54 WRITE(OUNIT,6)(C(1,N+1,J),J=1,K) 56 WRITE(OUNIT,7) 65 IF(I.EQ.J) WRITE(OUNIT,8) [all …]
|
H A D | kout.f | 102 INTEGER DMSUM1, DMSUM2, OUNIT 112 WRITE(OUNIT,1) NPAGE 114 WRITE(OUNIT,2) KK 141 WRITE(OUNIT,4) ASSW 148 WRITE(OUNIT,5) 150 WRITE(OUNIT,6) K,KK 152 WRITE(OUNIT,7)(I,I=1,10) 163 WRITE(OUNIT,8)(CWORK(LL),LL=1,L) 164 WRITE(OUNIT,9)(DD(LL),LL=1,L) 170 WRITE(OUNIT,11) [all …]
|
H A D | mixout.f | 2 * WORK1, WORK2, OUNIT) 32 INTEGER DMWORK, U, P, PMIX, OUNIT 40 WRITE(OUNIT,1) TITLE,K 45 WRITE(OUNIT,2)(WORK2(J),CLAB(J),J=1,N) 50 WRITE(OUNIT,3)(KK,KK=1,K) 52 WRITE(OUNIT,4)(WORK1(PMIX,KK),KK=1,K) 57 WRITE(OUNIT,5) 60 10 WRITE(OUNIT,6) CLAB(J),(WORK1(U+J,KK),KK=1,K) 65 WRITE(OUNIT,7) 68 20 WRITE(OUNIT,8) RLAB(I),(WORK1(P+I,KK),KK=1,K)
|
H A D | search.f | 2 * WORK1, DMWRK2, WORK2, IWORK, OUNIT) 106 INTEGER DMWORK, DMWRK1, DMWRK2, DMD, OUNIT 110 IF (OUNIT .GT. 0) WRITE(OUNIT,1) 129 IF (OUNIT .GT. 0) WRITE(OUNIT,2) 158 IF (OUNIT .GT. 0) WRITE(OUNIT,3) I,JJ,FT,TT 161 IF (OUNIT .GT. 0) WRITE(OUNIT,2) 162 50 CALL MTREE(M,K,IWORK(1),IWORK(K+1),OUNIT)
|
H A D | boxes.f | 2 * IVAR, IERR, OUNIT) 151 INTEGER NCS(3), NW(3), OUNIT 167 IF (OUNIT .LE. 0) RETURN 168 WRITE(OUNIT,1) 170 WRITE(OUNIT,2) 173 IF(K.EQ.1) WRITE(OUNIT,3) 175 IF(K.EQ.2) WRITE(OUNIT,4) 177 IF(K.EQ.3) WRITE(OUNIT,5) 187 WRITE(OUNIT,7) 192 WRITE(OUNIT,8) NDD [all …]
|
H A D | out1.f | 2 * OUNIT) 77 INTEGER DMNB, OUNIT 83 IF (OUNIT .LE. 0) RETURN 84 WRITE(OUNIT,1)TITLE 91 WRITE(OUNIT,2) TITLE, (CLAB(J),J=JL,JU) 92 WRITE(OUNIT,3)(DASH,J=JL,JU+1) 96 WRITE(OUNIT,4)RLAB(I),(A(I,J),J=JL,JU) 106 IF(NC.NE.0) WRITE(OUNIT,3)(AA(L),L=1,20) 108 IF (LL .NE. 1) WRITE(OUNIT,5)
|
H A D | nbtomt.f | 1 SUBROUTINE NBTOMT(M, K, DMNB, NB, KT, MT, IERR, OUNIT) argument 74 INTEGER DMNB, OUNIT 83 IF (OUNIT .GT. 0) WRITE(OUNIT,1) I 87 IF (OUNIT .GT. 0) WRITE(OUNIT,2) I 91 IF (OUNIT .GT. 0) WRITE(OUNIT,3) I, M 109 IF (OUNIT .GT. 0) WRITE(OUNIT,4) I, J
|
H A D | rank.f | 1 SUBROUTINE RANK(MM, M, N, A, CLAB, RLAB, TITLE, IWORK, OUNIT) argument 67 INTEGER OUNIT 71 IF (OUNIT .GT. 0) THEN 72 WRITE(OUNIT,1) TITLE 73 WRITE(OUNIT,2)(CLAB(J),J=1,N) 74 WRITE(OUNIT,3) 100 IF (OUNIT .GT. 0) THEN 102 50 WRITE(OUNIT,2) (RLAB(INT(A(I,J))),J=1,N)
|
H A D | plot.f | 1 SUBROUTINE PLOT(NPLOTS, NPTS, PTS, LABELS, XCHARS, OUNIT) argument 68 INTEGER OUNIT 116 IF (OUNIT .LE. 0) RETURN 117 WRITE(OUNIT,1) 120 WRITE(OUNIT,2)(XCHARS(J),LABELS(1,J),X1,X2,LABELS(2,J),Y1,Y2, 123 WRITE(OUNIT,4) 125 WRITE(OUNIT,5) 127 WRITE(OUNIT,6)((A(I,J),J=1,26),I=1,51) 129 WRITE(OUNIT,5)
|
H A D | ditout.f | 2 * OUNIT) 66 INTEGER OUNIT 72 WRITE(OUNIT,1) TITLE 74 WRITE(OUNIT,2) 81 10 WRITE(OUNIT,3)(CLAB(J),J=K,N,5) 84 20 WRITE(OUNIT,4) (X(1,J),J=1,N) 93 IF(NC.EQ.1) WRITE(OUNIT,5) K,(X(K,J),J=1,N) 99 WRITE(OUNIT,6) RLAB(I),(AA(J),J=1,N)
|
H A D | hist.f | 1 SUBROUTINE HIST(NPTS, X, XMIN, XMAX, NI, P, TITLE, OUNIT) argument 68 INTEGER KC, A(101), OUNIT 109 IF (OUNIT .LE. 0) RETURN 111 WRITE(OUNIT,1) TITLE 112 WRITE(OUNIT,2) 122 80 WRITE(OUNIT,3) KK,(AA(I),I=1,101) 124 WRITE(OUNIT,2) 125 WRITE(OUNIT,4) XMIN,XMAX
|
H A D | varco.f | 3 * CWORK, IERR, OUNIT) 188 INTEGER X, Y, XN, V, DMIWRK, DMWORK, OUNIT 211 * CWORK(M+N+1),IERR,OUNIT) 229 CALL NBTOMT(M+1,M,DMIWRK,IWORK1,KT,IWORK2(1),IERR,OUNIT) 253 IF (OUNIT .GT. 0) THEN 254 WRITE(OUNIT,1) 262 IF (OUNIT .GT. 0) THEN 263 WRITE(OUNIT,3) XLL 264 WRITE(OUNIT,4) 346 IF (OUNIT .GT. 0) WRITE(OUNIT,6) (CWORK(M+N+I),I=2,M+1) [all …]
|
H A D | out.f | 1 SUBROUTINE OUT(MM, M, N, A, CLAB, RLAB, TITLE, OUNIT) argument 60 INTEGER OUNIT 64 IF (OUNIT .LE. 0) RETURN 65 WRITE(OUNIT,1) TITLE 66 WRITE(OUNIT,2)(CLAB(I),I=1,N) 68 10 WRITE(OUNIT,3) RLAB(I), (A(I,J),J=1,N)
|
H A D | line.f | 1 SUBROUTINE LINE(MM, M, N, A, CLAB, RLAB, TITLE, R, S, OUNIT) argument 84 INTEGER OUNIT 113 IF (OUNIT .LE. 0) RETURN 114 WRITE(OUNIT,1) TITLE 115 WRITE(OUNIT,2) 116 WRITE(OUNIT,3)(CLAB(J),S(J),R(1,J),R(2,J),J=1,N) 117 WRITE(OUNIT,4) 140 WRITE(OUNIT,5) RLAB(I),(AA(J),J=1,105)
|
H A D | fish.f | 2 * IWORK, OUNIT) 82 INTEGER DMWORK, DMIWRK, OUNIT 94 IF (OUNIT .GT. 0) THEN 95 WRITE(OUNIT,1) 97 CALL OUT(1,M,1,X,VLAB,RLAB,TITLE,OUNIT) 126 IF (OUNIT .GT. 0) CALL PFISH(M, X, K, DMWORK, WORK, DMIWRK, 127 * IWORK, OUNIT)
|
H A D | prof.f | 2 * WORK2, IERR, OUNIT) 118 INTEGER DMWRK2, B, EIGVL, OUNIT 132 * OUNIT) 198 IF (OUNIT .GT. 0) THEN 199 WRITE(OUNIT,1) TITLE 201 WRITE(OUNIT,2) 207 IF (OUNIT .GT. 0) THEN 208 WRITE(OUNIT,3) CLAB(J),Y2,Y1 239 IF (OUNIT .GT. 0) THEN 240 WRITE(OUNIT,5) IL,(AA(I),I=1,25)
|
H A D | letree.f | 2 * IWORK, IERR, OUNIT) 109 INTEGER DMIWRK, OUNIT 141 IF (OUNIT .GT. 0) WRITE(OUNIT,1) KC 160 IF (OUNIT .GT. 0) WRITE(OUNIT,2) 162 CALL TREE1(M1,NC,DMIWRK,IWORK,CWORK(KC+1),IERR,OUNIT)
|
H A D | aidout.f | 2 * DMSP, SP, OUNIT) 84 INTEGER DMNB, DMSP, OUNIT 88 WRITE(OUNIT,1) CLAB(JP),TH 91 WRITE(OUNIT,2) (RLAB(I),I=1,M) 93 WRITE(OUNIT,3) 102 WRITE(OUNIT,4) RLAB(IL),RLAB(IU),CLAB(JS),(SP(I,K),I=2,6)
|
H A D | mhist.f | 3 * OUNIT) 120 INTEGER DMWORK, DMIWRK, OUNIT 141 IF (OUNIT .GT. 0) 142 * WRITE(OUNIT,1) TITLE,(CLAB(J),XMIN(J),XMAX(J),J=1,N) 178 IF (OUNIT .GT. 0) WRITE(OUNIT,2) (AA(I),I=1,112) 211 IF (OUNIT .GT. 0) WRITE(OUNIT,3) CLAB(J),(AA(I),I=1,112) 216 130 IF (OUNIT .GT. 0) WRITE(OUNIT,4)(AA(I),I=1,112)
|
H A D | block.f | 2 * IERR, OUNIT) 105 INTEGER DMNB, OUNIT 115 IF (OUNIT .LE. 0) RETURN 119 WRITE(OUNIT,1) K 120 WRITE(OUNIT,6) (NB(I,K)-1,I=1,4) 136 WRITE(OUNIT,2) TITLE 141 WRITE(OUNIT,3)(CLAB(J),J=JLP,JUP) 166 WRITE(OUNIT,4) RLAB(I1),(AA(J),IA(J),J=1,JR),AA(JR+1) 191 WRITE(OUNIT,5)(AA(J),AE(J),J=1,JR),AA(JR+1)
|
H A D | pfish.f | 1 SUBROUTINE PFISH(M, X, K, NSG, SG, NMG, MG, OUNIT) argument 61 INTEGER OUNIT 63 WRITE(OUNIT,1) M,K 68 WRITE(OUNIT,2)JJ,SG(M,JJ) 70 WRITE(OUNIT,3) 86 WRITE(OUNIT,4) LL,SN,S,SS
|
H A D | quick.f | 2 * NC, IWORK, OUNIT) 90 INTEGER OUNIT 143 IF (OUNIT .LE. 0) RETURN 144 WRITE(OUNIT,1) 148 40 WRITE(OUNIT,2) K, RLAB(I),(A(I,J),J=1,N) 150 WRITE(OUNIT,3) 165 50 IF(J.EQ.20.OR.(I.EQ.M.AND.J.NE.0)) WRITE(OUNIT,4) KK,(AA(JJ),
|