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: T X

⟦3d4255b59⟧ TextFile

    Length: 536 (0x218)
    Types: TextFile
    Names: »X21Y21.f«

Derivation

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

TextFile

      SUBROUTINE X21Y21 (X,Y)
      DOUBLEPRECISION X(21),Y(21)
      DOUBLEPRECISION XX(21),YY(21)
      DATA XX   /0.2,200.,400.,600.,800.,1000.,1500.,2000.,2500.,3000.,
     1 3500.,4000.,6000.,8000.,10000.,15000.,20000.,25000.,30000.,40000.
     2 ,50000./
      DATA YY   /0.,69.31,120.68,166.92,210.12,251.19,347.43,437.34,
     1 522.82,604.92,684.31,761.46,1053.22, 1325.78,1584.89,2192.16,
     2 2759.46,3298.77,3816.78,4804.5,5743.49/
      DO 1 I=1,21
      X(I)=XX(I)
      Y(I)=YY(I)
1     CONTINUE
      RETURN
      END