End of file
Contents
Index

      DOUBLE PRECISION FUNCTION SENORM (X, N)
C
C*****************************************************************
C                                                                *
C  The FUNCTION-subroutine SENORM computes the square of the     *
C  euclidean norm of a real vector X of length N+1               *
C                                                                *
C  INPUT PARAMETERS:                                             *
C  =================                                             *
C                                                                *
C  X    (N+1)-vector X(0:N) containing the vector whose norm     *
C       shall be computed                                        *
C  N    number of components of the vector X                     *
C                                                                *
C  OUTPUT PARAMETER:                                             *
C  =================                                             *
C                                                                *
C  none                                                          *
C                                                                *
C----------------------------------------------------------------*
C                                                                *
C  subroutines required: none                                    *
C                                                                *
C*****************************************************************
C                                                                *
C  author   : Ilona Westermann                                   *
C  date     : 09.01.1987                                         *
C  source   : FORTRAN 77                                         *
C                                                                *
C*****************************************************************
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      INTEGER N
      DOUBLE PRECISION X(0:N)
      SENORM = 0.0D0
      DO 10 I=0,N
         SENORM = SENORM + X(I) * X(I)
   10 CONTINUE
      RETURN
      END


Begin of file
Contents
Index