Quelle complexdots.f Sprache: Fortran

      COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY)
      INTEGER INCX,INCY,N
      COMPLEX CX(*),CY(*)
      COMPLEX RES
      EXTERNAL CDOTCW

      CALL CDOTCW(N,CX,INCX,CY,INCY,RES)
      CDOTC = RES
      RETURN
      END

      COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY)
      INTEGER INCX,INCY,N
      COMPLEX CX(*),CY(*)
      COMPLEX RES
      EXTERNAL CDOTUW

      CALL CDOTUW(N,CX,INCX,CY,INCY,RES)
      CDOTU = RES
      RETURN
      END

      DOUBLE COMPLEX FUNCTION ZDOTC(N,CX,INCX,CY,INCY)
      INTEGER INCX,INCY,N
      DOUBLE COMPLEX CX(*),CY(*)
      DOUBLE COMPLEX RES
      EXTERNAL ZDOTCW

      CALL ZDOTCW(N,CX,INCX,CY,INCY,RES)
      ZDOTC = RES
      RETURN
      END

      DOUBLE COMPLEX FUNCTION ZDOTU(N,CX,INCX,CY,INCY)
      INTEGER INCX,INCY,N
      DOUBLE COMPLEX CX(*),CY(*)
      DOUBLE COMPLEX RES
      EXTERNAL ZDOTUW

      CALL ZDOTUW(N,CX,INCX,CY,INCY,RES)
      ZDOTU = RES
      RETURN
      END

quality100%

¤ Dauer der Verarbeitung: 0.0 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.