Return to FIND.f CVS log

Up to [Research Unix] / researchv10no / cmd / pfort

Annotation of researchv10no/cmd/pfort/FIND.f, revision 1.1.1.1

1.1       root        1:       INTEGER FUNCTION FIND(K)
                      2: C
                      3: C      FIND HAS TO FIND THE INDEX IN NODE
                      4: C      OF THE LATTICE ENTRY AT K, DOES A
                      5: C     LINEAR SEARCH ON NODE ARRAY
                      6: C      P.U. ASSUMES NODE ARRAY SET UP PROPERLY
                      7: C      AND THAT NODES ITS ASKED TO FIND ARE ALWAYS IN THE
                      8: C      ARRAY SOMEWHERE. CAN BE ASKED TO FIND INDEX OF
                      9: C      ANY NODE IN LATTICE, EVEN ASFS
                     10: C
                     11:       INTEGER PNODE
                     12:       COMMON /HEAD/ LNODE, PNODE, NODE(500)
                     13:       L = PNODE - 1
                     14:       DO 10 I=1,L
                     15:         IF (K.NE.IABS(NODE(I))) GO TO 10
                     16:         FIND = I
                     17:         GO TO 20
                     18:    10 CONTINUE
                     19:    20 RETURN
                     20:       END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.