Return to SATT2.f CVS log

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

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

1.1     ! root        1:       SUBROUTINE SATT2(INDEX, FIELD, ATT)
        !             2: C
        !             3:       COMMON /GRAPH/ LLAT, PLAT, LAT(6000)
        !             4: C
        !             5:       INTEGER INDEX, FIELD, ATT
        !             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:       LAT(INDEX) = LAT(INDEX) + (ATT-MOD(LAT(INDEX)/FPOS(FIELD),
        !            19:      *    FWTH(FIELD)))*FPOS(FIELD)
        !            20: C
        !            21:       RETURN
        !            22: C
        !            23:       END

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