00001
00002
00003
00004
00005 #ifndef VECTORUTILITIES
00006 #define VECTORUTILITIES
00007
00008 #include <iostream.h>
00009
00010 void set_to_zero( double v[], int n, int stride );
00011 void writef_to_stream( double v[], int n, int stride,
00012 ostream& out, const char format[] );
00013 void set_to_constant( double v[], int n, int stride, double c );
00014 void add_constant( double v[], int n, int stride, double c );
00015 double stepbound( double v[], int n, int incv,
00016 double s[], int incs, double max );
00017 double stepbound( double v[], int n, int incv,
00018 double s[], int incs,
00019 double b[], int incb, double u[], int incu,
00020 double max );
00021 void axdzpy( int n, double alpha,
00022 double x[], int incx, double z[], int incz,
00023 double y[], int incy );
00024
00025 double find_blocking( double w[], int n, int incw,
00026 double wstep[], int incwstep,
00027 double u[], int incu,
00028 double ustep[], int incustep,
00029 double maxStep,
00030 double *w_elt, double *wstep_elt,
00031 double *u_elt, double *ustep_elt,
00032 int& first_or_second );
00033
00034 #endif