bad_complexity.idl

Go to the documentation of this file.
00001 # contains syntax error in complexity expression
00002 
00003 FUNCTION double ddot(IN int n, IN double dx[n*incx], IN int incx,
00004              IN double dy[n*incy], IN int incy)
00005 "Forms the dot product of two vectors.
00006 Double Precision routine.
00007 http://www.netlib.org/blas/"
00008 LANGUAGE = "FORTRAN"
00009 LIBS = "$(BLAS_LIBS)"
00010 COMPLEXITY = "2.0*n-"
00011 MAJOR="COLUMN"
00012 
00013 # contains syntax error in complexity expression
00014 
00015 FUNCTION dcomplex zdotc(IN int n, IN dcomplex dx[n*incx], IN int incx,
00016              IN dcomplex dy[n*incy], IN int incy)
00017 "Forms the dot product of two vectors, conjugating the first vector.
00018 Double Precision complex routine.
00019 http://www.netlib.org/blas/"
00020 LANGUAGE = "FORTRAN"
00021 LIBS = "$(BLAS_LIBS)"
00022 COMPLEXITY = "2.0*n[3]"
00023 MAJOR="COLUMN"
00024 
00025 # contains complex number in complexity expression
00026 
00027 FUNCTION dcomplex zdotc2(IN int n, IN dcomplex dx[n*incx], IN int incx,
00028                      IN dcomplex dy[n*incy], IN int incy, IN dcomplex asdf)
00029 "Forms the dot product of two vectors, conjugating the first vector.
00030 Double Precision complex routine.
00031 http://www.netlib.org/blas/"
00032 LANGUAGE = "FORTRAN"
00033 LIBS = "$(BLAS_LIBS)"
00034 COMPLEXITY = "2.0*asdf"
00035 MAJOR="COLUMN"
00036 
00037 # contains non-scalar in complexity expression
00038 
00039 SUBROUTINE daxpy(IN int n, IN double alpha, IN double x[n*abs(incx)], 
00040          IN int incx, INOUT double y[n*abs(incy)], IN int incy)
00041 "Computes y <- alpha * x + y
00042 where y and x are the two double precision real vectors, and
00043 alpha is a double precision real scalar.
00044 http://www.netlib.org/blas/"
00045 LANGUAGE = "FORTRAN"
00046 LIBS = "$(BLAS_LIBS)"
00047 COMPLEXITY = "3.0*y"
00048 MAJOR="COLUMN"
00049 
00050 # contains non-existent variable in complexity expression
00051 
00052 SUBROUTINE dgemv(
00053   IN char trans, 
00054   IN int m, 
00055   IN int n, 
00056   IN double alpha, 
00057   IN double a[lda][n],
00058   IN int lda, 
00059   IN double x[((((trans=='n')||(trans=='N'))*(1+(n-1)*abs(incx)))+(((trans!='n')&&(trans!='N'))*(1+(m-1)*abs(incx))))], 
00060   IN int incx, 
00061   IN double beta,
00062   INOUT double y[((((trans=='N')||(trans=='n'))*(1+(m-1)*abs(incy)))+(((trans!='N')&&(trans!='n'))*(1+(n-1)*abs(incy))))],
00063   IN int incy
00064 )
00065 "DGEMV  performs one of the matrix-vector operations
00066   y := alpha*A*x + beta*y,   or   y := alpha*A'*x + beta*y,
00067 where alpha and beta are scalars, x and y are vectors and A is an
00068 m by n matrix.
00069 http://www.netlib.org/blas/index.html"
00070 LANGUAGE = "FORTRAN"
00071 LIBS = "$(BLAS_LIBS)"
00072 COMPLEXITY = "3.0*foo"
00073 MAJOR="COLUMN"