misc.h

#ifndef MISC_H
#define MISC_H

void write_double(double *, int , int , char *);
void write_int(int *, int , int , char *);

int  idamax(int, double *, int=1);
void daxpy(int, double, double *, int, double *, int);
void daxpyx(int, double , double *, int, double *, int);
void dcopy(int, double *, int, double *, int);
double ddot(int, double *, int, double *, int);
double dnrm2(int, double *, int=1);
void dexopy(int, double *, double *, double *, int);
void dfill(int, double *, double);
double r2mach();

double norm2(int, double *);
double prod_esc(int, double *, double *);
void dcopia(int, double *, double *);
int  indmax(int, double *);
int  indmin(int, double *);

#endif //MISC_H