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

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.