Return to FINDND.f CVS log

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

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

1.1       root        1:       INTEGER FUNCTION FINDND(K1, K2)
                      2:       INTEGER K1(2)
                      3:       INTEGER PLAT, PNODE
                      4:       LOGICAL COMPAR
                      5:       COMMON /HEAD/ LNODE, PNODE, NODE(500)
                      6:       COMMON /GRAPH/ LLAT, PLAT, LAT(6000)
                      7: C
                      8: C     FINDS SUBPROGRAM WHOSE PACKED NAME IS IN K1(2) AND
                      9: C     RETURNS INDEX OF ITS LAT ENTRY AS VALUE OF FINFND
                     10: C     RETURNS IN K2 INDEX IN NODE OF LAT INDEX
                     11: C     IGNORES ASF NODES IN LAT BY IGNORING NEGATIVE NODE
                     12: C     ENTRIES
                     13: C
                     14:       IF (PNODE-1) 40, 40, 10
                     15:    10 K = PNODE - 1
                     16:       DO 30 I=1,K
                     17:         IF (NODE(I)) 30, 30, 20
                     18:    20   FINDND = NODE(I)
                     19:         K2 = I
                     20:         IF (COMPAR(LAT(FINDND),K1)) GO TO 50
                     21:    30 CONTINUE
                     22:    40 FINDND = 0
                     23:    50 RETURN
                     24:       END

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