Home
last modified time | relevance | path

Searched refs:OUNIT (Results 1 – 25 of 94) sorted by relevance

1234

/dports/math/cmlib/cmlib-3.0_8/src/cluster/
H A Ddot.f3 * 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 Dpmany.f2 * 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 Dsparse.f2 * 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 Dcovout.f2 * 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 Dkout.f102 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 Dmixout.f2 * 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 Dsearch.f2 * 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 Dboxes.f2 * 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 Dout1.f2 * 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 Dnbtomt.f1 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 Drank.f1 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 Dplot.f1 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 Dditout.f2 * 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 Dhist.f1 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 Dvarco.f3 * 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 Dout.f1 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 Dline.f1 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 Dfish.f2 * 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 Dprof.f2 * 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 Dletree.f2 * 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 Daidout.f2 * 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 Dmhist.f3 * 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 Dblock.f2 * 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 Dpfish.f1 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 Dquick.f2 * 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),

1234