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

⟦5c7cc24a9⟧ TextFile

    Length: 1615 (0x64f)
    Types: TextFile
    Names: »S00093.f«

Derivation

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

TextFile

      DOUBLEPRECISIONFUNCTION S00093(PWL,TWALL)
      IMPLICITDOUBLEPRECISION(A-H,O-Z)
      DOUBLEPRECISION TABPWL(32),TABA(32),TABB(32)
      DOUBLEPRECISION A,B
      DATA     TABPWL         / 0.000,0.007,0.010,0.012,0.015,0.020,
     *                          0.025,0.030,0.035,0.040,0.050,0.060,
     *                          0.070,0.080,0.100,0.120,0.150,0.200,
     *                          0.250,0.300,0.400,0.500,0.600,0.800,
     *                          1.000,1.200,1.500,2.000,3.000,5.000,
     *                          10.000,20.000 /
      DATA     TABA         / 0.000950,0.000936,0.000890,0.000898,
     *                        0.000890,0.000856,0.000808,0.000778,
     *                        0.000769,0.000758,0.000720,0.000689,
     *                        0.000678,0.000671,0.000620,0.000600,
     *                        0.000565,0.000523,0.000501,0.000486,
     *                        0.000452,0.000447,0.000416,0.000392,
     *                        0.000384,0.000371,0.000354,0.000335,
     *                        0.000322,0.000307,0.000287,0.000275/
      DATA     TABB         / 0.029,0.037,0.047,0.056,0.067,0.080,
     *                        0.090,0.096,0.108,0.120,0.132,0.144,
     *                        0.156,0.168,0.184,0.200,0.220,0.245,
     *                        0.270,0.295,0.325,0.355,0.375,0.410,
     *                        0.450,0.480,0.510,0.550,0.620,0.700,
     *                        0.800,0.910 /
      A = SI(TABPWL(1),TABA(1),PWL,32,IND)
      B = SI(TABPWL(1),TABB(1),PWL,32,IND)
      S00093=B*DEXP(-1.0*A*TWALL)
      RETURN
      END