Return to SATT1.f CVS log

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

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

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