Displaying 1 result from an estimated 1 matches for "ioffst".
Did you mean:
ioffset
2006 Mar 09
1
HCLUST subroutine question -- FORTRAN DO loops
...rithm from a cut.
C MEMBR(I)=1.
10 FLAG(I)=.TRUE.
NCL=N
C
C Carry out an agglomeration - first create list of NNs
C Note NN and DISNN are the nearest neighbour and its distance
C TO THE RIGHT of I.
C
DO 30 I=1,N-1
DMIN=INF
DO 20 J=I+1,N
IND=IOFFST(N,I,J)
IF (DISS(IND).GE.DMIN) GOTO 20
DMIN=DISS(IND)
JM=J
20 CONTINUE
NN(I)=JM
DISNN(I)=DMIN
30 CONTINUE
C
400 CONTINUE
C Next, determine least diss. using list of NNs
DMIN=INF
DO 600 I=1,N-1
IF (....