Searched defs:RSPLIT (Results 1 – 2 of 2) sorted by relevance
| /dports/math/cmlib/cmlib-3.0_8/src/cluster/ |
| H A D | rsplit.f | 1 SUBROUTINE RSPLIT(MM, M, N, A, RLAB, IR, KA, TH, IORD, DMIWRK, subroutine
73 10 WORK(14,J)=0.
98 20 CONTINUE
108 30 CONTINUE
111 40 CONTINUE
117 50 WORK(18,J)=0.
135 60 CONTINUE
141 70 CONTINUE
148 80 A(ID,J)=CC
163 90 CONTINUE
[all …]
|
| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
| H A D | cluster.F | 3135 INTEGER DMWORK, DMIWRK
3137 CHARACTER*4 RLAB(*), C
3145 10 CONTINUE
3170 20 CONTINUE
3180 30 CONTINUE
3183 40 CONTINUE
3190 50 CONTINUE
3214 70 CONTINUE
3222 80 CONTINUE
3237 90 CONTINUE
[all …]
|