DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »S00019.f«

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

TextFile

      SUBROUTINE S00019
      IMPLICITDOUBLEPRECISION(A-H,O-Z)
      COMMON/AAA22/DH(22,2),DM(22,2),DPDT,DUU(22,2),DV(22,2),DNU(22,2)
      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/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/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/AAA66/TS,HFS,HGS,HFGS,DHFPS,DHGPS,VVFS,VVGS,DVVFPS,DVVGPS
     1             ,DHFGS,VV1,VV2,DVV1P,DVV2P,T1,T2
      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/AAA17/DDPDT,DDH(22,2),DDV(22,2),DDM(22,2),DDU(22,2)
      COMMON/AAA18/DDEB(21),DDDEB(21),DXAT(21),DXAG(21),DXBT(21),
     1             DXBG(21),DNUG(21),DNUF(21),DHE(22,2),DDEBO(21)
      COMMON/AAA20/DQP(22,2),DFLUL(22),DFLUV(22),DFLUIL(22),DFLUIV(22)
     1            ,DDEBIL(22),DDEBIV(22),DQCEI(2),DQCED(22,12),
     2             DDTUO(22,12),DDTGA(22,12),DDTMI(2),DDTMU(2)
      DOUBLEPRECISION M
      TEM=TEM+DT
      P=P+DT*(DPDT+DDPDT*DT)
      DO 10 I=2,NC1
      J1=2
      IF(ITYP(I).EQ.1)J1=1
      DO 1 J=1,J1
      XDH=DH(I,J)
      YDH=DABS(XDH)
      XDDH=DDH(I,J)
      YDDH=DABS(XDDH)
      YDH=DMAX1(1.D0,YDH)
      YDDHT=YDDH*DT
      IF(YDDHT.LE.(YDH/2.))GOTO 2
      XDDH=(YDH/2.)*XDDH/YDDH
      YDDH=DABS(XDDH)
  2   CONTINUE
      IF(YDH.LE.1.D+5.AND.YDDH.LE.1.D+8)GOTO 3
      IF(YDH.GE.1.D+5)XDH=XDH*1.D+5/YDH
      IF(YDDH.GE.1.D+8)XDDH=XDDH*1.D+8/YDDH
   3  H(I,J)=H(I,J)+DT*(XDH+DT*XDDH)
      V(I,J)=V(I,J)+DT*(DV(I,J)+DT*DDV(I,J))
 1    CONTINUE
   10 CONTINUE
      DO 200 I=2,NC1
      N1=NASL(I)
      DO 200 J=1,N1
      T876(I,J)=T876(I,J)+DT*(DT876(I,J)+DT *DDTUO(I,J))
      TGAI(I,J)=TGAI(I,J)+DT*(DTGAI(I,J)+DT *DDTGA(I,J))
  200 CONTINUE
      DO 199 K=1,2
      TMI(K)=TMI(K)+DT*(DTMI(K)+DT*DDTMI(K))
  199 TMU(K)=TMU(K)+DT*(DTMU(K)+DT*DDTMU(K))
      DO 300 I=1,NC1
  300 DEB(I)=DEB(I)+DT*(DDEB(I)+DT*DDDEB(I))
      RETURN
      END