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

⟦793915c32⟧ TextFile

    Length: 529 (0x211)
    Types: TextFile
    Names: »SIGMA.f«

Derivation

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

TextFile

      DOUBLEPRECISIONFUNCTION SIGMA(T)
      IMPLICITDOUBLEPRECISION(A-H,O-Z)
      DATA B0,B1,B2,B3,B4,B5 / 0.83D+00,  1.160936807D-1,
     1               1.121404688D-3,     -5.752805180D-6,
     2               1.286274650D-8,     -1.149719290D-11 /
      TC = (T-32.)*5./9.D+00
      TK = TC + 273.15
      DTK = 647.3D+00-TK
      DTK=DMAX1(1.D-6,DTK)
      SIGMA = B1*DTK*DTK/(1.+B0*DTK)
      SIGMA = SIGMA + DTK*DTK*(B2+DTK*(B3+DTK*(B4+DTK*B5)))
      SIGMA = SIGMA * 12. * 14.5037738D-6/2.540005
      RETURN
      END