search for: ioffst

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 (....