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