Return to IGATT1.f CVS log

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

Annotation of researchv10dc/cmd/pfort/IGATT1.f, revision 1.1

1.1     ! root        1:       INTEGER FUNCTION IGATT1(INDEX, FIELD)
        !             2: C
        !             3:       COMMON /CTABL/ LDSA, PDSA, DSA(5000)
        !             4: C
        !             5:       INTEGER INDEX, FIELD
        !             6:       INTEGER LDSA, PDSA, DSA
        !             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:       IGATT1 = MOD(DSA(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.