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

⟦c20fe188a⟧ TextFile

    Length: 1994 (0x7ca)
    Types: TextFile
    Names: »S00055.f«

Derivation

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

TextFile

      SUBROUTINE S00055(II)
      IMPLICITDOUBLEPRECISION(A-H,O-Z)
      COMMON/AAA11/V0011N(20),V0012X(20),V0011,V0012,
     1TLIM,ZLIMIN,ZLIMAX,DTVOI,TIMIMP(20),DIFREF(20),DIFMIC(20),
     3V00001,V22202,TEMIMP,TEMMIC,DELM,DELV,DELVI,DELVS,
     6V22201,V22203,DTPRE,DTPHY,DTTEMP,DTCHAN,DTDIS,DTBEF,DTORG
     7,NIMIC,NMULTR,IZONE,N00011(20),ISORT,NECRIT,NSTAR,IPLOT,NZONE
     +,IFRE(20),ICO,IIMP,NPAS1(20),NPAS2(20)
      COMMON/AAA77/QINIT,TPUI(20),QPUI(20),RPUI,PLMOY,
     1    XHTC(22,12),PL(22,12),QREPA(22,12),
     2              XMCGA(22,12),XMCUO(22,12),QCED(22,12),QCON(22,12)
     3            ,QUGA(22,12),QFOU(22,12),QCEI(2),QCONI(2),QUGII(2)
     4            ,TMI(2),DTMI(2),QTOTAL,QTUG,QTGF,TERC(2)
     4             ,TGAI(22,12),TGAII(22,12),T876(22,12),TUMAX(22,12)
     5            ,TUMIN(22,12),DTGAI(22,12),DT876(22,12)
     6            ,TERCO(22,12),TMU(2),DTMU(2),NPUI,NASL(22),NSL(22)
      COMMON/AAA33/VCO,XL0055,D876,DINT,DEXT,VOL002,VOL005,LCO,NCRAY
      COMMON/AAA99/HLCF,HVCFO,HVAP,HCON,HVIN,HLIN,R876,RGAI
     1             ,XM876,XMGAI,XL876,XLGAI,CP876,CPGAI,XMC876,XMCGAI
     2            ,DIAHY,HGAPP(22),HCG(22),HTC(22,12),HVCFF(22)
      PI=3.14159
      IF(NMULTR.LE.1)RETURN
       N1=NASL(II)
      N2=NSL(II)
      I2=0
      DO 1  I=1,N2
      I1=I2+1
      I2=I*NMULTR
      XMCG=0.D+00
      XMCU=0.D+00
      DO 10 K=I1,I2
      XMCG=XMCG+TGAI(II,K)*XMCGA(II,K)
      XMCU=XMCU+T876(II,K)*XMCUO(II,K)
 10   CONTINUE
      XMCGA(II,I)=XMCGA(II,I1)*NMULTR
      XMCUO(II,I)=XMCUO(II,I1)*NMULTR
      TGAI(II,I)=XMCG/XMCGA(II,I)
      T876(II,I)=XMCU/XMCUO(II,I)
      PL(II,I)=PL(II,I1)
      XHTC(II,I)=XHTC(II,I1)*NMULTR
      QREPA(II,I)=QREPA(II,I1)*NMULTR
      TUMAX(II,I)=T876(II,I)+PL(II,I)*PLMOY/8./PI/XL876
      TUMIN(II,I)=T876(II,I)-PL(II,I)*PLMOY/8./PI/XL876
      TGAII(II,I)=TGAI(II,I)+PL(II,I)*PLMOY/2./PI/XLGAI*
     1                            DLOG(DEXT/DINT)
 1    CONTINUE
      NASL(II)=NSL(II)
      RETURN
      END