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

⟦f34b9b72b⟧ TextFile

    Length: 2654 (0xa5e)
    Types: TextFile
    Names: »S66832.f«

Derivation

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

TextFile

      SUBROUTINE S66832
      IMPLICITDOUBLEPRECISION(A-H,O-Z)
      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/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)
      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/AAA55/KPRESS,KDEB,KCON,KTGAI,KT876,ICAT(3),KIMP,KGLISS
      DOUBLEPRECISION M
      NIVO=NIV
       ZNIVO=ZNIV
      IBTRO=IBTR
      IHTRO=IHTR
      IF(ICAT(2).LE.2)GOTO 100
      IF(NIV.EQ.2) GO TO 200
      IF(HNIV(NIV).LE.XL(NIV)/2.)GOTO 250
      IF(NIV.EQ.NC1) GO TO 250
      IBTR=NIV
      IHTR=NIV+1
      RETURN
 250   IBTR=NIV-1
      IHTR=NIV
      RETURN
 200   IBTR=2
      IHTR=3
      RETURN
 100  CONTINUE
      TGAI(1,1)=TGAI(2,1)
      QT=QCON(1,1)
      IM=1
      JM=1
      DO 150 I=2,NC1
      N2=NASL(I)
      DO 140 J=1,N2
      IF(QCON(I,J).LE.QT)GOTO 140
       NN=I
      JJ=J-1
      IF(JJ.GE.1)GOTO 145
      NN=I-1
      JJ=NASL(NN)
  145 IF((TGAI(I,J)-TGAI(NN,JJ)).GE.50.)GOTO 140
      IM=I
      JM=J
      QT=QCON(I,J)
  140 CONTINUE
  150 CONTINUE
      N1=NASL(IM)
      NIV=IM
      IF(JM.LE.(N1/2))GOTO 210
      IBTR=IM
      IHTR=IM+1
      GOTO 220
  210 IBTR=IM-1
      IHTR=IM
  220 IF(IBTR.GE.2)GOTO 300
      IBTR=2
      IHTR=MIN0(3,NC1)
      GOTO 400
  300 IF(IHTR.LE.NC1)GOTO 400
      IBTR=MAX0(NC,2)
      IHTR=NC1
  400 CONTINUE
      ZNIV=0.
      IF(NIV.LT.2)GOTO 430
      IF(NIV.EQ.2)GOTO 420
      N1=NIV-1
      DO 410 I=2,N1
  410 ZNIV=ZNIV+XL(I)
  420 ZNIV=ZNIV+(JM-.5)*XL(NIV)/NASL(NIV)
  430 CONTINUE
      IF(IHTR.GT.(IHTRO+1))GOTO 500
      IF(IBTR.LT.(IBTRO-1))GOTO 510
      RETURN
  500 ZNIV=ZNIVO
      IHTR=IHTRO+1
      IBTR=IHTR-1
      NIV=0
      RETURN
  510 ZNIV=ZNIVO
      IBTR=IBTRO-1
      IHTR=IBTR+1
      NIV=0
      RETURN
      END