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

⟦3fb0f04e1⟧ TextFile

    Length: 2356 (0x934)
    Types: TextFile
    Names: »S00015.f«

Derivation

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

TextFile

      SUBROUTINE S00015
      IMPLICITDOUBLEPRECISION(A-H,O-Z)
      COMMON/AAA26/DEB(21),DEBV(21),DEBL(21),ALFAD(21),ALFB(21),
     2ALFT(21),HA(21),HB(21),HE(21,2),HEM(21),VE(21,2),
     3              XA(21),XB(21),XD(21),XEM(21),SDSC
     4             ,TJONC(21),HJONB(21,2),HJONT(21,2),DEBAV(21)
     5            ,GLINF(21),GLSUP(21),PP1,PP2,ALNIV
     6            ,VGJO(21),GLINFP(21),V55198(21),ICAS(21),ICZW(21)
      COMMON/AAA44/SC(21),SCAPA(22),SHTC(22),VC(22),XL(22)
     1,VFIX,ZCOT(21),I6FT,J6FT,I8FT,J8FT,NC,NC1,NC2,IBCH,IHCH
      COMMON/AAA66/TS,HFS,HGS,HFGS,DHFPS,DHGPS,VVFS,VVGS,DVVFPS,DVVGPS
     1             ,DHFGS,VV1,VV2,DVV1P,DVV2P,T1,T2
      COMMON/AAA10/V(22,2),VV(22,2),H(22,2),HF(22,2),HG(22,2),
     1   DNUHP(22,2),U(22,2),XM(22,2),XT(22,2),ALFA(22,2),
     2             T(22,2),DVVH(22,2),DELH(22,2),DVVP(22,2),DELP(22,2)
     3            ,AA(22,2),BB(22,2),DTDH(22,2),DTDP(22,2),DTSAT,
     4   DNUPP(22,2),A(22),B(22),C(22),TVID(22,12),M(22,2),IST(22,2)
      COMMON/AAA13/TEM,P,DT,HNIV(22),VITESS
     1            ,ZNIV,RI(2),ISS,NITERA,NIV,ISLNI,IBTR,IHTR,ITYP(22)
      DOUBLEPRECISION M
      DO 100 I=1,NC1
      SEC=SC(I)
      DEBAV(I)=DEB(I)
      IDODUC=ITYP(I)
      GOTO (110,120,130),IDODUC
  110 ICA=IST(I,1)
      VFB=VVFS
      VGB=VVGS
      IF(ICA.EQ.1)VFB=VV(I,1)
      IF(ICA.EQ.3)VGB=VV(I,1)
      HFB=HF(I,1)
      HGB=HG(I,1)
      GOTO 150
  120 CONTINUE
      VFB=VV(I,1)
      VGB=VV(I,2)
      HFB=HF(I,1)
      HGB=HG(I,2)
      GOTO 150
  130 ICA=IST(I,2)
      VFB=VVFS
      VGB=VVGS
      IF(ICA.EQ.1)VFB=VV(I,2)
      IF(ICA.EQ.3)VGB=VV(I,2)
      HFB=HF(I,2)
      HGB=HG(I,2)
  150 J=I+1
      IDODUC=ITYP(J)
      GOTO (160,170,180),IDODUC
  160 ICA=IST(J,1)
      VFT=VVFS
      VGT=VVGS
      IF(ICA.EQ.1)VFT=VV(J,1)
      IF(ICA.EQ.3)VGT=VV(J,1)
      HFT=HF(J,1)
      HGT=HG(J,1)
      GOTO 200
  170 CONTINUE
      VFT=VV(J,1)
      VGT=VV(J,2)
      HFT=HF(J,1)
      HGT=HG(J,2)
      GOTO 200
  180     ICA=IST(J,1)
      VFT=VVFS
      VGT=VVGS
      HFT=HF(J,1)
      HGT=HG(J ,1)
      IF(ICA.EQ.1)VFT=VV(J,1)
      IF(ICA.EQ.3)VGT=VV(J,1)
  200 TJONC(I)=TS
      HJONB(I,1)=HFB
      HJONB(I,2)=HGB
      HJONT(I,1)=HFT
      HJONT(I,2)=HGT
      VE(I,1)=(VFB+VFT)/2.D+00
      VE(I,2)=(VGB+VGT)/2.D+00
      CALL S33019(I,SEC)
  100 CONTINUE
      RETURN
      END