Return to IGATT2.f CVS log

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

Annotation of researchv10no/cmd/pfort/IGATT2.f, revision 1.1

1.1     ! root        1:       INTEGER FUNCTION IGATT2(INDEX, FIELD)
        !             2: C
        !             3:       COMMON /GRAPH/ LLAT, PLAT, LAT(6000)
        !             4: C
        !             5:       INTEGER INDEX, FIELD
        !             6:       INTEGER LLAT, PLAT, LAT
        !             7:       INTEGER FWTH(8), FPOS(8)
        !             8: C
        !             9:       DATA FWTH(1) /16/, FPOS(1) /1/
        !            10:       DATA FWTH(2) /2/, FPOS(2) /16/
        !            11:       DATA FWTH(3) /2/, FPOS(3) /32/
        !            12:       DATA FWTH(4) /2/, FPOS(4) /64/
        !            13:       DATA FWTH(5) /2/, FPOS(5) /128/
        !            14:       DATA FWTH(6) /2/, FPOS(6) /256/
        !            15:       DATA FWTH(7) /4/, FPOS(7) /512/
        !            16:       DATA FWTH(8) /32/, FPOS(8) /2048/
        !            17: C
        !            18:       IGATT2 = MOD(LAT(INDEX)/FPOS(FIELD),FWTH(FIELD))
        !            19: C
        !            20:       RETURN
        !            21: C
        !            22:       END

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