DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

Index: S T

⟦3c8c7c481⟧ TextFile

    Length: 541 (0x21d)
    Types: TextFile
    Names: »SI.f«

Derivation

└─⟦db229ac7e⟧ Bits:30007240 EUUGD20: SSBA 1.2 / AFW Benchmarks
    └─⟦this⟧ »EUUGD20/AFUU-ssba1.21/ssba1.21E/doduc/SI.f« 
    └─⟦this⟧ »EUUGD20/AFUU-ssba1.21/ssba1.21F/doduc/SI.f«

TextFile

      DOUBLEPRECISIONFUNCTION SI (XTBL,YTBL,XX,NN,IND)
      DOUBLEPRECISION XX
      DOUBLEPRECISION XTBL(32), YTBL(32)
      IND = 0
      X = XX
      N = NN
      IF(X-XTBL(1))120,130,150
  120 IND = 1
  130 II  = 2
      GO TO 254
  150 IF(XTBL(N)-X)160,180,210
  160 IND = 2
  180 II  = N
      GO TO 254
  210 DO 220 IK=2,N
      II = IK
      IF(XTBL(IK)-X) 220,254,254
  220 CONTINUE
  254 X1 = XTBL(II - 1)
      X2 = XTBL(II)
      Y1 = YTBL(II-1)
      Y2 = YTBL(II)
      SI = Y1 + (Y2-Y1)*(X-X1)/(X2-X1)
      RETURN
      END