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

⟦6e4baf8e9⟧ TextFile

    Length: 235 (0xeb)
    Types: TextFile
    Names: »S00098.f«

Derivation

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

TextFile

      DOUBLEPRECISIONFUNCTION S00098(VBCR,ALO,AL)
      IMPLICITDOUBLEPRECISION(A-H,O-Z)
      A=.67
      IF(AL.GE.ALO)A=.47
      B=1./A
      C=B-1.D+00
      RAP=(AL/ALO)**C
      S00098=VBCR*(1.-AL)*RAP/ALO
      RETURN
      END