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

⟦a53b55e55⟧ TextFile

    Length: 504 (0x1f8)
    Types: TextFile
    Names: »S00934.f«

Derivation

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

TextFile

      SUBROUTINE S00934(X,Y,Z,XA,YA,ZA,NPOINT)
      IMPLICITDOUBLEPRECISION(A-H,O-Z)
      DOUBLEPRECISION X(20),Y(20),Z(20)
      IF(XA.GT.X(1))GOTO 3
      YA=Y(1)
      ZA=Z(1)
      RETURN
   3  IF(XA.LT.X(NPOINT))GOTO 6
      YA=Y(NPOINT)
      ZA=Z(NPOINT)
   6  CONTINUE
      DO 10 I=2,NPOINT
      IF(XA.GT.X(I)) GO TO 10
      RAP=(XA-X(I-1))/(X(I)-X(I-1))
      YA=Y(I-1)+(Y(I)-Y(I-1))*RAP
      ZA=Z(I-1)+(Z(I)-Z(I-1))*RAP
      GO TO 20
 10   CONTINUE
 20   CONTINUE
      RETURN
      END