V10/cmd/pfort/SATT1.f

      SUBROUTINE SATT1(INDEX, FIELD, ATT)
C
      COMMON /CTABL/ LDSA, PDSA, DSA(5000)
C
      INTEGER INDEX, FIELD, ATT
      INTEGER LDSA, PDSA, DSA
      INTEGER FWTH(8), FPOS(8)
C
      DATA FWTH(1) /16/, FPOS(1) /1/
      DATA FWTH(2) /2/, FPOS(2) /16/
      DATA FWTH(3) /2/, FPOS(3) /32/
      DATA FWTH(4) /2/, FPOS(4) /64/
      DATA FWTH(5) /2/, FPOS(5) /128/
      DATA FWTH(6) /2/, FPOS(6) /256/
      DATA FWTH(7) /4/, FPOS(7) /512/
      DATA FWTH(8) /32/, FPOS(8) /2048/
C
      DSA(INDEX) = DSA(INDEX) + (ATT-MOD(DSA(INDEX)/FPOS(FIELD),
     *    FWTH(FIELD)))*FPOS(FIELD)
C
      RETURN
C
      END